module Base (
             Ind,
             Wordform,
             Arc (Head,Dep,Root)
            ) where

type Ind      = Int
type Wordform = String
data Arc τ    = Head { role :: τ, dst :: Ind }
              | Dep  { role :: τ, dst :: Ind }
              | Root
                deriving (Show,Eq,Ord)