#(while(format #t"~y"(+(read))))