input""n:n=n-1:line input""s$:for i=0to n:for j=1to len(s$)for k=0to n?mid$(" "+mid$(s$,j),1+!i*(i-n)*k*!k=n,1);next:next:?next