П <$> attribute "КПП")
                <*> (attribute "НаимЮЛ"))

-- Плательщик - ИП/Нотариус/Адвокат ПлИПТип
плИП name =
    complex name
        (C.ПлИП <$> (S.ИННФЛ <$> attribute "ИННИП"))
        (\плип -> 
предБ' name =
    complex' name
        (C.ПредБ <$> attribute "Должность")
        (\предб -> предб <$> фио' "ФИО")
предБ' name =
    complex' name
        (C.ПредБ <$> attribute "Должность")
        (\предб -> предб <$> фио' "ФИО")