(provide 
  (contract/out fragment (->/c bool? symbol?))
  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)))