module Role where

data Role = Subj
          | Cmpl
          | Mod
          | Poss
          | Prep
          | PCmpl
          | CCmpl
          | Coord
          | Conj
          | Num
          | Det
            deriving (Show,Eq,Ord)