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

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