#(while(char?(peek-char))(display(if(eq?(read-char)#\
)#\
#\0)))