| Remove !Card

    | Remove !CardName

    go acc xs [] = acc ++ (Remove <$> xs)

    go acc xs [] = acc ++ (Remove <$> map name xs)

        | name x < name y = go (Remove x : acc) xs ly

        | name x < name y = go (Remove (name x) : acc) xs ly