#(while(char?(peek-char))(format #t"~y"(read)))