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

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

        (if (not (nil? source-effect)) (source-effect state side source nil))
        (update! state side dest-card))
      )))

(defn fire-leave-play-effects [state side card]
  (if-let [source-leave-play (:source-leave-play card)]
