(defn fib [c]
  (loop [i 0 cur 1 prev 0 fibs '()]
    (if (< c i)
      (let [value (+ cur prev) tmp cur]
        (recur (inc i)
               value
               tmp
               (conj fibs value))))))