(ns fibonacci)

(defn fib [n]
  (if (<= n 1)
    n
    (+ (fib (- n 1))
       (fib (- n 2)))))

(defn fib-seq [count]
  (map fib (range 0 count)))

# Print first 10 Fibonacci numbers
(println "First 10 Fibonacci numbers:")
(println (fib-seq 10))