nature (计算模型的改变)

(setq  zero  (funcall (lambda (n)(lambda()n))  nil) )
(setq  one   (funcall (lambda (n)(lambda()n))  'chenbing ) )

(setq  incr  (lambda (x ) (lambda ()  (calc x)    )))

(defun   nature  (now n)
(if  (>  n  0)
     (nature  (funcall   incr  now)  (- n  1) )
      now
)
)

(defun  calc (now)
(if  (listp   now)
        (progn
         (print  'mid)
         now
         )
    (cons  (funcall  one) (calc  (funcall  now) ) )
)
)

             
(calc (nature  zero  10)  )
(calc (nature  zero  11)  )
(calc (nature  zero  12)  )
(calc (nature  zero  13)  )