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