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