f(a):=if a=[]then""else(dispterms(simplode(a,"")),f(abs(rest(a)-rest(a,-1))));f(map(cint,charlist(?read\-line()))-48);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page