.ПФЛ <$> ((S.ИННФЛ <$>) <$> attributeMaybe "ИННФЛ")
               <*> (S.Date <$> attribute "ДатаРожд")
               <*> (attribute "МестоРожд")
               <*> (attribute "КодДУЛ")
               <*> (attribute "СерНомДок")
плИП name =
    complex name
        (C.ПлИП <$> (S.ИННФЛ <$> attribute "ИННИП"))
        (\плип -> плип <$> фио' "ФИО")
плИП name =
    complex name
        (C.ПлИП <$> (S.ИННФЛ <$> attribute "ИННИП"))
        (\плип -> плип <$> фио' "ФИО")