(define mapFib
    (lambda (x)
    (letrec ((fib (lambda (x) (if (< x 2) x (+ (fib (- x 1)) (fib (- x 2))))))
             (mapOne (lambda (p ls) (if (null? ls) '() (cons (p (car ls)) (mapOne p (cdr ls)))))) (countDown (lambda (x) (if (equal? x 0) '() (cons x (countdown (- x 1)))))))
      (reverse (mapOne fib (countDown x))))))