12л

(define (fib n)
  (if (< n 3)
      1
      (+ (fib (- n 1)) (fib (- n 2)))
      )
  )

(define (make-fib-list n)
  (define a (make-vector n))
  (let loop ((i 1))
    (vector-set! a (- i 1) (fib i))
    (if (< i n) (loop (+ i 1)))
    )
  a
  )