(defun let1 (list)
  (let (print-options)
    (labels ((worker 
		 (l sum-so-far)
	       (if l
		   (worker (cdr l)    
			   (+ sum-so-far (car l)))
		   sum-so-far)))
      (worker list 0))))