(loop while(listen)do(psetf /(read)* /))(dotimes'100(psetf /(mod(+ / *)10)* /)(format t"~D "/))