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);