input""a$
l=len(a$)
for i=1to l?mid$(a$+a$,l-i+2,l)next