                  (list (list word c -1))
                  (map #(conj (list c %) word) posns)))))
          [(tuple word :length (count word))
-          (tuple word :type   :WORD)]
-         )))
-
-;; (word-triples "abccddd")
+          (tuple word :type   :WORD)])))
+
 
 (defn word-collection-triples [coll]
   (r/fold clojure.set/union clojure.set/union

  (:use     [print.foo]))




(def +default-corpus-file+ "resources/words.txt")



  (r/fold clojure.set/union clojure.set/union
    (mapv word-triples (words-from-file filename))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Database Management
