L:slength;sum((a:eval_string(w:ssubst("","!",s:?read\-line())),b:L(s)-L(w),d:1,while(a>0)do(d:d*a,a:a-b),dispterms(d)),j,1,184);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page