(let (temp) (if (string= (setq temp (read-line)) "ham") (format t "ham~%") (format t "~aham~%" temp)))