(while(format #t"~X
"(read)))