factorial() lambda recursive version

gistfile1.el

(funcall  
 (lambda (fn n)  
   (funcall fn n fn))  
 (lambda (n this)  
   (cond ((> n 0)  
          (* n (funcall this (- n 1) this)))  
         (t 1)))  
 10)