Calculate Pi in Clojure

pi.clj

; Calculate Pi in Clojure
; https://rosettacode.org/wiki/Pi
; https://en.wikipedia.org/wiki/Spigot_algorithm
(defn pi-digits [& {:keys [q r t k n l]}]
  (if (< (- (+ (* 4 q) r) t) (* n t))
    (cons n
      (lazy-seq
        (pi-digits :q (* q 10)
                   :r (* 10 (- r (* n t)))
                   :t t
                   :k k
                   :n (- (quot (* 10 (+ (* 3 q) r)) t) (* 10 n))
                   :l l)))
    (pi-digits :q (* q k)
               :r (* (+ (* 2 q) r) l)
               :t (* t l)
               :k (inc k)
               :n (quot (+ (* q (+ (* 7 k) 2)) (* r l)) (* t l))
               :l (+ l 2))))
(do
  (print "3.")
  (doseq [d (rest (pi-digits :q 1N :r 0N :t 1N :k 1N :n 3N :l 3N))]
    (print (int d))
    (flush)))