     :events {:runner-turn-begins {:msg "gain 2 [Credits]" :counter-cost 2
                                   :effect #(do (gain %1 :runner :credit 2)
                                                (when (zero? (:counter %3)) (trash %1 :runner %3)))}}}
+
+   "Data Dealer"
+   {:abilities [{:cost [:click 1] :effect (effect (gain :credit 10))
+                 :msg "forfeit an Agenda and gain 10 [Credits]"}]}
 
    "Data Folding"
    {:events {:runner-turn-begins {:req (req (>= (:memory runner) 2)) :msg "gain 1 [Credits]"

   "Paper Tripping"
   {:req (req (not (:spent-click runner-reg))) :effect (effect (lose :tag :all))}

   "Paricia"
   {:recurring 2}


  (:require-macros [game.macros :refer [effect req msg]])
  (:require [game.core :refer [pay gain lose draw move damage shuffle-into-deck trash purge add-prop
                               set-prop resolve-ability system-msg end-run unregister-event mill run
                               gain-agenda-point pump access-bonus shuffle! runner-install
                               play-instant] :as core]
            [clojure.string :refer [join]]
            [game.utils :refer [has?]]))

