(while:pr("
0987654321"(mod(-(readb)47)37)))