1 (defun let*->nested-lets (exp)
2   (labels (
3 	   (make-rec-let (initforms body)
4 	     (if (null initforms)
5 		 body
6 		 (make-let
7 		  (list (car initforms))
8 		  (make-rec-let (cdr initforms) body)))))
9     (make-rec-let (cadr exp) (caddr exp))))