colors :: Card -> [Mana]
colors c = case c^.castCost of
  ManaCost mana -> nub (mana <> (c^.tokenColor))
  _ -> [Colorless]
colors :: Card -> [Mana]
colors c = case c^.castCost of
  ManaCost mana -> nub (mana <> (c^.tokenColor))
  _ -> [Colorless]
colors c = case c^.castCost of
  ManaCost mana -> nub (mana <> (c^.tokenColor))
  _ -> [Colorless]