lazy repeat pattern sequences in clojure

(defn now[] (System/currentTimeMillis))


(defn faiver
  ([generator]
    ;; bootstrap our generated series
    (faiver generator (generator)))
  ([generator current]
    ;; lazy means we evalueate as queried, 5 units of the same value, then generate a new one
    (lazy-seq
      (concat
        (repeat 5 current)
        (faiver generator (generator))
      )
    )
  )
)

(take 12 (faiver now))

;; output here was :
;; (1497418232616 1497418232616 1497418232616 1497418232616 1497418232616 1497418232616
;;  1497418232616 1497418232616 1497418232616 1497418232616 1497418232616 1497418232616)