(define fib
  (lambda (num)
    (if (< num 2) num
        (+ (fib (- num 1)) (fib (- num 2))))))

(define NUM 37)

(display "Fibonacci number ")
(display NUM)
(display " is ")
(display (fib NUM))
(newline)