ип <$> фио' "ФИО")

-- Плательщик - Физ. лицо ПлФЛТип
плФЛ name =
    complex name
        (C.ПлФЛ <$> ((S.ИННФЛ <$>) <$> attributeMaybe "ИННФЛ"))
        (\плфл -> плфл <$> фио' "ФИО")

-- Плательщик - Физ. лицо (полные данные)
пфл name =
    complex name
        
плЮЛ name =
    complex_ name
        (C.ПлЮЛ <$> (S.ИННЮЛ <$> attribute "ИННЮЛ")
                <*> (S.КПП <$> attribute "КПП")
                <*> (attribute "НаимЮЛ"))
плЮЛ name =
    complex_ name
        (C.ПлЮЛ <$> (S.ИННЮЛ <$> attribute "ИННЮЛ")
                <*> (S.КПП <$> attribute "КПП")
                <*> (attribute "НаимЮЛ"))