                                 (move state side target :hand)
                                 (system-msg state side (str "adds " (:title target) " to HQ and gains " cost " [Credits]"))
                                 (swap! state update-in [:bonus] dissoc :cost)))}]}
+
+   "Boris \"Syfr\" Kovac: Crafty Veteran"
+   {:effect draft-points-target
+    :events (let [bor {:req (req (let [facs (frequencies (map :faction (all-installed state :runner)))
+                                       an (get facs "Anarch" 0)
+                                       sh (get facs "Shaper" 0)
+                                       cr (get facs "Criminal" 0)]
+                                   (and (> cr sh) (> cr an) (pos? (:tag runner)))))
+                       :msg "remove 1 tag"
+                       :effect (effect (lose :tag 1))}]
+              {:runner-turn-begins bor})}
 
    "Cerebral Imaging: Infinite Frontiers"
    {:effect (req (add-watch state :cerebral-imaging

                          :effect (effect (move (some #(when (= (:title %) (:title target)) %) (:deck corp)) :hand)
                                          (shuffle! :deck))}}}}}

   "Titan Transnational: Investing In Your Future"
   {:events {:agenda-scored {:msg (msg "add 1 agenda counter to " (:title target))
                             :effect (effect (add-prop target :counter 1))}}}

                              :msg (msg "draw a card")
                              :effect (effect (draw 1))}}}

   "Fringe Applications: Tomorrow, Today"
   {:effect draft-points-target
    :events (let [fap {:req (req (let [facs (frequencies (map :faction (filter :rezzed (all-installed state :corp))))
                                       hb (get facs "Haas-Bioroid" 0)
                                       ji (get facs "Jinteki" 0)
                                       nb (get facs "NBN" 0)
                                       we (get facs "Weyland Consortium" 0)]
                                   (and (> we ji) (> we hb) (> we nb))))
                       :msg (msg "place 1 advancement token on " (card-str state target))
                       :prompt "Choose a piece of ICE to place 1 advancement token on it" :player :corp
                       :choices {:req #(and (installed? %) (ice? %))}
                       :effect (req (add-prop state :corp target :advance-counter 1 {:placed true}))}]
              {:runner-turn-begins fap})}

   "Gabriel Santiago: Consummate Professional"
   {:events {:successful-run {:msg "gain 2 [Credits]" :once :per-turn
                              :effect (effect (gain :credit 2)) :req (req (= target :hq))}}}
