input""a$
1?a$:b=len(a$)-1:if b c$="":for j=1to b:c$=c$+str$(abs(val(mid$(a$,j,1))-val(mid$(a$,j+1,1))))next:a$=c$:goto 1