(loop
for line = (read-line *staard-input* nil nil)
while (not (equal line "42"))
do (format t "~A~%" line))
KGxvb3AgCglmb3IgbGluZSA9IChyZWFkLWxpbmUgKnN0YWFyZC1pbnB1dCogbmlsIG5pbCkgCgl3aGlsZSAobm90IChlcXVhbCBsaW5lICI0MiIpKSAKCWRvIChmb3JtYXQgdCAifkF+JSIgbGluZSkp