(provide 
  fragment mana-cost
)
(define (fragment is_set?)
  (if is_set? 'set-fragment 'fragment))
(define/contract (mana-cost spec)
  (->/c string? cost?)
  (cost/mana (mana/compact spec)))