              <*> ((S.Date <$>) <$> attributeMaybe "ДатаДок"))
        (\пфл' -> пфл' <$> фио' "ФИО"
                       <*> адрРФ "АдрПлат")

-- ФИО ФИОТип
фио' name =
    complex'_ name
        (C.ФИО <$> attribute "
плФЛ name =
    complex name
        (C.ПлФЛ <$> ((S.ИННФЛ <$>) <$> attributeMaybe "ИННФЛ"))
        (\плфл -> плфл <$> фио' "ФИО")
плФЛ name =
    complex name
        (C.ПлФЛ <$> ((S.ИННФЛ <$>) <$> attributeMaybe "ИННФЛ"))
        (\плфл -> плфл <$> фио' "ФИО")