lexEntryP :: XmlParser String [(Ne, Type)]
lexEntryP = tag "LexicalEntry" `joinR` do
    many_ $ cut $ tag "feat"
    words <- many wordP
    !sense <- senseP
    return [(x, sense) | !x <- words]
lexEntryP :: XmlParser String [(Ne, Type)]
lexEntryP = tag "LexicalEntry" `joinR` do
    many_ $ cut $ tag "feat"
    words <- many wordP
    !sense <- senseP
    return [(x, sense) | !x <- words]
lexEntryP = tag "LexicalEntry" `joinR` do
    many_ $ cut $ tag "feat"
    words <- many wordP
    !sense <- senseP
    return [(x, sense) | !x <- words]