(%)=divMod
r&b=r*10^(b-1)
(0,r)#b=r&b
(q,r)#b=q%(b+1)#(b+1)+r&b
m@main=mapM(print.(#1).(%1))[0..1000]