; one step, two step

(define (f n)
  (if (< n 2) 1
    (+ (f (- n 1)) (f (- n 2)))))
    
(display (map f '(1 2 3 4 5 6 7 8 9 10))) (newline)