#(while(let((x(read)))(format #t"~vr
"(read)x)))