 (defn role-line? [^String line]
   (and
     (movie-line? line)
-    (not= -1 (.indexOf line ")")) ))
+    (not= -1 (.indexOf line ")"))))
+
+(defn legit-role? [^String line]
+  (and
+    (= -1 (.indexOf line "(archive footage)"))
+    (= -1 (.indexOf line "(unconfirmed)"))
+    (= -1 (.indexOf line "(archival"))))
 
 (defn split-by [pred coll]
   (let [remove-sep (fn [el] ((complement pred) (first el)))]

        (filter identity)
        (map parse-fn)
        (filter identity))))

(defn parse-actors [lines]
  (try

            actor-tx  { :db/id actor-id, :person/name actor }]
      (concat [actor-tx] movie-txs)))))

(defn retract-roles
  ([a] (actor-tx-data (db conn) a))
  ([d {:keys [actor movies]}]
   (->> (q '[:find ?actor ?movie
             :in $ ?name [?title ...]
             :where
             [?actor :person/name ?name]
             [?actor :actor/movies ?movie]
             [?movie :movie/title ?title]]
           d actor movies)
        (map (fn [[actor movie]]
               [:db/retract actor :actor/movies movie])))))

(defn parse-genre [db ^String line]
  (let [[title genre] (map #(.trim %) (clojure.string/split line #"\t+"))]
    (when-let [g (genres genre)]
