(setq zero (funcall (lambda (n)n) nil) )
(setq one (funcall (lambda (n)(lambda()n)) 'chenbing) )
(setq incr (lambda (x) (cons (funcall one) x )))
(defun nature (now n)
(if (> n 0)
(nature (funcall incr now) (- n 1) )
(funcall incr now)
)
)
(nature zero 10)
(nature zero 11)
(nature zero 12)
(nature zero 13)