x=1
do n=1 to 400
s=
x=x+n
do i=-4 to 0
s=s" "copies(":",x%10**-i//10)
end
say strip(s)
end