Program

(import (scheme base) (scheme write)) (define (fibonacci x) (if (< x 2) x (+ (fibonacci (- x 1)) (fibonacci (- x 2))))) (display "Answer: ") (write (fibonacci 10)) (newline)

Output