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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page