(while(#(when(< 0%)(if(= 10%)(prn)(pr'0))1)(.read *in*)))