 (defn counted-tuples
   [parsed requests]
   (let [tuples (partition 2 1 parsed)
-        first-edge (first (first tuples))
-        last-edge (last (last tuples))
+        first-node (first (first tuples))
+        last-node (last (last tuples))
         counted (reduce
                  (fn [m [a b]]
                    (let [ac (.hashCode a)

     :counted counted}))

(defn corpus-chain
  [corpus]
  (-> corpus
      preprocess-corpus

(ns engulf.formulas.markov-requests
  "Support for generating markov chains of requests."
  ;; TODO: This file's a bit of a messy in terms of organization and naming
  (:use clojure.pprint
        [clojure.string :only [lower-case]]
        [clojure.walk :only [keywordize-keys]])
