(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