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