(loop(format t"h~a
"(string-trim"h"(read-line))))