(loop for code from (+) to (- char-code-limit (*))
for c = (code-char code)
if (and (standard-char-p c)
(graphic-char-p c))
do (set-macro-character c (lambda (_ c) (princ c))))
hello world
KGxvb3AgZm9yIGNvZGUgZnJvbSAoKykgdG8gKC0gY2hhci1jb2RlLWxpbWl0ICgqKSkKICAgICAgZm9yIGMgPSAoY29kZS1jaGFyIGNvZGUpCiAgICAgIGlmIChhbmQgKHN0YW5kYXJkLWNoYXItcCBjKQogICAgICAgICAgICAgIChncmFwaGljLWNoYXItcCBjKSkKICAgICAgICBkbyAoc2V0LW1hY3JvLWNoYXJhY3RlciBjIChsYW1iZGEgKF8gYykgKHByaW5jIGMpKSkpCgpoZWxsbyB3b3JsZAo=