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