    "Professional Contacts"
    {:abilities [{:cost [:click 1] :effect (effect (gain :credit 1) (draw))
                  :msg "gain 1 [Credits] and draw 1 card"}]}
+
+   "Psychographics"
+   {:req (req (<= target (:tag runner))) :choices :credit :prompt "How many credits?"
+    :effect (req (let [c (min target (:tag runner))]
+                   (resolve-ability state side
+                                    {:msg (msg "place " c " advancement tokens on "
+                                               (if (:rezzed target) (:title target) "a card"))
+                                     :choices {:req #(or (= (:type %) "Agenda") (:advanceable %))}
+                                     :effect (effect (add-prop target :advance-counter c))} card nil)))}
 
    "Punitive Counterstrike"
    {:trace {:base 5 :msg (msg "do " (:stole-agenda runner-reg) " meat damage")

   "Power Shutdown"
   {:req (req (:made-run runner-reg))}

   "Psychographics"
   {:req (req tagged)}

   "Reina Roja: Freedom Fighter"
   {:effect (effect (gain :link 1))}


   {:trace {:base 2 :msg (msg "reveal the Runner's Grip")
            :effect (req (doseq [c (:hand runner)] (move state side c :play-area false true)))
            :unsuccessful {:msg "take 1 bad publicity" :effect (effect (gain :corp :bad-publicity 1))}}}

   "Isabel McGuire"
   {:abilities [{:label "Add an installed card to HQ" :choices {:req #(= (first (:zone %)) :servers)}
                 :msg (msg "move " (:title target) " to HQ") :effect (effect (move target :hand))}]}

   "IT Department"
   {:abilities [{:counter-cost 1 :label "Add strength to a rezzed ICE"
