input""s$:for i=-9to 0?s$:t$="":for j=1to-i t$=t$+str$(abs(asc(mid$(s$,j))-asc(mid$(s$,j+1))))next:s$=t$next