 (defn get-genres [md]
   (when-let [genres (or (values md :/film/film/genre :en)
                         (values md :/tv/tv_program/genre :en))]
-    (seq (map :text genres))))
+    (clean (map :text genres))))
 
 (defn get-rating [md]
   (when-let [ratings (values md :/film/film/rating)]

    (:value id)))

(defn get-netflix-genres [md]
  (seq (map :text (values md :/media_common/netflix_title/netflix_genres :en))))

(defn freebase-info
  "Extracts normalized information from the metadata."

  (when-let [desc (value md :/type/object/name :en)]
    (:value desc)))

(defn- clean [s]
  (seq (distinct s)))

(defn get-notable-for [md]
  (clean (map :text (values md :/common/topic/notable_for :en))))

(defn get-notable-types [md]
  (clean (map :text (values md :/common/topic/notable_types :en))))

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