; Fibonacci sequence calculator
(define (fib n)
  (if (<= n 1)
    n
    (+ (fib (- n 1))
       (fib (- n 2)))))

; Print first 10 Fibonacci numbers
(map (lambda (x) (write (fib x)))
     (range 0 10))