(format t "~a~a~%" (read-line) "ham")