        "https://github.com/witch-house/pronoun.is/blob/master/resources/pronouns.tab"))
 
 (defn pronouns [params pronouns-table]
-  (println params)
   (let [path (params :*)
         ors (u/vec-coerce (params "or"))
-        a (println path)
-        pronoun-declension (parse-pronouns-with-lookup (escape-html path)
-                                                       pronouns-table)
-        alternates (map #(parse-pronouns-with-lookup (escape-html %)
-                                                     pronouns-table)
-                        ors)
-        ]
+        pronoun-declension (lookup-pronouns (escape-html path)
+                                            pronouns-table)
+        alternates (map #(lookup-pronouns (escape-html %)
+                                          pronouns-table)
+                        ors)]
     (println pronoun-declension)
     (if pronoun-declension
       (format-pronoun-examples pronoun-declension alternates)

       (about-block)
       (contact-block)]])))

(defn parse-pronouns-with-lookup [pronouns-string pronouns-table]
  (let [inputs (s/split pronouns-string #"/")
        n (count inputs)]
    (if (>= n 5)


(defn examples-block
  [subject object possessive-determiner possessive-pronoun reflexive]
  (let [sub-obj (str subject "/" object)
        header-str (str "Here are some usage examples for my "
                        sub-obj
                        " pronouns")]
    [:div {:class "examples"}
     [:p [:h2 header-str]]
     (subject-example subject)
     (object-example object)
     (posessive-determiner-example subject possessive-determiner)
     (possessive-pronoun-example possessive-pronoun)
     (reflexive-example subject reflexive)]))

(defn about-block []
  [:div {:class "about"}
