gistfile1.hsc

data GameResult = Win | Lose | Draw
                  deriving (Show,Eq)

data Team = RSA | MEX | URA | FRA | 
            ARG | NGA | KOR | GRE | 
            ENG | USA | ALG | SVN | 
            GER | AUS | SRB | GHA | 
            NED | DEN | JPN | CMR | 
            ITA | PAR | NZL | SVK | 
            BRA | PRK | CIV | POR | 
            ESP | SUI | HON | CHI
            deriving (Show,Eq,Ord)

data GroupName = A | B | C | D | E | F | G | H
                 deriving (Show,Eq,Enum)

data Group = Group GroupName (Team,Team,Team,Team) deriving (Show)

data WorldCup = WorldCup [Group] deriving (Show)

data KnockoutStage = KnockoutStage [Team] deriving (Show)

class Model a where
    play :: a -> Team -> Team -> GameResult
    winner :: a -> Team -> Team -> Team