b:0;for i in charlist(?read\-line())do(printf(?t,"~a.",smake(abs(c:cint(i)-b),if(0>c)then"-"else"+")),b:b+c);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page