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