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