(load "2.38.txt") ; for fold-right and fold-left

(define (reverse1 sequence)
  (fold-right (lambda (item right-reversed) (append right-reversed (list item)))
              '()
              sequence))

(define (reverse2 sequence)
  (fold-left (lambda (left-reversed item) (cons item left-reversed))
             '()
             sequence))