do?chr$(c*!!mod(i,10*!c<11));
i=i+!c=10
c=peek(0)loop