gistfile1.scm

(define (fib n)
  (fib-iter 1 0 n))

(define (fib-iter a b count)
  (if (= count 0)
      b
      (fib-iter (+ a b) a (- count 1))))


(define fibs '())


(let loop ((a 1)) 
  (if (< a 100) 
    (begin 
      (set! fibs (append fibs (list (fib a))))
      (loop (+ a 1)))))


(filter prime? fibs)