/myfact {{dup 0 eq} {pop 1} {dup pred} {mul} linrec}.