line input""s$:for i=-len(s$)to-1s$=s$+mid$(s$,-i,1):?mid$(s$,-i)next