-- Сложные типы из раздела 2.18

-- Сведения о банке (филиале) БанкТип
банк name =
    complex_ name
        (C.Банк <$> (attribute "РегНом")
                <*> (attribute "НомФил")
                <*> (S.БИК <$> attribute "БИК")
                <*> (attribute "НаимБанк")
                <*> (S.ИННЮЛ <$> attribute "ИННБанк")
                <*> (S.КПП <$> attribute "КППБанк"))

-- Сведения об учреждении Банка России УБРТип
убр name =
    complex_ name
        (C.УБР <$> (S.БИК <
банк name =
    complex_ name
        (C.Банк <$> (attribute "РегНом")
                <*> (attribute "НомФил")
                <*> (S.БИК <$> attribute "БИК")
                <*> (attribute "НаимБанк")
                <*> (S.ИННЮЛ <$> attribute "ИННБанк")
                <*> (S.КПП <$> attribute "КППБанк"))
банк name =
    complex_ name
        (C.Банк <$> (attribute "РегНом")
                <*> (attribute "НомФил")
                <*> (S.БИК <$> attribute "БИК")
                <*> (attribute "НаимБанк")
                <*> (S.ИННЮЛ <$> attribute "ИННБанк")
                <*> (S.КПП <$> attribute "КППБанк"))