f(a):=if a=[]then""else(dispterms(simplode(a,"")),f(abs(rest(a)-rest(a,-1))));f(map(cint,charlist(?read\-line()))-48);