2 lines
51 B
Text
2 lines
51 B
Text
|
((dup 0 ==) 'succ (dup pred) '* linrec) :factorial
|