Scheme

LISP

code:scm

(define (fib n)

(if (= n 0) 0

(if (= n 1) 1

(+ (fib (- n 1)) (fib (- n 2)))))

)

(println (fib 15)) ; 610