(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