                       :label (or (:label ab) (and (string? (:msg ab)) (capitalize (:msg ab))) "")
                       :dynamic :copy))
         dest-card (merge dest {:abilities source-abilities :source source})]
-          (prn "copy-abilities")
-          (prn "source-abilities" source-abilities)
-          (prn "dest-card" dest-card)
           (update! state side dest-card)
         ))
 

  (let [source-def (card-def source)
        source-events (if (:events source-def) (:events source-def) {})
        dest-card (merge dest {:events source-events})]
          (prn "copy-events")
          (prn "source-events" source-events)
          (prn "dest-card" dest-card)
          (update! state side dest-card)
          (register-events state side (:events dest-card) dest-card)
        ))

              :effect (effect (add-prop card :rec-counter -1) (gain :credit 1))}
             (get-in cdef [:abilities ability]))
        cost (:cost ab)]
    (when (or (nil? cost)
              (apply can-pay? state side cost))
        (when-let [activatemsg (:activatemsg ab)] (system-msg state side activatemsg))
