Lift ( Using FIXPOINT implement yin_yang puzzle）

(defun  fixpoint  ( x  y)
(funcall   y    (funcall  x  x  y) )
)

(setq  chen   (fixpoint   'fixpoint  
       (lambda (yin )   
               (progn    
                  (print 'a)
                         (lambda (yang  )             
                              (progn
                                (print 'b)
                                (funcall  yin  yang ))))))   

)

(funcall   chen  chen)