     "Searches through all of the provided cast tables until we find the
      director sub section."
     [cast-tables]
-    ;(println cast-tables)
-    
     (if (not-empty cast-tables)
         (let [table-links (html/select (first cast-tables) [:a])]
             (if (not-empty table-links)

(defn construct-producers
    "Construct a producers string based on the provided parsed page content"
    [page-content]
    (if (not-empty page-content)
        nil))

(defn construct-screen-writers
    "Construct a screen-writers string based on the provided parsed page content"
    [page-content]
    (println (search-for-screen-writers (parse-cast-page page-content)))
    
    (if (not-empty page-content)
        ; Parse list of screen writers
        (loop [screen-writer-set (sorted-set)

                    
                    ; Move onto next article
                    (search-for-directors (rest cast-tables)))))))

(defn search-for-producers
    "Searches through all of the provided cast tables until we find the
     producer sub section."
    [cast-tables]
    (if (not-empty cast-tables)
        (let [table-links (html/select (first cast-tables) [:a])]
            (if (not-empty table-links)
                
                ; Check whether this is the right article
                (if (= (first (:content (first table-links))) "Produced by")
                    ; Return producers
                    (rest (html/select (first cast-tables) [:tr]))
                    
                    ; Move onto next article
                    (search-for-producers (rest cast-tables)))))))

(defn search-for-screen-writers
    "Searches through all of the provided cast tables until we find the
