(loop
for line = (read *standard-input* nil :eof)
while (not (equal line :eof))
do (format t "~B~%" line))
KGxvb3AgCglmb3IgbGluZSA9IChyZWFkICpzdGFuZGFyZC1pbnB1dCogbmlsIDplb2YpIAoJd2hpbGUgKG5vdCAoZXF1YWwgbGluZSA6ZW9mKSkgCglkbyAoZm9ybWF0IHQgIn5CfiUiIGxpbmUpKQ==