vectorize.clj

(defn digit-seq
  ([divisor]
     (digit-seq divisor 1))
  ([divisor last-remainder]
     (let [dividend (* last-remainder 10)
	   result (quot dividend divisor)
	   remainder (rem dividend divisor)]
       (lazy-seq (cons result (digit-seq divisor remainder))))))