#(while(format #t"~y"(/(read)2)))