(defmacro stupid-let* (bindings &body body)
  (let ((form body))
      (dolist (clues (nreverse bindings))
        (setf form (list (nconc `(let (,clues)) form))))
    (car form)))