wordP :: XmlParser String Ne
wordP = head <$> (tag "Lemma" <|> tag "WordForm" /> featP "writtenForm")
wordP :: XmlParser String Ne
wordP = head <$> (tag "Lemma" <|> tag "WordForm" /> featP "writtenForm")
wordP = head <$> (tag "Lemma" <|> tag "WordForm" /> featP "writtenForm")