милия"
               <*> attribute "Имя"
               <*> attributeMaybe "Отчество")

-- Адрес в Российской Федерации АдрРФТип
адрРФ name =
    complex_ name
        (C.АдрРФ <$> attribute "Индекс"
                 <*> attribute "КодРегион"
                 <*> attributeMaybe "Район"
                 <*> attributeMaybe "Город"
                 <*> attributeMaybe "НаселПункт"
                 <*> attributeMaybe "Улица"
                 <*> attributeMaybe "Дом"
                 <*> attributeMaybe "Корпус"
                 <*> attributeMaybe "Кварт")

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