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


(defn format-pronoun-examples
  [pronoun-declension alternates]
  (println pronoun-declension)
  (println alternates)
  (let [title "Pronoun Island: English Language Examples"]
    (html
     [:html

       "https://github.com/witch-house/pronoun.is/blob/master/resources/pronouns.tab"))

(defn pronouns [params pronouns-table]
  (let [path (params :*)
        ors (u/vec-coerce (params "or"))
        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)
