(loop(format t"~X
"(read)))