(define FIBO
  (fib 15))

(define inlist
  (lambda (nr list)
    (if (null? list)
        #f
        (if (= nr (car list))
            #t
            (inlist nr (cdr list))))))

(define extract
  (lambda (list)
    (if (null? list)
        '()
        (if (inlist (- (length list) 1) FIBO)
            (cons (car (reverse list)) (extract (cdr (reverse list))))
            (extract (cdr (reverse list)))))))