Rubikon string dump

slow.clj

(ns program
  (:gen-class))
  
(defn fib [n]
  (if (<= n 2) 
  1 
  (+ (fib (- n 1)) (fib (- n 2)))))

(defn -main [& args]
  (println "this is so fucking slow")
  (println (fib 5))
  (System.Console/ReadKey))