           words (if input (clojure.string/split input #"[\s,]"))]
           (if words
               (store-words words))
-        (-> (http-response/response (html-renderer/render-front-page nil nil))
-            (http-response/content-type "text/html"))))
+        (finish-processing request nil)))
 
 (defn perform-operation
     [request]

    (.write *out* (str (clojure.string/join " " more) "\n"))
    (flush))

(defn process-front-page
    [request]
    (let [word (-> (:params request) (get "word"))
          search-results (if (not (empty? word)) (db-interface/read-words-for-pattern word))]
        (println word)
        (println search-results)
        (-> (http-response/response (html-renderer/render-front-page word search-results))
            (http-response/content-type "text/html"))))

(defn store-words
    [words]

    [request]
    (perform-operation request)
    (let [search-results (db-interface/read-all-words)]
        (finish-processing request search-results)))

(defn process-deleted-words
    [request]
    (perform-operation request)
    (let [search-results (db-interface/read-deleted-words)]
        (finish-processing request search-results)))

(defn process-active-words
    [request]
    (perform-operation request)
    (let [search-results (db-interface/read-active-words)]
        (finish-processing request search-results)))

;defn process-delete-word
;   [request]
