UNB/ CS/ David Bremner/ teaching/ cs4613/ lectures/ lecture21/ sum-bitmap.rkt
#lang plai/gc2/mutator
(allocator-setup "bitmapped-fits.rkt" 54)
(define (sum lst)
  (cond
    [(empty? lst) 0]
    [else (+ (first lst) (sum (rest lst)))]))

(sum '(1 2 3 4 5))