module State where

type Group = [MainCharacter]
type NeoTokyo = [Group]
type Downed = [MainCharacter]
type BoardState = (NeoTokyo, Downed)
data MainCharacter = Asuka | Shinji | Rei | Misato | Ritsuko | Gendo
   deriving (Show, Eq)