    "Origami"
    {:effect (effect (gain :max-hand-size
                           (dec (* 2 (count (filter #(= (:title %) "Origami")
-                                                   (get-in runner [:rig :program])))))))
+                                                   (all-installed state :runner)))))))
     :leave-play (effect (lose :max-hand-size
                               (dec (* 2 (count (filter #(= (:title %) "Origami")
-                                                       (get-in runner [:rig :program])))))))}
+                                                       (all-installed state :runner)))))))}
 
    "Oversight AI"
    {:choices {:req #(and (= (:type %) "ICE") (not (:rezzed %)))}


   "Calling in Favors"
   {:effect (effect (gain :credit (count (filter (fn [c] (has? c :subtype "Connection"))
                                                 (get-in runner [:rig :resource])))))}

   "Capital Investors"
   {:abilities [{:cost [:click 1] :effect (effect (gain :credit 2)) :msg "gain 2 [Credits]"}]}


   "Wraparound"
   {:abilities [{:msg "end the run" :effect (effect (end-run))}]
    :strength-bonus (req (if (some #(has? % :subtype "Fracter") (all-installed state :runner))
                           0 7))
    :events (let [wr {:req (req (and (not= (:cid target) (:cid card)) (has? target :subtype "Fracter")))
                      :effect (effect (update-ice-strength card))}]
