#lang lazy
; f(n) = 2*f(n-1) + 3*f(n-3)
(define f-list (list* 1 2 3 (map (lambda (x y) (+ (* 2 x) (* 3 y))) (cddr f-list) f-list )))

(list-ref f-list  0)
; (list-ref f-list  1)
; (list-ref f-list  2)
; (list-ref f-list  3)
; (list-ref f-list  4)
; (list-ref f-list  5)
; (list-ref f-list  6)
; (list-ref f-list  7)
; (list-ref f-list  8)
; (list-ref f-list  9)
; (list-ref f-list 10)
; (list-ref f-list 11)
; (list-ref f-list 12)
; (list-ref f-list 13)
; (list-ref f-list 14)