     (:value id)))
 
 (defn get-netflix-genres [md]
-  (seq (map :text (values md :/media_common/netflix_title/netflix_genres :en))))
+  (clean (map :text (values md :/media_common/netflix_title/netflix_genres :en))))
 
 (defn freebase-info
   "Extracts normalized information from the metadata."

(defn get-subjects [md]
  (when-let [subjects (or (values md :/film/film/subjects :en)
                          (values md :/tv/tv_program/subjects :en))]
    (seq (map :text subjects))))

(defn get-taglines [md]
  (when-let [lines (values md :/film/film/tagline :en)]
    (seq (map :text lines))))

(defn get-creators [md]
  (when-let [creators (values md :/tv/tv_program/program_creator)]
    (seq (map :text creators))))

(defn- get-tv-producers [md]
  (when-let [producers (values md :/tv/tv_program/tv_producer)]


(defn get-executive-producers [md]
  (if-let [producers (values md :/film/film/executive_produced_by)]
    (clean (map :text producers))
    (when-let [producers (get-tv-producers md)]
      (clean (map first (filter #(= (second %) "Executive Producer") producers))))))

(defn get-producers [md]
  (if-let [producers (values md :/film/film/produced_by)]
    (clean (map :text producers))
    (when-let [producers (get-tv-producers md)]
      (clean (map first (filter #(or (nil? (second %)) (= (second %) "Producer")) producers))))))

(defn get-directors [md]
  (when-let [directors (values md :/film/film/directed_by)]
    (clean (map :text directors))))

(defn get-actors [md]
  (when-let [actors (values md :/film/film/starring)]
    (clean (map (comp :text first :values :/film/performance/actor :property) actors))))

(defn get-cast [md]
  (when-let [stars (values md :/tv/tv_program/regular_cast)]
    (clean (map (comp :text first :values :/tv/regular_tv_appearance/actor :property) stars))))

(defn get-networks [md]
  (when-let [networks (values md :/tv/tv_program/original_network)]
    (clean (map (comp :text first :values :/tv/tv_network_duration/network :property) networks))))

(defn get-country [md]
  (:text (or (value md :/film/film/country :en)
             (value md :/tv/tv_program/country_of_origin :en))))

(defn get-film-locations [md]
  (clean (map :text (values md :/film/film/featured_film_locations :en))))

(defn get-trailers [md]
  (clean (map :value (values md :/film/film/trailers))))

(defn get-wikipedia [md]
  (let [urls (map :value (values md :/common/topic/topic_equivalent_webpage))
