5 lines
104 B
Text
5 lines
104 B
Text
(de fact (N)
|
|
(apply * (range 1 N)) )
|
|
|
|
(de foo ()
|
|
(prinl "The value of fact(10) is " `(fact 10)) )
|