   (r/fold clojure.set/union clojure.set/union
     (mapv word-triples (words-from-file filename))))
 
-;; (util/run-and-measure-timing 
-;;   (count (file-triples +default-corpus-file+)))
-;;
-;;  => {:response         4511728,
-;;      :start-time 1401197847802,
-;;      :end-time   1401197881150,
-;;      :time-taken         33348}
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Database Management

                 (list (list word c -1))
                 (map #(conj (list c %) word) posns)))))
         [(tuple word :length (count word))
          (tuple word :type   :WORD)]
         )))

;; (word-triples "abccddd")

(defn word-collection-triples [coll]
  (r/fold clojure.set/union clojure.set/union

;;        :start-time 1401743282516,
;;        :end-time   1401743282516,
;;        :time-taken 0}


;; (util/run-and-measure-timing
