
type Stop = Int

data Move = 
      DetectiveMove Detective Ticket Stop
    | NullMove Detective Stop
    | FugitiveMove Ticket
    | Reveal Ticket Stop
    | DoubleMove Move Move
    deriving (Show, Read, Eq)

data Player = MrX | Detectives deriving (Show,Eq)
