partParser :: Parser Participle
partParser = string "<pos>part</pos>" >>
    Participle <$> numParser 
               <*> tenseParser
               <*> voiceParser
               <*> genderParser
               <*> caseParser
partParser :: Parser Participle
partParser = string "<pos>part</pos>" >>
    Participle <$> numParser 
               <*> tenseParser
               <*> voiceParser
               <*> genderParser
               <*> caseParser
partParser = string "<pos>part</pos>" >>
    Participle <$> numParser 
               <*> tenseParser
               <*> voiceParser
               <*> genderParser
               <*> caseParser