(require-extension srfi-1)
(define (mem-rec-fib n)
  (define memo '(0 1 1 2 3 5 8 13))
  (define (fib c)
    (cond
     [(<= c (length memo)) (list-ref memo (- c 1))]
     [else
      (display c) (newline)
      (last (append! memo (list (+
                                (fib (- c 1))
                                (fib (- c 2))))))]))

  (fib n))