#| BEGIN (Write your solution here) |#
(define (list-of-values-lr exps env)
  (if (no-operands? exps)
      '()
      (let ((first (eval (first-operand exps) env)))
        (cons first (list-of-values-lr (rest-operands exps) env)))))

(define (list-of-values-rl exps env)
  (if (no-operands? exps)
      '()
      (let ((rest (list-of-values-rl (rest-operands exps) env)))
        (cons (eval (first-operand exps) env) rest))))
#| END |#