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