wordToken :: (ErrorComponent e) => ParsecT e String (Reader (Dictionary a)) (EngToken a)
wordToken = do
  dict <- ask
  fmap (\(pos, t) -> Word pos t (dict t)) word
wordToken :: (ErrorComponent e) => ParsecT e String (Reader (Dictionary a)) (EngToken a)
wordToken = do
  dict <- ask
  fmap (\(pos, t) -> Word pos t (dict t)) word
wordToken = do
  dict <- ask
  fmap (\(pos, t) -> Word pos t (dict t)) word