(setq chenbing
(lambda (x)
(lambda (name y )
(if (eq y nil)
(if (atom x)
(funcall '+ x )
(apply '+ x)
)
(if (atom x)
(funcall name (list x y) )
(funcall name (append x (cons y nil) ) )
)
)
)
)
)
(funcall (funcall chenbing 1 ) nil nil)
(funcall (funcall (funcall chenbing 1 ) chenbing 2 ) nil nil)
(funcall (funcall (funcall (funcall chenbing 1 ) chenbing 2 ) chenbing 3) nil nil)
(funcall (funcall (funcall (funcall (funcall chenbing 1 ) chenbing 2 ) chenbing 3) chenbing 4)nil nil)