line input""a$
b=len(a$)
for i=1to b
for j=1to i?mid$(a$,b-i+1,j)next
next