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