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