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