               :effect (req (if-not (and (= target "Pay 1 [Credits]") (pay state side card :credit 1))
                              (do (tag-runner state side 1) (system-msg state side "takes 1 tag"))
                              (system-msg state side "pays 1 [Credits]")))}}}
+
+   "Clone Suffrage Movement"
+   {:derezzed-events {:runner-turn-ends corp-rez-toast}
+    :flags {:corp-phase-12 (req (and (some #(is-type? % "Operation") (:discard corp))
+                                     (no-ice? state (second (:zone card)))))}
+    :abilities [{:label "Add 1 operation from Archives to HQ"
+                 :prompt "Choose an operation in Archives to add to HQ" :show-discard true
+                 :choices {:req #(and (is-type? % "Operation")
+                                      (= (:zone %) [:discard]))}
+                 :effect (effect (move target :hand)) :once :per-turn
+                 :msg (msg "add " (card-str state target) " to HQ")}]}
+
+   "Commercial Bankers Group"
+   (let [ability {:req (req (no-ice? state (second (:zone card))))
+                  :label "Gain 3 [Credits] (start of turn)"
+                  :once :per-turn
+                  :msg "gain 3 [Credits]"
+                  :effect (effect (damage :net 1 {:card card}))}]
+     {:derezzed-events {:runner-turn-ends corp-rez-toast}
+      :events {:corp-turn-begins ability}
+      :abilities [ability]})
 
    "Constellation Protocol"
    {:derezzed-events {:runner-turn-ends corp-rez-toast}

                                :effect (effect (gain :credit 1)
                                                (lose :runner :credit 1))}}}

   "Blacklist"
   {:effect (effect (lock-zone (:cid card) :runner :discard))
    :leave-play (effect (release-zone (:cid card) :runner :discard))}

              :req (req (first-event state side :corp-draw))
              :effect (req
                        (let [dbs (count (filter #(and (rezzed? %) (= (:title %) "Daily Business Show"))
                                                  (all-installed state :corp)))
                              newcards (take dbs (:deck corp))
                              drawn (concat newcards (take-last target (:hand corp)))]
                          (doseq [c newcards] (move state side c :hand))
