do 20
parse pull n s
do i=1-n to-1
s=insert(" ",s,-length(s)%n*i)
end
say s
end