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