                  :msg (msg "trash " (:title target) " to gain 4 [Credits]")
                  :label "Trash a rezzed ICE to gain 4 [Credits]"
                  :effect (effect (trash target) (gain :credit 4))}]}
+
+   "Sensie Actors Union"
+   {:derezzed-events {:runner-turn-ends corp-rez-toast}
+    :flags {:corp-phase-12 (req (no-ice? state (second (:zone card))))}
+    :abilities [{:label "Draw 3 cards and add 1 card in HQ to the bottom of R&D"
+                 :once :per-turn
+                 :msg "draw 3 cards"
+                 :effect (effect (draw 3)
+                                 (resolve-ability
+                                   {:prompt "Choose a card in HQ to add to the bottom of R&D"
+                                    :choices {:req #(and (= (:side %) "Corp")
+                                                         (in-hand? %))}
+                                    :effect (effect (move target :deck))}
+                                  card nil))}]}
 
    "Server Diagnostics"
    (let [ability {:effect (effect (gain :credit 2))

              :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]")))}}}

   "Constellation Protocol"
   {:derezzed-events {:runner-turn-ends corp-rez-toast}

              :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))
