(FILECREATED "20-May-2016 18:06:50" <PAPA>FACT..3 340 )
(* Copyright (c) by NIL. All rights reserved.)
(DEFINEQ
(FACT
[LAMBDA (N) (* edited:
"20-May-2016 18:")
(COND
((EQ N 0)
1)
(T (ITIMES N (FACT (SUB1 N])
)
(PRETTYCOMPRINT (FACT))
(DECLARE: DONTCOPY
(FILEMAP (NIL (115 291 (FACT 127 . 288)))))
STOP