(let loop ((acc (eval-expression exp1 env))
           (exps exps))
  (if (null? exps) acc
      (loop (eval-expression (car exps) env) (cdr exps))))





What is code that would be in the body of the begin-exp case of eval-expression?