diff --git a/LICENCE b/LICENCE new file mode 100644 --- /dev/null +++ b/LICENCE @@ -0,0 +1,29 @@ +Copyright (c) 2026, System F Aerial Operations Pty Ltd + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + +1. Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. + +2. Redistributions in binary form must reproduce the above copyright notice, + this list of conditions and the following disclaimer in the documentation + and/or other materials provided with the distribution. + +3. Neither the name of the copyright holder nor the names of its + contributors may be used to endorse or promote products derived from this + software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +POSSIBILITY OF SUCH DAMAGE. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,318 @@ +# casa-reoc + +![System F Logo](https://logo.systemf.com.au/systemf-450x450.png) + +The variables of an application to the Civil Aviation Safety Authority (CASA) +for the initial issue of a remotely piloted aircraft operator's certificate +(ReOC), of its RPAS operations manual and of its RePL training manual, as +Haskell data types. A `ReOC` is filled in field by field, and a valid one +gives the documents: + +* `rpa-operators-certificate-initial-issue.xfdf`: the answers to CASA Form + 101-02, to fill into the blank form +* `rpas-operations-manual.fodt`: the operations manual, as Flat ODF text +* `repl-training-manual.fodt`: the RePL training manual, only when RePL + training is applied for + +```haskell +data ReOC' a1 a2 a3 a4 = ReOC' a1 a2 a3 a4 +type ReOC = ReOC' Operator ApplicationForm OperationsManual (Maybe TrainingMaterial) +type UnfilledReOC = ReOC' UnfilledOperator UnfilledApplicationForm UnfilledOperationsManual (Maybe UnfilledTrainingMaterial) +``` + +## Filling in + +Every data type of the form (a product, or a sum with a constructor that +holds a value) takes a type parameter for each of its fields, and has two +forms: the valid form (`Company`), and the unfilled form (`UnfilledCompany`), +whose fields hold what has been entered, if anything. An unfilled form holds +raw values: text for an ABN or a name, a number for a weight, the unfilled +form of a nested product, `Maybe` of a sum or an enumeration, and a list for +any list. Each field has one name, an optic, for both forms, so a form is +filled in with the same optics that read a valid one: + +```haskell +draft :: UnfilledReOC +draft = + mkUnfilledReOC + & operator . company . companyName ?~ "Banksia Point Aerial Media" + & operator . company . abn ?~ "15 092 285 143" + & operator . keyPersonnel . chiefPilot . crpNominee ?~ CRPIsCEO +``` + +`fillReOC` (and `fillT` for each form type) checks an unfilled form, and +gives either the valid form, or every reason it is not valid, each at the +path of its field from the whole form: + +```haskell +fillReOC :: AsReOCError e => UnfilledReOC -> Either (NonEmpty e) ReOC +``` + +The errors are of three kinds, each a data type with a name: `Unfilled` (a +required field left empty), `Invalid` (a value its field does not accept, +with what it is: `InvalidABN`, `InvalidFormText`, ...) and `TooMany` (a list +with more elements than its field holds). `AsReOCError e` lets the caller +choose the error type, with the names of the three; `ReOCError` is their sum. +A path is a list of `Step`s, each a `Field` (one constructor for each field +of each form type, such as `CompanyAbn`) or the index of a list element, so +the same field in different places (a person's name as CEO or as chief remote +pilot) is told apart. `fieldHelp` gives the help text of a field, and +`fieldLabel` its label; `renderReOCErrors` writes errors with both: + +``` +operator › company › ABN: “15 092 285 143” is not an ABN: 11 digits with valid check digits (The company’s Australian business number (ABN).) +operator › company › ARN: not filled in (The company’s CASA aviation reference number (ARN).) +``` + +`unfillReOC` gives the unfilled form of a valid `ReOC`, to change it and fill +it in again; filling in the unfilled form of a valid value gives it back. + +A field that may be empty (a business name, RePL training) is `Maybe` in +both forms, and `Nothing` means none. A sum chosen without its value (`RePLTraining Nothing`) +is unfilled at the value. + +The checks are those of the types (below). No check of a limit that the +operator sets (`Policies`) is made: the CASA publications in `etc/casa` give +no numbers for them (AC 101-01, section 5.7.1: CASA has no requirements for +continuing flight proficiency or currency), and the reviews that they do +require (the manual and the risk register, at least annually) are held by +the types. + +The documents hold placeholders for a document build to fill: +`${CI_COMMIT_SHA}` and `${CI_PAGES_URL}` in the manuals, and +`${DECLARATION_DAY}`, `${DECLARATION_MONTH}` and `${DECLARATION_YEAR}` in the +form, so that each build records the version it was built from and the date +of the declaration. `writeDocuments` keeps them, and `writeFilledDocuments` +fills them. + +Beside the application form, `writeDocuments` writes the blank CASA Form +101-02 (`blankForm`, `blankFormFile`), which the XFDF names, and, if the +application form holds one, the written signature of the declarant +(`written-signature.png`), so that a directory of documents refers to +nothing outside it. The blank form is read from `etc/casa` when the package +is compiled; the written signature is given by its contents +(`WrittenSignatureImage`) or by the path of its file (`WrittenSignatureFile`), +which is read when the documents are written. `etc/casa` also holds the CASA +publications that the documents were written from. To fill the form: + +``` +pdftk rpa-operators-certificate-reoc-initial-issue-variation-renewal-form-101-02.pdf \ + fill_form rpa-operators-certificate-initial-issue.xfdf output filled.pdf +``` + +Placing the written signature in the signature box of question 31 is left to +the document build. + +To make the documents of an operator, fill in an `UnfilledReOC` (start from +one of the examples) in a package that depends on `casa-reoc`, and pass the +`ReOC` that `fillReOC` gives to `writeDocuments`. + +## Licence + +BSD-3-Clause (`LICENCE`). The CASA publications in `etc/casa` are CASA's, +and are not covered by it. + +## Writing the documents + +`examples` holds the applications of four made-up operators +(`ReOC.Examples`), each filled in field by field from `mkUnfilledReOC`, and +the documents that each gives, in its own directory: + +* `banksia-point-aerial-media`: one person who holds every key position, + flies solo, and operates one type of small multirotor; +* `ironbark-asset-inspection`: three key personnel, other remote pilots, + multi-crew operations, three types of multirotor including a medium RPA, a + revised manual, a chief remote pilot of another ReOC holder, and a + regulatory action; +* `saltbush-ag-surveys`: a CEO who is not a director and does not fly, a + chief remote pilot who is also maintenance controller, a multirotor, a + fixed-wing and a powered-lift RPA, a disclosed history, and a declaration + by a director; +* `wattle-creek-drone-academy`: RePL training, with a chief RePL instructor + who is not otherwise key personnel, three courses (initial, a higher + weight class and a new category) and intents for questions 14 and 16. + +`ReOC.Example.Draft` is an application that has only been started, and the +errors that filling it in gives. + +Their companies, people, numbers and addresses are made up: phone numbers +are from the ranges that ACMA reserves for fiction, email addresses are in +the reserved `.example` domain, and ABNs have valid check digits but are not +registered to the examples. The RPA are real types, with illustrative +procedures. After changing an example, write its documents again (a test +checks that they are up to date, where they are: the source distribution +does not hold them). `reoc-examples` is built only with the flag `examples`, +which `cabal.project` turns on: + +``` +cabal run reoc-examples -- --output examples +``` + +From GHCi (`cabal repl examples --repl-options=-ignore-dot-ghci`; the `.ghci` +here loads the library from `src`, which only `cabal repl casa-reoc` can): + +```haskell +:set -XTemplateHaskell -XOverloadedStrings +import ReOC +import ReOC.Examples +either (Data.Text.IO.putStr . renderReOCErrors) (writeDocuments "/tmp/reoc-example") wattleCreek +either (Data.Text.IO.putStr . renderReOCErrors) (writeFilledDocuments (BuildInfo "abc123" "https://example.net" (read "2026-10-23")) "/tmp/reoc-filled") ironbark +either (Data.Text.IO.putStr . renderReOCErrors) (const (pure ())) draft +``` + +## Data types + +`ReOC` holds: + +* `Operator`: the `Company` (a proprietary company: its name, ABN, ARN, + registered office, operational headquarters, contact details and + registered business name), its `KeyPersonnel` and its fleet of + `OperatedType` (a type of RPA, with the facts and type-specific procedures + that the manual gives for it, and each RPA of that type); +* `ApplicationForm`: the answers to CASA Form 101-02 that appear only on the + form (primary contact, personnel and regulatory history, documents + submitted, the declaration); +* `OperationsManual`: the parts of the manual that appear only in the manual + (amendment record, services, the limits that the operator sets in + `Policies`, the risk register, whether operations are solo or multi-crew, + and whether the CRP is the only remote pilot); +* `Maybe TrainingMaterial`: RePL training, if it is applied for: the chief + RePL instructor, the courses and the `TrainingArrangements` of the RePL + training manual. + +The types of the valid form say what the documents can hold, so that a valid +value gives valid documents: + +* The application is always for initial issue; questions that the form's own + flow skips are not filled (question 3 when the applicant is the primary + contact, 13 to 18 and 29 without RePL training, 25 and 26 without + regulatory action), and their answers have no field to hold them. +* Details that the form asks for only after a yes are held by the yes + (`HistoryDisclosed`, `OtherReOCRolesHeld`, `RegulatoryActionTaken`, ...), + and question 17 is the intent of each no in questions 14 to 16. +* Each key position holds a person or refers to the holder of another + position (`CRPIsCEO`, `MCIsCRP`, `CRIIsMC`, ...), so a person who holds + several positions is given once. The manual's preface, organisational + overview, organisational diagram, list of key personnel and the section on + holding several positions follow from who holds what. +* Text that goes on the form is `FormText`, which fits its box: the form has + a fixed 10 pt font and cuts off text that does not fit. A one-line box + holds no line breaks, and only characters that the form's fonts can show + are allowed. Text shared by a box (the details of questions 19 to 22 in + question 23, the intents of question 17) is given a share of it. +* The fleet has at most 8 types and at most 9 courses, each with its own + training RPA, so that question 27 (17 rows) and question 29 (9 rows) hold + them all. The training RPA of each course is listed with the fleet in both + documents, and the category and weight class of a course are those of its + training RPA. +* RPA have a maximum gross weight from 1 g to 25 kg (`GrossWeight`): the + manual does not cover heavier RPA, which also rules out the liquid-fuel + complexity and the safety case of question 30. Airships are not covered. +* The amendment record is a first issue and revisions: each revision is a + major or minor revision, a number of months after the entry before it, so + versions always increase and dates never go backwards. The manual is + reviewed 12 months after its last amendment, and each risk is reviewed + within 12 months of its entry (`ReviewMonths`). +* A risk rating comes from the risk rating matrix, and a risk is owned by a + key position that exists. +* Values with an invariant are primitive types under `ReOC.Primitive`, whose + constructors are not exported: `Text1` (not blank, and only characters that + XML can hold), `FormText`, `ABN` (correct check digits), `ARN`, + `EmailAddress` (which also fits a box of the form), `PhoneNumber` + (Australian), `Postcode`, `Positive`, `Percentage`, `GrossWeight`, + `ReviewMonths`, `PassMark` (70% to 100%), `Some n a` (1 to n values) and + `AtMost n a` (0 to n values). Each is built with a prism (`_ABN`) or a + literal checked at compile time (`$$(abnLiteral "15 092 285 142")`), and + is checked when an unfilled form is filled in. + +What the types cannot check is meaning: text can say anything, and a person +given twice with the same ARN and different details is two people. + +## Classy optics + +Every data type follows the classy optics recipe: one module for each data +type under `ReOC.Data` (its class, instances, manifest `lawNamesT'`, synonym +`InheritT'` and checks of inheritance), one module for each name under +`ReOC.Name`, and `ReOC.Model`, which re-exports them all. + +A form type is the data type `T'`, with a type parameter for each field +(section 2 of the recipe), and each field's name changes that parameter +alone, so setting a field of an unfilled form keeps it unfilled, and the +same name reads the valid form. Its fields hold type parameters, and nothing +is inherited through a type parameter, so a field is reached by composing +the names of the fields on its path: + +```haskell +view (cloneLens (operator . company . companyName)) reoc +preview (operator . keyPersonnel . chiefPilot . rePLOrigin . rePLTrainingOrganisation) reoc +set (operator . keyPersonnel . chiefExecutive . nominee . person . fullName) (Just "Alex") unfilled +``` + +The data types of errors and paths (`ReOCError`, `Unfilled`, `Step`, ...) +have no parameters, and inherit as usual: `path` is an affine traversal of +every `ReOCError`. + +## Documents + +* `ReOC.Render.ApplicationForm`: the XFDF of CASA Form 101-02. +* `ReOC.Render.OperationsManual`: the manual, from the template + `template/rpas-operations-manual.fodt`, read when the package is compiled. + Each hole `{{legal-name}}` is filled by `holeLegalName` in + `ReOC.Render.OperationsManual.Holes`; a hole with no function fails to + compile. The organisational diagram is drawn from the key positions + (`ReOC.Render.OperationsManual.Diagram`). +* `ReOC.Render.TrainingManual`: the RePL training manual, from the marked-up + markdown `template/repl-training-manual.md` (holes, `` + blocks repeated for each course, and conditions on the courses), in the + shell `template/repl-training-manual.fodt` (the styles, cover and master + pages of the operations manual). An unknown hole or condition, or a marker + that is not closed, fails to compile. +* `ReOC.Render.Write`: writes the documents into a directory. + +To change the wording of a manual, change its template; to add a variable, +add a field to a data type, a hole to the template and its function. + +The table of contents of the operations manual has the page numbers of the +template; LibreOffice does not update them when it converts the manual, so +they are right only while the manual has the length of the template. + +## The RePL training manual + +The text of the RePL training manual was drafted from AC 101-01, the key +personnel guide for the chief RePL instructor and Form 101-02. The Part 101 +MOS and Annex A to AC 101-01 were not available, so before it is submitted: + +* every row marked `[MOS: to be confirmed]` needs its Part 101 MOS reference, + and the unit names must match the MOS; +* the question bank of the theory examinations, which the manual describes + but does not hold, must be written; +* the pass mark of 70%, the minimum age, the upgrade flight times, the flight + test tolerances and the general-knowledge content of the theory notes must + be checked. + +## Tests + +``` +cabal test hedgehog +cabal test doctest -w ghc-9.6.7 --builddir=dist-newstyle-9.6.7 +``` + +The hedgehog tests check the manifest of every data type, the laws of every +lens, prism and affine traversal (including every inherited instance), that +every constructor of each sum is generated, the laws of the prisms of the +primitive types, and of random values of `ReOC`: that every field the form +is filled with is a field of CASA Form 101-02 with a value that checks it, +that every text fits its box, that every document is well-formed XML, that +no hole or marker is left, that the amendment record is in order, that +filling in the unfilled form of a valid value gives it back, and that an +invalid, empty or overfull field gives one error at its own path. The +doctest suite runs the `doctest` executable, which must be built with the +same GHC; a separate build directory keeps the two compilers apart. + +`bin/lint.sh` runs hlint and fourmolu (`bin/lint.sh --check` to check only). + +The modules under `ReOC.Data` and `ReOC.Name`, `ReOC.Model`, `ReOC.Fill`, +`ReOC.Help`, the module list of `casa-reoc.cabal`, `test/DataGens.hs` and +`test/OpticsTests.hs` are generated from a description of the data types +(with the help text of each field) by scripts that are not in this +repository. diff --git a/casa-reoc.cabal b/casa-reoc.cabal new file mode 100644 --- /dev/null +++ b/casa-reoc.cabal @@ -0,0 +1,751 @@ +cabal-version: 2.4 +name: casa-reoc +version: 0.1.0.0 +license: BSD-3-Clause +license-file: LICENCE +author: Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ> +maintainer: Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ> +copyright: Copyright (c) 2026 System F Aerial Operations Pty Ltd +synopsis: The documents of a CASA ReOC application, as Haskell data types +category: Aviation +description: + <> + . + The variables of an application to CASA for the initial issue of a + remotely piloted aircraft operator's certificate (ReOC), of its RPAS + operations manual and of its RePL training manual, as data types with + classy optics. A value of @ReOC@ gives a filled CASA Form 101-02 (XFDF), a + complete operations manual and, with RePL training, a RePL training manual + (Flat ODF text). + . + == Data types + . + Every data type is in its own module under @ReOC.Data@, and every name of a + field or constructor in its own module under @ReOC.Name@, following the + classy optics recipe. Values that have an invariant (an ABN, a phone + number, text that is not blank) are primitive types under + @ReOC.Primitive@, built with a prism or a literal checked at compile time. + . + == Documents + . + @ReOC.Render.ApplicationForm@ gives the XFDF of CASA Form 101-02, + @ReOC.Render.OperationsManual@ the operations manual and + @ReOC.Render.TrainingManual@ the RePL training manual. @ReOC.Render.Write@ + writes them into a directory. The internal library @examples@ holds the + applications of four made-up operators. + +homepage: https://gitlab.com/system-f/code/casa-reoc +build-type: Simple +extra-doc-files: README.md + changelog.md +extra-source-files: etc/casa/rpa-operators-certificate-reoc-initial-issue-variation-renewal-form-101-02.pdf + examples/signatures/banksia-point.png + template/rpas-operations-manual.fodt + template/repl-training-manual.fodt + template/repl-training-manual.md +tested-with: GHC == 9.14.1, GHC == 9.12.4, GHC == 9.10.3, GHC == 9.8.4, GHC == 9.6.7 + +source-repository head + type: git + location: https://gitlab.com/system-f/code/casa-reoc.git + +flag doctest + description: Build the doctest test suite, which runs doctest through cabal. It is enabled in cabal.project, and disabled by default so that builds from the source distribution do not need cabal or doctest at test time. + default: False + manual: True + +flag examples + description: Build reoc-examples, which writes the documents of the examples into the examples directory of the repository. It is enabled in cabal.project, and disabled by default so that installing the package does not install it. + default: False + manual: True + +library + default-language: + Haskell2010 + + build-depends: + base >= 4.18 && < 5 + , bytestring >= 0.11.5.4 && < 0.13 + , directory >= 1.3.8.5 && < 2 + , filepath >= 1.4.301.0 && < 1.6 + , lens >= 5.2.1 && < 6 + , tagged >= 0.8.6 && < 0.9 + , template-haskell >= 2.20 && < 2.25 + , text >= 2.0.2 && < 2.2 + , time >= 1.12.2 && < 2 + , validation >= 1.1.3 && < 1.2 + + ghc-options: + -Wall + -Wcompat + -Wincomplete-record-updates + -Wincomplete-uni-patterns + -Wredundant-constraints + -Werror=incomplete-patterns + + hs-source-dirs: + src + + exposed-modules: + ReOC + ReOC.Aircraft + ReOC.Amendment + ReOC.Data.Address + ReOC.Data.Aircraft + ReOC.Data.ApplicationForm + ReOC.Data.AustralianState + ReOC.Data.BackupInterval + ReOC.Data.CRINominee + ReOC.Data.CRPNominee + ReOC.Data.ChiefExecutive + ReOC.Data.ChiefPilot + ReOC.Data.Company + ReOC.Data.Complexity + ReOC.Data.Consequence + ReOC.Data.ContactPerson + ReOC.Data.CourseType + ReOC.Data.Crewing + ReOC.Data.Declarant + ReOC.Data.Declaration + ReOC.Data.Directorship + ReOC.Data.EmergencyAction + ReOC.Data.Equipment + ReOC.Data.ExamDelivery + ReOC.Data.Field + ReOC.Data.FirstIssue + ReOC.Data.FlightTermination + ReOC.Data.FlightTestExaminer + ReOC.Data.HistoryAnswer + ReOC.Data.InstructorTakeover + ReOC.Data.Invalid + ReOC.Data.InvalidValue + ReOC.Data.KeyPersonnel + ReOC.Data.KeyPosition + ReOC.Data.Likelihood + ReOC.Data.MCNominee + ReOC.Data.Nominee + ReOC.Data.OperatedType + ReOC.Data.OperationalExperience + ReOC.Data.OperationalHeadquarters + ReOC.Data.OperationsManual + ReOC.Data.Operator + ReOC.Data.OtherReOCRoles + ReOC.Data.Person + ReOC.Data.PersonnelHistory + ReOC.Data.Policies + ReOC.Data.PrimaryContact + ReOC.Data.RPACategory + ReOC.Data.RPAType + ReOC.Data.RadioQualification + ReOC.Data.ReOC + ReOC.Data.ReOCError + ReOC.Data.RePLHolding + ReOC.Data.RePLOrigin + ReOC.Data.RegulatoryAction + ReOC.Data.RegulatoryHistory + ReOC.Data.RemotePilots + ReOC.Data.Revision + ReOC.Data.Risk + ReOC.Data.RiskAssessment + ReOC.Data.RiskLevel + ReOC.Data.Step + ReOC.Data.TeachingQualification + ReOC.Data.TheoryDelivery + ReOC.Data.TooMany + ReOC.Data.TrainingArrangements + ReOC.Data.TrainingCourse + ReOC.Data.TrainingMaterial + ReOC.Data.Transponder + ReOC.Data.Unfilled + ReOC.Data.Version + ReOC.Data.VersionChange + ReOC.Data.WrittenSignature + ReOC.Fill + ReOC.Help + ReOC.Input + ReOC.Model + ReOC.Name.Abn + ReOC.Name.ActionDate + ReOC.Name.ActionDetails + ReOC.Name.ActionSteps + ReOC.Name.ActionTaken + ReOC.Name.AdditionalControls + ReOC.Name.AddressPostcode + ReOC.Name.AddressStateOrTerritory + ReOC.Name.AddressStreetAddress + ReOC.Name.AddressSuburb + ReOC.Name.Aeroplane + ReOC.Name.AircraftAssociatedEquipment + ReOC.Name.AircraftSerialNumber + ReOC.Name.Airframes + ReOC.Name.AlcoholHours + ReOC.Name.ApplicantIsPrimaryContact + ReOC.Name.ApplicationForm + ReOC.Name.ApplicationFormDeclaration + ReOC.Name.ApplicationFormOtherDocuments + ReOC.Name.ApplicationFormPersonnelHistory + ReOC.Name.ApplicationFormPrimaryContact + ReOC.Name.ApplicationFormProceduresLibrary + ReOC.Name.ApplicationFormRegulatoryHistory + ReOC.Name.ApplicationFormSignature + ReOC.Name.Arn + ReOC.Name.AssociatedEquipment + ReOC.Name.AtRegisteredOffice + ReOC.Name.AustralianCapitalTerritory + ReOC.Name.AuthorisationAction + ReOC.Name.AutomatedAndManual + ReOC.Name.AutomatedOnly + ReOC.Name.AviationExperience + ReOC.Name.BackupFrequency + ReOC.Name.BatteryReserve + ReOC.Name.BatteryWarnings + ReOC.Name.BeforeFlight + ReOC.Name.BlendedTheory + ReOC.Name.BusinessName + ReOC.Name.Catastrophic + ReOC.Name.Category + ReOC.Name.CheckingMonths + ReOC.Name.ChiefExecutive + ReOC.Name.ChiefExecutiveDirectorStatus + ReOC.Name.ChiefExecutiveManagementExperience + ReOC.Name.ChiefExecutiveNominee + ReOC.Name.ChiefExecutiveOfficer + ReOC.Name.ChiefPilot + ReOC.Name.ChiefPilotCrpNominee + ReOC.Name.ChiefPilotOtherReOCRoles + ReOC.Name.ChiefPilotRadio + ReOC.Name.ChiefPilotRePLOrigin + ReOC.Name.ChiefPilotRpaHistory + ReOC.Name.ChiefRemotePilot + ReOC.Name.ClassroomTheory + ReOC.Name.Company + ReOC.Name.CompanyAbn + ReOC.Name.CompanyArn + ReOC.Name.CompanyBusinessName + ReOC.Name.CompanyCompanyName + ReOC.Name.CompanyEmailAddress + ReOC.Name.CompanyName + ReOC.Name.CompanyOperationalHeadquarters + ReOC.Name.CompanyPhoneNumber + ReOC.Name.CompanyRegisteredOffice + ReOC.Name.Complexities + ReOC.Name.ComputerExamination + ReOC.Name.ContactPersonEmailAddress + ReOC.Name.ContactPersonFullName + ReOC.Name.ContactPersonPhoneNumber + ReOC.Name.ContactPersonPosition + ReOC.Name.CourseKind + ReOC.Name.Crew + ReOC.Name.CriConductsFlightTests + ReOC.Name.CriIsCEO + ReOC.Name.CriIsCRP + ReOC.Name.CriIsMC + ReOC.Name.CriNominated + ReOC.Name.CriNominee + ReOC.Name.CriNomineeCriIsCEO + ReOC.Name.CriNomineeCriIsCRP + ReOC.Name.CriNomineeCriIsMC + ReOC.Name.CriNomineeCriNominated + ReOC.Name.CriOtherReOCRoles + ReOC.Name.CriminalConviction + ReOC.Name.CrpIsCEO + ReOC.Name.CrpIsOnlyRemotePilot + ReOC.Name.CrpNominated + ReOC.Name.CrpNominee + ReOC.Name.CrpNomineeCrpIsCEO + ReOC.Name.CrpNomineeCrpNominated + ReOC.Name.Daily + ReOC.Name.DateEntered + ReOC.Name.DeclarantFullName + ReOC.Name.DeclarantRole + ReOC.Name.Declaration + ReOC.Name.DeclarationDeclaredByAgent + ReOC.Name.DeclarationDeclaredByCEO + ReOC.Name.DeclarationDeclaredByOther + ReOC.Name.DeclarationDeclaredByResponsibleManager + ReOC.Name.DeclaredByAgent + ReOC.Name.DeclaredByCEO + ReOC.Name.DeclaredByOther + ReOC.Name.DeclaredByResponsibleManager + ReOC.Name.Details + ReOC.Name.Director + ReOC.Name.DirectorStatus + ReOC.Name.DualControllerLink + ReOC.Name.DutyHours + ReOC.Name.Effective + ReOC.Name.EmailAddress + ReOC.Name.EmergencyActionActionSteps + ReOC.Name.EmergencyActionResponse + ReOC.Name.EmergencyActionSituation + ReOC.Name.EmergencyActions + ReOC.Name.EquipmentDescription + ReOC.Name.EquipmentEquipmentDescription + ReOC.Name.EquipmentSerialNumber + ReOC.Name.Exam + ReOC.Name.ExamPassMark + ReOC.Name.Examiner + ReOC.Name.ExistingControls + ReOC.Name.ExtremelyImprobable + ReOC.Name.FirstIssue + ReOC.Name.FirstIssueDetails + ReOC.Name.FirstIssueEffective + ReOC.Name.FirstIssueIssueDate + ReOC.Name.FirstIssueParts + ReOC.Name.FirstIssueVersion + ReOC.Name.Fleet + ReOC.Name.FlightCrewLicence + ReOC.Name.FlightTermination + ReOC.Name.FlightTerminationFlightTerminationSystem + ReOC.Name.FlightTerminationNoFlightTerminationSystem + ReOC.Name.FlightTerminationSystem + ReOC.Name.Frequent + ReOC.Name.FullName + ReOC.Name.GivenElements + ReOC.Name.HasOperationalExperience + ReOC.Name.Hazard + ReOC.Name.Hazardous + ReOC.Name.Helicopter + ReOC.Name.High + ReOC.Name.HistoryAnswerHistoryDisclosed + ReOC.Name.HistoryAnswerNoHistory + ReOC.Name.HistoryDisclosed + ReOC.Name.HoldsRePLForEachType + ReOC.Name.Improbable + ReOC.Name.IndependentExaminerWhereAvailable + ReOC.Name.IndependentReviewYears + ReOC.Name.InitialCourse + ReOC.Name.InitialRisk + ReOC.Name.InspectionHours + ReOC.Name.InspectionItems + ReOC.Name.InspectionMonths + ReOC.Name.InvalidABN + ReOC.Name.InvalidARN + ReOC.Name.InvalidEmailAddress + ReOC.Name.InvalidFormText + ReOC.Name.InvalidGrossWeight + ReOC.Name.InvalidPassMark + ReOC.Name.InvalidPercentage + ReOC.Name.InvalidPhoneNumber + ReOC.Name.InvalidPositive + ReOC.Name.InvalidPostcode + ReOC.Name.InvalidReviewMonths + ReOC.Name.InvalidText1 + ReOC.Name.IssueDate + ReOC.Name.KeyPersonnel + ReOC.Name.KeyPersonnelChiefExecutive + ReOC.Name.KeyPersonnelChiefPilot + ReOC.Name.KeyPersonnelMcNominee + ReOC.Name.Low + ReOC.Name.MaintenanceController + ReOC.Name.MajorRevision + ReOC.Name.MajorVersion + ReOC.Name.ManagementExperience + ReOC.Name.MaxStudentsPerCourse + ReOC.Name.MaxStudentsPerInstructor + ReOC.Name.MaximumGrossWeight + ReOC.Name.MaybeTrainingMaterial + ReOC.Name.McIsCEO + ReOC.Name.McIsCRP + ReOC.Name.McNominated + ReOC.Name.McNominee + ReOC.Name.McNomineeMcIsCEO + ReOC.Name.McNomineeMcIsCRP + ReOC.Name.McNomineeMcNominated + ReOC.Name.Medium + ReOC.Name.Minor + ReOC.Name.MinorRevision + ReOC.Name.MinorVersion + ReOC.Name.Moderate + ReOC.Name.Monthly + ReOC.Name.MonthsAfter + ReOC.Name.MostElements + ReOC.Name.Multirotor + ReOC.Name.Negligible + ReOC.Name.NewSouthWales + ReOC.Name.NoFlightTerminationSystem + ReOC.Name.NoHistory + ReOC.Name.NoOtherReOCRoles + ReOC.Name.NoRadioQualification + ReOC.Name.NoRegulatoryAction + ReOC.Name.NoTransponder + ReOC.Name.Nominee + ReOC.Name.NomineeAviationExperience + ReOC.Name.NomineeOtherQualifications + ReOC.Name.NomineePerson + ReOC.Name.NorthernTerritory + ReOC.Name.NotADirector + ReOC.Name.Occasional + ReOC.Name.OnlineTheory + ReOC.Name.OperatedTypeAirframes + ReOC.Name.OperatedTypeRpaType + ReOC.Name.OperationalExperience + ReOC.Name.OperationalExperienceHasOperationalExperience + ReOC.Name.OperationalExperienceIntent + ReOC.Name.OperationalExperienceNotApplicable + ReOC.Name.OperationalExperienceOperationalExperienceIntent + ReOC.Name.OperationalExperienceOperationalExperienceNotApplicable + ReOC.Name.OperationalHeadquarters + ReOC.Name.OperationalHeadquartersAddress + ReOC.Name.OperationalHeadquartersAtRegisteredOffice + ReOC.Name.OperationalHeadquartersOperationalHeadquartersAddress + ReOC.Name.OperationsManual + ReOC.Name.OperationsManualCrew + ReOC.Name.OperationsManualFirstIssue + ReOC.Name.OperationsManualPilots + ReOC.Name.OperationsManualPolicies + ReOC.Name.OperationsManualRevisions + ReOC.Name.OperationsManualRiskRegister + ReOC.Name.OperationsManualServices + ReOC.Name.Operator + ReOC.Name.OperatorCompany + ReOC.Name.OperatorFleet + ReOC.Name.OperatorKeyPersonnel + ReOC.Name.OtherDocuments + ReOC.Name.OtherQualifications + ReOC.Name.OtherReOCRoles + ReOC.Name.OtherReOCRolesHeld + ReOC.Name.OtherReOCRolesNoOtherReOCRoles + ReOC.Name.OtherReOCRolesOtherReOCRolesHeld + ReOC.Name.OtherRemotePilots + ReOC.Name.PaperExamination + ReOC.Name.Parts + ReOC.Name.Path + ReOC.Name.Person + ReOC.Name.PersonArn + ReOC.Name.PersonEmailAddress + ReOC.Name.PersonFullName + ReOC.Name.PersonPhoneNumber + ReOC.Name.PersonnelHistory + ReOC.Name.PersonnelHistoryActionTaken + ReOC.Name.PersonnelHistoryCriminalConviction + ReOC.Name.PersonnelHistorySuspensionPending + ReOC.Name.PersonnelHistoryTransportLicenceRefused + ReOC.Name.PhoneNumber + ReOC.Name.Pilots + ReOC.Name.Policies + ReOC.Name.PoliciesAlcoholHours + ReOC.Name.PoliciesBackupFrequency + ReOC.Name.PoliciesBatteryReserve + ReOC.Name.PoliciesCheckingMonths + ReOC.Name.PoliciesDutyHours + ReOC.Name.PoliciesIndependentReviewYears + ReOC.Name.PoliciesInspectionHours + ReOC.Name.PoliciesInspectionMonths + ReOC.Name.PoliciesRecencyDays + ReOC.Name.PoliciesRecencyFlights + ReOC.Name.PoliciesRefresherMonths + ReOC.Name.PoliciesRestHours + ReOC.Name.Position + ReOC.Name.Postcode + ReOC.Name.PoweredLift + ReOC.Name.PplTheory + ReOC.Name.PracticalAreas + ReOC.Name.PrimaryContact + ReOC.Name.PrimaryContactApplicantIsPrimaryContact + ReOC.Name.PrimaryContactPerson + ReOC.Name.PrimaryContactPrimaryContactPerson + ReOC.Name.ProceduresLibrary + ReOC.Name.Queensland + ReOC.Name.Radio + ReOC.Name.RadioOperatorCertificate + ReOC.Name.ReOCApplicationForm + ReOC.Name.ReOCMaybeTrainingMaterial + ReOC.Name.ReOCOperationsManual + ReOC.Name.ReOCOperator + ReOC.Name.RePLHolding + ReOC.Name.RePLHoldingHoldsRePLForEachType + ReOC.Name.RePLHoldingIntent + ReOC.Name.RePLHoldingRePLHoldingIntent + ReOC.Name.RePLOrigin + ReOC.Name.RePLOriginPplTheory + ReOC.Name.RePLOriginRePLTrainingOrganisation + ReOC.Name.RePLTrainingOrganisation + ReOC.Name.RecencyDays + ReOC.Name.RecencyFlights + ReOC.Name.RefresherMonths + ReOC.Name.RegisteredOffice + ReOC.Name.RegulatoryActionActionDate + ReOC.Name.RegulatoryActionActionDetails + ReOC.Name.RegulatoryActionAuthorisationAction + ReOC.Name.RegulatoryActionReocSuspendedOrCancelled + ReOC.Name.RegulatoryActionTaken + ReOC.Name.RegulatoryActionTypeOfAction + ReOC.Name.RegulatoryHistory + ReOC.Name.RegulatoryHistoryNoRegulatoryAction + ReOC.Name.RegulatoryHistoryRegulatoryActionTaken + ReOC.Name.Remote + ReOC.Name.ReocSuspendedOrCancelled + ReOC.Name.ResidualRisk + ReOC.Name.Response + ReOC.Name.RestHours + ReOC.Name.ReviewMonths + ReOC.Name.RevisionDetails + ReOC.Name.RevisionEffective + ReOC.Name.RevisionMonthsAfter + ReOC.Name.RevisionParts + ReOC.Name.RevisionVersionIncrement + ReOC.Name.Revisions + ReOC.Name.RiskAdditionalControls + ReOC.Name.RiskAssessmentRiskConsequence + ReOC.Name.RiskAssessmentRiskLikelihood + ReOC.Name.RiskConsequence + ReOC.Name.RiskDateEntered + ReOC.Name.RiskDescription + ReOC.Name.RiskExistingControls + ReOC.Name.RiskHazard + ReOC.Name.RiskInitialRisk + ReOC.Name.RiskLikelihood + ReOC.Name.RiskOwner + ReOC.Name.RiskRegister + ReOC.Name.RiskResidualRisk + ReOC.Name.RiskReviewMonths + ReOC.Name.RiskRiskDescription + ReOC.Name.RiskRiskOwner + ReOC.Name.Role + ReOC.Name.RpaHistory + ReOC.Name.RpaMake + ReOC.Name.RpaModel + ReOC.Name.RpaType + ReOC.Name.RpaTypeBatteryWarnings + ReOC.Name.RpaTypeBeforeFlight + ReOC.Name.RpaTypeCategory + ReOC.Name.RpaTypeEmergencyActions + ReOC.Name.RpaTypeFlightTermination + ReOC.Name.RpaTypeInspectionItems + ReOC.Name.RpaTypeMaximumGrossWeight + ReOC.Name.RpaTypeRpaMake + ReOC.Name.RpaTypeRpaModel + ReOC.Name.RpaTypeShortName + ReOC.Name.RpaTypeTransponderCarriage + ReOC.Name.RpaTypeUserManual + ReOC.Name.SerialNumber + ReOC.Name.Services + ReOC.Name.SharedController + ReOC.Name.ShortName + ReOC.Name.Signature + ReOC.Name.Simulator + ReOC.Name.Situation + ReOC.Name.SoleDirector + ReOC.Name.SoloAndMultiCrewOperations + ReOC.Name.SoloOperationsOnly + ReOC.Name.SouthAustralia + ReOC.Name.StateOrTerritory + ReOC.Name.StepIndex + ReOC.Name.StreetAddress + ReOC.Name.Suburb + ReOC.Name.SuspensionPending + ReOC.Name.Takeover + ReOC.Name.Tasmania + ReOC.Name.TeachingQualification + ReOC.Name.TeachingQualificationHeld + ReOC.Name.TeachingQualificationIntent + ReOC.Name.TeachingQualificationTeachingQualificationHeld + ReOC.Name.TeachingQualificationTeachingQualificationIntent + ReOC.Name.Theory + ReOC.Name.TheoryVenues + ReOC.Name.TrainingArrangements + ReOC.Name.TrainingArrangementsExam + ReOC.Name.TrainingArrangementsExamPassMark + ReOC.Name.TrainingArrangementsExaminer + ReOC.Name.TrainingArrangementsMaxStudentsPerCourse + ReOC.Name.TrainingArrangementsMaxStudentsPerInstructor + ReOC.Name.TrainingArrangementsPracticalAreas + ReOC.Name.TrainingArrangementsSimulator + ReOC.Name.TrainingArrangementsTakeover + ReOC.Name.TrainingArrangementsTheory + ReOC.Name.TrainingArrangementsTheoryVenues + ReOC.Name.TrainingCourseComplexities + ReOC.Name.TrainingCourseCourseKind + ReOC.Name.TrainingCourseTrainingRPA + ReOC.Name.TrainingCourses + ReOC.Name.TrainingMaterialCriNominee + ReOC.Name.TrainingMaterialCriOtherReOCRoles + ReOC.Name.TrainingMaterialOperationalExperience + ReOC.Name.TrainingMaterialRePLHolding + ReOC.Name.TrainingMaterialTeachingQualification + ReOC.Name.TrainingMaterialTrainingArrangements + ReOC.Name.TrainingMaterialTrainingCourses + ReOC.Name.TrainingRPA + ReOC.Name.TransponderCarriage + ReOC.Name.TransponderFitted + ReOC.Name.TransportLicenceRefused + ReOC.Name.TypeOfAction + ReOC.Name.UpgradeDifferentCategory + ReOC.Name.UpgradeSameCategory + ReOC.Name.UserManual + ReOC.Name.Version + ReOC.Name.VersionIncrement + ReOC.Name.VersionMajorVersion + ReOC.Name.VersionMinorVersion + ReOC.Name.Victoria + ReOC.Name.Weekly + ReOC.Name.WesternAustralia + ReOC.Name.WrittenSignatureFile + ReOC.Name.WrittenSignatureImage + ReOC.Name.WrittenSignatureWrittenSignatureFile + ReOC.Name.WrittenSignatureWrittenSignatureImage + ReOC.Personnel + ReOC.Primitive.ABN + ReOC.Primitive.ARN + ReOC.Primitive.AtMost + ReOC.Primitive.EmailAddress + ReOC.Primitive.FormFont + ReOC.Primitive.FormText + ReOC.Primitive.GrossWeight + ReOC.Primitive.PassMark + ReOC.Primitive.Percentage + ReOC.Primitive.PhoneNumber + ReOC.Primitive.Positive + ReOC.Primitive.Postcode + ReOC.Primitive.ReviewMonths + ReOC.Primitive.Some + ReOC.Primitive.Text1 + ReOC.Render.ApplicationForm + ReOC.Render.Base64 + ReOC.Render.BlankForm + ReOC.Render.BuildInfo + ReOC.Render.Embed + ReOC.Render.Error + ReOC.Render.Markdown + ReOC.Render.Markdown.Block + ReOC.Render.Odf + ReOC.Render.OperationsManual + ReOC.Render.OperationsManual.Diagram + ReOC.Render.OperationsManual.Holes + ReOC.Render.Template + ReOC.Render.Text + ReOC.Render.TrainingManual + ReOC.Render.TrainingManual.Body + ReOC.Render.TrainingManual.Chunk + ReOC.Render.TrainingManual.Embed + ReOC.Render.TrainingManual.Holes + ReOC.Render.TrainingManual.Markup + ReOC.Render.Write + ReOC.Risk + +-- Example applications of made-up operators. +library examples + default-language: + Haskell2010 + + build-depends: + base >= 4.18 && < 5 + , lens >= 5.2.1 && < 6 + , casa-reoc + , text >= 2.0.2 && < 2.2 + , time >= 1.12.2 && < 2 + + ghc-options: + -Wall + -Wcompat + -Wincomplete-record-updates + -Wincomplete-uni-patterns + -Wredundant-constraints + -Werror=incomplete-patterns + + hs-source-dirs: + examples/src + + exposed-modules: + ReOC.Example.Aircraft + ReOC.Example.BanksiaPoint + ReOC.Example.Draft + ReOC.Example.Ironbark + ReOC.Example.Policies + ReOC.Example.Risk + ReOC.Example.Saltbush + ReOC.Example.WattleCreek + ReOC.Examples + +-- Writes the documents of each example into examples. +executable reoc-examples + if !flag(examples) + buildable: False + + main-is: + write-examples.hs + + default-language: + Haskell2010 + + build-depends: + base >= 4.18 && < 5 + , examples + , filepath >= 1.4.301.0 && < 1.6 + , casa-reoc + , text >= 2.0.2 && < 2.2 + + ghc-options: + -Wall + -Wcompat + -Wincomplete-record-updates + -Wincomplete-uni-patterns + + hs-source-dirs: + examples + +test-suite hedgehog + type: + exitcode-stdio-1.0 + + main-is: + hedgehog_tests.hs + + other-modules: + DataGens + FormFields + Laws + OpticsTests + PrimitiveGens + RenderTests + + default-language: + Haskell2010 + + build-depends: + base >= 4.18 && < 5 + , containers >= 0.6.7 && < 0.9 + , bytestring >= 0.11.5.4 && < 0.13 + , directory >= 1.3.8.5 && < 2 + , examples + , filepath >= 1.4.301.0 && < 1.6 + , hedgehog >= 1.2 && < 2 + , lens >= 5.2.1 && < 6 + , casa-reoc + , text >= 2.0.2 && < 2.2 + , time >= 1.12.2 && < 2 + , xml-conduit >= 1.9 && < 1.11 + + ghc-options: + -Wall + -threaded + -rtsopts + "-with-rtsopts=-N" + + hs-source-dirs: + test + +test-suite doctest + type: + exitcode-stdio-1.0 + + if !flag(doctest) + buildable: False + + main-is: + doctest_tests.hs + + default-language: + Haskell2010 + + build-depends: + base >= 4.18 && < 5 + , process >= 1.6.19.0 && < 2 + , casa-reoc + + ghc-options: + -Wall + -threaded + + hs-source-dirs: + test diff --git a/changelog.md b/changelog.md new file mode 100644 --- /dev/null +++ b/changelog.md @@ -0,0 +1,40 @@ +# Changelog + +## 0.1.0.0 + +* The variables of a ReOC initial issue application, its RPAS operations + manual and its RePL training manual as data types with classy optics, + following the classy optics recipe: one module for each data type and each + name, manifests, checks of inheritance, and `ReOC.Model`, which re-exports + them +* Filling in field by field: every form type has a valid and an unfilled + form (one type parameter for each field), with the same optics; + `fillReOC` gives the valid `ReOC` or every error at the path of its field + (`ReOCError`: unfilled, invalid or too many), with the help text of each + field (`ReOC.Help`), and `unfillReOC` the unfilled form of a valid one +* Primitive types with invariants (`Text1`, `FormText`, `ABN`, `ARN`, + `EmailAddress`, `PhoneNumber`, `Postcode`, `Positive`, `Percentage`, + `GrossWeight`, `ReviewMonths`, `PassMark`, `Some`, `AtMost`), each with a + prism and, for values, a literal checked at compile time +* Key positions held by one or several people, several types of RPA with + their type-specific procedures, solo and multi-crew operations, and remote + pilots other than the chief remote pilot +* Text on the form fits its box, and every document is well-formed XML +* An amendment record whose versions increase and dates keep their order, + and reviews within 12 months +* `ReOC.Render.ApplicationForm`: CASA Form 101-02 as XFDF +* `ReOC.Render.OperationsManual`: the operations manual from a template read + at compile time, with a function for each hole, and its organisational + diagram drawn from the key positions +* `ReOC.Render.TrainingManual`: the RePL training manual from marked-up + markdown read and checked at compile time +* `ReOC.Render.BlankForm`: the blank CASA Form 101-02, read from `etc/casa` + when the package is compiled, which `writeDocuments` writes beside the + XFDF that names it, with the written signature of the declarant + (`WrittenSignature`: its contents, or the path of its file) +* `ReOC.Render.BuildInfo`: fills the placeholders of the document build +* `examples`: the applications of four made-up operators and their + documents, and `reoc-examples`, which writes them +* hedgehog tests of the laws of every optic, the coverage of every sum, the + fields of the form and their boxes, the well-formedness of the documents; + doctests diff --git a/etc/casa/rpa-operators-certificate-reoc-initial-issue-variation-renewal-form-101-02.pdf b/etc/casa/rpa-operators-certificate-reoc-initial-issue-variation-renewal-form-101-02.pdf new file mode 100644 Binary files /dev/null and b/etc/casa/rpa-operators-certificate-reoc-initial-issue-variation-renewal-form-101-02.pdf differ diff --git a/examples/signatures/banksia-point.png b/examples/signatures/banksia-point.png new file mode 100644 Binary files /dev/null and b/examples/signatures/banksia-point.png differ diff --git a/examples/src/ReOC/Example/Aircraft.hs b/examples/src/ReOC/Example/Aircraft.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Example/Aircraft.hs @@ -0,0 +1,265 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | Types of RPA that the examples operate, with their type-specific +procedures, as unfilled forms filled in with their optics. The makes, models +and weights are of real RPA; the procedures are illustrative, and an operator +writes its own from the manufacturer's current manual. +-} +module ReOC.Example.Aircraft ( + djiMavic3Pro, + djiMavic3Thermal, + djiMavic3Multispectral, + djiMavic3Classic, + djiMatrice30T, + djiMatrice350RTK, + wingtraOneGenII, + agEagleEBeeX, + operatedType, + aircraft, + equipment, +) where + +import Control.Lens ((&), (.~), (?~)) +import Data.Text (Text) +import ReOC.Model + +-- | A type of RPA that the operator operates, with each RPA of that type. +operatedType :: UnfilledRPAType -> [UnfilledAircraft] -> UnfilledOperatedType +operatedType t rpa = + mkUnfilledOperatedType + & rpaType .~ t + & airframes .~ rpa + +-- | An RPA with its serial number and associated equipment. +aircraft :: Text -> [UnfilledEquipment] -> UnfilledAircraft +aircraft serial things = + mkUnfilledAircraft + & serialNumber ?~ serial + & associatedEquipment .~ things + +-- | An item of equipment with its serial number. +equipment :: Text -> Text -> UnfilledEquipment +equipment description serial = + mkUnfilledEquipment + & equipmentDescription ?~ description + & serialNumber ?~ serial + +-- An emergency action: the situation, what the RPA does, and the remote pilot's further steps. +emergencyAction :: Text -> Text -> [Text] -> UnfilledEmergencyAction +emergencyAction s r steps = + mkUnfilledEmergencyAction + & situation ?~ s + & response ?~ r + & actionSteps .~ steps + +-- A multirotor of DJI, with the inspection items, before-flight requirements, battery warnings and emergency actions +-- that DJI's multirotors share. +djiMultirotor :: Text -> Text -> Text -> UnfilledRPAType +djiMultirotor model short manual = + mkUnfilledRPAType + & rpaMake ?~ "DJI" + & rpaModel ?~ model + & shortName ?~ short + & category ?~ Multirotor + & userManual ?~ manual + & transponderCarriage ?~ NoTransponder + & flightTermination ?~ NoFlightTerminationSystem + & inspectionItems .~ djiInspectionItems + & beforeFlight .~ djiBeforeFlight + & batteryWarnings ?~ "The RPA warns when the remaining battery is only enough to return home, returns home automatically unless the RP cancels it, and lands automatically at critical low battery." + & emergencyActions .~ djiEmergencyActions + +-- The inspection items of a DJI multirotor. +djiInspectionItems :: [Text] +djiInspectionItems = + [ "the airframe and its arms, including the folding joints and locks" + , "motors, by turning each by hand to check for roughness" + , "propellers and propeller mounts" + , "gimbal, camera and vibration dampers" + , "vision and infrared sensors" + , "batteries (cycle count, cell voltage balance, swelling and damage to the case or terminals)" + , "remote controller, its antennas and its charging equipment" + , "firmware versions of the RPA, remote controller and batteries" + ] + +-- The before-flight requirements of a DJI multirotor. +djiBeforeFlight :: [Text] +djiBeforeFlight = + [ "Set the RTH altitude so that the RPA will clear every obstacle between the operating area and the home point, and confirm that the home point has been recorded before take-off." + , "Confirm that the signal-lost action is set to Return to Home." + , "Check the compass and IMU status in DJI Pilot or DJI Fly, and calibrate the compass if the app asks for it, away from metal structures and vehicles." + ] + +-- The emergency actions of a DJI multirotor. +djiEmergencyActions :: [UnfilledEmergencyAction] +djiEmergencyActions = + [ emergencyAction + "Loss of command link" + "the RPA performs its signal-lost action, Return to Home, climbing to the RTH altitude and flying to the home point. The RP must:" + [ "keep visual contact with the RPA and move to improve the link" + , "when the link is restored, cancel RTH and take control if the return path or landing point is unsafe" + ] + , emergencyAction + "Critical low battery landing" + "the RPA descends and lands where it is. The RP must use the throttle and controls to move the RPA, as it descends, to the nearest place clear of people and obstacles." + [] + , emergencyAction + "Loss of GNSS" + "the RPA changes to ATTI mode, does not hold its position and drifts with the wind. The RP must fly the RPA manually by visual reference, keep it clear of obstacles and people, and land as soon as practicable." + [] + , emergencyAction + "Compass or IMU error in flight" + "the app warns of the error and the RPA may change to ATTI mode. The RP must fly the RPA manually away from metal structures and land as soon as practicable." + [] + ] + +-- | The DJI Mavic 3 Pro, for aerial photography and videography. +djiMavic3Pro :: UnfilledRPAType +djiMavic3Pro = + djiMultirotor "Mavic 3 Pro" "DJI Mavic 3 Pro" "DJI Mavic 3 Pro User Manual" + & maximumGrossWeight ?~ 958 + +-- | The DJI Mavic 3 Thermal, for close visual and thermal inspection. +djiMavic3Thermal :: UnfilledRPAType +djiMavic3Thermal = + djiMultirotor "Mavic 3 Thermal" "DJI Mavic 3T" "DJI Mavic 3 Enterprise Series User Manual" + & maximumGrossWeight ?~ 1050 + +-- | The DJI Mavic 3 Multispectral, for crop and pasture surveys. +djiMavic3Multispectral :: UnfilledRPAType +djiMavic3Multispectral = + djiMultirotor "Mavic 3 Multispectral" "DJI Mavic 3M" "DJI Mavic 3 Multispectral User Manual" + & maximumGrossWeight ?~ 1050 + & inspectionItems .~ djiInspectionItems <> ["the sunlight sensor on top of the RPA, which must be clean and unobstructed"] + & beforeFlight + .~ djiBeforeFlight + <> [ "Before a mapping mission, check the mission altitude, overlap and boundary in DJI Pilot 2 against the site plan, and that the mission stays inside the operating area." + , "Set the action on completion of the mission to Return to Home, and the action on loss of signal to continue the mission only where the whole mission is within VLOS." + ] + +-- | The DJI Mavic 3 Classic, a training RPA for multirotor RePL courses. +djiMavic3Classic :: UnfilledRPAType +djiMavic3Classic = + djiMultirotor "Mavic 3 Classic" "DJI Mavic 3 Classic" "DJI Mavic 3 Classic User Manual" + & maximumGrossWeight ?~ 895 + & beforeFlight + .~ djiBeforeFlight + <> ["For a training flight, the instructor confirms that obstacle avoidance is set for the exercise, and briefs the student on when the instructor will take control."] + +-- | The DJI Matrice 30T, for inspection, and as a training RPA for multirotor RePL courses. +djiMatrice30T :: UnfilledRPAType +djiMatrice30T = + djiMultirotor "Matrice 30T" "DJI Matrice 30T" "DJI Matrice 30 Series User Manual" + & maximumGrossWeight ?~ 3998 + & beforeFlight + .~ djiBeforeFlight + <> ["Check that both TB30 batteries are fitted and locked, and that their charge differs by no more than the manual allows."] + +-- | The DJI Matrice 350 RTK, a medium multirotor for inspection and survey payloads. +djiMatrice350RTK :: UnfilledRPAType +djiMatrice350RTK = + djiMultirotor "Matrice 350 RTK" "DJI M350 RTK" "DJI Matrice 350 RTK User Manual" + & maximumGrossWeight ?~ 9200 + & inspectionItems + .~ djiInspectionItems + <> [ "the payload mount (DJI SkyPort) and the payload, which must be locked" + , "the RTK module and its antennas" + ] + & beforeFlight + .~ djiBeforeFlight + <> [ "Check that both TB65 batteries are fitted and locked, and that the payload is secure in its mount." + , "Where RTK positioning is used, confirm an RTK FIX before take-off. Do not rely on RTK for separation from obstacles." + , "Check AirSense (ADS-B In) is enabled, and respond to its warnings of crewed aircraft as for any other conflicting traffic." + ] + & emergencyActions + .~ djiEmergencyActions + <> [ emergencyAction + "Loss of a motor or propeller" + "the RPA may not hold its height or heading. The RP must fly the RPA away from people, descend and land immediately, and treat the RPA as unserviceable until the MC has inspected it." + [] + ] + +-- | The WingtraOne GEN II, a VTOL tail-sitter for mapping. +wingtraOneGenII :: UnfilledRPAType +wingtraOneGenII = + mkUnfilledRPAType + & rpaMake ?~ "Wingtra" + & rpaModel ?~ "WingtraOne GEN II" + & shortName ?~ "WingtraOne GEN II" + & category ?~ PoweredLift + & maximumGrossWeight ?~ 4800 + & userManual ?~ "WingtraOne GEN II user manual and the WingtraHub documentation" + & transponderCarriage ?~ NoTransponder + & flightTermination ?~ NoFlightTerminationSystem + & inspectionItems + .~ [ "the fuselage, wings and winglets, for cracks and delamination" + , "motors, propellers and propeller retainers" + , "elevons and their servos, by moving each through its full range" + , "the pitot tube, which must be clear" + , "the payload bay, the camera and its lens" + , "batteries (cycle count, cell voltage balance, swelling and damage)" + , "the tablet, telemetry radio and their charging equipment" + ] + & beforeFlight + .~ [ "Plan the mission in WingtraHub, check its altitude, its boundary and the take-off and landing point against the site plan, and confirm that the whole flight path stays within VLOS." + , "Choose a take-off and landing point clear of obstacles by at least the distance the manual requires, and into wind." + , "Complete the WingtraHub pre-flight checks, including the airspeed sensor check, before every flight." + ] + & batteryWarnings ?~ "WingtraHub warns of low battery and the RPA returns to its landing point automatically when the remaining battery is only enough to return and land." + & emergencyActions + .~ [ emergencyAction + "Loss of command link" + "the RPA continues its mission and then returns to land at its home point. The RP must keep visual contact with the RPA and, if the link is not restored and the RPA is approaching people or obstacles, prepare to keep people clear of the landing point." + [] + , emergencyAction + "Strong wind on landing" + "the RPA may drift during its vertical descent. The RP must command the RPA to hover and reposition it, or abort the landing and land at the alternative landing point." + [] + , emergencyAction + "Airspeed sensor failure" + "WingtraHub warns of the failure. The RP must command the RPA to return home and land, and treat it as unserviceable until the MC has inspected it." + [] + ] + +-- | The AgEagle eBee X, a fixed-wing mapping RPA, launched by hand. +agEagleEBeeX :: UnfilledRPAType +agEagleEBeeX = + mkUnfilledRPAType + & rpaMake ?~ "AgEagle" + & rpaModel ?~ "eBee X" + & shortName ?~ "AgEagle eBee X" + & category ?~ Aeroplane + & maximumGrossWeight ?~ 1600 + & userManual ?~ "eBee X Drone User Manual and the eMotion documentation" + & transponderCarriage ?~ NoTransponder + & flightTermination ?~ NoFlightTerminationSystem + & inspectionItems + .~ [ "the wing, its joints and the central body, for cracks and dents" + , "the propeller and the motor" + , "elevons and their servos" + , "the pitot tube, which must be clear" + , "the camera and its lens" + , "batteries (cycle count, cell voltage balance, swelling and damage)" + , "the ground modem, laptop and their charging equipment" + ] + & beforeFlight + .~ [ "Plan the mission in eMotion, and set the home waypoint, the landing sector and the minimum and maximum altitudes, so that the RPA stays within the operating area, below 400 ft AGL and within VLOS." + , "Choose a landing area of at least the size the manual requires, clear of obstacles and people, on a heading into wind." + , "Complete the eMotion pre-flight checklist, including the airspeed calibration, before every flight." + ] + & batteryWarnings ?~ "eMotion warns of low battery, and the RPA returns home and lands when the remaining battery is only enough to do so." + & emergencyActions + .~ [ emergencyAction + "Loss of command link" + "the RPA continues its mission for the time set in eMotion, then returns to the home waypoint and lands. The RP must keep visual contact with the RPA and keep people clear of the landing area." + [] + , emergencyAction + "Landing area blocked" + "the RP must abort the landing in eMotion, so that the RPA climbs and circles, and land when the area is clear or at the alternative landing area." + [] + , emergencyAction + "Uncontrolled flight" + "the RP must command an emergency landing in eMotion, which stops the motor so that the RPA glides to the ground near its position." + [] + ] diff --git a/examples/src/ReOC/Example/BanksiaPoint.hs b/examples/src/ReOC/Example/BanksiaPoint.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Example/BanksiaPoint.hs @@ -0,0 +1,133 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE TemplateHaskell #-} +{-# OPTIONS_GHC -Wall #-} + +{- | A one-person aerial photography business on Sydney's northern beaches. +Its sole director holds every key position, is its only remote pilot and +conducts only solo operations, with two of one type of small multirotor. Its +application form is signed with a written signature, read when the package +is compiled. + +The application starts as 'mkUnfilledReOC', and each field is set with its +optic; 'fillReOC' then checks it. The company, its people, numbers and +addresses are made up. +-} +module ReOC.Example.BanksiaPoint ( + banksiaPointInput, + banksiaPoint, +) where + +import Control.Lens ((&), (.~), (?~)) +import Data.List.NonEmpty (NonEmpty) +import qualified Data.Time.Calendar.Month as Month +import ReOC.Example.Aircraft (aircraft, djiMavic3Pro, equipment) +import ReOC.Example.Policies (examplePolicies) +import ReOC.Example.Risk +import ReOC.Fill (fillReOC) +import ReOC.Model +import ReOC.Render.Embed (embedFileBytes) + +-- | The application of Banksia Point Aerial Media Pty Ltd, as it is filled in. +banksiaPointInput :: UnfilledReOC +banksiaPointInput = + mkUnfilledReOC + -- the company (questions 1 and 4 to 6) + & operator . company . companyName ?~ "Banksia Point Aerial Media" + & operator . company . abn ?~ "15 092 285 142" + & operator . company . arn ?~ "9990101" + & operator . company . registeredOffice . streetAddress .~ ["Suite 3", "41 Bungan Lane"] + & operator . company . registeredOffice . suburb ?~ "Mona Vale" + & operator . company . registeredOffice . stateOrTerritory ?~ NewSouthWales + & operator . company . registeredOffice . postcode ?~ "2103" + & operator . company . operationalHeadquarters ?~ AtRegisteredOffice + & operator . company . phoneNumber ?~ "02 5550 1182" + & operator . company . emailAddress ?~ "hello@banksiapointaerial.example" + & operator . company . businessName ?~ "Banksia Point Aerial" + -- the CEO, who holds every key position (questions 7 to 12) + & operator . keyPersonnel . chiefExecutive . nominee . person . fullName ?~ "Mei-Ling Hartley" + & operator . keyPersonnel . chiefExecutive . nominee . person . arn ?~ "9990102" + & operator . keyPersonnel . chiefExecutive . nominee . person . phoneNumber ?~ "0491 570 156" + & operator . keyPersonnel . chiefExecutive . nominee . person . emailAddress ?~ "meiling@banksiapointaerial.example" + & operator . keyPersonnel . chiefExecutive . nominee . otherQualifications .~ ["a Diploma of Screen and Media"] + & operator . keyPersonnel . chiefExecutive . nominee . aviationExperience ?~ "four years of excluded-category RPA operations for real estate and tourism clients" + & operator . keyPersonnel . chiefExecutive . directorStatus ?~ SoleDirector + & operator . keyPersonnel . chiefExecutive . managementExperience + ?~ "Sole director of Banksia Point Aerial Media Pty Ltd since 2022. Eight years running a photography and video business, including client contracts, insurance and work health and safety. Also nominated as Chief Remote Pilot and Maintenance Controller." + & operator . keyPersonnel . chiefPilot . crpNominee ?~ CRPIsCEO + & operator . keyPersonnel . chiefPilot . rePLOrigin ?~ RePLTraining (Just "Pelican Drone School") + & operator . keyPersonnel . chiefPilot . rpaHistory + ?~ "Holds RePL, multirotor, up to 7 kg. About 350 hours on DJI Mavic 2 Pro, Mavic 3 Pro and Mini 3 Pro, in excluded-category operations for real estate, construction progress and tourism imagery in the Sydney region." + & operator . keyPersonnel . chiefPilot . otherReOCRoles ?~ NoOtherReOCRoles + & operator . keyPersonnel . chiefPilot . radio ?~ RadioOperatorCertificate + & operator . keyPersonnel . mcNominee ?~ MCIsCEO + -- the RPA (question 27) + & operator . fleet + .~ [ mkUnfilledOperatedType + & rpaType .~ djiMavic3Pro + & airframes + .~ [ aircraft "1581F5FHD23A0012" [equipment "DJI RC Pro remote controller" "5WKCL3R0A20118"] + , aircraft "1581F5FHD23B0347" [equipment "DJI RC remote controller" "5EBCL2K0C40295"] + ] + ] + -- the rest of the form (questions 2, 19 to 26 and 30 to 32) + & applicationForm . primaryContact ?~ ApplicantIsPrimaryContact + & applicationForm . personnelHistory . actionTaken ?~ NoHistory + & applicationForm . personnelHistory . transportLicenceRefused ?~ NoHistory + & applicationForm . personnelHistory . criminalConviction ?~ NoHistory + & applicationForm . personnelHistory . suspensionPending ?~ NoHistory + & applicationForm . regulatoryHistory ?~ NoRegulatoryAction + & applicationForm . proceduresLibrary ?~ False + & applicationForm . declaration ?~ DeclaredByCEO + & applicationForm . signature ?~ WrittenSignatureImage (Just $(embedFileBytes "examples/signatures/banksia-point.png")) + -- the operations manual + & operationsManual . firstIssue . version . majorVersion ?~ 1 + & operationsManual . firstIssue . version . minorVersion ?~ 0 + & operationsManual . firstIssue . issueDate ?~ m + & operationsManual . firstIssue . effective ?~ "On issue of the ReOC" + & operationsManual . firstIssue . parts ?~ "All" + & operationsManual . firstIssue . details ?~ "Initial issue for the ReOC application." + & operationsManual . services + .~ [ "real estate and property marketing imagery" + , "construction progress photography" + , "tourism and hospitality promotion imagery" + , "roof and gutter condition photography for building inspectors" + ] + & operationsManual . policies .~ examplePolicies + & operationsManual . policies . batteryReserve ?~ 25 + & operationsManual . riskRegister + .~ [peopleRisk m] + <> airspaceRisks m + <> [ commandLinkRisk m + , batteryRisk m + , weatherRisk m + , riskEntry + m + "Coastal operations – sea breeze, salt spray and gulls" + "Loss of control in gusts; corrosion of the RPA; bird strike" + "Manufacturer wind limits; onsite validation (2.3.1)" + (Occasional, Minor) + "Coastal flights planned for the morning, before the sea breeze; RPA wiped down after coastal flights; climb away from birds that approach the RPA" + (Remote, Minor) + ChiefRemotePilot + , riskEntry + m + "Solo operation – RP workload and distraction" + "Conflicting aircraft or person not detected" + "Self-briefing; Flight Record checklists (2.3.2)" + (Remote, Moderate) + "RPA held in hover while changing camera settings; land before talking with clients or the public" + (Improbable, Minor) + ChiefRemotePilot + , fitnessRisk ChiefExecutiveOfficer m + , recencyRisk m + , firmwareRisk m + ] + & operationsManual . crew ?~ SoloOperationsOnly + & operationsManual . pilots ?~ CRPIsOnlyRemotePilot + where + m = Month.YearMonth 2026 9 + +-- | The application of Banksia Point Aerial Media Pty Ltd: valid, or every reason it is not. +banksiaPoint :: Either (NonEmpty ReOCError) ReOC +banksiaPoint = + fillReOC banksiaPointInput diff --git a/examples/src/ReOC/Example/Draft.hs b/examples/src/ReOC/Example/Draft.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Example/Draft.hs @@ -0,0 +1,44 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | An application that has only been started: the company's name, an ABN +with a typing error, and a CEO's name. Filling it in gives every reason it +is not yet valid. + +>>> import qualified Data.Text as Text +>>> import qualified Data.Text.IO as Text +>>> mapM_ Text.putStrLn (take 3 (Text.lines draftReport)) +operator › company › ABN: “15 092 285 143” is not an ABN: 11 digits with valid check digits (The company’s Australian business number (ABN).) +operator › company › ARN: not filled in (The company’s CASA aviation reference number (ARN).) +operator › company › registered office › street address: not filled in (The lines of the street address, such as unit and street; one or more.) +-} +module ReOC.Example.Draft ( + draftInput, + draft, + draftReport, +) where + +import Control.Lens ((&), (?~)) +import Data.List.NonEmpty (NonEmpty) +import Data.Text (Text) +import ReOC.Fill (fillReOC) +import ReOC.Model +import ReOC.Render.Error (renderReOCErrors) + +-- | An application that has only been started. +draftInput :: UnfilledReOC +draftInput = + mkUnfilledReOC + & operator . company . companyName ?~ "Banksia Point Aerial Media" + & operator . company . abn ?~ "15 092 285 143" + & operator . keyPersonnel . chiefExecutive . nominee . person . fullName ?~ "Mei-Ling Hartley" + +-- | The reasons that the draft is not yet valid. +draft :: Either (NonEmpty ReOCError) ReOC +draft = + fillReOC draftInput + +-- | The reasons that the draft is not yet valid, one to a line. +draftReport :: Text +draftReport = + either renderReOCErrors (const "") draft diff --git a/examples/src/ReOC/Example/Ironbark.hs b/examples/src/ReOC/Example/Ironbark.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Example/Ironbark.hs @@ -0,0 +1,241 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | An infrastructure inspection company in Perth. Each key position is held +by a different person; the company engages other remote pilots and conducts +multi-crew operations, with three types of multirotor including a medium +RPA. Its manual has been revised once, after CASA's assessment. Its chief +remote pilot is chief remote pilot of another ReOC holder, and was given an +infringement notice before holding a RePL. + +The application starts as 'mkUnfilledReOC', and each field is set with its +optic; 'fillReOC' then checks it. The company, its people, numbers and +addresses are made up. +-} +module ReOC.Example.Ironbark ( + ironbarkInput, + ironbark, +) where + +import Control.Lens ((&), (.~), (?~)) +import Data.List.NonEmpty (NonEmpty) +import Data.Time.Calendar (fromGregorian) +import qualified Data.Time.Calendar.Month as Month +import ReOC.Example.Aircraft (aircraft, djiMatrice30T, djiMatrice350RTK, djiMavic3Thermal, equipment, operatedType) +import ReOC.Example.Policies (examplePolicies) +import ReOC.Example.Risk +import ReOC.Fill (fillReOC) +import ReOC.Model + +-- | The application of Ironbark Asset Inspection Pty Ltd, as it is filled in. +ironbarkInput :: UnfilledReOC +ironbarkInput = + mkUnfilledReOC + -- the company, with its operational headquarters away from its registered office + & operator . company . companyName ?~ "Ironbark Asset Inspection" + & operator . company . abn ?~ "79 866 898 501" + & operator . company . arn ?~ "9990201" + & operator . company . registeredOffice . streetAddress .~ ["Level 4", "160 Jarrah Terrace"] + & operator . company . registeredOffice . suburb ?~ "East Perth" + & operator . company . registeredOffice . stateOrTerritory ?~ WesternAustralia + & operator . company . registeredOffice . postcode ?~ "6004" + & operator . company . operationalHeadquarters + ?~ OperationalHeadquartersAddress + ( mkUnfilledAddress + & streetAddress .~ ["Unit 7", "22 Kurrajong Road"] + & suburb ?~ "Welshpool" + & stateOrTerritory ?~ WesternAustralia + & postcode ?~ "6106" + ) + & operator . company . phoneNumber ?~ "08 5550 4410" + & operator . company . emailAddress ?~ "operations@ironbarkinspection.example" + -- the CEO + & operator . keyPersonnel . chiefExecutive . nominee . person . fullName ?~ "Daniel Okonkwo" + & operator . keyPersonnel . chiefExecutive . nominee . person . arn ?~ "9990202" + & operator . keyPersonnel . chiefExecutive . nominee . person . phoneNumber ?~ "0491 571 266" + & operator . keyPersonnel . chiefExecutive . nominee . person . emailAddress ?~ "daniel.okonkwo@ironbarkinspection.example" + & operator . keyPersonnel . chiefExecutive . nominee . otherQualifications + .~ ["a Bachelor of Engineering (Electrical)", "a Certificate IV in Work Health and Safety"] + & operator . keyPersonnel . chiefExecutive . nominee . aviationExperience + ?~ "six years managing contractors who used RPA for asset inspection on transmission networks" + & operator . keyPersonnel . chiefExecutive . directorStatus ?~ Director + & operator . keyPersonnel . chiefExecutive . managementExperience + ?~ "Director and general manager of Ironbark Asset Inspection Pty Ltd. Fifteen years in electricity transmission asset management, the last six managing inspection contracts that used RPA operators. Responsible for budgets of over $5 million and teams of up to 25." + -- the chief remote pilot, another person, who is also CRP of another ReOC holder + & operator . keyPersonnel . chiefPilot . crpNominee + ?~ CRPNominated + ( mkUnfilledNominee + & person . fullName ?~ "Rhiannon Walsh" + & person . arn ?~ "9990203" + & person . phoneNumber ?~ "0491 571 491" + & person . emailAddress ?~ "rhiannon.walsh@ironbarkinspection.example" + & otherQualifications .~ ["a CASA aeronautical radio operator certificate"] + & aviationExperience + ?~ "over 1,200 hours of RPA operations, including five years as a remote pilot and two years as chief remote pilot of another ReOC holder" + ) + & operator . keyPersonnel . chiefPilot . rePLOrigin ?~ RePLTraining (Just "Swan Valley Remote Pilot Training") + & operator . keyPersonnel . chiefPilot . rpaHistory + ?~ "Holds RePL, multirotor, up to 25 kg. Over 1,200 hours on DJI Matrice 300 RTK, Matrice 350 RTK, Matrice 30T, Mavic 3 Thermal and Phantom 4 RTK, in powerline, telecommunications tower, mine site and solar farm inspection across WA. Chief remote pilot of Quenda Mapping Pty Ltd since 2024." + & operator . keyPersonnel . chiefPilot . otherReOCRoles + ?~ OtherReOCRolesHeld + (Just "Chief remote pilot of Quenda Mapping Pty Ltd (ReOC holder, ARN 9990290), about 4 hours a week. Quenda Mapping has agreed in writing that Ironbark operations take priority. I will resign that position within 6 months of the issue of this ReOC.") + & operator . keyPersonnel . chiefPilot . radio ?~ RadioOperatorCertificate + -- the maintenance controller, a third person + & operator . keyPersonnel . mcNominee + ?~ MCNominated + ( mkUnfilledNominee + & person . fullName ?~ "Tomasz Nowak" + & person . arn ?~ "9990204" + & person . phoneNumber ?~ "0491 571 804" + & person . emailAddress ?~ "tomasz.nowak@ironbarkinspection.example" + & otherQualifications .~ ["a Certificate IV in Aeroskills (Avionics)", "a RePL, multirotor, up to 25 kg"] + & aviationExperience + ?~ "ten years as an avionics technician on regional airline aircraft, and three years maintaining a fleet of medium multirotor RPA" + ) + -- three types of RPA + & operator . fleet + .~ [ operatedType + djiMatrice350RTK + [ aircraft + "1ZNDH3P00C1042" + [equipment "Zenmuse H20T camera" "3D3BJ4H00A0567", equipment "DJI RC Plus remote controller" "6TBCK7F0F10233"] + , aircraft + "1ZNDH3P00C1187" + [equipment "Zenmuse H30T camera" "4F2DJ5K00B0091", equipment "DJI RC Plus remote controller" "6TBCK7F0F10498"] + ] + , operatedType + djiMatrice30T + [ aircraft "1ZNBJ7B00D0315" [equipment "DJI RC Plus remote controller" "6TBCK7F0F10611"] + , aircraft "1ZNBJ7B00D0322" [equipment "DJI RC Plus remote controller" "6TBCK7F0F10652"] + ] + , operatedType + djiMavic3Thermal + [ aircraft "1581F5BKD23C0072" [equipment "DJI RC Pro Enterprise remote controller" "5ZDCL1N0B30014"] + , aircraft "1581F5BKD23C0118" [equipment "DJI RC Pro Enterprise remote controller" "5ZDCL1N0B30066"] + , aircraft "1581F5BKD24A0005" [equipment "DJI RC Pro Enterprise remote controller" "5ZDCL1N0B30101"] + ] + ] + -- a primary contact other than the applicant, a regulatory action and other documents + & applicationForm . primaryContact + ?~ PrimaryContactPerson + ( mkUnfilledContactPerson + & fullName ?~ "Priya Raman" + & position ?~ "Operations coordinator" + & phoneNumber ?~ "08 5550 4412" + & emailAddress ?~ "priya.raman@ironbarkinspection.example" + ) + & applicationForm . personnelHistory . actionTaken ?~ NoHistory + & applicationForm . personnelHistory . transportLicenceRefused ?~ NoHistory + & applicationForm . personnelHistory . criminalConviction ?~ NoHistory + & applicationForm . personnelHistory . suspensionPending ?~ NoHistory + & applicationForm . regulatoryHistory + ?~ RegulatoryActionTaken + ( mkUnfilledRegulatoryAction + & reocSuspendedOrCancelled ?~ False + & typeOfAction ?~ "Infringement notice" + & authorisationAction ?~ "None; the infringement notice was paid" + & actionDate ?~ fromGregorian 2019 5 14 + & actionDetails + ?~ "Rhiannon Walsh (nominated CRP): infringement notice for flying an excluded RPA within 30 m of a person, in Bunbury, before she held a RePL. Paid." + ) + & applicationForm . proceduresLibrary ?~ True + & applicationForm . otherDocuments + .~ [ "Powerline and tower inspection procedures" + , "Site risk assessment template" + , "Remote pilot induction and training records template" + ] + & applicationForm . declaration ?~ DeclaredByCEO + -- the operations manual, revised once + & operationsManual . firstIssue . version . majorVersion ?~ 1 + & operationsManual . firstIssue . version . minorVersion ?~ 0 + & operationsManual . firstIssue . issueDate ?~ m + & operationsManual . firstIssue . effective ?~ "On issue of the ReOC" + & operationsManual . firstIssue . parts ?~ "All" + & operationsManual . firstIssue . details ?~ "Initial issue for the ReOC application." + & operationsManual . revisions + .~ [ mkUnfilledRevision + & versionIncrement ?~ MinorRevision + & monthsAfter ?~ 3 + & effective ?~ "On issue of the ReOC" + & parts ?~ "1.2, 2.3, Appendix C" + & details + ?~ "Changes requested in CASA's assessment: duties of the MC clarified, multi-crew briefing added, emergency actions of the DJI M350 RTK expanded." + ] + & operationsManual . services + .~ [ "visual and thermal inspection of powerlines, substations and telecommunications towers" + , "solar farm thermal surveys" + , "inspection of mine site infrastructure, conveyors and stockpiles" + , "roof and facade condition surveys of commercial buildings" + ] + & operationsManual . policies .~ examplePolicies + & operationsManual . policies . recencyDays ?~ 60 + & operationsManual . policies . refresherMonths ?~ 6 + & operationsManual . policies . alcoholHours ?~ 10 + & operationsManual . policies . dutyHours ?~ 12 + & operationsManual . policies . inspectionHours ?~ 30 + & operationsManual . policies . backupFrequency ?~ Daily + & operationsManual . policies . checkingMonths ?~ 6 + & operationsManual . riskRegister + .~ [peopleRisk m] + <> airspaceRisks m + <> [ commandLinkRisk m + , batteryRisk m + , weatherRisk m + , riskEntry + m + "Electromagnetic interference near energised powerlines and substations" + "Compass error, loss of command link or loss of position hold close to conductors" + "Compass calibration away from structures; GNSS status checked before take-off (3.1)" + (Occasional, Hazardous) + "Minimum distances from conductors in the network owner's procedures; RP proficiency in ATTI mode; observer calls distance to conductors in multi-crew operations" + (Improbable, Hazardous) + ChiefRemotePilot + , riskEntry + m + "Medium RPA (DJI M350 RTK) – higher energy on impact" + "Serious injury or property damage if the RPA falls" + "RePL for RPA up to 25 kg; 30 m from people; manufacturer limits (2.4.6)" + (Improbable, Hazardous) + "Flight path planned to keep the RPA clear of roads and workers; ground crew keep workers clear of the area below the RPA" + (ExtremelyImprobable, Hazardous) + ChiefRemotePilot + , riskEntry + m + "Multi-crew communication" + "Observer warning not heard or not understood; RP distracted" + "Crew briefing; standard calls (2.3.2)" + (Remote, Moderate) + "Two-way radios with headsets on every site; read-back of hazard calls; one person speaks to the client" + (Improbable, Minor) + ChiefRemotePilot + , riskEntry + m + "Heat and remote sites" + "Heat illness of the crew; battery overheating; delayed emergency response" + "Fitness for duty requirements (1.7); manufacturer temperature limits" + (Occasional, Moderate) + "Water, shade and first aid kit on every site; work stopped above 40 °C; batteries kept shaded; site emergency plan and satellite messenger at remote sites" + (Remote, Minor) + ChiefExecutiveOfficer + , riskEntry + m + "Remote pilots new to the company" + "Company procedures not followed" + "Induction and proficiency check (1.6)" + (Remote, Moderate) + "New RPs fly with the CRP or an experienced RP for their first three operations" + (Improbable, Minor) + ChiefRemotePilot + , fitnessRisk ChiefExecutiveOfficer m + , recencyRisk m + , firmwareRisk m + ] + & operationsManual . crew ?~ SoloAndMultiCrewOperations + & operationsManual . pilots ?~ OtherRemotePilots + where + m = Month.YearMonth 2026 4 + +-- | The application of Ironbark Asset Inspection Pty Ltd: valid, or every reason it is not. +ironbark :: Either (NonEmpty ReOCError) ReOC +ironbark = + fillReOC ironbarkInput diff --git a/examples/src/ReOC/Example/Policies.hs b/examples/src/ReOC/Example/Policies.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Example/Policies.hs @@ -0,0 +1,28 @@ +{-# OPTIONS_GHC -Wall #-} + +{- | The limits that the examples set in their operations manuals, from which +each example changes the fields it sets differently. +-} +module ReOC.Example.Policies ( + examplePolicies, +) where + +import Control.Lens ((&), (?~)) +import ReOC.Model + +-- | Limits common to the examples. +examplePolicies :: UnfilledPolicies +examplePolicies = + mkUnfilledPolicies + & recencyFlights ?~ 3 + & recencyDays ?~ 90 + & refresherMonths ?~ 12 + & alcoholHours ?~ 8 + & restHours ?~ 10 + & dutyHours ?~ 10 + & inspectionMonths ?~ 3 + & inspectionHours ?~ 25 + & batteryReserve ?~ 30 + & backupFrequency ?~ Weekly + & independentReviewYears ?~ 2 + & checkingMonths ?~ 12 diff --git a/examples/src/ReOC/Example/Risk.hs b/examples/src/ReOC/Example/Risk.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Example/Risk.hs @@ -0,0 +1,161 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | Entries of a risk register that most operators share, from which each +example builds its own register, as unfilled forms. The section numbers in +the controls are those of the operations manual. +-} +module ReOC.Example.Risk ( + riskEntry, + airspaceRisks, + peopleRisk, + commandLinkRisk, + batteryRisk, + weatherRisk, + fitnessRisk, + recencyRisk, + firmwareRisk, +) where + +import Control.Lens ((&), (.~), (?~)) +import Data.Text (Text) +import Data.Time.Calendar.Month (Month) +import ReOC.Model + +{- | A risk, entered in a month and reviewed 12 months later: its hazard, +description, existing controls, initial risk, additional controls, residual +risk and owner. +-} +riskEntry :: Month -> Text -> Text -> Text -> (Likelihood, Consequence) -> Text -> (Likelihood, Consequence) -> KeyPosition -> UnfilledRisk +riskEntry entered h d e initial a residual owner = + mkUnfilledRisk + & hazard ?~ h + & riskDescription ?~ d + & existingControls ?~ e + & initialRisk .~ assessment initial + & additionalControls ?~ a + & residualRisk .~ assessment residual + & riskOwner ?~ owner + & dateEntered ?~ entered + & reviewMonths ?~ 12 + +-- The likelihood and consequence of a risk. +assessment :: (Likelihood, Consequence) -> UnfilledRiskAssessment +assessment (l, c) = + mkUnfilledRiskAssessment + & riskLikelihood ?~ l + & riskConsequence ?~ c + +-- | Crewed aircraft at low level, and operations near aerodromes. +airspaceRisks :: Month -> [UnfilledRisk] +airspaceRisks m = + [ riskEntry + m + "Crewed aircraft at low level (helicopters, agricultural aircraft, aerial firefighting)" + "Mid-air collision with a crewed aircraft" + "Below 400 ft AGL; VLOS lookout; give way to crewed aircraft (2.4.2, 2.4.7)" + (Improbable, Catastrophic) + "Monitor the CTAF within 3 NM of a non-controlled aerodrome or HLS; check for NOTAMs and fire activity in planning; descend and land when a crewed aircraft approaches (2.4.3)" + (ExtremelyImprobable, Catastrophic) + ChiefRemotePilot + , riskEntry + m + "Operations near aerodromes or in controlled airspace" + "Airspace infringement; conflict with traffic" + "CASA-verified drone safety app; no-fly zones of the Part 101 MOS (2.4.7)" + (Improbable, Hazardous) + "No operations in a no-fly zone without an approval or authorisation in force; the approval is carried on site" + (ExtremelyImprobable, Hazardous) + ChiefRemotePilot + ] + +-- | People who are not involved in the operation. +peopleRisk :: Month -> UnfilledRisk +peopleRisk m = + riskEntry + m + "Persons not involved in the operation" + "RPA strikes a person, causing injury" + "30 m from people; not over populous areas; onsite validation; customer briefing (2.3, 2.4.6)" + (Remote, Moderate) + "Launch and recovery area kept clear of people; operation paused when a person approaches the operating area" + (Improbable, Moderate) + ChiefRemotePilot + +-- | Loss of the command and control link. +commandLinkRisk :: Month -> UnfilledRisk +commandLinkRisk m = + riskEntry + m + "Loss of command link" + "Flyaway or uncontrolled flight; collision with people or property" + "Manufacturer pre-flight checks; signal-lost action set; VLOS (2.3.3, App C)" + (Remote, Moderate) + "Return altitude set above obstacles at each site; sources of radio interference identified in the site assessment" + (Improbable, Minor) + ChiefRemotePilot + +-- | Battery failure or a low battery. +batteryRisk :: Month -> UnfilledRisk +batteryRisk m = + riskEntry + m + "Battery failure or low battery" + "Forced landing in an unsuitable area; battery fire in flight, in storage or in transport" + "Manufacturer battery care; low-battery warnings; periodic inspection (3.1)" + (Remote, Moderate) + "Battery reserve on landing (App C); damaged or swollen batteries removed from service; batteries carried and charged in fire-resistant bags" + (Improbable, Minor) + MaintenanceController + +-- | Weather. +weatherRisk :: Month -> UnfilledRisk +weatherRisk m = + riskEntry + m + "Wind, gusts, rain, heat or reduced visibility" + "Loss of control; loss of VLOS; overheating of batteries or equipment" + "Manufacturer limits; VMC; onsite validation (2.3.1)" + (Remote, Moderate) + "Forecast checked in planning and on site; operation stopped when a limit is approached" + (Improbable, Minor) + ChiefRemotePilot + +-- | Fatigue, illness or impairment of a remote pilot. +fitnessRisk :: KeyPosition -> Month -> UnfilledRisk +fitnessRisk owner m = + riskEntry + m + "RP fatigue, illness or impairment" + "Errors in planning or flight control" + "Fitness for duty requirements; duty and rest limits (1.7)" + (Improbable, Moderate) + "Alcohol and duty limits (1.7); work rostered within the limits; an RP who is unfit stands down without penalty" + (ExtremelyImprobable, Moderate) + owner + +-- | A remote pilot who has not flown recently. +recencyRisk :: Month -> UnfilledRisk +recencyRisk m = + riskEntry + m + "RP lack of recency" + "Mishandling of an abnormal situation" + "Recency requirements; annual checking event (1.6.2, 1.8)" + (Remote, Moderate) + "Proficiency flight after a lapse; regular practice of manual flight without GNSS assistance" + (Improbable, Minor) + ChiefRemotePilot + +-- | Updates to firmware and software. +firmwareRisk :: Month -> UnfilledRisk +firmwareRisk m = + riskEntry + m + "Firmware or software update" + "Unexpected RPA behaviour in flight" + "Updates directed by the MC as maintenance (3.1.1)" + (Remote, Minor) + "Release notes reviewed; test flight after an update before operations (3.1.1, 3.4)" + (Improbable, Negligible) + MaintenanceController diff --git a/examples/src/ReOC/Example/Saltbush.hs b/examples/src/ReOC/Example/Saltbush.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Example/Saltbush.hs @@ -0,0 +1,186 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | A crop and pasture survey business in South Australia's Mid North. Its +CEO is a general manager who is not a director and does not fly; its chief +remote pilot, who obtained their RePL through private pilot licence theory, +is also its maintenance controller. It operates a multirotor, a fixed-wing +and a powered-lift RPA, engages seasonal remote pilots, and conducts only +solo operations. It discloses a suspended driver licence, and a director +makes the declaration. + +The application starts as 'mkUnfilledReOC', and each field is set with its +optic; 'fillReOC' then checks it. The company, its people, numbers and +addresses are made up. +-} +module ReOC.Example.Saltbush ( + saltbushInput, + saltbush, +) where + +import Control.Lens ((&), (.~), (?~)) +import Data.List.NonEmpty (NonEmpty) +import qualified Data.Time.Calendar.Month as Month +import ReOC.Example.Aircraft (agEagleEBeeX, aircraft, djiMavic3Multispectral, equipment, operatedType, wingtraOneGenII) +import ReOC.Example.Policies (examplePolicies) +import ReOC.Example.Risk +import ReOC.Fill (fillReOC) +import ReOC.Model + +-- | The application of Saltbush Ag Surveys Pty Ltd, as it is filled in. +saltbushInput :: UnfilledReOC +saltbushInput = + mkUnfilledReOC + -- the company, with its operational headquarters on a farm + & operator . company . companyName ?~ "Saltbush Ag Surveys" + & operator . company . abn ?~ "40 941 019 012" + & operator . company . arn ?~ "9990401" + & operator . company . registeredOffice . streetAddress .~ ["9 Quandong Street"] + & operator . company . registeredOffice . suburb ?~ "Clare" + & operator . company . registeredOffice . stateOrTerritory ?~ SouthAustralia + & operator . company . registeredOffice . postcode ?~ "5453" + & operator . company . operationalHeadquarters + ?~ OperationalHeadquartersAddress + ( mkUnfilledAddress + & streetAddress .~ ["Shed 2, 1410 Saltbush Road"] + & suburb ?~ "Andrews" + & stateOrTerritory ?~ SouthAustralia + & postcode ?~ "5454" + ) + & operator . company . phoneNumber ?~ "08 7010 3365" + & operator . company . emailAddress ?~ "office@saltbushag.example" + -- the CEO, a general manager who is not a director + & operator . keyPersonnel . chiefExecutive . nominee . person . fullName ?~ "Graham Pickering" + & operator . keyPersonnel . chiefExecutive . nominee . person . arn ?~ "9990402" + & operator . keyPersonnel . chiefExecutive . nominee . person . phoneNumber ?~ "0491 573 770" + & operator . keyPersonnel . chiefExecutive . nominee . person . emailAddress ?~ "graham@saltbushag.example" + & operator . keyPersonnel . chiefExecutive . nominee . otherQualifications .~ ["a Bachelor of Agricultural Science"] + & operator . keyPersonnel . chiefExecutive . nominee . aviationExperience + ?~ "no remote pilot experience; ten years of engaging aerial agricultural operators as a farm manager" + & operator . keyPersonnel . chiefExecutive . directorStatus ?~ NotADirector + & operator . keyPersonnel . chiefExecutive . managementExperience + ?~ "General manager of Saltbush Ag Surveys Pty Ltd, appointed by its directors with authority over its finances and staff. Twenty years managing broadacre farms of up to 6,000 ha, including staff, contractors, chemical and work health and safety obligations." + -- the chief remote pilot, also the maintenance controller + & operator . keyPersonnel . chiefPilot . crpNominee + ?~ CRPNominated + ( mkUnfilledNominee + & person . fullName ?~ "Jess Varga" + & person . arn ?~ "9990403" + & person . phoneNumber ?~ "0491 573 087" + & person . emailAddress ?~ "jess@saltbushag.example" + & otherQualifications .~ ["a private pilot licence (aeroplane)", "a Certificate III in Agriculture"] + & aviationExperience ?~ "about 450 hours of RPA survey operations and 210 hours as pilot in command of light aeroplanes" + ) + & operator . keyPersonnel . chiefPilot . rePLOrigin ?~ PPLTheory + & operator . keyPersonnel . chiefPilot . rpaHistory + ?~ "Holds RePL, multirotor and aeroplane up to 7 kg, and powered-lift up to 25 kg, obtained through PPL theory. About 450 hours on DJI Mavic 3 Multispectral, Phantom 4 Multispectral, AgEagle eBee X and WingtraOne, in crop and pasture surveys in SA." + & operator . keyPersonnel . chiefPilot . otherReOCRoles ?~ NoOtherReOCRoles + & operator . keyPersonnel . chiefPilot . radio ?~ FlightCrewLicence + & operator . keyPersonnel . mcNominee ?~ MCIsCRP + -- a multirotor, a fixed-wing and a powered-lift RPA + & operator . fleet + .~ [ operatedType + djiMavic3Multispectral + [ aircraft "1581F6MPD24A0090" [equipment "DJI RC Pro Enterprise remote controller" "5ZDCL1N0C40220"] + , aircraft "1581F6MPD24A0133" [equipment "DJI RC Pro Enterprise remote controller" "5ZDCL1N0C40247"] + ] + , operatedType + agEagleEBeeX + [aircraft "EBX-2-0877" [equipment "Aeria X camera" "AX-11592", equipment "eBee ground modem" "GM2-28810"]] + , operatedType + wingtraOneGenII + [ aircraft + "WT2-004518" + [equipment "Sony RX1R II camera" "3910447", equipment "WingtraPilot tablet and telemetry radio" "WTR-22071"] + ] + ] + -- a disclosed history, and a declaration by a director + & applicationForm . primaryContact ?~ ApplicantIsPrimaryContact + & applicationForm . personnelHistory . actionTaken ?~ NoHistory + & applicationForm . personnelHistory . transportLicenceRefused + ?~ HistoryDisclosed + (Just "Graham Pickering (CEO): driver licence suspended for 3 months in 2021 for demerit points; reinstated in 2021, no further offences.") + & applicationForm . personnelHistory . criminalConviction ?~ NoHistory + & applicationForm . personnelHistory . suspensionPending ?~ NoHistory + & applicationForm . regulatoryHistory ?~ NoRegulatoryAction + & applicationForm . proceduresLibrary ?~ False + & applicationForm . declaration + ?~ DeclaredByOther + ( mkUnfilledDeclarant + & fullName ?~ "Kate Pickering" + & role ?~ "Director" + ) + -- the operations manual + & operationsManual . firstIssue . version . majorVersion ?~ 1 + & operationsManual . firstIssue . version . minorVersion ?~ 0 + & operationsManual . firstIssue . issueDate ?~ m + & operationsManual . firstIssue . effective ?~ "On issue of the ReOC" + & operationsManual . firstIssue . parts ?~ "All" + & operationsManual . firstIssue . details ?~ "Initial issue for the ReOC application." + & operationsManual . services + .~ [ "multispectral crop health surveys" + , "pasture biomass mapping" + , "elevation surveys for drainage and contour banks" + , "inspection of stock water, fences and storm damage" + ] + & operationsManual . policies .~ examplePolicies + & operationsManual . policies . dutyHours ?~ 11 + & operationsManual . policies . inspectionMonths ?~ 6 + & operationsManual . policies . inspectionHours ?~ 50 + & operationsManual . policies . batteryReserve ?~ 25 + & operationsManual . policies . independentReviewYears ?~ 3 + & operationsManual . riskRegister + .~ [peopleRisk m] + <> airspaceRisks m + <> [ commandLinkRisk m + , batteryRisk m + , weatherRisk m + , riskEntry + m + "Agricultural aircraft spraying or spreading nearby" + "Mid-air collision with an agricultural aircraft working below 500 ft" + "VLOS lookout; give way to crewed aircraft (2.4.2)" + (Remote, Catastrophic) + "Landholder asked about planned aerial application before each job; neighbouring operators contacted in spraying season; CTAF monitored; RPA landed when an aircraft is heard" + (ExtremelyImprobable, Catastrophic) + ChiefRemotePilot + , riskEntry + m + "Long mapping missions in automated flight" + "RPA leaves VLOS or the operating area" + "Mission planned within VLOS; boundary checked in planning (App C)" + (Remote, Moderate) + "Large paddocks split into missions that stay within VLOS of a control point; RP moves with the RPA where needed" + (Improbable, Moderate) + ChiefRemotePilot + , riskEntry + m + "Livestock, farm machinery and farm workers" + "Stock startled into fences; RPA strikes a worker or machinery" + "30 m from people; onsite validation (2.3, 2.4.6)" + (Remote, Minor) + "Landholder told of flight times; paddocks with stock surveyed at height; take-off away from machinery" + (Improbable, Minor) + ChiefRemotePilot + , riskEntry + m + "Working alone in remote areas" + "Delayed help after injury, vehicle breakdown or fire" + "Fitness for duty requirements (1.7)" + (Remote, Hazardous) + "Daily check-in with the office; satellite messenger carried; fire extinguisher in the vehicle; no flights on total fire ban days" + (Improbable, Moderate) + ChiefExecutiveOfficer + , fitnessRisk ChiefExecutiveOfficer m + , recencyRisk m + , firmwareRisk m + ] + & operationsManual . crew ?~ SoloOperationsOnly + & operationsManual . pilots ?~ OtherRemotePilots + where + m = Month.YearMonth 2026 6 + +-- | The application of Saltbush Ag Surveys Pty Ltd: valid, or every reason it is not. +saltbush :: Either (NonEmpty ReOCError) ReOC +saltbush = + fillReOC saltbushInput diff --git a/examples/src/ReOC/Example/WattleCreek.hs b/examples/src/ReOC/Example/WattleCreek.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Example/WattleCreek.hs @@ -0,0 +1,201 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | A RePL training organisation near Geelong, which also conducts survey +operations. Its CEO is also its maintenance controller; its chief remote +pilot and chief RePL instructor are two other people. It applies for three +courses: an initial multirotor course, an upgrade to multirotor RPA over +7 kg, and an upgrade to aeroplanes, for which its chief RePL instructor does +not yet hold a RePL. + +The application starts as 'mkUnfilledReOC', and each field is set with its +optic; 'fillReOC' then checks it. The company, its people, numbers and +addresses are made up. +-} +module ReOC.Example.WattleCreek ( + wattleCreekInput, + wattleCreek, +) where + +import Control.Lens ((&), (.~), (?~)) +import Data.List.NonEmpty (NonEmpty) +import qualified Data.Time.Calendar.Month as Month +import ReOC.Example.Aircraft (agEagleEBeeX, aircraft, djiMatrice30T, djiMatrice350RTK, djiMavic3Classic, equipment, operatedType) +import ReOC.Example.Policies (examplePolicies) +import ReOC.Example.Risk +import ReOC.Fill (fillReOC) +import ReOC.Model + +-- | The application of Wattle Creek Drone Academy Pty Ltd, as it is filled in. +wattleCreekInput :: UnfilledReOC +wattleCreekInput = + mkUnfilledReOC + -- the company + & operator . company . companyName ?~ "Wattle Creek Drone Academy" + & operator . company . abn ?~ "53 555 590 371" + & operator . company . arn ?~ "9990301" + & operator . company . registeredOffice . streetAddress .~ ["18 Saltmarsh Drive"] + & operator . company . registeredOffice . suburb ?~ "Moolap" + & operator . company . registeredOffice . stateOrTerritory ?~ Victoria + & operator . company . registeredOffice . postcode ?~ "3224" + & operator . company . operationalHeadquarters ?~ AtRegisteredOffice + & operator . company . phoneNumber ?~ "03 5550 7720" + & operator . company . emailAddress ?~ "enquiries@wattlecreekdrones.example" + & operator . company . businessName ?~ "Wattle Creek Drones" + -- the CEO, also the maintenance controller + & operator . keyPersonnel . chiefExecutive . nominee . person . fullName ?~ "Gemma Castellano" + & operator . keyPersonnel . chiefExecutive . nominee . person . arn ?~ "9990302" + & operator . keyPersonnel . chiefExecutive . nominee . person . phoneNumber ?~ "0491 572 549" + & operator . keyPersonnel . chiefExecutive . nominee . person . emailAddress ?~ "gemma@wattlecreekdrones.example" + & operator . keyPersonnel . chiefExecutive . nominee . otherQualifications + .~ ["a RePL, multirotor, up to 25 kg", "a Diploma of Leadership and Management"] + & operator . keyPersonnel . chiefExecutive . nominee . aviationExperience + ?~ "seven years of RPA operations in survey and agriculture, and three years maintaining the RPA of a survey company" + & operator . keyPersonnel . chiefExecutive . directorStatus ?~ Director + & operator . keyPersonnel . chiefExecutive . managementExperience + ?~ "Director of Wattle Creek Drone Academy Pty Ltd. Seven years in RPA survey operations, three as operations manager of a survey company with 12 staff. Also nominated as Maintenance Controller." + & operator . keyPersonnel . mcNominee ?~ MCIsCEO + -- the chief remote pilot + & operator . keyPersonnel . chiefPilot . crpNominee + ?~ CRPNominated + ( mkUnfilledNominee + & person . fullName ?~ "Hamish McAllister" + & person . arn ?~ "9990303" + & person . phoneNumber ?~ "0491 572 665" + & person . emailAddress ?~ "hamish@wattlecreekdrones.example" + & otherQualifications .~ ["a CASA aeronautical radio operator certificate"] + & aviationExperience ?~ "over 900 hours of RPA operations in survey and mapping, multirotor and aeroplane" + ) + & operator . keyPersonnel . chiefPilot . rePLOrigin ?~ RePLTraining (Just "Bellarine Aviation Academy") + & operator . keyPersonnel . chiefPilot . rpaHistory + ?~ "Holds RePL, multirotor up to 25 kg and aeroplane up to 7 kg. Over 900 hours on DJI Matrice 350 RTK, Matrice 30T, Phantom 4 RTK and AgEagle eBee X, in survey, mapping and inspection in Victoria." + & operator . keyPersonnel . chiefPilot . otherReOCRoles ?~ NoOtherReOCRoles + & operator . keyPersonnel . chiefPilot . radio ?~ RadioOperatorCertificate + -- the RPA for survey operations; the training RPA are given with the courses + & operator . fleet + .~ [operatedType djiMatrice30T [aircraft "1ZNBJ7B00E0148" [equipment "DJI RC Plus remote controller" "6TBCK7F0G20077"]]] + -- the rest of the form, with the question bank as another document + & applicationForm . primaryContact ?~ ApplicantIsPrimaryContact + & applicationForm . personnelHistory . actionTaken ?~ NoHistory + & applicationForm . personnelHistory . transportLicenceRefused ?~ NoHistory + & applicationForm . personnelHistory . criminalConviction ?~ NoHistory + & applicationForm . personnelHistory . suspensionPending ?~ NoHistory + & applicationForm . regulatoryHistory ?~ NoRegulatoryAction + & applicationForm . proceduresLibrary ?~ True + & applicationForm . otherDocuments .~ ["RePL theory exam question bank and answer key"] + & applicationForm . declaration ?~ DeclaredByCEO + -- the operations manual + & operationsManual . firstIssue . version . majorVersion ?~ 1 + & operationsManual . firstIssue . version . minorVersion ?~ 0 + & operationsManual . firstIssue . issueDate ?~ m + & operationsManual . firstIssue . effective ?~ "On issue of the ReOC" + & operationsManual . firstIssue . parts ?~ "All" + & operationsManual . firstIssue . details ?~ "Initial issue for the ReOC application, with RePL training." + & operationsManual . services + .~ [ "RePL training" + , "topographic and volumetric survey" + , "visual and thermal inspection of buildings and infrastructure" + ] + & operationsManual . policies .~ examplePolicies + & operationsManual . riskRegister + .~ [peopleRisk m] + <> airspaceRisks m + <> [ commandLinkRisk m + , batteryRisk m + , weatherRisk m + , riskEntry + m + "Student error in flight training" + "Loss of control; collision with the instructor, other students or property" + "Instructor beside the student at all times; RePL training manual procedures" + (Occasional, Moderate) + "Instructor takes control before the RPA leaves the training area; students not flying stand behind the control point; training area clear of the public" + (Remote, Minor) + ChiefRemotePilot + , riskEntry + m + "Several RPA in the training area at once" + "Collision between training RPA" + "Training area divided into sectors; one RPA in each sector" + (Remote, Minor) + "Instructor briefs each sector's boundary and height band; at most two students flying for each instructor" + (Improbable, Minor) + ChiefRemotePilot + , riskEntry + m + "Hand launch and belly landing of the eBee X" + "Injury to the launcher from the propeller; damage on landing" + "Manufacturer launch procedure; landing area selection (App C)" + (Remote, Minor) + "Students launch only after a briefing and a dry run; landing area walked before each session" + (Improbable, Minor) + ChiefRemotePilot + , fitnessRisk ChiefExecutiveOfficer m + , recencyRisk m + , firmwareRisk m + ] + & operationsManual . crew ?~ SoloAndMultiCrewOperations + & operationsManual . pilots ?~ OtherRemotePilots + -- RePL training + & maybeTrainingMaterial ?~ training + where + m = Month.YearMonth 2026 8 + +-- RePL training: a chief RePL instructor who is not otherwise key personnel, and three courses. +training :: UnfilledTrainingMaterial +training = + mkUnfilledTrainingMaterial + & criNominee + ?~ CRINominated + ( mkUnfilledNominee + & person . fullName ?~ "Aroha Tipene" + & person . arn ?~ "9990304" + & person . phoneNumber ?~ "0491 572 983" + & person . emailAddress ?~ "aroha@wattlecreekdrones.example" + & otherQualifications .~ ["a Certificate IV in Training and Assessment", "a RePL, multirotor, up to 25 kg"] + & aviationExperience ?~ "four years as a RePL instructor and over 600 hours of RPA operations in survey and inspection" + ) + & rePLHolding + ?~ RePLHoldingIntent + (Just "I hold a RePL for multirotor up to 25 kg. I will hold a RePL for aeroplanes up to 7 kg before the first aeroplane upgrade course.") + & teachingQualification ?~ TeachingQualificationHeld (Just "Certificate IV in Training and Assessment (TAE40122), 2023.") + & operationalExperience + ?~ OperationalExperienceIntent + (Just "I have 20 hours of operational experience on multirotor. I will complete 20 hours of survey operations on the eBee X before the first aeroplane course.") + & criOtherReOCRoles ?~ NoOtherReOCRoles + & trainingCourses + .~ [ mkUnfilledTrainingCourse + & courseKind ?~ InitialCourse + & trainingRPA + .~ operatedType + djiMavic3Classic + [ aircraft "1581F4QWD23D0211" [equipment "DJI RC-N1 remote controller" "3NZCK5H0A10322"] + , aircraft "1581F4QWD23D0230" [equipment "DJI RC-N1 remote controller" "3NZCK5H0A10359"] + , aircraft "1581F4QWD23D0264" [equipment "DJI RC-N1 remote controller" "3NZCK5H0A10380"] + ] + & complexities .~ [AutomatedAndManual] + , mkUnfilledTrainingCourse + & courseKind ?~ UpgradeSameCategory + & trainingRPA .~ operatedType djiMatrice350RTK [aircraft "1ZNDH3P00D1302" [equipment "DJI RC Plus remote controller" "6TBCK7F0G20101"]] + & complexities .~ [AutomatedAndManual] + , mkUnfilledTrainingCourse + & courseKind ?~ UpgradeDifferentCategory + & trainingRPA .~ operatedType agEagleEBeeX [aircraft "EBX-2-1045" [equipment "eBee ground modem" "GM2-30871"]] + & complexities .~ [AutomatedOnly] + ] + & trainingArrangements . theoryVenues .~ ["the training room at 18 Saltmarsh Drive, Moolap VIC 3224"] + & trainingArrangements . practicalAreas + .~ ["a private training field on Wattle Creek Road, Leopold VIC 3224, used with the written permission of the landowner, clear of no-fly zones and populous areas"] + & trainingArrangements . maxStudentsPerCourse ?~ 6 + & trainingArrangements . maxStudentsPerInstructor ?~ 2 + & trainingArrangements . takeover ?~ SharedController + & trainingArrangements . theory ?~ BlendedTheory + & trainingArrangements . exam ?~ ComputerExamination + & trainingArrangements . examPassMark ?~ 80 + & trainingArrangements . examiner ?~ IndependentExaminerWhereAvailable + & trainingArrangements . simulator ?~ "DJI Flight Simulator" + +-- | The application of Wattle Creek Drone Academy Pty Ltd: valid, or every reason it is not. +wattleCreek :: Either (NonEmpty ReOCError) ReOC +wattleCreek = + fillReOC wattleCreekInput diff --git a/examples/src/ReOC/Examples.hs b/examples/src/ReOC/Examples.hs new file mode 100644 --- /dev/null +++ b/examples/src/ReOC/Examples.hs @@ -0,0 +1,32 @@ +{-# OPTIONS_GHC -Wall #-} + +{- | Example ReOC applications of made-up operators, each filled in field by +field from 'ReOC.Model.mkUnfilledReOC' and checked by 'ReOC.Fill.fillReOC', +with the name of the directory of @examples@ that holds its documents; and a +draft that is not yet complete. +-} +module ReOC.Examples ( + examples, + module ReOC.Example.BanksiaPoint, + module ReOC.Example.Draft, + module ReOC.Example.Ironbark, + module ReOC.Example.Saltbush, + module ReOC.Example.WattleCreek, +) where + +import Data.List.NonEmpty (NonEmpty) +import ReOC.Example.BanksiaPoint +import ReOC.Example.Draft +import ReOC.Example.Ironbark +import ReOC.Example.Saltbush +import ReOC.Example.WattleCreek +import ReOC.Model (ReOC, ReOCError) + +-- | Each complete example, with the name of its directory: valid, or every reason it is not. +examples :: [(FilePath, Either (NonEmpty ReOCError) ReOC)] +examples = + [ ("banksia-point-aerial-media", banksiaPoint) + , ("ironbark-asset-inspection", ironbark) + , ("saltbush-ag-surveys", saltbush) + , ("wattle-creek-drone-academy", wattleCreek) + ] diff --git a/examples/write-examples.hs b/examples/write-examples.hs new file mode 100644 --- /dev/null +++ b/examples/write-examples.hs @@ -0,0 +1,43 @@ +{-# OPTIONS_GHC -Wall #-} + +{- | Writes the documents of each example into its own directory of +@examples@, with the placeholders of the document build: + +> cabal run reoc-examples -- --output examples +-} +module Main (main) where + +import qualified Data.Text.IO as Text +import ReOC (renderReOCErrors, writeDocuments) +import ReOC.Examples (examples) +import System.Environment (getArgs) +import System.Exit (die) +import System.FilePath (()) +import System.IO (stderr) + +usage :: String +usage = + unlines + [ "usage: reoc-examples [--output DIRECTORY]" + , "" + , "Writes the documents of each example into its own directory of DIRECTORY (default examples)." + ] + +main :: IO () +main = do + args <- getArgs + output <- case args of + [] -> pure "examples" + ["--output", d] -> pure d + _ -> die usage + mapM_ + ( \(name, filled) -> + case filled of + Left errors -> do + Text.hPutStr stderr (renderReOCErrors errors) + die ("the example " <> name <> " is not valid") + Right r -> do + writeDocuments (output name) r + putStrLn ("wrote " <> output name) + ) + examples diff --git a/src/ReOC.hs b/src/ReOC.hs new file mode 100644 --- /dev/null +++ b/src/ReOC.hs @@ -0,0 +1,48 @@ +{-# OPTIONS_GHC -Wall #-} + +{- | A ReOC application, RPAS operations manual and RePL training manual as +Haskell data types. + +A ReOC is filled in field by field: start from 'mkUnfilledReOC', set each +field with its optic, and 'fillReOC' gives either the valid 'ReOC' or every +reason it is not valid ('renderReOCErrors'), each with the path and help text +of its field. A valid 'ReOC' can also be built with its constructors, and +'writeDocuments' writes the filled CASA Form 101-02 (XFDF), the operations +manual and, with RePL training, the RePL training manual (Flat ODF text) that +it gives. +-} +module ReOC ( + module ReOC.Model, + module ReOC.Aircraft, + module ReOC.Amendment, + module ReOC.Fill, + module ReOC.Help, + module ReOC.Input, + module ReOC.Personnel, + module ReOC.Risk, + module ReOC.Render.ApplicationForm, + module ReOC.Render.BlankForm, + module ReOC.Render.BuildInfo, + module ReOC.Render.Error, + module ReOC.Render.OperationsManual, + module ReOC.Render.Text, + module ReOC.Render.TrainingManual, + module ReOC.Render.Write, +) where + +import ReOC.Aircraft +import ReOC.Amendment +import ReOC.Fill +import ReOC.Help +import ReOC.Input +import ReOC.Model +import ReOC.Personnel +import ReOC.Render.ApplicationForm +import ReOC.Render.BlankForm +import ReOC.Render.BuildInfo +import ReOC.Render.Error +import ReOC.Render.OperationsManual +import ReOC.Render.Text +import ReOC.Render.TrainingManual +import ReOC.Render.Write +import ReOC.Risk diff --git a/src/ReOC/Aircraft.hs b/src/ReOC/Aircraft.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Aircraft.hs @@ -0,0 +1,51 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The RPA of a ReOC: the types the operator operates, and the training RPA +of its RePL training courses, which both documents list together. +-} +module ReOC.Aircraft ( + rpaName, + rpaMakeAndModel, + operatedTypes, + rpaTypes, + heaviestGrams, +) where + +import Control.Lens (cloneLens, view) +import Data.Foldable (toList) +import Data.List.NonEmpty (NonEmpty) +import qualified Data.List.NonEmpty as NonEmpty +import Data.Text (Text) +import Numeric.Natural (Natural) +import ReOC.Model + +-- | The short name of a type of RPA, such as @DJI Mavic 3 Pro@. +rpaName :: RPAType -> Text +rpaName = + formTextText . view (cloneLens shortName) + +-- | The manufacturer and model of a type of RPA, such as @DJI Mavic 3 Pro@. +rpaMakeAndModel :: RPAType -> Text +rpaMakeAndModel t = + text1Text (view (cloneLens rpaMake) t) <> " " <> text1Text (view (cloneLens rpaModel) t) + +{- | Every type of RPA of a ReOC with its RPA: the operator's fleet, then the +training RPA of each RePL training course, each once. +-} +operatedTypes :: ReOC -> NonEmpty OperatedType +operatedTypes r = + let fleet' = someNonEmpty (view (cloneLens (operator . fleet)) r) + training = + maybe [] (map (view (cloneLens trainingRPA)) . toList . view (cloneLens trainingCourses)) (view (cloneLens maybeTrainingMaterial) r) + in NonEmpty.nub (NonEmpty.appendList fleet' training) + +-- | Every type of RPA of a ReOC, each once. +rpaTypes :: ReOC -> NonEmpty RPAType +rpaTypes = + NonEmpty.nub . fmap (view (cloneLens rpaType)) . operatedTypes + +-- | The maximum gross weight of the heaviest type of RPA of a ReOC, in grams. +heaviestGrams :: ReOC -> Natural +heaviestGrams = + maximum . fmap (grossWeightGrams . view (cloneLens maximumGrossWeight)) . rpaTypes diff --git a/src/ReOC/Amendment.hs b/src/ReOC/Amendment.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Amendment.hs @@ -0,0 +1,67 @@ +{-# OPTIONS_GHC -Wall #-} + +{- | The amendment record of an operations manual. The first entry gives its +version and date; each revision follows the entry before it, so the versions +increase and the dates do not go backwards. +-} +module ReOC.Amendment ( + AmendmentEntry, + amendmentRecord, + manualVersion, + manualDate, + manualReviewDate, + addMonths, +) where + +import Control.Lens (cloneLens, view) +import Data.List.NonEmpty (NonEmpty) +import qualified Data.List.NonEmpty as NonEmpty +import Data.Time.Calendar.Month (Month) +import qualified Data.Time.Calendar.Month as Month +import Numeric.Natural (Natural) +import ReOC.Model + +-- | An entry of the amendment record: version, date, effective date, parts and details. +type AmendmentEntry = (Version, Month, Text1, Text1, Text1) + +{- | A month a number of months later. + +>>> addMonths 12 (Month.YearMonth 2026 10) +2027-10 +-} +addMonths :: Natural -> Month -> Month +addMonths n (Month.YearMonth y m) = + let total = y * 12 + fromIntegral (m - 1) + fromIntegral n + in Month.YearMonth (total `div` 12) (fromIntegral (total `mod` 12) + 1) + +-- | The entries of the amendment record, in order. +amendmentRecord :: OperationsManual -> NonEmpty AmendmentEntry +amendmentRecord m = + let f = view (cloneLens firstIssue) m + first = (view (cloneLens version) f, view (cloneLens issueDate) f, view (cloneLens effective) f, view (cloneLens parts) f, view (cloneLens details) f) + next :: AmendmentEntry -> Revision -> AmendmentEntry + next (v, d, _, _, _) r = + ( case view (cloneLens versionIncrement) r of + MajorRevision -> Version' (view (cloneLens majorVersion) v + 1) 0 + MinorRevision -> Version' (view (cloneLens majorVersion) v) (view (cloneLens minorVersion) v + 1) + , addMonths (view (cloneLens monthsAfter) r) d + , view (cloneLens effective) r + , view (cloneLens parts) r + , view (cloneLens details) r + ) + in NonEmpty.scanl next first (view (cloneLens revisions) m) + +-- | The version of the manual: the version of its last amendment. +manualVersion :: OperationsManual -> Version +manualVersion m = + let (v, _, _, _, _) = NonEmpty.last (amendmentRecord m) in v + +-- | The date of the manual: the date of its last amendment. +manualDate :: OperationsManual -> Month +manualDate m = + let (_, d, _, _, _) = NonEmpty.last (amendmentRecord m) in d + +-- | The date by which the manual is next reviewed: 12 months after its date. +manualReviewDate :: OperationsManual -> Month +manualReviewDate = + addMonths 12 . manualDate diff --git a/src/ReOC/Data/Address.hs b/src/ReOC/Data/Address.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Address.hs @@ -0,0 +1,104 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritAddress') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Address'@: an Australian street address. +module ReOC.Data.Address ( + Address' (..), + Address'Like (..), + lawNamesAddress', + Address, + UnfilledAddress, + mkUnfilledAddress, + InheritAddress', + inheritAddress', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.List.NonEmpty (NonEmpty) +import Data.Text (Text) +import ReOC.Data.AustralianState (AustralianState) +import ReOC.Name.Postcode (PostcodeLike (..)) +import ReOC.Name.StateOrTerritory (StateOrTerritoryLike (..)) +import ReOC.Name.StreetAddress (StreetAddressLike (..)) +import ReOC.Name.Suburb (SuburbLike (..)) +import ReOC.Primitive.Postcode (Postcode) +import ReOC.Primitive.Text1 (Text1) + +-- | An Australian street address. Its valid form is @Address@, and its unfilled form @UnfilledAddress@. +data Address' a1 a2 a3 a4 = Address' a1 a2 a3 a4 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Address'@. +class Address'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' | x -> a1 a2 a3 a4 where + address' :: + Optic p f x x' (Address' a1 a2 a3 a4) (Address' a1' a2' a3' a4') + +-- | Identity +instance (x' ~ Address' a1' a2' a3' a4') => Address'Like p f (Address' a1 a2 a3 a4) x' a1 a1' a2 a2' a3 a3' a4 a4' where + address' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Address' a1' a2 a3 a4) => StreetAddressLike p f (Address' a1 a2 a3 a4) x' a1 a1' where + streetAddress f (Address' x1 x2 x3 x4) = fmap (\x1' -> Address' x1' x2 x3 x4) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Address' a1 a2' a3 a4) => SuburbLike p f (Address' a1 a2 a3 a4) x' a2 a2' where + suburb f (Address' x1 x2 x3 x4) = fmap (\x2' -> Address' x1 x2' x3 x4) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Address' a1 a2 a3' a4) => StateOrTerritoryLike p f (Address' a1 a2 a3 a4) x' a3 a3' where + stateOrTerritory f (Address' x1 x2 x3 x4) = fmap (\x3' -> Address' x1 x2 x3' x4) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Address' a1 a2 a3 a4') => PostcodeLike p f (Address' a1 a2 a3 a4) x' a4 a4' where + postcode f (Address' x1 x2 x3 x4) = fmap (Address' x1 x2 x3) (f x4) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesAddress' == id +-} +lawNamesAddress' :: Address' a1 a2 a3 a4 -> Address' a1 a2 a3 a4 +lawNamesAddress' s = + Address' + (view (cloneLens streetAddress) s) + (view (cloneLens suburb) s) + (view (cloneLens stateOrTerritory) s) + (view (cloneLens postcode) s) + +-- | A valid @Address'@. +type Address = Address' (NonEmpty Text1) Text1 AustralianState Postcode + +-- | An unfilled @Address'@: each field holds what has been entered, if anything, to be checked by @fillAddress@. +type UnfilledAddress = Address' [Text] (Maybe Text) (Maybe AustralianState) (Maybe Text) + +-- | An unfilled @Address'@ with nothing entered. +mkUnfilledAddress :: UnfilledAddress +mkUnfilledAddress = + Address' + [] + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @Address'@ in one field, or in one or more constructors, inherits. +type InheritAddress' s a1 a2 a3 a4 = + ( Address'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 + , StreetAddressLike (->) (Const ()) s s a1 a1 + , SuburbLike (->) (Const ()) s s a2 a2 + , StateOrTerritoryLike (->) (Const ()) s s a3 a3 + , PostcodeLike (->) (Const ()) s s a4 a4 + ) + +-- | Checks that a data type inherits every class of @InheritAddress'@. +inheritAddress' :: (InheritAddress' s a1 a2 a3 a4) => proxy s -> () +inheritAddress' _ = () diff --git a/src/ReOC/Data/Aircraft.hs b/src/ReOC/Data/Aircraft.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Aircraft.hs @@ -0,0 +1,91 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritAircraft') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Aircraft'@: an RPA: its serial number and its associated equipment. +module ReOC.Data.Aircraft ( + Aircraft' (..), + Aircraft'Like (..), + lawNamesAircraft', + Aircraft, + UnfilledAircraft, + mkAircraft, + mkUnfilledAircraft, + InheritAircraft', + inheritAircraft', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Data.Equipment (Equipment, UnfilledEquipment) +import ReOC.Name.AssociatedEquipment (AssociatedEquipmentLike (..)) +import ReOC.Name.SerialNumber (SerialNumberLike (..)) +import ReOC.Primitive.Text1 (Text1) + +-- | An RPA: its serial number and its associated equipment. Its valid form is @Aircraft@, and its unfilled form @UnfilledAircraft@. +data Aircraft' a1 a2 = Aircraft' a1 a2 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Aircraft'@. +class Aircraft'Like p f x x' a1 a1' a2 a2' | x -> a1 a2 where + aircraft' :: + Optic p f x x' (Aircraft' a1 a2) (Aircraft' a1' a2') + +-- | Identity +instance (x' ~ Aircraft' a1' a2') => Aircraft'Like p f (Aircraft' a1 a2) x' a1 a1' a2 a2' where + aircraft' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Aircraft' a1' a2) => SerialNumberLike p f (Aircraft' a1 a2) x' a1 a1' where + serialNumber f (Aircraft' x1 x2) = fmap (\x1' -> Aircraft' x1' x2) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Aircraft' a1 a2') => AssociatedEquipmentLike p f (Aircraft' a1 a2) x' a2 a2' where + associatedEquipment f (Aircraft' x1 x2) = fmap (Aircraft' x1) (f x2) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesAircraft' == id +-} +lawNamesAircraft' :: Aircraft' a1 a2 -> Aircraft' a1 a2 +lawNamesAircraft' s = + Aircraft' + (view (cloneLens serialNumber) s) + (view (cloneLens associatedEquipment) s) + +-- | A valid @Aircraft'@. +type Aircraft = Aircraft' Text1 [Equipment] + +-- | An unfilled @Aircraft'@: each field holds what has been entered, if anything, to be checked by @fillAircraft@. +type UnfilledAircraft = Aircraft' (Maybe Text) [UnfilledEquipment] + +-- | Builds a valid @Aircraft'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkAircraft :: Text1 -> Aircraft +mkAircraft x1 = Aircraft' x1 [] + +-- | An unfilled @Aircraft'@ with nothing entered. +mkUnfilledAircraft :: UnfilledAircraft +mkUnfilledAircraft = + Aircraft' + Nothing + [] + +-- | The classes that a data type holding @Aircraft'@ in one field, or in one or more constructors, inherits. +type InheritAircraft' s a1 a2 = + ( Aircraft'Like (->) (Const ()) s s a1 a1 a2 a2 + , SerialNumberLike (->) (Const ()) s s a1 a1 + , AssociatedEquipmentLike (->) (Const ()) s s a2 a2 + ) + +-- | Checks that a data type inherits every class of @InheritAircraft'@. +inheritAircraft' :: (InheritAircraft' s a1 a2) => proxy s -> () +inheritAircraft' _ = () diff --git a/src/ReOC/Data/ApplicationForm.hs b/src/ReOC/Data/ApplicationForm.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/ApplicationForm.hs @@ -0,0 +1,136 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritApplicationForm') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @ApplicationForm'@: the answers to CASA Form 101-02 that are not part of the operator, the operations manual or the training material, and the written signature of the declarant, if the form is to be signed. Each other document submitted takes a line of the box of question 30. +module ReOC.Data.ApplicationForm ( + ApplicationForm' (..), + ApplicationForm'Like (..), + lawNamesApplicationForm', + ApplicationForm, + UnfilledApplicationForm, + mkApplicationForm, + mkUnfilledApplicationForm, + InheritApplicationForm', + inheritApplicationForm', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Data.Declaration (Declaration, UnfilledDeclaration) +import ReOC.Data.PersonnelHistory (PersonnelHistory, UnfilledPersonnelHistory, mkUnfilledPersonnelHistory) +import ReOC.Data.PrimaryContact (PrimaryContact, UnfilledPrimaryContact) +import ReOC.Data.RegulatoryHistory (RegulatoryHistory, UnfilledRegulatoryHistory) +import ReOC.Data.WrittenSignature (UnfilledWrittenSignature, WrittenSignature) +import ReOC.Name.Declaration (DeclarationLike (..)) +import ReOC.Name.OtherDocuments (OtherDocumentsLike (..)) +import ReOC.Name.PersonnelHistory (PersonnelHistoryLike (..)) +import ReOC.Name.PrimaryContact (PrimaryContactLike (..)) +import ReOC.Name.ProceduresLibrary (ProceduresLibraryLike (..)) +import ReOC.Name.RegulatoryHistory (RegulatoryHistoryLike (..)) +import ReOC.Name.Signature (SignatureLike (..)) +import ReOC.Primitive.AtMost (AtMost, atMostNone) +import ReOC.Primitive.FormText (FormLine) + +-- | The answers to CASA Form 101-02 that are not part of the operator, the operations manual or the training material, and the written signature of the declarant, if the form is to be signed. Each other document submitted takes a line of the box of question 30. Its valid form is @ApplicationForm@, and its unfilled form @UnfilledApplicationForm@. +data ApplicationForm' a1 a2 a3 a4 a5 a6 a7 = ApplicationForm' a1 a2 a3 a4 a5 a6 a7 + deriving (Eq, Ord, Show) + +-- | The name of the data type @ApplicationForm'@. +class ApplicationForm'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' | x -> a1 a2 a3 a4 a5 a6 a7 where + applicationForm' :: + Optic p f x x' (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) (ApplicationForm' a1' a2' a3' a4' a5' a6' a7') + +-- | Identity +instance (x' ~ ApplicationForm' a1' a2' a3' a4' a5' a6' a7') => ApplicationForm'Like p f (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' where + applicationForm' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ApplicationForm' a1' a2 a3 a4 a5 a6 a7) => PrimaryContactLike p f (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) x' a1 a1' where + primaryContact f (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = fmap (\x1' -> ApplicationForm' x1' x2 x3 x4 x5 x6 x7) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ApplicationForm' a1 a2' a3 a4 a5 a6 a7) => PersonnelHistoryLike p f (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) x' a2 a2' where + personnelHistory f (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = fmap (\x2' -> ApplicationForm' x1 x2' x3 x4 x5 x6 x7) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ApplicationForm' a1 a2 a3' a4 a5 a6 a7) => RegulatoryHistoryLike p f (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) x' a3 a3' where + regulatoryHistory f (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = fmap (\x3' -> ApplicationForm' x1 x2 x3' x4 x5 x6 x7) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ApplicationForm' a1 a2 a3 a4' a5 a6 a7) => ProceduresLibraryLike p f (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) x' a4 a4' where + proceduresLibrary f (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = fmap (\x4' -> ApplicationForm' x1 x2 x3 x4' x5 x6 x7) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ApplicationForm' a1 a2 a3 a4 a5' a6 a7) => OtherDocumentsLike p f (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) x' a5 a5' where + otherDocuments f (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = fmap (\x5' -> ApplicationForm' x1 x2 x3 x4 x5' x6 x7) (f x5) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ApplicationForm' a1 a2 a3 a4 a5 a6' a7) => DeclarationLike p f (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) x' a6 a6' where + declaration f (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = fmap (\x6' -> ApplicationForm' x1 x2 x3 x4 x5 x6' x7) (f x6) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ApplicationForm' a1 a2 a3 a4 a5 a6 a7') => SignatureLike p f (ApplicationForm' a1 a2 a3 a4 a5 a6 a7) x' a7 a7' where + signature f (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = fmap (ApplicationForm' x1 x2 x3 x4 x5 x6) (f x7) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesApplicationForm' == id +-} +lawNamesApplicationForm' :: ApplicationForm' a1 a2 a3 a4 a5 a6 a7 -> ApplicationForm' a1 a2 a3 a4 a5 a6 a7 +lawNamesApplicationForm' s = + ApplicationForm' + (view (cloneLens primaryContact) s) + (view (cloneLens personnelHistory) s) + (view (cloneLens regulatoryHistory) s) + (view (cloneLens proceduresLibrary) s) + (view (cloneLens otherDocuments) s) + (view (cloneLens declaration) s) + (view (cloneLens signature) s) + +-- | A valid @ApplicationForm'@. +type ApplicationForm = ApplicationForm' PrimaryContact PersonnelHistory RegulatoryHistory Bool (AtMost 6 FormLine) Declaration (Maybe WrittenSignature) + +-- | An unfilled @ApplicationForm'@: each field holds what has been entered, if anything, to be checked by @fillApplicationForm@. +type UnfilledApplicationForm = ApplicationForm' (Maybe UnfilledPrimaryContact) UnfilledPersonnelHistory (Maybe UnfilledRegulatoryHistory) (Maybe Bool) [Text] (Maybe UnfilledDeclaration) (Maybe UnfilledWrittenSignature) + +-- | Builds a valid @ApplicationForm'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkApplicationForm :: PrimaryContact -> PersonnelHistory -> RegulatoryHistory -> Bool -> Declaration -> ApplicationForm +mkApplicationForm x1 x2 x3 x4 x5 = ApplicationForm' x1 x2 x3 x4 atMostNone x5 Nothing + +-- | An unfilled @ApplicationForm'@ with nothing entered. +mkUnfilledApplicationForm :: UnfilledApplicationForm +mkUnfilledApplicationForm = + ApplicationForm' + Nothing + mkUnfilledPersonnelHistory + Nothing + Nothing + [] + Nothing + Nothing + +-- | The classes that a data type holding @ApplicationForm'@ in one field, or in one or more constructors, inherits. +type InheritApplicationForm' s a1 a2 a3 a4 a5 a6 a7 = + ( ApplicationForm'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 a6 a6 a7 a7 + , PrimaryContactLike (->) (Const ()) s s a1 a1 + , PersonnelHistoryLike (->) (Const ()) s s a2 a2 + , RegulatoryHistoryLike (->) (Const ()) s s a3 a3 + , ProceduresLibraryLike (->) (Const ()) s s a4 a4 + , OtherDocumentsLike (->) (Const ()) s s a5 a5 + , DeclarationLike (->) (Const ()) s s a6 a6 + , SignatureLike (->) (Const ()) s s a7 a7 + ) + +-- | Checks that a data type inherits every class of @InheritApplicationForm'@. +inheritApplicationForm' :: (InheritApplicationForm' s a1 a2 a3 a4 a5 a6 a7) => proxy s -> () +inheritApplicationForm' _ = () diff --git a/src/ReOC/Data/AustralianState.hs b/src/ReOC/Data/AustralianState.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/AustralianState.hs @@ -0,0 +1,116 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritAustralianState) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @AustralianState@: a state or territory of Australia. +module ReOC.Data.AustralianState ( + AustralianState (..), + AustralianStateLike (..), + lawNamesAustralianState, + InheritAustralianState, + inheritAustralianState, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.AustralianCapitalTerritory (AustralianCapitalTerritoryLike (..)) +import ReOC.Name.NewSouthWales (NewSouthWalesLike (..)) +import ReOC.Name.NorthernTerritory (NorthernTerritoryLike (..)) +import ReOC.Name.Queensland (QueenslandLike (..)) +import ReOC.Name.SouthAustralia (SouthAustraliaLike (..)) +import ReOC.Name.Tasmania (TasmaniaLike (..)) +import ReOC.Name.Victoria (VictoriaLike (..)) +import ReOC.Name.WesternAustralia (WesternAustraliaLike (..)) + +-- | A state or territory of Australia. +data AustralianState + = NewSouthWales + | Victoria + | Queensland + | WesternAustralia + | SouthAustralia + | Tasmania + | AustralianCapitalTerritory + | NorthernTerritory + deriving (Eq, Ord, Show) + +-- | The name of the data type @AustralianState@. +class AustralianStateLike p f x x' where + australianState :: + Optic p f x x' AustralianState AustralianState + +-- | Identity +instance (x' ~ AustralianState) => AustralianStateLike p f AustralianState x' where + australianState = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ AustralianState) => NewSouthWalesLike p f AustralianState x' where + newSouthWales = prism' (\() -> NewSouthWales) (\case NewSouthWales -> Just (); Victoria -> Nothing; Queensland -> Nothing; WesternAustralia -> Nothing; SouthAustralia -> Nothing; Tasmania -> Nothing; AustralianCapitalTerritory -> Nothing; NorthernTerritory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ AustralianState) => VictoriaLike p f AustralianState x' where + victoria = prism' (\() -> Victoria) (\case NewSouthWales -> Nothing; Victoria -> Just (); Queensland -> Nothing; WesternAustralia -> Nothing; SouthAustralia -> Nothing; Tasmania -> Nothing; AustralianCapitalTerritory -> Nothing; NorthernTerritory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ AustralianState) => QueenslandLike p f AustralianState x' where + queensland = prism' (\() -> Queensland) (\case NewSouthWales -> Nothing; Victoria -> Nothing; Queensland -> Just (); WesternAustralia -> Nothing; SouthAustralia -> Nothing; Tasmania -> Nothing; AustralianCapitalTerritory -> Nothing; NorthernTerritory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ AustralianState) => WesternAustraliaLike p f AustralianState x' where + westernAustralia = prism' (\() -> WesternAustralia) (\case NewSouthWales -> Nothing; Victoria -> Nothing; Queensland -> Nothing; WesternAustralia -> Just (); SouthAustralia -> Nothing; Tasmania -> Nothing; AustralianCapitalTerritory -> Nothing; NorthernTerritory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ AustralianState) => SouthAustraliaLike p f AustralianState x' where + southAustralia = prism' (\() -> SouthAustralia) (\case NewSouthWales -> Nothing; Victoria -> Nothing; Queensland -> Nothing; WesternAustralia -> Nothing; SouthAustralia -> Just (); Tasmania -> Nothing; AustralianCapitalTerritory -> Nothing; NorthernTerritory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ AustralianState) => TasmaniaLike p f AustralianState x' where + tasmania = prism' (\() -> Tasmania) (\case NewSouthWales -> Nothing; Victoria -> Nothing; Queensland -> Nothing; WesternAustralia -> Nothing; SouthAustralia -> Nothing; Tasmania -> Just (); AustralianCapitalTerritory -> Nothing; NorthernTerritory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ AustralianState) => AustralianCapitalTerritoryLike p f AustralianState x' where + australianCapitalTerritory = prism' (\() -> AustralianCapitalTerritory) (\case NewSouthWales -> Nothing; Victoria -> Nothing; Queensland -> Nothing; WesternAustralia -> Nothing; SouthAustralia -> Nothing; Tasmania -> Nothing; AustralianCapitalTerritory -> Just (); NorthernTerritory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ AustralianState) => NorthernTerritoryLike p f AustralianState x' where + northernTerritory = prism' (\() -> NorthernTerritory) (\case NewSouthWales -> Nothing; Victoria -> Nothing; Queensland -> Nothing; WesternAustralia -> Nothing; SouthAustralia -> Nothing; Tasmania -> Nothing; AustralianCapitalTerritory -> Nothing; NorthernTerritory -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesAustralianState == id +-} +lawNamesAustralianState :: AustralianState -> AustralianState +lawNamesAustralianState = \case + NewSouthWales -> review newSouthWales () + Victoria -> review victoria () + Queensland -> review queensland () + WesternAustralia -> review westernAustralia () + SouthAustralia -> review southAustralia () + Tasmania -> review tasmania () + AustralianCapitalTerritory -> review australianCapitalTerritory () + NorthernTerritory -> review northernTerritory () + +-- | The classes that a data type holding @AustralianState@ in one field, or in one or more constructors, inherits. +type InheritAustralianState s = + ( AustralianStateLike (->) (Const ()) s s + , NewSouthWalesLike (->) (Const ()) s s + , VictoriaLike (->) (Const ()) s s + , QueenslandLike (->) (Const ()) s s + , WesternAustraliaLike (->) (Const ()) s s + , SouthAustraliaLike (->) (Const ()) s s + , TasmaniaLike (->) (Const ()) s s + , AustralianCapitalTerritoryLike (->) (Const ()) s s + , NorthernTerritoryLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritAustralianState@. +inheritAustralianState :: (InheritAustralianState s) => proxy s -> () +inheritAustralianState _ = () diff --git a/src/ReOC/Data/BackupInterval.hs b/src/ReOC/Data/BackupInterval.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/BackupInterval.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritBackupInterval) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @BackupInterval@: the longest interval between backups of the operator’s records. +module ReOC.Data.BackupInterval ( + BackupInterval (..), + BackupIntervalLike (..), + lawNamesBackupInterval, + InheritBackupInterval, + inheritBackupInterval, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.Daily (DailyLike (..)) +import ReOC.Name.Monthly (MonthlyLike (..)) +import ReOC.Name.Weekly (WeeklyLike (..)) + +-- | The longest interval between backups of the operator’s records. +data BackupInterval + = Daily + | Weekly + | Monthly + deriving (Eq, Ord, Show) + +-- | The name of the data type @BackupInterval@. +class BackupIntervalLike p f x x' where + backupInterval :: + Optic p f x x' BackupInterval BackupInterval + +-- | Identity +instance (x' ~ BackupInterval) => BackupIntervalLike p f BackupInterval x' where + backupInterval = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ BackupInterval) => DailyLike p f BackupInterval x' where + daily = prism' (\() -> Daily) (\case Daily -> Just (); Weekly -> Nothing; Monthly -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ BackupInterval) => WeeklyLike p f BackupInterval x' where + weekly = prism' (\() -> Weekly) (\case Daily -> Nothing; Weekly -> Just (); Monthly -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ BackupInterval) => MonthlyLike p f BackupInterval x' where + monthly = prism' (\() -> Monthly) (\case Daily -> Nothing; Weekly -> Nothing; Monthly -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesBackupInterval == id +-} +lawNamesBackupInterval :: BackupInterval -> BackupInterval +lawNamesBackupInterval = \case + Daily -> review daily () + Weekly -> review weekly () + Monthly -> review monthly () + +-- | The classes that a data type holding @BackupInterval@ in one field, or in one or more constructors, inherits. +type InheritBackupInterval s = + ( BackupIntervalLike (->) (Const ()) s s + , DailyLike (->) (Const ()) s s + , WeeklyLike (->) (Const ()) s s + , MonthlyLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritBackupInterval@. +inheritBackupInterval :: (InheritBackupInterval s) => proxy s -> () +inheritBackupInterval _ = () diff --git a/src/ReOC/Data/CRINominee.hs b/src/ReOC/Data/CRINominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/CRINominee.hs @@ -0,0 +1,93 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritCRINominee') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @CRINominee'@: who is nominated as chief RePL instructor (CASA Form 101-02, question 13): the CEO, the chief remote pilot, the maintenance controller, or another person. +module ReOC.Data.CRINominee ( + CRINominee' (..), + CRINominee'Like (..), + lawNamesCRINominee', + CRINominee, + UnfilledCRINominee, + InheritCRINominee', + inheritCRINominee', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import ReOC.Data.Nominee (Nominee, UnfilledNominee) +import ReOC.Name.CriIsCEO (CriIsCEOLike (..)) +import ReOC.Name.CriIsCRP (CriIsCRPLike (..)) +import ReOC.Name.CriIsMC (CriIsMCLike (..)) +import ReOC.Name.CriNominated (CriNominatedLike (..)) + +-- | Who is nominated as chief RePL instructor (CASA Form 101-02, question 13): the CEO, the chief remote pilot, the maintenance controller, or another person. Its valid form is @CRINominee@, and its unfilled form @UnfilledCRINominee@. +data CRINominee' a1 + = CRIIsCEO + | CRIIsCRP + | CRIIsMC + | CRINominated a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @CRINominee'@. +class CRINominee'Like p f x x' a1 a1' | x -> a1 where + criNominee' :: + Optic p f x x' (CRINominee' a1) (CRINominee' a1') + +-- | Identity +instance (x' ~ CRINominee' a1') => CRINominee'Like p f (CRINominee' a1) x' a1 a1' where + criNominee' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ CRINominee' a1) => CriIsCEOLike p f (CRINominee' a1) x' where + criIsCEO = prism' (\() -> CRIIsCEO) (\case CRIIsCEO -> Just (); CRIIsCRP -> Nothing; CRIIsMC -> Nothing; CRINominated _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ CRINominee' a1) => CriIsCRPLike p f (CRINominee' a1) x' where + criIsCRP = prism' (\() -> CRIIsCRP) (\case CRIIsCEO -> Nothing; CRIIsCRP -> Just (); CRIIsMC -> Nothing; CRINominated _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ CRINominee' a1) => CriIsMCLike p f (CRINominee' a1) x' where + criIsMC = prism' (\() -> CRIIsMC) (\case CRIIsCEO -> Nothing; CRIIsCRP -> Nothing; CRIIsMC -> Just (); CRINominated _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ CRINominee' a1') => CriNominatedLike p f (CRINominee' a1) x' a1 a1' where + criNominated = prism CRINominated (\case CRIIsCEO -> Left CRIIsCEO; CRIIsCRP -> Left CRIIsCRP; CRIIsMC -> Left CRIIsMC; CRINominated x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesCRINominee' == id +-} +lawNamesCRINominee' :: CRINominee' a1 -> CRINominee' a1 +lawNamesCRINominee' = \case + CRIIsCEO -> review criIsCEO () + CRIIsCRP -> review criIsCRP () + CRIIsMC -> review criIsMC () + CRINominated x -> review criNominated x + +-- | A valid @CRINominee'@. +type CRINominee = CRINominee' Nominee + +-- | An unfilled @CRINominee'@: each field holds what has been entered, if anything, to be checked by @fillCRINominee@. +type UnfilledCRINominee = CRINominee' UnfilledNominee + +-- | The classes that a data type holding @CRINominee'@ in one field, or in one or more constructors, inherits. +type InheritCRINominee' s a1 = + ( CRINominee'Like (->) (Const ()) s s a1 a1 + , CriIsCEOLike (->) (Const ()) s s + , CriIsCRPLike (->) (Const ()) s s + , CriIsMCLike (->) (Const ()) s s + , CriNominatedLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritCRINominee'@. +inheritCRINominee' :: (InheritCRINominee' s a1) => proxy s -> () +inheritCRINominee' _ = () diff --git a/src/ReOC/Data/CRPNominee.hs b/src/ReOC/Data/CRPNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/CRPNominee.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritCRPNominee') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @CRPNominee'@: who is nominated as chief remote pilot: the CEO, or another person. +module ReOC.Data.CRPNominee ( + CRPNominee' (..), + CRPNominee'Like (..), + lawNamesCRPNominee', + CRPNominee, + UnfilledCRPNominee, + InheritCRPNominee', + inheritCRPNominee', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import ReOC.Data.Nominee (Nominee, UnfilledNominee) +import ReOC.Name.CrpIsCEO (CrpIsCEOLike (..)) +import ReOC.Name.CrpNominated (CrpNominatedLike (..)) + +-- | Who is nominated as chief remote pilot: the CEO, or another person. Its valid form is @CRPNominee@, and its unfilled form @UnfilledCRPNominee@. +data CRPNominee' a1 + = CRPIsCEO + | CRPNominated a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @CRPNominee'@. +class CRPNominee'Like p f x x' a1 a1' | x -> a1 where + crpNominee' :: + Optic p f x x' (CRPNominee' a1) (CRPNominee' a1') + +-- | Identity +instance (x' ~ CRPNominee' a1') => CRPNominee'Like p f (CRPNominee' a1) x' a1 a1' where + crpNominee' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ CRPNominee' a1) => CrpIsCEOLike p f (CRPNominee' a1) x' where + crpIsCEO = prism' (\() -> CRPIsCEO) (\case CRPIsCEO -> Just (); CRPNominated _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ CRPNominee' a1') => CrpNominatedLike p f (CRPNominee' a1) x' a1 a1' where + crpNominated = prism CRPNominated (\case CRPIsCEO -> Left CRPIsCEO; CRPNominated x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesCRPNominee' == id +-} +lawNamesCRPNominee' :: CRPNominee' a1 -> CRPNominee' a1 +lawNamesCRPNominee' = \case + CRPIsCEO -> review crpIsCEO () + CRPNominated x -> review crpNominated x + +-- | A valid @CRPNominee'@. +type CRPNominee = CRPNominee' Nominee + +-- | An unfilled @CRPNominee'@: each field holds what has been entered, if anything, to be checked by @fillCRPNominee@. +type UnfilledCRPNominee = CRPNominee' UnfilledNominee + +-- | The classes that a data type holding @CRPNominee'@ in one field, or in one or more constructors, inherits. +type InheritCRPNominee' s a1 = + ( CRPNominee'Like (->) (Const ()) s s a1 a1 + , CrpIsCEOLike (->) (Const ()) s s + , CrpNominatedLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritCRPNominee'@. +inheritCRPNominee' :: (InheritCRPNominee' s a1) => proxy s -> () +inheritCRPNominee' _ = () diff --git a/src/ReOC/Data/ChiefExecutive.hs b/src/ReOC/Data/ChiefExecutive.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/ChiefExecutive.hs @@ -0,0 +1,100 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritChiefExecutive') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @ChiefExecutive'@: the nominated CEO (CASA Form 101-02, question 7). +module ReOC.Data.ChiefExecutive ( + ChiefExecutive' (..), + ChiefExecutive'Like (..), + lawNamesChiefExecutive', + ChiefExecutive, + UnfilledChiefExecutive, + mkChiefExecutive, + mkUnfilledChiefExecutive, + InheritChiefExecutive', + inheritChiefExecutive', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Data.Directorship (Directorship) +import ReOC.Data.Nominee (Nominee, UnfilledNominee, mkUnfilledNominee) +import ReOC.Name.DirectorStatus (DirectorStatusLike (..)) +import ReOC.Name.ManagementExperience (ManagementExperienceLike (..)) +import ReOC.Name.Nominee (NomineeLike (..)) +import ReOC.Primitive.FormText (FormLines) + +-- | The nominated CEO (CASA Form 101-02, question 7). Its valid form is @ChiefExecutive@, and its unfilled form @UnfilledChiefExecutive@. +data ChiefExecutive' a1 a2 a3 = ChiefExecutive' a1 a2 a3 + deriving (Eq, Ord, Show) + +-- | The name of the data type @ChiefExecutive'@. +class ChiefExecutive'Like p f x x' a1 a1' a2 a2' a3 a3' | x -> a1 a2 a3 where + chiefExecutive' :: + Optic p f x x' (ChiefExecutive' a1 a2 a3) (ChiefExecutive' a1' a2' a3') + +-- | Identity +instance (x' ~ ChiefExecutive' a1' a2' a3') => ChiefExecutive'Like p f (ChiefExecutive' a1 a2 a3) x' a1 a1' a2 a2' a3 a3' where + chiefExecutive' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ChiefExecutive' a1' a2 a3) => NomineeLike p f (ChiefExecutive' a1 a2 a3) x' a1 a1' where + nominee f (ChiefExecutive' x1 x2 x3) = fmap (\x1' -> ChiefExecutive' x1' x2 x3) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ChiefExecutive' a1 a2' a3) => DirectorStatusLike p f (ChiefExecutive' a1 a2 a3) x' a2 a2' where + directorStatus f (ChiefExecutive' x1 x2 x3) = fmap (\x2' -> ChiefExecutive' x1 x2' x3) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ChiefExecutive' a1 a2 a3') => ManagementExperienceLike p f (ChiefExecutive' a1 a2 a3) x' a3 a3' where + managementExperience f (ChiefExecutive' x1 x2 x3) = fmap (ChiefExecutive' x1 x2) (f x3) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesChiefExecutive' == id +-} +lawNamesChiefExecutive' :: ChiefExecutive' a1 a2 a3 -> ChiefExecutive' a1 a2 a3 +lawNamesChiefExecutive' s = + ChiefExecutive' + (view (cloneLens nominee) s) + (view (cloneLens directorStatus) s) + (view (cloneLens managementExperience) s) + +-- | A valid @ChiefExecutive'@. +type ChiefExecutive = ChiefExecutive' Nominee Directorship (Maybe (FormLines 6)) + +-- | An unfilled @ChiefExecutive'@: each field holds what has been entered, if anything, to be checked by @fillChiefExecutive@. +type UnfilledChiefExecutive = ChiefExecutive' UnfilledNominee (Maybe Directorship) (Maybe Text) + +-- | Builds a valid @ChiefExecutive'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkChiefExecutive :: Nominee -> Directorship -> ChiefExecutive +mkChiefExecutive x1 x2 = ChiefExecutive' x1 x2 Nothing + +-- | An unfilled @ChiefExecutive'@ with nothing entered. +mkUnfilledChiefExecutive :: UnfilledChiefExecutive +mkUnfilledChiefExecutive = + ChiefExecutive' + mkUnfilledNominee + Nothing + Nothing + +-- | The classes that a data type holding @ChiefExecutive'@ in one field, or in one or more constructors, inherits. +type InheritChiefExecutive' s a1 a2 a3 = + ( ChiefExecutive'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 + , NomineeLike (->) (Const ()) s s a1 a1 + , DirectorStatusLike (->) (Const ()) s s a2 a2 + , ManagementExperienceLike (->) (Const ()) s s a3 a3 + ) + +-- | Checks that a data type inherits every class of @InheritChiefExecutive'@. +inheritChiefExecutive' :: (InheritChiefExecutive' s a1 a2 a3) => proxy s -> () +inheritChiefExecutive' _ = () diff --git a/src/ReOC/Data/ChiefPilot.hs b/src/ReOC/Data/ChiefPilot.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/ChiefPilot.hs @@ -0,0 +1,113 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritChiefPilot') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @ChiefPilot'@: the nominated chief remote pilot (CASA Form 101-02, questions 8 to 11). +module ReOC.Data.ChiefPilot ( + ChiefPilot' (..), + ChiefPilot'Like (..), + lawNamesChiefPilot', + ChiefPilot, + UnfilledChiefPilot, + mkUnfilledChiefPilot, + InheritChiefPilot', + inheritChiefPilot', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Data.CRPNominee (CRPNominee, UnfilledCRPNominee) +import ReOC.Data.OtherReOCRoles (OtherReOCRoles, UnfilledOtherReOCRoles) +import ReOC.Data.RadioQualification (RadioQualification) +import ReOC.Data.RePLOrigin (RePLOrigin, UnfilledRePLOrigin) +import ReOC.Name.CrpNominee (CrpNomineeLike (..)) +import ReOC.Name.OtherReOCRoles (OtherReOCRolesLike (..)) +import ReOC.Name.Radio (RadioLike (..)) +import ReOC.Name.RePLOrigin (RePLOriginLike (..)) +import ReOC.Name.RpaHistory (RpaHistoryLike (..)) +import ReOC.Primitive.FormText (FormLines) + +-- | The nominated chief remote pilot (CASA Form 101-02, questions 8 to 11). Its valid form is @ChiefPilot@, and its unfilled form @UnfilledChiefPilot@. +data ChiefPilot' a1 a2 a3 a4 a5 = ChiefPilot' a1 a2 a3 a4 a5 + deriving (Eq, Ord, Show) + +-- | The name of the data type @ChiefPilot'@. +class ChiefPilot'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' | x -> a1 a2 a3 a4 a5 where + chiefPilot' :: + Optic p f x x' (ChiefPilot' a1 a2 a3 a4 a5) (ChiefPilot' a1' a2' a3' a4' a5') + +-- | Identity +instance (x' ~ ChiefPilot' a1' a2' a3' a4' a5') => ChiefPilot'Like p f (ChiefPilot' a1 a2 a3 a4 a5) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' where + chiefPilot' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ChiefPilot' a1' a2 a3 a4 a5) => CrpNomineeLike p f (ChiefPilot' a1 a2 a3 a4 a5) x' a1 a1' where + crpNominee f (ChiefPilot' x1 x2 x3 x4 x5) = fmap (\x1' -> ChiefPilot' x1' x2 x3 x4 x5) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ChiefPilot' a1 a2' a3 a4 a5) => RePLOriginLike p f (ChiefPilot' a1 a2 a3 a4 a5) x' a2 a2' where + rePLOrigin f (ChiefPilot' x1 x2 x3 x4 x5) = fmap (\x2' -> ChiefPilot' x1 x2' x3 x4 x5) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ChiefPilot' a1 a2 a3' a4 a5) => RpaHistoryLike p f (ChiefPilot' a1 a2 a3 a4 a5) x' a3 a3' where + rpaHistory f (ChiefPilot' x1 x2 x3 x4 x5) = fmap (\x3' -> ChiefPilot' x1 x2 x3' x4 x5) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ChiefPilot' a1 a2 a3 a4' a5) => OtherReOCRolesLike p f (ChiefPilot' a1 a2 a3 a4 a5) x' a4 a4' where + otherReOCRoles f (ChiefPilot' x1 x2 x3 x4 x5) = fmap (\x4' -> ChiefPilot' x1 x2 x3 x4' x5) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ChiefPilot' a1 a2 a3 a4 a5') => RadioLike p f (ChiefPilot' a1 a2 a3 a4 a5) x' a5 a5' where + radio f (ChiefPilot' x1 x2 x3 x4 x5) = fmap (ChiefPilot' x1 x2 x3 x4) (f x5) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesChiefPilot' == id +-} +lawNamesChiefPilot' :: ChiefPilot' a1 a2 a3 a4 a5 -> ChiefPilot' a1 a2 a3 a4 a5 +lawNamesChiefPilot' s = + ChiefPilot' + (view (cloneLens crpNominee) s) + (view (cloneLens rePLOrigin) s) + (view (cloneLens rpaHistory) s) + (view (cloneLens otherReOCRoles) s) + (view (cloneLens radio) s) + +-- | A valid @ChiefPilot'@. +type ChiefPilot = ChiefPilot' CRPNominee RePLOrigin (FormLines 8) OtherReOCRoles RadioQualification + +-- | An unfilled @ChiefPilot'@: each field holds what has been entered, if anything, to be checked by @fillChiefPilot@. +type UnfilledChiefPilot = ChiefPilot' (Maybe UnfilledCRPNominee) (Maybe UnfilledRePLOrigin) (Maybe Text) (Maybe UnfilledOtherReOCRoles) (Maybe RadioQualification) + +-- | An unfilled @ChiefPilot'@ with nothing entered. +mkUnfilledChiefPilot :: UnfilledChiefPilot +mkUnfilledChiefPilot = + ChiefPilot' + Nothing + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @ChiefPilot'@ in one field, or in one or more constructors, inherits. +type InheritChiefPilot' s a1 a2 a3 a4 a5 = + ( ChiefPilot'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 + , CrpNomineeLike (->) (Const ()) s s a1 a1 + , RePLOriginLike (->) (Const ()) s s a2 a2 + , RpaHistoryLike (->) (Const ()) s s a3 a3 + , OtherReOCRolesLike (->) (Const ()) s s a4 a4 + , RadioLike (->) (Const ()) s s a5 a5 + ) + +-- | Checks that a data type inherits every class of @InheritChiefPilot'@. +inheritChiefPilot' :: (InheritChiefPilot' s a1 a2 a3 a4 a5) => proxy s -> () +inheritChiefPilot' _ = () diff --git a/src/ReOC/Data/Company.hs b/src/ReOC/Data/Company.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Company.hs @@ -0,0 +1,144 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritCompany') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Company'@: the proprietary company that applies for, and holds, the ReOC. Its legal name is its name followed by "Pty Ltd", which must fit question 1 of the form. +module ReOC.Data.Company ( + Company' (..), + Company'Like (..), + lawNamesCompany', + Company, + UnfilledCompany, + mkCompany, + mkUnfilledCompany, + InheritCompany', + inheritCompany', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Data.Address (Address, UnfilledAddress, mkUnfilledAddress) +import ReOC.Data.OperationalHeadquarters (OperationalHeadquarters, UnfilledOperationalHeadquarters) +import ReOC.Name.Abn (AbnLike (..)) +import ReOC.Name.Arn (ArnLike (..)) +import ReOC.Name.BusinessName (BusinessNameLike (..)) +import ReOC.Name.CompanyName (CompanyNameLike (..)) +import ReOC.Name.EmailAddress (EmailAddressLike (..)) +import ReOC.Name.OperationalHeadquarters (OperationalHeadquartersLike (..)) +import ReOC.Name.PhoneNumber (PhoneNumberLike (..)) +import ReOC.Name.RegisteredOffice (RegisteredOfficeLike (..)) +import ReOC.Primitive.ABN (ABN) +import ReOC.Primitive.ARN (ARN) +import ReOC.Primitive.EmailAddress (EmailAddress) +import ReOC.Primitive.FormText (FormFont (..), FormLine, FormText) +import ReOC.Primitive.PhoneNumber (PhoneNumber) + +-- | The proprietary company that applies for, and holds, the ReOC. Its legal name is its name followed by "Pty Ltd", which must fit question 1 of the form. Its valid form is @Company@, and its unfilled form @UnfilledCompany@. +data Company' a1 a2 a3 a4 a5 a6 a7 a8 = Company' a1 a2 a3 a4 a5 a6 a7 a8 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Company'@. +class Company'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' | x -> a1 a2 a3 a4 a5 a6 a7 a8 where + company' :: + Optic p f x x' (Company' a1 a2 a3 a4 a5 a6 a7 a8) (Company' a1' a2' a3' a4' a5' a6' a7' a8') + +-- | Identity +instance (x' ~ Company' a1' a2' a3' a4' a5' a6' a7' a8') => Company'Like p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' where + company' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Company' a1' a2 a3 a4 a5 a6 a7 a8) => CompanyNameLike p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a1 a1' where + companyName f (Company' x1 x2 x3 x4 x5 x6 x7 x8) = fmap (\x1' -> Company' x1' x2 x3 x4 x5 x6 x7 x8) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Company' a1 a2' a3 a4 a5 a6 a7 a8) => AbnLike p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a2 a2' where + abn f (Company' x1 x2 x3 x4 x5 x6 x7 x8) = fmap (\x2' -> Company' x1 x2' x3 x4 x5 x6 x7 x8) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Company' a1 a2 a3' a4 a5 a6 a7 a8) => ArnLike p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a3 a3' where + arn f (Company' x1 x2 x3 x4 x5 x6 x7 x8) = fmap (\x3' -> Company' x1 x2 x3' x4 x5 x6 x7 x8) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Company' a1 a2 a3 a4' a5 a6 a7 a8) => RegisteredOfficeLike p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a4 a4' where + registeredOffice f (Company' x1 x2 x3 x4 x5 x6 x7 x8) = fmap (\x4' -> Company' x1 x2 x3 x4' x5 x6 x7 x8) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Company' a1 a2 a3 a4 a5' a6 a7 a8) => OperationalHeadquartersLike p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a5 a5' where + operationalHeadquarters f (Company' x1 x2 x3 x4 x5 x6 x7 x8) = fmap (\x5' -> Company' x1 x2 x3 x4 x5' x6 x7 x8) (f x5) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Company' a1 a2 a3 a4 a5 a6' a7 a8) => PhoneNumberLike p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a6 a6' where + phoneNumber f (Company' x1 x2 x3 x4 x5 x6 x7 x8) = fmap (\x6' -> Company' x1 x2 x3 x4 x5 x6' x7 x8) (f x6) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Company' a1 a2 a3 a4 a5 a6 a7' a8) => EmailAddressLike p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a7 a7' where + emailAddress f (Company' x1 x2 x3 x4 x5 x6 x7 x8) = fmap (\x7' -> Company' x1 x2 x3 x4 x5 x6 x7' x8) (f x7) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Company' a1 a2 a3 a4 a5 a6 a7 a8') => BusinessNameLike p f (Company' a1 a2 a3 a4 a5 a6 a7 a8) x' a8 a8' where + businessName f (Company' x1 x2 x3 x4 x5 x6 x7 x8) = fmap (Company' x1 x2 x3 x4 x5 x6 x7) (f x8) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesCompany' == id +-} +lawNamesCompany' :: Company' a1 a2 a3 a4 a5 a6 a7 a8 -> Company' a1 a2 a3 a4 a5 a6 a7 a8 +lawNamesCompany' s = + Company' + (view (cloneLens companyName) s) + (view (cloneLens abn) s) + (view (cloneLens arn) s) + (view (cloneLens registeredOffice) s) + (view (cloneLens operationalHeadquarters) s) + (view (cloneLens phoneNumber) s) + (view (cloneLens emailAddress) s) + (view (cloneLens businessName) s) + +-- | A valid @Company'@. +type Company = Company' (FormText 'Narrow 185 1) ABN ARN Address OperationalHeadquarters PhoneNumber EmailAddress (Maybe FormLine) + +-- | An unfilled @Company'@: each field holds what has been entered, if anything, to be checked by @fillCompany@. +type UnfilledCompany = Company' (Maybe Text) (Maybe Text) (Maybe Text) UnfilledAddress (Maybe UnfilledOperationalHeadquarters) (Maybe Text) (Maybe Text) (Maybe Text) + +-- | Builds a valid @Company'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkCompany :: FormText 'Narrow 185 1 -> ABN -> ARN -> Address -> OperationalHeadquarters -> PhoneNumber -> EmailAddress -> Company +mkCompany x1 x2 x3 x4 x5 x6 x7 = Company' x1 x2 x3 x4 x5 x6 x7 Nothing + +-- | An unfilled @Company'@ with nothing entered. +mkUnfilledCompany :: UnfilledCompany +mkUnfilledCompany = + Company' + Nothing + Nothing + Nothing + mkUnfilledAddress + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @Company'@ in one field, or in one or more constructors, inherits. +type InheritCompany' s a1 a2 a3 a4 a5 a6 a7 a8 = + ( Company'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 a6 a6 a7 a7 a8 a8 + , CompanyNameLike (->) (Const ()) s s a1 a1 + , AbnLike (->) (Const ()) s s a2 a2 + , ArnLike (->) (Const ()) s s a3 a3 + , RegisteredOfficeLike (->) (Const ()) s s a4 a4 + , OperationalHeadquartersLike (->) (Const ()) s s a5 a5 + , PhoneNumberLike (->) (Const ()) s s a6 a6 + , EmailAddressLike (->) (Const ()) s s a7 a7 + , BusinessNameLike (->) (Const ()) s s a8 a8 + ) + +-- | Checks that a data type inherits every class of @InheritCompany'@. +inheritCompany' :: (InheritCompany' s a1 a2 a3 a4 a5 a6 a7 a8) => proxy s -> () +inheritCompany' _ = () diff --git a/src/ReOC/Data/Complexity.hs b/src/ReOC/Data/Complexity.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Complexity.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritComplexity) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Complexity@: the complexity of a RePL training course (CASA Form 101-02, question 29). Liquid fuel is for RPA over 25 kg, which the operations manual does not cover. +module ReOC.Data.Complexity ( + Complexity (..), + ComplexityLike (..), + lawNamesComplexity, + InheritComplexity, + inheritComplexity, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.AutomatedAndManual (AutomatedAndManualLike (..)) +import ReOC.Name.AutomatedOnly (AutomatedOnlyLike (..)) + +-- | The complexity of a RePL training course (CASA Form 101-02, question 29). Liquid fuel is for RPA over 25 kg, which the operations manual does not cover. +data Complexity + = AutomatedAndManual + | AutomatedOnly + deriving (Eq, Ord, Show) + +-- | The name of the data type @Complexity@. +class ComplexityLike p f x x' where + complexity :: + Optic p f x x' Complexity Complexity + +-- | Identity +instance (x' ~ Complexity) => ComplexityLike p f Complexity x' where + complexity = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Complexity) => AutomatedAndManualLike p f Complexity x' where + automatedAndManual = prism' (\() -> AutomatedAndManual) (\case AutomatedAndManual -> Just (); AutomatedOnly -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Complexity) => AutomatedOnlyLike p f Complexity x' where + automatedOnly = prism' (\() -> AutomatedOnly) (\case AutomatedAndManual -> Nothing; AutomatedOnly -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesComplexity == id +-} +lawNamesComplexity :: Complexity -> Complexity +lawNamesComplexity = \case + AutomatedAndManual -> review automatedAndManual () + AutomatedOnly -> review automatedOnly () + +-- | The classes that a data type holding @Complexity@ in one field, or in one or more constructors, inherits. +type InheritComplexity s = + ( ComplexityLike (->) (Const ()) s s + , AutomatedAndManualLike (->) (Const ()) s s + , AutomatedOnlyLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritComplexity@. +inheritComplexity :: (InheritComplexity s) => proxy s -> () +inheritComplexity _ = () diff --git a/src/ReOC/Data/Consequence.hs b/src/ReOC/Data/Consequence.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Consequence.hs @@ -0,0 +1,92 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritConsequence) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Consequence@: the consequence of a risk (operations manual Appendix E, Table 10). +module ReOC.Data.Consequence ( + Consequence (..), + ConsequenceLike (..), + lawNamesConsequence, + InheritConsequence, + inheritConsequence, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.Catastrophic (CatastrophicLike (..)) +import ReOC.Name.Hazardous (HazardousLike (..)) +import ReOC.Name.Minor (MinorLike (..)) +import ReOC.Name.Moderate (ModerateLike (..)) +import ReOC.Name.Negligible (NegligibleLike (..)) + +-- | The consequence of a risk (operations manual Appendix E, Table 10). +data Consequence + = Catastrophic + | Hazardous + | Moderate + | Minor + | Negligible + deriving (Eq, Ord, Show) + +-- | The name of the data type @Consequence@. +class ConsequenceLike p f x x' where + consequence :: + Optic p f x x' Consequence Consequence + +-- | Identity +instance (x' ~ Consequence) => ConsequenceLike p f Consequence x' where + consequence = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Consequence) => CatastrophicLike p f Consequence x' where + catastrophic = prism' (\() -> Catastrophic) (\case Catastrophic -> Just (); Hazardous -> Nothing; Moderate -> Nothing; Minor -> Nothing; Negligible -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Consequence) => HazardousLike p f Consequence x' where + hazardous = prism' (\() -> Hazardous) (\case Catastrophic -> Nothing; Hazardous -> Just (); Moderate -> Nothing; Minor -> Nothing; Negligible -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Consequence) => ModerateLike p f Consequence x' where + moderate = prism' (\() -> Moderate) (\case Catastrophic -> Nothing; Hazardous -> Nothing; Moderate -> Just (); Minor -> Nothing; Negligible -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Consequence) => MinorLike p f Consequence x' where + minor = prism' (\() -> Minor) (\case Catastrophic -> Nothing; Hazardous -> Nothing; Moderate -> Nothing; Minor -> Just (); Negligible -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Consequence) => NegligibleLike p f Consequence x' where + negligible = prism' (\() -> Negligible) (\case Catastrophic -> Nothing; Hazardous -> Nothing; Moderate -> Nothing; Minor -> Nothing; Negligible -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesConsequence == id +-} +lawNamesConsequence :: Consequence -> Consequence +lawNamesConsequence = \case + Catastrophic -> review catastrophic () + Hazardous -> review hazardous () + Moderate -> review moderate () + Minor -> review minor () + Negligible -> review negligible () + +-- | The classes that a data type holding @Consequence@ in one field, or in one or more constructors, inherits. +type InheritConsequence s = + ( ConsequenceLike (->) (Const ()) s s + , CatastrophicLike (->) (Const ()) s s + , HazardousLike (->) (Const ()) s s + , ModerateLike (->) (Const ()) s s + , MinorLike (->) (Const ()) s s + , NegligibleLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritConsequence@. +inheritConsequence :: (InheritConsequence s) => proxy s -> () +inheritConsequence _ = () diff --git a/src/ReOC/Data/ContactPerson.hs b/src/ReOC/Data/ContactPerson.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/ContactPerson.hs @@ -0,0 +1,102 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritContactPerson') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @ContactPerson'@: the main contact person for an application (CASA Form 101-02, question 3). +module ReOC.Data.ContactPerson ( + ContactPerson' (..), + ContactPerson'Like (..), + lawNamesContactPerson', + ContactPerson, + UnfilledContactPerson, + mkUnfilledContactPerson, + InheritContactPerson', + inheritContactPerson', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.EmailAddress (EmailAddressLike (..)) +import ReOC.Name.FullName (FullNameLike (..)) +import ReOC.Name.PhoneNumber (PhoneNumberLike (..)) +import ReOC.Name.Position (PositionLike (..)) +import ReOC.Primitive.EmailAddress (EmailAddress) +import ReOC.Primitive.FormText (FormLine) +import ReOC.Primitive.PhoneNumber (PhoneNumber) + +-- | The main contact person for an application (CASA Form 101-02, question 3). Its valid form is @ContactPerson@, and its unfilled form @UnfilledContactPerson@. +data ContactPerson' a1 a2 a3 a4 = ContactPerson' a1 a2 a3 a4 + deriving (Eq, Ord, Show) + +-- | The name of the data type @ContactPerson'@. +class ContactPerson'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' | x -> a1 a2 a3 a4 where + contactPerson' :: + Optic p f x x' (ContactPerson' a1 a2 a3 a4) (ContactPerson' a1' a2' a3' a4') + +-- | Identity +instance (x' ~ ContactPerson' a1' a2' a3' a4') => ContactPerson'Like p f (ContactPerson' a1 a2 a3 a4) x' a1 a1' a2 a2' a3 a3' a4 a4' where + contactPerson' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ContactPerson' a1' a2 a3 a4) => FullNameLike p f (ContactPerson' a1 a2 a3 a4) x' a1 a1' where + fullName f (ContactPerson' x1 x2 x3 x4) = fmap (\x1' -> ContactPerson' x1' x2 x3 x4) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ContactPerson' a1 a2' a3 a4) => PositionLike p f (ContactPerson' a1 a2 a3 a4) x' a2 a2' where + position f (ContactPerson' x1 x2 x3 x4) = fmap (\x2' -> ContactPerson' x1 x2' x3 x4) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ContactPerson' a1 a2 a3' a4) => PhoneNumberLike p f (ContactPerson' a1 a2 a3 a4) x' a3 a3' where + phoneNumber f (ContactPerson' x1 x2 x3 x4) = fmap (\x3' -> ContactPerson' x1 x2 x3' x4) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ContactPerson' a1 a2 a3 a4') => EmailAddressLike p f (ContactPerson' a1 a2 a3 a4) x' a4 a4' where + emailAddress f (ContactPerson' x1 x2 x3 x4) = fmap (ContactPerson' x1 x2 x3) (f x4) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesContactPerson' == id +-} +lawNamesContactPerson' :: ContactPerson' a1 a2 a3 a4 -> ContactPerson' a1 a2 a3 a4 +lawNamesContactPerson' s = + ContactPerson' + (view (cloneLens fullName) s) + (view (cloneLens position) s) + (view (cloneLens phoneNumber) s) + (view (cloneLens emailAddress) s) + +-- | A valid @ContactPerson'@. +type ContactPerson = ContactPerson' FormLine FormLine PhoneNumber EmailAddress + +-- | An unfilled @ContactPerson'@: each field holds what has been entered, if anything, to be checked by @fillContactPerson@. +type UnfilledContactPerson = ContactPerson' (Maybe Text) (Maybe Text) (Maybe Text) (Maybe Text) + +-- | An unfilled @ContactPerson'@ with nothing entered. +mkUnfilledContactPerson :: UnfilledContactPerson +mkUnfilledContactPerson = + ContactPerson' + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @ContactPerson'@ in one field, or in one or more constructors, inherits. +type InheritContactPerson' s a1 a2 a3 a4 = + ( ContactPerson'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 + , FullNameLike (->) (Const ()) s s a1 a1 + , PositionLike (->) (Const ()) s s a2 a2 + , PhoneNumberLike (->) (Const ()) s s a3 a3 + , EmailAddressLike (->) (Const ()) s s a4 a4 + ) + +-- | Checks that a data type inherits every class of @InheritContactPerson'@. +inheritContactPerson' :: (InheritContactPerson' s a1 a2 a3 a4) => proxy s -> () +inheritContactPerson' _ = () diff --git a/src/ReOC/Data/CourseType.hs b/src/ReOC/Data/CourseType.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/CourseType.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritCourseType) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @CourseType@: a type of RePL training course (CASA Form 101-02, question 29). +module ReOC.Data.CourseType ( + CourseType (..), + CourseTypeLike (..), + lawNamesCourseType, + InheritCourseType, + inheritCourseType, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.InitialCourse (InitialCourseLike (..)) +import ReOC.Name.UpgradeDifferentCategory (UpgradeDifferentCategoryLike (..)) +import ReOC.Name.UpgradeSameCategory (UpgradeSameCategoryLike (..)) + +-- | A type of RePL training course (CASA Form 101-02, question 29). +data CourseType + = InitialCourse + | UpgradeSameCategory + | UpgradeDifferentCategory + deriving (Eq, Ord, Show) + +-- | The name of the data type @CourseType@. +class CourseTypeLike p f x x' where + courseType :: + Optic p f x x' CourseType CourseType + +-- | Identity +instance (x' ~ CourseType) => CourseTypeLike p f CourseType x' where + courseType = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ CourseType) => InitialCourseLike p f CourseType x' where + initialCourse = prism' (\() -> InitialCourse) (\case InitialCourse -> Just (); UpgradeSameCategory -> Nothing; UpgradeDifferentCategory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ CourseType) => UpgradeSameCategoryLike p f CourseType x' where + upgradeSameCategory = prism' (\() -> UpgradeSameCategory) (\case InitialCourse -> Nothing; UpgradeSameCategory -> Just (); UpgradeDifferentCategory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ CourseType) => UpgradeDifferentCategoryLike p f CourseType x' where + upgradeDifferentCategory = prism' (\() -> UpgradeDifferentCategory) (\case InitialCourse -> Nothing; UpgradeSameCategory -> Nothing; UpgradeDifferentCategory -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesCourseType == id +-} +lawNamesCourseType :: CourseType -> CourseType +lawNamesCourseType = \case + InitialCourse -> review initialCourse () + UpgradeSameCategory -> review upgradeSameCategory () + UpgradeDifferentCategory -> review upgradeDifferentCategory () + +-- | The classes that a data type holding @CourseType@ in one field, or in one or more constructors, inherits. +type InheritCourseType s = + ( CourseTypeLike (->) (Const ()) s s + , InitialCourseLike (->) (Const ()) s s + , UpgradeSameCategoryLike (->) (Const ()) s s + , UpgradeDifferentCategoryLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritCourseType@. +inheritCourseType :: (InheritCourseType s) => proxy s -> () +inheritCourseType _ = () diff --git a/src/ReOC/Data/Crewing.hs b/src/ReOC/Data/Crewing.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Crewing.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritCrewing) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Crewing@: whether the operator conducts only solo operations, or multi-crew operations as well. +module ReOC.Data.Crewing ( + Crewing (..), + CrewingLike (..), + lawNamesCrewing, + InheritCrewing, + inheritCrewing, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.SoloAndMultiCrewOperations (SoloAndMultiCrewOperationsLike (..)) +import ReOC.Name.SoloOperationsOnly (SoloOperationsOnlyLike (..)) + +-- | Whether the operator conducts only solo operations, or multi-crew operations as well. +data Crewing + = SoloOperationsOnly + | SoloAndMultiCrewOperations + deriving (Eq, Ord, Show) + +-- | The name of the data type @Crewing@. +class CrewingLike p f x x' where + crewing :: + Optic p f x x' Crewing Crewing + +-- | Identity +instance (x' ~ Crewing) => CrewingLike p f Crewing x' where + crewing = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Crewing) => SoloOperationsOnlyLike p f Crewing x' where + soloOperationsOnly = prism' (\() -> SoloOperationsOnly) (\case SoloOperationsOnly -> Just (); SoloAndMultiCrewOperations -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Crewing) => SoloAndMultiCrewOperationsLike p f Crewing x' where + soloAndMultiCrewOperations = prism' (\() -> SoloAndMultiCrewOperations) (\case SoloOperationsOnly -> Nothing; SoloAndMultiCrewOperations -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesCrewing == id +-} +lawNamesCrewing :: Crewing -> Crewing +lawNamesCrewing = \case + SoloOperationsOnly -> review soloOperationsOnly () + SoloAndMultiCrewOperations -> review soloAndMultiCrewOperations () + +-- | The classes that a data type holding @Crewing@ in one field, or in one or more constructors, inherits. +type InheritCrewing s = + ( CrewingLike (->) (Const ()) s s + , SoloOperationsOnlyLike (->) (Const ()) s s + , SoloAndMultiCrewOperationsLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritCrewing@. +inheritCrewing :: (InheritCrewing s) => proxy s -> () +inheritCrewing _ = () diff --git a/src/ReOC/Data/Declarant.hs b/src/ReOC/Data/Declarant.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Declarant.hs @@ -0,0 +1,84 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritDeclarant') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Declarant'@: a person who makes the declaration in another capacity, with that capacity (CASA Form 101-02, question 32). +module ReOC.Data.Declarant ( + Declarant' (..), + Declarant'Like (..), + lawNamesDeclarant', + Declarant, + UnfilledDeclarant, + mkUnfilledDeclarant, + InheritDeclarant', + inheritDeclarant', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.FullName (FullNameLike (..)) +import ReOC.Name.Role (RoleLike (..)) +import ReOC.Primitive.FormText (FormLine) + +-- | A person who makes the declaration in another capacity, with that capacity (CASA Form 101-02, question 32). Its valid form is @Declarant@, and its unfilled form @UnfilledDeclarant@. +data Declarant' a1 a2 = Declarant' a1 a2 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Declarant'@. +class Declarant'Like p f x x' a1 a1' a2 a2' | x -> a1 a2 where + declarant' :: + Optic p f x x' (Declarant' a1 a2) (Declarant' a1' a2') + +-- | Identity +instance (x' ~ Declarant' a1' a2') => Declarant'Like p f (Declarant' a1 a2) x' a1 a1' a2 a2' where + declarant' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Declarant' a1' a2) => FullNameLike p f (Declarant' a1 a2) x' a1 a1' where + fullName f (Declarant' x1 x2) = fmap (\x1' -> Declarant' x1' x2) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Declarant' a1 a2') => RoleLike p f (Declarant' a1 a2) x' a2 a2' where + role f (Declarant' x1 x2) = fmap (Declarant' x1) (f x2) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesDeclarant' == id +-} +lawNamesDeclarant' :: Declarant' a1 a2 -> Declarant' a1 a2 +lawNamesDeclarant' s = + Declarant' + (view (cloneLens fullName) s) + (view (cloneLens role) s) + +-- | A valid @Declarant'@. +type Declarant = Declarant' FormLine FormLine + +-- | An unfilled @Declarant'@: each field holds what has been entered, if anything, to be checked by @fillDeclarant@. +type UnfilledDeclarant = Declarant' (Maybe Text) (Maybe Text) + +-- | An unfilled @Declarant'@ with nothing entered. +mkUnfilledDeclarant :: UnfilledDeclarant +mkUnfilledDeclarant = + Declarant' + Nothing + Nothing + +-- | The classes that a data type holding @Declarant'@ in one field, or in one or more constructors, inherits. +type InheritDeclarant' s a1 a2 = + ( Declarant'Like (->) (Const ()) s s a1 a1 a2 a2 + , FullNameLike (->) (Const ()) s s a1 a1 + , RoleLike (->) (Const ()) s s a2 a2 + ) + +-- | Checks that a data type inherits every class of @InheritDeclarant'@. +inheritDeclarant' :: (InheritDeclarant' s a1 a2) => proxy s -> () +inheritDeclarant' _ = () diff --git a/src/ReOC/Data/Declaration.hs b/src/ReOC/Data/Declaration.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Declaration.hs @@ -0,0 +1,95 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritDeclaration') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Declaration'@: who makes the declaration, and in what capacity (CASA Form 101-02, questions 31 and 32). +module ReOC.Data.Declaration ( + Declaration' (..), + Declaration'Like (..), + lawNamesDeclaration', + Declaration, + UnfilledDeclaration, + InheritDeclaration', + inheritDeclaration', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Data.Declarant (Declarant, UnfilledDeclarant) +import ReOC.Name.DeclaredByAgent (DeclaredByAgentLike (..)) +import ReOC.Name.DeclaredByCEO (DeclaredByCEOLike (..)) +import ReOC.Name.DeclaredByOther (DeclaredByOtherLike (..)) +import ReOC.Name.DeclaredByResponsibleManager (DeclaredByResponsibleManagerLike (..)) +import ReOC.Primitive.FormText (FormLine) + +-- | Who makes the declaration, and in what capacity (CASA Form 101-02, questions 31 and 32). Its valid form is @Declaration@, and its unfilled form @UnfilledDeclaration@. +data Declaration' a1 a2 a3 + = DeclaredByCEO + | DeclaredByResponsibleManager a1 + | DeclaredByAgent a2 + | DeclaredByOther a3 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Declaration'@. +class Declaration'Like p f x x' a1 a1' a2 a2' a3 a3' | x -> a1 a2 a3 where + declaration' :: + Optic p f x x' (Declaration' a1 a2 a3) (Declaration' a1' a2' a3') + +-- | Identity +instance (x' ~ Declaration' a1' a2' a3') => Declaration'Like p f (Declaration' a1 a2 a3) x' a1 a1' a2 a2' a3 a3' where + declaration' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Declaration' a1 a2 a3) => DeclaredByCEOLike p f (Declaration' a1 a2 a3) x' where + declaredByCEO = prism' (\() -> DeclaredByCEO) (\case DeclaredByCEO -> Just (); DeclaredByResponsibleManager _ -> Nothing; DeclaredByAgent _ -> Nothing; DeclaredByOther _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Declaration' a1' a2 a3) => DeclaredByResponsibleManagerLike p f (Declaration' a1 a2 a3) x' a1 a1' where + declaredByResponsibleManager = prism DeclaredByResponsibleManager (\case DeclaredByCEO -> Left DeclaredByCEO; DeclaredByResponsibleManager x -> Right x; DeclaredByAgent x -> Left (DeclaredByAgent x); DeclaredByOther x -> Left (DeclaredByOther x)) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Declaration' a1 a2' a3) => DeclaredByAgentLike p f (Declaration' a1 a2 a3) x' a2 a2' where + declaredByAgent = prism DeclaredByAgent (\case DeclaredByCEO -> Left DeclaredByCEO; DeclaredByResponsibleManager x -> Left (DeclaredByResponsibleManager x); DeclaredByAgent x -> Right x; DeclaredByOther x -> Left (DeclaredByOther x)) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Declaration' a1 a2 a3') => DeclaredByOtherLike p f (Declaration' a1 a2 a3) x' a3 a3' where + declaredByOther = prism DeclaredByOther (\case DeclaredByCEO -> Left DeclaredByCEO; DeclaredByResponsibleManager x -> Left (DeclaredByResponsibleManager x); DeclaredByAgent x -> Left (DeclaredByAgent x); DeclaredByOther x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesDeclaration' == id +-} +lawNamesDeclaration' :: Declaration' a1 a2 a3 -> Declaration' a1 a2 a3 +lawNamesDeclaration' = \case + DeclaredByCEO -> review declaredByCEO () + DeclaredByResponsibleManager x -> review declaredByResponsibleManager x + DeclaredByAgent x -> review declaredByAgent x + DeclaredByOther x -> review declaredByOther x + +-- | A valid @Declaration'@. +type Declaration = Declaration' FormLine FormLine Declarant + +-- | An unfilled @Declaration'@: each field holds what has been entered, if anything, to be checked by @fillDeclaration@. +type UnfilledDeclaration = Declaration' (Maybe Text) (Maybe Text) UnfilledDeclarant + +-- | The classes that a data type holding @Declaration'@ in one field, or in one or more constructors, inherits. +type InheritDeclaration' s a1 a2 a3 = + ( Declaration'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 + , DeclaredByCEOLike (->) (Const ()) s s + , DeclaredByResponsibleManagerLike (->) (Const ()) s s a1 a1 + , DeclaredByAgentLike (->) (Const ()) s s a2 a2 + , DeclaredByOtherLike (->) (Const ()) s s a3 a3 + ) + +-- | Checks that a data type inherits every class of @InheritDeclaration'@. +inheritDeclaration' :: (InheritDeclaration' s a1 a2 a3) => proxy s -> () +inheritDeclaration' _ = () diff --git a/src/ReOC/Data/Directorship.hs b/src/ReOC/Data/Directorship.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Directorship.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritDirectorship) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Directorship@: whether the CEO is a director of the company. +module ReOC.Data.Directorship ( + Directorship (..), + DirectorshipLike (..), + lawNamesDirectorship, + InheritDirectorship, + inheritDirectorship, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.Director (DirectorLike (..)) +import ReOC.Name.NotADirector (NotADirectorLike (..)) +import ReOC.Name.SoleDirector (SoleDirectorLike (..)) + +-- | Whether the CEO is a director of the company. +data Directorship + = SoleDirector + | Director + | NotADirector + deriving (Eq, Ord, Show) + +-- | The name of the data type @Directorship@. +class DirectorshipLike p f x x' where + directorship :: + Optic p f x x' Directorship Directorship + +-- | Identity +instance (x' ~ Directorship) => DirectorshipLike p f Directorship x' where + directorship = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Directorship) => SoleDirectorLike p f Directorship x' where + soleDirector = prism' (\() -> SoleDirector) (\case SoleDirector -> Just (); Director -> Nothing; NotADirector -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Directorship) => DirectorLike p f Directorship x' where + director = prism' (\() -> Director) (\case SoleDirector -> Nothing; Director -> Just (); NotADirector -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Directorship) => NotADirectorLike p f Directorship x' where + notADirector = prism' (\() -> NotADirector) (\case SoleDirector -> Nothing; Director -> Nothing; NotADirector -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesDirectorship == id +-} +lawNamesDirectorship :: Directorship -> Directorship +lawNamesDirectorship = \case + SoleDirector -> review soleDirector () + Director -> review director () + NotADirector -> review notADirector () + +-- | The classes that a data type holding @Directorship@ in one field, or in one or more constructors, inherits. +type InheritDirectorship s = + ( DirectorshipLike (->) (Const ()) s s + , SoleDirectorLike (->) (Const ()) s s + , DirectorLike (->) (Const ()) s s + , NotADirectorLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritDirectorship@. +inheritDirectorship :: (InheritDirectorship s) => proxy s -> () +inheritDirectorship _ = () diff --git a/src/ReOC/Data/EmergencyAction.hs b/src/ReOC/Data/EmergencyAction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/EmergencyAction.hs @@ -0,0 +1,98 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritEmergencyAction') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @EmergencyAction'@: an emergency action of the type-specific procedures (operations manual Appendix C): the situation, what the RPA does, and the steps the remote pilot takes. +module ReOC.Data.EmergencyAction ( + EmergencyAction' (..), + EmergencyAction'Like (..), + lawNamesEmergencyAction', + EmergencyAction, + UnfilledEmergencyAction, + mkEmergencyAction, + mkUnfilledEmergencyAction, + InheritEmergencyAction', + inheritEmergencyAction', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.ActionSteps (ActionStepsLike (..)) +import ReOC.Name.Response (ResponseLike (..)) +import ReOC.Name.Situation (SituationLike (..)) +import ReOC.Primitive.Text1 (Text1) + +-- | An emergency action of the type-specific procedures (operations manual Appendix C): the situation, what the RPA does, and the steps the remote pilot takes. Its valid form is @EmergencyAction@, and its unfilled form @UnfilledEmergencyAction@. +data EmergencyAction' a1 a2 a3 = EmergencyAction' a1 a2 a3 + deriving (Eq, Ord, Show) + +-- | The name of the data type @EmergencyAction'@. +class EmergencyAction'Like p f x x' a1 a1' a2 a2' a3 a3' | x -> a1 a2 a3 where + emergencyAction' :: + Optic p f x x' (EmergencyAction' a1 a2 a3) (EmergencyAction' a1' a2' a3') + +-- | Identity +instance (x' ~ EmergencyAction' a1' a2' a3') => EmergencyAction'Like p f (EmergencyAction' a1 a2 a3) x' a1 a1' a2 a2' a3 a3' where + emergencyAction' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ EmergencyAction' a1' a2 a3) => SituationLike p f (EmergencyAction' a1 a2 a3) x' a1 a1' where + situation f (EmergencyAction' x1 x2 x3) = fmap (\x1' -> EmergencyAction' x1' x2 x3) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ EmergencyAction' a1 a2' a3) => ResponseLike p f (EmergencyAction' a1 a2 a3) x' a2 a2' where + response f (EmergencyAction' x1 x2 x3) = fmap (\x2' -> EmergencyAction' x1 x2' x3) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ EmergencyAction' a1 a2 a3') => ActionStepsLike p f (EmergencyAction' a1 a2 a3) x' a3 a3' where + actionSteps f (EmergencyAction' x1 x2 x3) = fmap (EmergencyAction' x1 x2) (f x3) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesEmergencyAction' == id +-} +lawNamesEmergencyAction' :: EmergencyAction' a1 a2 a3 -> EmergencyAction' a1 a2 a3 +lawNamesEmergencyAction' s = + EmergencyAction' + (view (cloneLens situation) s) + (view (cloneLens response) s) + (view (cloneLens actionSteps) s) + +-- | A valid @EmergencyAction'@. +type EmergencyAction = EmergencyAction' Text1 Text1 [Text1] + +-- | An unfilled @EmergencyAction'@: each field holds what has been entered, if anything, to be checked by @fillEmergencyAction@. +type UnfilledEmergencyAction = EmergencyAction' (Maybe Text) (Maybe Text) [Text] + +-- | Builds a valid @EmergencyAction'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkEmergencyAction :: Text1 -> Text1 -> EmergencyAction +mkEmergencyAction x1 x2 = EmergencyAction' x1 x2 [] + +-- | An unfilled @EmergencyAction'@ with nothing entered. +mkUnfilledEmergencyAction :: UnfilledEmergencyAction +mkUnfilledEmergencyAction = + EmergencyAction' + Nothing + Nothing + [] + +-- | The classes that a data type holding @EmergencyAction'@ in one field, or in one or more constructors, inherits. +type InheritEmergencyAction' s a1 a2 a3 = + ( EmergencyAction'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 + , SituationLike (->) (Const ()) s s a1 a1 + , ResponseLike (->) (Const ()) s s a2 a2 + , ActionStepsLike (->) (Const ()) s s a3 a3 + ) + +-- | Checks that a data type inherits every class of @InheritEmergencyAction'@. +inheritEmergencyAction' :: (InheritEmergencyAction' s a1 a2 a3) => proxy s -> () +inheritEmergencyAction' _ = () diff --git a/src/ReOC/Data/Equipment.hs b/src/ReOC/Data/Equipment.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Equipment.hs @@ -0,0 +1,85 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritEquipment') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Equipment'@: an item of equipment associated with an RPA, such as a gimbal camera or remote controller. +module ReOC.Data.Equipment ( + Equipment' (..), + Equipment'Like (..), + lawNamesEquipment', + Equipment, + UnfilledEquipment, + mkUnfilledEquipment, + InheritEquipment', + inheritEquipment', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.EquipmentDescription (EquipmentDescriptionLike (..)) +import ReOC.Name.SerialNumber (SerialNumberLike (..)) +import ReOC.Primitive.Text1 (Text1) + +-- | An item of equipment associated with an RPA, such as a gimbal camera or remote controller. Its valid form is @Equipment@, and its unfilled form @UnfilledEquipment@. +data Equipment' a1 a2 = Equipment' a1 a2 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Equipment'@. +class Equipment'Like p f x x' a1 a1' a2 a2' | x -> a1 a2 where + equipment' :: + Optic p f x x' (Equipment' a1 a2) (Equipment' a1' a2') + +-- | Identity +instance (x' ~ Equipment' a1' a2') => Equipment'Like p f (Equipment' a1 a2) x' a1 a1' a2 a2' where + equipment' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Equipment' a1' a2) => EquipmentDescriptionLike p f (Equipment' a1 a2) x' a1 a1' where + equipmentDescription f (Equipment' x1 x2) = fmap (\x1' -> Equipment' x1' x2) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Equipment' a1 a2') => SerialNumberLike p f (Equipment' a1 a2) x' a2 a2' where + serialNumber f (Equipment' x1 x2) = fmap (Equipment' x1) (f x2) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesEquipment' == id +-} +lawNamesEquipment' :: Equipment' a1 a2 -> Equipment' a1 a2 +lawNamesEquipment' s = + Equipment' + (view (cloneLens equipmentDescription) s) + (view (cloneLens serialNumber) s) + +-- | A valid @Equipment'@. +type Equipment = Equipment' Text1 Text1 + +-- | An unfilled @Equipment'@: each field holds what has been entered, if anything, to be checked by @fillEquipment@. +type UnfilledEquipment = Equipment' (Maybe Text) (Maybe Text) + +-- | An unfilled @Equipment'@ with nothing entered. +mkUnfilledEquipment :: UnfilledEquipment +mkUnfilledEquipment = + Equipment' + Nothing + Nothing + +-- | The classes that a data type holding @Equipment'@ in one field, or in one or more constructors, inherits. +type InheritEquipment' s a1 a2 = + ( Equipment'Like (->) (Const ()) s s a1 a1 a2 a2 + , EquipmentDescriptionLike (->) (Const ()) s s a1 a1 + , SerialNumberLike (->) (Const ()) s s a2 a2 + ) + +-- | Checks that a data type inherits every class of @InheritEquipment'@. +inheritEquipment' :: (InheritEquipment' s a1 a2) => proxy s -> () +inheritEquipment' _ = () diff --git a/src/ReOC/Data/ExamDelivery.hs b/src/ReOC/Data/ExamDelivery.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/ExamDelivery.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritExamDelivery) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @ExamDelivery@: how a supervised theory examination is sat. +module ReOC.Data.ExamDelivery ( + ExamDelivery (..), + ExamDeliveryLike (..), + lawNamesExamDelivery, + InheritExamDelivery, + inheritExamDelivery, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.ComputerExamination (ComputerExaminationLike (..)) +import ReOC.Name.PaperExamination (PaperExaminationLike (..)) + +-- | How a supervised theory examination is sat. +data ExamDelivery + = PaperExamination + | ComputerExamination + deriving (Eq, Ord, Show) + +-- | The name of the data type @ExamDelivery@. +class ExamDeliveryLike p f x x' where + examDelivery :: + Optic p f x x' ExamDelivery ExamDelivery + +-- | Identity +instance (x' ~ ExamDelivery) => ExamDeliveryLike p f ExamDelivery x' where + examDelivery = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ ExamDelivery) => PaperExaminationLike p f ExamDelivery x' where + paperExamination = prism' (\() -> PaperExamination) (\case PaperExamination -> Just (); ComputerExamination -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ ExamDelivery) => ComputerExaminationLike p f ExamDelivery x' where + computerExamination = prism' (\() -> ComputerExamination) (\case PaperExamination -> Nothing; ComputerExamination -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesExamDelivery == id +-} +lawNamesExamDelivery :: ExamDelivery -> ExamDelivery +lawNamesExamDelivery = \case + PaperExamination -> review paperExamination () + ComputerExamination -> review computerExamination () + +-- | The classes that a data type holding @ExamDelivery@ in one field, or in one or more constructors, inherits. +type InheritExamDelivery s = + ( ExamDeliveryLike (->) (Const ()) s s + , PaperExaminationLike (->) (Const ()) s s + , ComputerExaminationLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritExamDelivery@. +inheritExamDelivery :: (InheritExamDelivery s) => proxy s -> () +inheritExamDelivery _ = () diff --git a/src/ReOC/Data/Field.hs b/src/ReOC/Data/Field.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Field.hs @@ -0,0 +1,1480 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritField) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Field@: a field of a form type, or a constructor of a form sum: a step of the path to a field, with its help text. +module ReOC.Data.Field ( + Field (..), + FieldLike (..), + lawNamesField, + InheritField, + inheritField, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.AddressPostcode (AddressPostcodeLike (..)) +import ReOC.Name.AddressStateOrTerritory (AddressStateOrTerritoryLike (..)) +import ReOC.Name.AddressStreetAddress (AddressStreetAddressLike (..)) +import ReOC.Name.AddressSuburb (AddressSuburbLike (..)) +import ReOC.Name.AircraftAssociatedEquipment (AircraftAssociatedEquipmentLike (..)) +import ReOC.Name.AircraftSerialNumber (AircraftSerialNumberLike (..)) +import ReOC.Name.ApplicationFormDeclaration (ApplicationFormDeclarationLike (..)) +import ReOC.Name.ApplicationFormOtherDocuments (ApplicationFormOtherDocumentsLike (..)) +import ReOC.Name.ApplicationFormPersonnelHistory (ApplicationFormPersonnelHistoryLike (..)) +import ReOC.Name.ApplicationFormPrimaryContact (ApplicationFormPrimaryContactLike (..)) +import ReOC.Name.ApplicationFormProceduresLibrary (ApplicationFormProceduresLibraryLike (..)) +import ReOC.Name.ApplicationFormRegulatoryHistory (ApplicationFormRegulatoryHistoryLike (..)) +import ReOC.Name.ApplicationFormSignature (ApplicationFormSignatureLike (..)) +import ReOC.Name.ChiefExecutiveDirectorStatus (ChiefExecutiveDirectorStatusLike (..)) +import ReOC.Name.ChiefExecutiveManagementExperience (ChiefExecutiveManagementExperienceLike (..)) +import ReOC.Name.ChiefExecutiveNominee (ChiefExecutiveNomineeLike (..)) +import ReOC.Name.ChiefPilotCrpNominee (ChiefPilotCrpNomineeLike (..)) +import ReOC.Name.ChiefPilotOtherReOCRoles (ChiefPilotOtherReOCRolesLike (..)) +import ReOC.Name.ChiefPilotRadio (ChiefPilotRadioLike (..)) +import ReOC.Name.ChiefPilotRePLOrigin (ChiefPilotRePLOriginLike (..)) +import ReOC.Name.ChiefPilotRpaHistory (ChiefPilotRpaHistoryLike (..)) +import ReOC.Name.CompanyAbn (CompanyAbnLike (..)) +import ReOC.Name.CompanyArn (CompanyArnLike (..)) +import ReOC.Name.CompanyBusinessName (CompanyBusinessNameLike (..)) +import ReOC.Name.CompanyCompanyName (CompanyCompanyNameLike (..)) +import ReOC.Name.CompanyEmailAddress (CompanyEmailAddressLike (..)) +import ReOC.Name.CompanyOperationalHeadquarters (CompanyOperationalHeadquartersLike (..)) +import ReOC.Name.CompanyPhoneNumber (CompanyPhoneNumberLike (..)) +import ReOC.Name.CompanyRegisteredOffice (CompanyRegisteredOfficeLike (..)) +import ReOC.Name.ContactPersonEmailAddress (ContactPersonEmailAddressLike (..)) +import ReOC.Name.ContactPersonFullName (ContactPersonFullNameLike (..)) +import ReOC.Name.ContactPersonPhoneNumber (ContactPersonPhoneNumberLike (..)) +import ReOC.Name.ContactPersonPosition (ContactPersonPositionLike (..)) +import ReOC.Name.CriNomineeCriIsCEO (CriNomineeCriIsCEOLike (..)) +import ReOC.Name.CriNomineeCriIsCRP (CriNomineeCriIsCRPLike (..)) +import ReOC.Name.CriNomineeCriIsMC (CriNomineeCriIsMCLike (..)) +import ReOC.Name.CriNomineeCriNominated (CriNomineeCriNominatedLike (..)) +import ReOC.Name.CrpNomineeCrpIsCEO (CrpNomineeCrpIsCEOLike (..)) +import ReOC.Name.CrpNomineeCrpNominated (CrpNomineeCrpNominatedLike (..)) +import ReOC.Name.DeclarantFullName (DeclarantFullNameLike (..)) +import ReOC.Name.DeclarantRole (DeclarantRoleLike (..)) +import ReOC.Name.DeclarationDeclaredByAgent (DeclarationDeclaredByAgentLike (..)) +import ReOC.Name.DeclarationDeclaredByCEO (DeclarationDeclaredByCEOLike (..)) +import ReOC.Name.DeclarationDeclaredByOther (DeclarationDeclaredByOtherLike (..)) +import ReOC.Name.DeclarationDeclaredByResponsibleManager (DeclarationDeclaredByResponsibleManagerLike (..)) +import ReOC.Name.EmergencyActionActionSteps (EmergencyActionActionStepsLike (..)) +import ReOC.Name.EmergencyActionResponse (EmergencyActionResponseLike (..)) +import ReOC.Name.EmergencyActionSituation (EmergencyActionSituationLike (..)) +import ReOC.Name.EquipmentEquipmentDescription (EquipmentEquipmentDescriptionLike (..)) +import ReOC.Name.EquipmentSerialNumber (EquipmentSerialNumberLike (..)) +import ReOC.Name.FirstIssueDetails (FirstIssueDetailsLike (..)) +import ReOC.Name.FirstIssueEffective (FirstIssueEffectiveLike (..)) +import ReOC.Name.FirstIssueIssueDate (FirstIssueIssueDateLike (..)) +import ReOC.Name.FirstIssueParts (FirstIssuePartsLike (..)) +import ReOC.Name.FirstIssueVersion (FirstIssueVersionLike (..)) +import ReOC.Name.FlightTerminationFlightTerminationSystem (FlightTerminationFlightTerminationSystemLike (..)) +import ReOC.Name.FlightTerminationNoFlightTerminationSystem (FlightTerminationNoFlightTerminationSystemLike (..)) +import ReOC.Name.HistoryAnswerHistoryDisclosed (HistoryAnswerHistoryDisclosedLike (..)) +import ReOC.Name.HistoryAnswerNoHistory (HistoryAnswerNoHistoryLike (..)) +import ReOC.Name.KeyPersonnelChiefExecutive (KeyPersonnelChiefExecutiveLike (..)) +import ReOC.Name.KeyPersonnelChiefPilot (KeyPersonnelChiefPilotLike (..)) +import ReOC.Name.KeyPersonnelMcNominee (KeyPersonnelMcNomineeLike (..)) +import ReOC.Name.McNomineeMcIsCEO (McNomineeMcIsCEOLike (..)) +import ReOC.Name.McNomineeMcIsCRP (McNomineeMcIsCRPLike (..)) +import ReOC.Name.McNomineeMcNominated (McNomineeMcNominatedLike (..)) +import ReOC.Name.NomineeAviationExperience (NomineeAviationExperienceLike (..)) +import ReOC.Name.NomineeOtherQualifications (NomineeOtherQualificationsLike (..)) +import ReOC.Name.NomineePerson (NomineePersonLike (..)) +import ReOC.Name.OperatedTypeAirframes (OperatedTypeAirframesLike (..)) +import ReOC.Name.OperatedTypeRpaType (OperatedTypeRpaTypeLike (..)) +import ReOC.Name.OperationalExperienceHasOperationalExperience (OperationalExperienceHasOperationalExperienceLike (..)) +import ReOC.Name.OperationalExperienceOperationalExperienceIntent (OperationalExperienceOperationalExperienceIntentLike (..)) +import ReOC.Name.OperationalExperienceOperationalExperienceNotApplicable (OperationalExperienceOperationalExperienceNotApplicableLike (..)) +import ReOC.Name.OperationalHeadquartersAtRegisteredOffice (OperationalHeadquartersAtRegisteredOfficeLike (..)) +import ReOC.Name.OperationalHeadquartersOperationalHeadquartersAddress (OperationalHeadquartersOperationalHeadquartersAddressLike (..)) +import ReOC.Name.OperationsManualCrew (OperationsManualCrewLike (..)) +import ReOC.Name.OperationsManualFirstIssue (OperationsManualFirstIssueLike (..)) +import ReOC.Name.OperationsManualPilots (OperationsManualPilotsLike (..)) +import ReOC.Name.OperationsManualPolicies (OperationsManualPoliciesLike (..)) +import ReOC.Name.OperationsManualRevisions (OperationsManualRevisionsLike (..)) +import ReOC.Name.OperationsManualRiskRegister (OperationsManualRiskRegisterLike (..)) +import ReOC.Name.OperationsManualServices (OperationsManualServicesLike (..)) +import ReOC.Name.OperatorCompany (OperatorCompanyLike (..)) +import ReOC.Name.OperatorFleet (OperatorFleetLike (..)) +import ReOC.Name.OperatorKeyPersonnel (OperatorKeyPersonnelLike (..)) +import ReOC.Name.OtherReOCRolesNoOtherReOCRoles (OtherReOCRolesNoOtherReOCRolesLike (..)) +import ReOC.Name.OtherReOCRolesOtherReOCRolesHeld (OtherReOCRolesOtherReOCRolesHeldLike (..)) +import ReOC.Name.PersonArn (PersonArnLike (..)) +import ReOC.Name.PersonEmailAddress (PersonEmailAddressLike (..)) +import ReOC.Name.PersonFullName (PersonFullNameLike (..)) +import ReOC.Name.PersonPhoneNumber (PersonPhoneNumberLike (..)) +import ReOC.Name.PersonnelHistoryActionTaken (PersonnelHistoryActionTakenLike (..)) +import ReOC.Name.PersonnelHistoryCriminalConviction (PersonnelHistoryCriminalConvictionLike (..)) +import ReOC.Name.PersonnelHistorySuspensionPending (PersonnelHistorySuspensionPendingLike (..)) +import ReOC.Name.PersonnelHistoryTransportLicenceRefused (PersonnelHistoryTransportLicenceRefusedLike (..)) +import ReOC.Name.PoliciesAlcoholHours (PoliciesAlcoholHoursLike (..)) +import ReOC.Name.PoliciesBackupFrequency (PoliciesBackupFrequencyLike (..)) +import ReOC.Name.PoliciesBatteryReserve (PoliciesBatteryReserveLike (..)) +import ReOC.Name.PoliciesCheckingMonths (PoliciesCheckingMonthsLike (..)) +import ReOC.Name.PoliciesDutyHours (PoliciesDutyHoursLike (..)) +import ReOC.Name.PoliciesIndependentReviewYears (PoliciesIndependentReviewYearsLike (..)) +import ReOC.Name.PoliciesInspectionHours (PoliciesInspectionHoursLike (..)) +import ReOC.Name.PoliciesInspectionMonths (PoliciesInspectionMonthsLike (..)) +import ReOC.Name.PoliciesRecencyDays (PoliciesRecencyDaysLike (..)) +import ReOC.Name.PoliciesRecencyFlights (PoliciesRecencyFlightsLike (..)) +import ReOC.Name.PoliciesRefresherMonths (PoliciesRefresherMonthsLike (..)) +import ReOC.Name.PoliciesRestHours (PoliciesRestHoursLike (..)) +import ReOC.Name.PrimaryContactApplicantIsPrimaryContact (PrimaryContactApplicantIsPrimaryContactLike (..)) +import ReOC.Name.PrimaryContactPrimaryContactPerson (PrimaryContactPrimaryContactPersonLike (..)) +import ReOC.Name.ReOCApplicationForm (ReOCApplicationFormLike (..)) +import ReOC.Name.ReOCMaybeTrainingMaterial (ReOCMaybeTrainingMaterialLike (..)) +import ReOC.Name.ReOCOperationsManual (ReOCOperationsManualLike (..)) +import ReOC.Name.ReOCOperator (ReOCOperatorLike (..)) +import ReOC.Name.RePLHoldingHoldsRePLForEachType (RePLHoldingHoldsRePLForEachTypeLike (..)) +import ReOC.Name.RePLHoldingRePLHoldingIntent (RePLHoldingRePLHoldingIntentLike (..)) +import ReOC.Name.RePLOriginPplTheory (RePLOriginPplTheoryLike (..)) +import ReOC.Name.RePLOriginRePLTrainingOrganisation (RePLOriginRePLTrainingOrganisationLike (..)) +import ReOC.Name.RegulatoryActionActionDate (RegulatoryActionActionDateLike (..)) +import ReOC.Name.RegulatoryActionActionDetails (RegulatoryActionActionDetailsLike (..)) +import ReOC.Name.RegulatoryActionAuthorisationAction (RegulatoryActionAuthorisationActionLike (..)) +import ReOC.Name.RegulatoryActionReocSuspendedOrCancelled (RegulatoryActionReocSuspendedOrCancelledLike (..)) +import ReOC.Name.RegulatoryActionTypeOfAction (RegulatoryActionTypeOfActionLike (..)) +import ReOC.Name.RegulatoryHistoryNoRegulatoryAction (RegulatoryHistoryNoRegulatoryActionLike (..)) +import ReOC.Name.RegulatoryHistoryRegulatoryActionTaken (RegulatoryHistoryRegulatoryActionTakenLike (..)) +import ReOC.Name.RevisionDetails (RevisionDetailsLike (..)) +import ReOC.Name.RevisionEffective (RevisionEffectiveLike (..)) +import ReOC.Name.RevisionMonthsAfter (RevisionMonthsAfterLike (..)) +import ReOC.Name.RevisionParts (RevisionPartsLike (..)) +import ReOC.Name.RevisionVersionIncrement (RevisionVersionIncrementLike (..)) +import ReOC.Name.RiskAdditionalControls (RiskAdditionalControlsLike (..)) +import ReOC.Name.RiskAssessmentRiskConsequence (RiskAssessmentRiskConsequenceLike (..)) +import ReOC.Name.RiskAssessmentRiskLikelihood (RiskAssessmentRiskLikelihoodLike (..)) +import ReOC.Name.RiskDateEntered (RiskDateEnteredLike (..)) +import ReOC.Name.RiskExistingControls (RiskExistingControlsLike (..)) +import ReOC.Name.RiskHazard (RiskHazardLike (..)) +import ReOC.Name.RiskInitialRisk (RiskInitialRiskLike (..)) +import ReOC.Name.RiskResidualRisk (RiskResidualRiskLike (..)) +import ReOC.Name.RiskReviewMonths (RiskReviewMonthsLike (..)) +import ReOC.Name.RiskRiskDescription (RiskRiskDescriptionLike (..)) +import ReOC.Name.RiskRiskOwner (RiskRiskOwnerLike (..)) +import ReOC.Name.RpaTypeBatteryWarnings (RpaTypeBatteryWarningsLike (..)) +import ReOC.Name.RpaTypeBeforeFlight (RpaTypeBeforeFlightLike (..)) +import ReOC.Name.RpaTypeCategory (RpaTypeCategoryLike (..)) +import ReOC.Name.RpaTypeEmergencyActions (RpaTypeEmergencyActionsLike (..)) +import ReOC.Name.RpaTypeFlightTermination (RpaTypeFlightTerminationLike (..)) +import ReOC.Name.RpaTypeInspectionItems (RpaTypeInspectionItemsLike (..)) +import ReOC.Name.RpaTypeMaximumGrossWeight (RpaTypeMaximumGrossWeightLike (..)) +import ReOC.Name.RpaTypeRpaMake (RpaTypeRpaMakeLike (..)) +import ReOC.Name.RpaTypeRpaModel (RpaTypeRpaModelLike (..)) +import ReOC.Name.RpaTypeShortName (RpaTypeShortNameLike (..)) +import ReOC.Name.RpaTypeTransponderCarriage (RpaTypeTransponderCarriageLike (..)) +import ReOC.Name.RpaTypeUserManual (RpaTypeUserManualLike (..)) +import ReOC.Name.TeachingQualificationTeachingQualificationHeld (TeachingQualificationTeachingQualificationHeldLike (..)) +import ReOC.Name.TeachingQualificationTeachingQualificationIntent (TeachingQualificationTeachingQualificationIntentLike (..)) +import ReOC.Name.TrainingArrangementsExam (TrainingArrangementsExamLike (..)) +import ReOC.Name.TrainingArrangementsExamPassMark (TrainingArrangementsExamPassMarkLike (..)) +import ReOC.Name.TrainingArrangementsExaminer (TrainingArrangementsExaminerLike (..)) +import ReOC.Name.TrainingArrangementsMaxStudentsPerCourse (TrainingArrangementsMaxStudentsPerCourseLike (..)) +import ReOC.Name.TrainingArrangementsMaxStudentsPerInstructor (TrainingArrangementsMaxStudentsPerInstructorLike (..)) +import ReOC.Name.TrainingArrangementsPracticalAreas (TrainingArrangementsPracticalAreasLike (..)) +import ReOC.Name.TrainingArrangementsSimulator (TrainingArrangementsSimulatorLike (..)) +import ReOC.Name.TrainingArrangementsTakeover (TrainingArrangementsTakeoverLike (..)) +import ReOC.Name.TrainingArrangementsTheory (TrainingArrangementsTheoryLike (..)) +import ReOC.Name.TrainingArrangementsTheoryVenues (TrainingArrangementsTheoryVenuesLike (..)) +import ReOC.Name.TrainingCourseComplexities (TrainingCourseComplexitiesLike (..)) +import ReOC.Name.TrainingCourseCourseKind (TrainingCourseCourseKindLike (..)) +import ReOC.Name.TrainingCourseTrainingRPA (TrainingCourseTrainingRPALike (..)) +import ReOC.Name.TrainingMaterialCriNominee (TrainingMaterialCriNomineeLike (..)) +import ReOC.Name.TrainingMaterialCriOtherReOCRoles (TrainingMaterialCriOtherReOCRolesLike (..)) +import ReOC.Name.TrainingMaterialOperationalExperience (TrainingMaterialOperationalExperienceLike (..)) +import ReOC.Name.TrainingMaterialRePLHolding (TrainingMaterialRePLHoldingLike (..)) +import ReOC.Name.TrainingMaterialTeachingQualification (TrainingMaterialTeachingQualificationLike (..)) +import ReOC.Name.TrainingMaterialTrainingArrangements (TrainingMaterialTrainingArrangementsLike (..)) +import ReOC.Name.TrainingMaterialTrainingCourses (TrainingMaterialTrainingCoursesLike (..)) +import ReOC.Name.VersionMajorVersion (VersionMajorVersionLike (..)) +import ReOC.Name.VersionMinorVersion (VersionMinorVersionLike (..)) +import ReOC.Name.WrittenSignatureWrittenSignatureFile (WrittenSignatureWrittenSignatureFileLike (..)) +import ReOC.Name.WrittenSignatureWrittenSignatureImage (WrittenSignatureWrittenSignatureImageLike (..)) + +-- | A field of a form type, or a constructor of a form sum: a step of the path to a field, with its help text. +data Field + = PersonFullName + | PersonArn + | PersonPhoneNumber + | PersonEmailAddress + | AddressStreetAddress + | AddressSuburb + | AddressStateOrTerritory + | AddressPostcode + | OperationalHeadquartersAtRegisteredOffice + | OperationalHeadquartersOperationalHeadquartersAddress + | CompanyCompanyName + | CompanyAbn + | CompanyArn + | CompanyRegisteredOffice + | CompanyOperationalHeadquarters + | CompanyPhoneNumber + | CompanyEmailAddress + | CompanyBusinessName + | FlightTerminationNoFlightTerminationSystem + | FlightTerminationFlightTerminationSystem + | EmergencyActionSituation + | EmergencyActionResponse + | EmergencyActionActionSteps + | RPATypeRpaMake + | RPATypeRpaModel + | RPATypeShortName + | RPATypeCategory + | RPATypeMaximumGrossWeight + | RPATypeUserManual + | RPATypeTransponderCarriage + | RPATypeFlightTermination + | RPATypeInspectionItems + | RPATypeBeforeFlight + | RPATypeBatteryWarnings + | RPATypeEmergencyActions + | EquipmentEquipmentDescription + | EquipmentSerialNumber + | AircraftSerialNumber + | AircraftAssociatedEquipment + | OperatedTypeRpaType + | OperatedTypeAirframes + | RePLOriginPplTheory + | RePLOriginRePLTrainingOrganisation + | OtherReOCRolesNoOtherReOCRoles + | OtherReOCRolesOtherReOCRolesHeld + | NomineePerson + | NomineeOtherQualifications + | NomineeAviationExperience + | ChiefExecutiveNominee + | ChiefExecutiveDirectorStatus + | ChiefExecutiveManagementExperience + | CRPNomineeCrpIsCEO + | CRPNomineeCrpNominated + | ChiefPilotCrpNominee + | ChiefPilotRePLOrigin + | ChiefPilotRpaHistory + | ChiefPilotOtherReOCRoles + | ChiefPilotRadio + | MCNomineeMcIsCEO + | MCNomineeMcIsCRP + | MCNomineeMcNominated + | KeyPersonnelChiefExecutive + | KeyPersonnelChiefPilot + | KeyPersonnelMcNominee + | OperatorCompany + | OperatorKeyPersonnel + | OperatorFleet + | ContactPersonFullName + | ContactPersonPosition + | ContactPersonPhoneNumber + | ContactPersonEmailAddress + | PrimaryContactApplicantIsPrimaryContact + | PrimaryContactPrimaryContactPerson + | HistoryAnswerNoHistory + | HistoryAnswerHistoryDisclosed + | PersonnelHistoryActionTaken + | PersonnelHistoryTransportLicenceRefused + | PersonnelHistoryCriminalConviction + | PersonnelHistorySuspensionPending + | RegulatoryActionReocSuspendedOrCancelled + | RegulatoryActionTypeOfAction + | RegulatoryActionAuthorisationAction + | RegulatoryActionActionDate + | RegulatoryActionActionDetails + | RegulatoryHistoryNoRegulatoryAction + | RegulatoryHistoryRegulatoryActionTaken + | DeclarantFullName + | DeclarantRole + | DeclarationDeclaredByCEO + | DeclarationDeclaredByResponsibleManager + | DeclarationDeclaredByAgent + | DeclarationDeclaredByOther + | WrittenSignatureWrittenSignatureImage + | WrittenSignatureWrittenSignatureFile + | ApplicationFormPrimaryContact + | ApplicationFormPersonnelHistory + | ApplicationFormRegulatoryHistory + | ApplicationFormProceduresLibrary + | ApplicationFormOtherDocuments + | ApplicationFormDeclaration + | ApplicationFormSignature + | VersionMajorVersion + | VersionMinorVersion + | FirstIssueVersion + | FirstIssueIssueDate + | FirstIssueEffective + | FirstIssueParts + | FirstIssueDetails + | RevisionVersionIncrement + | RevisionMonthsAfter + | RevisionEffective + | RevisionParts + | RevisionDetails + | PoliciesRecencyFlights + | PoliciesRecencyDays + | PoliciesRefresherMonths + | PoliciesAlcoholHours + | PoliciesRestHours + | PoliciesDutyHours + | PoliciesInspectionMonths + | PoliciesInspectionHours + | PoliciesBatteryReserve + | PoliciesBackupFrequency + | PoliciesIndependentReviewYears + | PoliciesCheckingMonths + | RiskAssessmentRiskLikelihood + | RiskAssessmentRiskConsequence + | RiskHazard + | RiskRiskDescription + | RiskExistingControls + | RiskInitialRisk + | RiskAdditionalControls + | RiskResidualRisk + | RiskRiskOwner + | RiskDateEntered + | RiskReviewMonths + | OperationsManualFirstIssue + | OperationsManualRevisions + | OperationsManualServices + | OperationsManualPolicies + | OperationsManualRiskRegister + | OperationsManualCrew + | OperationsManualPilots + | CRINomineeCriIsCEO + | CRINomineeCriIsCRP + | CRINomineeCriIsMC + | CRINomineeCriNominated + | RePLHoldingHoldsRePLForEachType + | RePLHoldingRePLHoldingIntent + | TeachingQualificationTeachingQualificationHeld + | TeachingQualificationTeachingQualificationIntent + | OperationalExperienceHasOperationalExperience + | OperationalExperienceOperationalExperienceIntent + | OperationalExperienceOperationalExperienceNotApplicable + | TrainingCourseCourseKind + | TrainingCourseTrainingRPA + | TrainingCourseComplexities + | TrainingArrangementsTheoryVenues + | TrainingArrangementsPracticalAreas + | TrainingArrangementsMaxStudentsPerCourse + | TrainingArrangementsMaxStudentsPerInstructor + | TrainingArrangementsTakeover + | TrainingArrangementsTheory + | TrainingArrangementsExam + | TrainingArrangementsExamPassMark + | TrainingArrangementsExaminer + | TrainingArrangementsSimulator + | TrainingMaterialCriNominee + | TrainingMaterialRePLHolding + | TrainingMaterialTeachingQualification + | TrainingMaterialOperationalExperience + | TrainingMaterialCriOtherReOCRoles + | TrainingMaterialTrainingCourses + | TrainingMaterialTrainingArrangements + | ReOCOperator + | ReOCApplicationForm + | ReOCOperationsManual + | ReOCMaybeTrainingMaterial + deriving (Eq, Ord, Show) + +-- | The name of the data type @Field@. +class FieldLike p f x x' where + field :: + Optic p f x x' Field Field + +-- | Identity +instance (x' ~ Field) => FieldLike p f Field x' where + field = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PersonFullNameLike p f Field x' where + personFullName = prism' (\() -> PersonFullName) (\case PersonFullName -> Just (); PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PersonArnLike p f Field x' where + personArn = prism' (\() -> PersonArn) (\case PersonFullName -> Nothing; PersonArn -> Just (); PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PersonPhoneNumberLike p f Field x' where + personPhoneNumber = prism' (\() -> PersonPhoneNumber) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Just (); PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PersonEmailAddressLike p f Field x' where + personEmailAddress = prism' (\() -> PersonEmailAddress) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Just (); AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => AddressStreetAddressLike p f Field x' where + addressStreetAddress = prism' (\() -> AddressStreetAddress) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Just (); AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => AddressSuburbLike p f Field x' where + addressSuburb = prism' (\() -> AddressSuburb) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Just (); AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => AddressStateOrTerritoryLike p f Field x' where + addressStateOrTerritory = prism' (\() -> AddressStateOrTerritory) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Just (); AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => AddressPostcodeLike p f Field x' where + addressPostcode = prism' (\() -> AddressPostcode) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Just (); OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationalHeadquartersAtRegisteredOfficeLike p f Field x' where + operationalHeadquartersAtRegisteredOffice = prism' (\() -> OperationalHeadquartersAtRegisteredOffice) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Just (); OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationalHeadquartersOperationalHeadquartersAddressLike p f Field x' where + operationalHeadquartersOperationalHeadquartersAddress = prism' (\() -> OperationalHeadquartersOperationalHeadquartersAddress) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Just (); CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CompanyCompanyNameLike p f Field x' where + companyCompanyName = prism' (\() -> CompanyCompanyName) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Just (); CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CompanyAbnLike p f Field x' where + companyAbn = prism' (\() -> CompanyAbn) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Just (); CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CompanyArnLike p f Field x' where + companyArn = prism' (\() -> CompanyArn) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Just (); CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CompanyRegisteredOfficeLike p f Field x' where + companyRegisteredOffice = prism' (\() -> CompanyRegisteredOffice) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Just (); CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CompanyOperationalHeadquartersLike p f Field x' where + companyOperationalHeadquarters = prism' (\() -> CompanyOperationalHeadquarters) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Just (); CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CompanyPhoneNumberLike p f Field x' where + companyPhoneNumber = prism' (\() -> CompanyPhoneNumber) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Just (); CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CompanyEmailAddressLike p f Field x' where + companyEmailAddress = prism' (\() -> CompanyEmailAddress) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Just (); CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CompanyBusinessNameLike p f Field x' where + companyBusinessName = prism' (\() -> CompanyBusinessName) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Just (); FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => FlightTerminationNoFlightTerminationSystemLike p f Field x' where + flightTerminationNoFlightTerminationSystem = prism' (\() -> FlightTerminationNoFlightTerminationSystem) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Just (); FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => FlightTerminationFlightTerminationSystemLike p f Field x' where + flightTerminationFlightTerminationSystem = prism' (\() -> FlightTerminationFlightTerminationSystem) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Just (); EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => EmergencyActionSituationLike p f Field x' where + emergencyActionSituation = prism' (\() -> EmergencyActionSituation) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Just (); EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => EmergencyActionResponseLike p f Field x' where + emergencyActionResponse = prism' (\() -> EmergencyActionResponse) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Just (); EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => EmergencyActionActionStepsLike p f Field x' where + emergencyActionActionSteps = prism' (\() -> EmergencyActionActionSteps) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Just (); RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeRpaMakeLike p f Field x' where + rpaTypeRpaMake = prism' (\() -> RPATypeRpaMake) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Just (); RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeRpaModelLike p f Field x' where + rpaTypeRpaModel = prism' (\() -> RPATypeRpaModel) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Just (); RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeShortNameLike p f Field x' where + rpaTypeShortName = prism' (\() -> RPATypeShortName) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Just (); RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeCategoryLike p f Field x' where + rpaTypeCategory = prism' (\() -> RPATypeCategory) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Just (); RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeMaximumGrossWeightLike p f Field x' where + rpaTypeMaximumGrossWeight = prism' (\() -> RPATypeMaximumGrossWeight) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Just (); RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeUserManualLike p f Field x' where + rpaTypeUserManual = prism' (\() -> RPATypeUserManual) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Just (); RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeTransponderCarriageLike p f Field x' where + rpaTypeTransponderCarriage = prism' (\() -> RPATypeTransponderCarriage) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Just (); RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeFlightTerminationLike p f Field x' where + rpaTypeFlightTermination = prism' (\() -> RPATypeFlightTermination) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Just (); RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeInspectionItemsLike p f Field x' where + rpaTypeInspectionItems = prism' (\() -> RPATypeInspectionItems) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Just (); RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeBeforeFlightLike p f Field x' where + rpaTypeBeforeFlight = prism' (\() -> RPATypeBeforeFlight) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Just (); RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeBatteryWarningsLike p f Field x' where + rpaTypeBatteryWarnings = prism' (\() -> RPATypeBatteryWarnings) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Just (); RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RpaTypeEmergencyActionsLike p f Field x' where + rpaTypeEmergencyActions = prism' (\() -> RPATypeEmergencyActions) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Just (); EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => EquipmentEquipmentDescriptionLike p f Field x' where + equipmentEquipmentDescription = prism' (\() -> EquipmentEquipmentDescription) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Just (); EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => EquipmentSerialNumberLike p f Field x' where + equipmentSerialNumber = prism' (\() -> EquipmentSerialNumber) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Just (); AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => AircraftSerialNumberLike p f Field x' where + aircraftSerialNumber = prism' (\() -> AircraftSerialNumber) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Just (); AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => AircraftAssociatedEquipmentLike p f Field x' where + aircraftAssociatedEquipment = prism' (\() -> AircraftAssociatedEquipment) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Just (); OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperatedTypeRpaTypeLike p f Field x' where + operatedTypeRpaType = prism' (\() -> OperatedTypeRpaType) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Just (); OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperatedTypeAirframesLike p f Field x' where + operatedTypeAirframes = prism' (\() -> OperatedTypeAirframes) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Just (); RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RePLOriginPplTheoryLike p f Field x' where + rePLOriginPplTheory = prism' (\() -> RePLOriginPplTheory) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Just (); RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RePLOriginRePLTrainingOrganisationLike p f Field x' where + rePLOriginRePLTrainingOrganisation = prism' (\() -> RePLOriginRePLTrainingOrganisation) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Just (); OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OtherReOCRolesNoOtherReOCRolesLike p f Field x' where + otherReOCRolesNoOtherReOCRoles = prism' (\() -> OtherReOCRolesNoOtherReOCRoles) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Just (); OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OtherReOCRolesOtherReOCRolesHeldLike p f Field x' where + otherReOCRolesOtherReOCRolesHeld = prism' (\() -> OtherReOCRolesOtherReOCRolesHeld) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Just (); NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => NomineePersonLike p f Field x' where + nomineePerson = prism' (\() -> NomineePerson) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Just (); NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => NomineeOtherQualificationsLike p f Field x' where + nomineeOtherQualifications = prism' (\() -> NomineeOtherQualifications) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Just (); NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => NomineeAviationExperienceLike p f Field x' where + nomineeAviationExperience = prism' (\() -> NomineeAviationExperience) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Just (); ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ChiefExecutiveNomineeLike p f Field x' where + chiefExecutiveNominee = prism' (\() -> ChiefExecutiveNominee) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Just (); ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ChiefExecutiveDirectorStatusLike p f Field x' where + chiefExecutiveDirectorStatus = prism' (\() -> ChiefExecutiveDirectorStatus) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Just (); ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ChiefExecutiveManagementExperienceLike p f Field x' where + chiefExecutiveManagementExperience = prism' (\() -> ChiefExecutiveManagementExperience) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Just (); CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CrpNomineeCrpIsCEOLike p f Field x' where + crpNomineeCrpIsCEO = prism' (\() -> CRPNomineeCrpIsCEO) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Just (); CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CrpNomineeCrpNominatedLike p f Field x' where + crpNomineeCrpNominated = prism' (\() -> CRPNomineeCrpNominated) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Just (); ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ChiefPilotCrpNomineeLike p f Field x' where + chiefPilotCrpNominee = prism' (\() -> ChiefPilotCrpNominee) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Just (); ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ChiefPilotRePLOriginLike p f Field x' where + chiefPilotRePLOrigin = prism' (\() -> ChiefPilotRePLOrigin) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Just (); ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ChiefPilotRpaHistoryLike p f Field x' where + chiefPilotRpaHistory = prism' (\() -> ChiefPilotRpaHistory) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Just (); ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ChiefPilotOtherReOCRolesLike p f Field x' where + chiefPilotOtherReOCRoles = prism' (\() -> ChiefPilotOtherReOCRoles) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Just (); ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ChiefPilotRadioLike p f Field x' where + chiefPilotRadio = prism' (\() -> ChiefPilotRadio) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Just (); MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => McNomineeMcIsCEOLike p f Field x' where + mcNomineeMcIsCEO = prism' (\() -> MCNomineeMcIsCEO) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Just (); MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => McNomineeMcIsCRPLike p f Field x' where + mcNomineeMcIsCRP = prism' (\() -> MCNomineeMcIsCRP) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Just (); MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => McNomineeMcNominatedLike p f Field x' where + mcNomineeMcNominated = prism' (\() -> MCNomineeMcNominated) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Just (); KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => KeyPersonnelChiefExecutiveLike p f Field x' where + keyPersonnelChiefExecutive = prism' (\() -> KeyPersonnelChiefExecutive) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Just (); KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => KeyPersonnelChiefPilotLike p f Field x' where + keyPersonnelChiefPilot = prism' (\() -> KeyPersonnelChiefPilot) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Just (); KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => KeyPersonnelMcNomineeLike p f Field x' where + keyPersonnelMcNominee = prism' (\() -> KeyPersonnelMcNominee) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Just (); OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperatorCompanyLike p f Field x' where + operatorCompany = prism' (\() -> OperatorCompany) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Just (); OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperatorKeyPersonnelLike p f Field x' where + operatorKeyPersonnel = prism' (\() -> OperatorKeyPersonnel) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Just (); OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperatorFleetLike p f Field x' where + operatorFleet = prism' (\() -> OperatorFleet) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Just (); ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ContactPersonFullNameLike p f Field x' where + contactPersonFullName = prism' (\() -> ContactPersonFullName) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Just (); ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ContactPersonPositionLike p f Field x' where + contactPersonPosition = prism' (\() -> ContactPersonPosition) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Just (); ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ContactPersonPhoneNumberLike p f Field x' where + contactPersonPhoneNumber = prism' (\() -> ContactPersonPhoneNumber) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Just (); ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ContactPersonEmailAddressLike p f Field x' where + contactPersonEmailAddress = prism' (\() -> ContactPersonEmailAddress) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Just (); PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PrimaryContactApplicantIsPrimaryContactLike p f Field x' where + primaryContactApplicantIsPrimaryContact = prism' (\() -> PrimaryContactApplicantIsPrimaryContact) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Just (); PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PrimaryContactPrimaryContactPersonLike p f Field x' where + primaryContactPrimaryContactPerson = prism' (\() -> PrimaryContactPrimaryContactPerson) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Just (); HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => HistoryAnswerNoHistoryLike p f Field x' where + historyAnswerNoHistory = prism' (\() -> HistoryAnswerNoHistory) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Just (); HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => HistoryAnswerHistoryDisclosedLike p f Field x' where + historyAnswerHistoryDisclosed = prism' (\() -> HistoryAnswerHistoryDisclosed) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Just (); PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PersonnelHistoryActionTakenLike p f Field x' where + personnelHistoryActionTaken = prism' (\() -> PersonnelHistoryActionTaken) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Just (); PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PersonnelHistoryTransportLicenceRefusedLike p f Field x' where + personnelHistoryTransportLicenceRefused = prism' (\() -> PersonnelHistoryTransportLicenceRefused) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Just (); PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PersonnelHistoryCriminalConvictionLike p f Field x' where + personnelHistoryCriminalConviction = prism' (\() -> PersonnelHistoryCriminalConviction) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Just (); PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PersonnelHistorySuspensionPendingLike p f Field x' where + personnelHistorySuspensionPending = prism' (\() -> PersonnelHistorySuspensionPending) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Just (); RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RegulatoryActionReocSuspendedOrCancelledLike p f Field x' where + regulatoryActionReocSuspendedOrCancelled = prism' (\() -> RegulatoryActionReocSuspendedOrCancelled) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Just (); RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RegulatoryActionTypeOfActionLike p f Field x' where + regulatoryActionTypeOfAction = prism' (\() -> RegulatoryActionTypeOfAction) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Just (); RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RegulatoryActionAuthorisationActionLike p f Field x' where + regulatoryActionAuthorisationAction = prism' (\() -> RegulatoryActionAuthorisationAction) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Just (); RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RegulatoryActionActionDateLike p f Field x' where + regulatoryActionActionDate = prism' (\() -> RegulatoryActionActionDate) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Just (); RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RegulatoryActionActionDetailsLike p f Field x' where + regulatoryActionActionDetails = prism' (\() -> RegulatoryActionActionDetails) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Just (); RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RegulatoryHistoryNoRegulatoryActionLike p f Field x' where + regulatoryHistoryNoRegulatoryAction = prism' (\() -> RegulatoryHistoryNoRegulatoryAction) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Just (); RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RegulatoryHistoryRegulatoryActionTakenLike p f Field x' where + regulatoryHistoryRegulatoryActionTaken = prism' (\() -> RegulatoryHistoryRegulatoryActionTaken) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Just (); DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => DeclarantFullNameLike p f Field x' where + declarantFullName = prism' (\() -> DeclarantFullName) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Just (); DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => DeclarantRoleLike p f Field x' where + declarantRole = prism' (\() -> DeclarantRole) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Just (); DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => DeclarationDeclaredByCEOLike p f Field x' where + declarationDeclaredByCEO = prism' (\() -> DeclarationDeclaredByCEO) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Just (); DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => DeclarationDeclaredByResponsibleManagerLike p f Field x' where + declarationDeclaredByResponsibleManager = prism' (\() -> DeclarationDeclaredByResponsibleManager) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Just (); DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => DeclarationDeclaredByAgentLike p f Field x' where + declarationDeclaredByAgent = prism' (\() -> DeclarationDeclaredByAgent) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Just (); DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => DeclarationDeclaredByOtherLike p f Field x' where + declarationDeclaredByOther = prism' (\() -> DeclarationDeclaredByOther) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Just (); WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => WrittenSignatureWrittenSignatureImageLike p f Field x' where + writtenSignatureWrittenSignatureImage = prism' (\() -> WrittenSignatureWrittenSignatureImage) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Just (); WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => WrittenSignatureWrittenSignatureFileLike p f Field x' where + writtenSignatureWrittenSignatureFile = prism' (\() -> WrittenSignatureWrittenSignatureFile) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Just (); ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ApplicationFormPrimaryContactLike p f Field x' where + applicationFormPrimaryContact = prism' (\() -> ApplicationFormPrimaryContact) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Just (); ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ApplicationFormPersonnelHistoryLike p f Field x' where + applicationFormPersonnelHistory = prism' (\() -> ApplicationFormPersonnelHistory) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Just (); ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ApplicationFormRegulatoryHistoryLike p f Field x' where + applicationFormRegulatoryHistory = prism' (\() -> ApplicationFormRegulatoryHistory) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Just (); ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ApplicationFormProceduresLibraryLike p f Field x' where + applicationFormProceduresLibrary = prism' (\() -> ApplicationFormProceduresLibrary) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Just (); ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ApplicationFormOtherDocumentsLike p f Field x' where + applicationFormOtherDocuments = prism' (\() -> ApplicationFormOtherDocuments) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Just (); ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ApplicationFormDeclarationLike p f Field x' where + applicationFormDeclaration = prism' (\() -> ApplicationFormDeclaration) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Just (); ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ApplicationFormSignatureLike p f Field x' where + applicationFormSignature = prism' (\() -> ApplicationFormSignature) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Just (); VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => VersionMajorVersionLike p f Field x' where + versionMajorVersion = prism' (\() -> VersionMajorVersion) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Just (); VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => VersionMinorVersionLike p f Field x' where + versionMinorVersion = prism' (\() -> VersionMinorVersion) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Just (); FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => FirstIssueVersionLike p f Field x' where + firstIssueVersion = prism' (\() -> FirstIssueVersion) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Just (); FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => FirstIssueIssueDateLike p f Field x' where + firstIssueIssueDate = prism' (\() -> FirstIssueIssueDate) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Just (); FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => FirstIssueEffectiveLike p f Field x' where + firstIssueEffective = prism' (\() -> FirstIssueEffective) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Just (); FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => FirstIssuePartsLike p f Field x' where + firstIssueParts = prism' (\() -> FirstIssueParts) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Just (); FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => FirstIssueDetailsLike p f Field x' where + firstIssueDetails = prism' (\() -> FirstIssueDetails) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Just (); RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RevisionVersionIncrementLike p f Field x' where + revisionVersionIncrement = prism' (\() -> RevisionVersionIncrement) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Just (); RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RevisionMonthsAfterLike p f Field x' where + revisionMonthsAfter = prism' (\() -> RevisionMonthsAfter) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Just (); RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RevisionEffectiveLike p f Field x' where + revisionEffective = prism' (\() -> RevisionEffective) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Just (); RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RevisionPartsLike p f Field x' where + revisionParts = prism' (\() -> RevisionParts) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Just (); RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RevisionDetailsLike p f Field x' where + revisionDetails = prism' (\() -> RevisionDetails) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Just (); PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesRecencyFlightsLike p f Field x' where + policiesRecencyFlights = prism' (\() -> PoliciesRecencyFlights) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Just (); PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesRecencyDaysLike p f Field x' where + policiesRecencyDays = prism' (\() -> PoliciesRecencyDays) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Just (); PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesRefresherMonthsLike p f Field x' where + policiesRefresherMonths = prism' (\() -> PoliciesRefresherMonths) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Just (); PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesAlcoholHoursLike p f Field x' where + policiesAlcoholHours = prism' (\() -> PoliciesAlcoholHours) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Just (); PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesRestHoursLike p f Field x' where + policiesRestHours = prism' (\() -> PoliciesRestHours) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Just (); PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesDutyHoursLike p f Field x' where + policiesDutyHours = prism' (\() -> PoliciesDutyHours) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Just (); PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesInspectionMonthsLike p f Field x' where + policiesInspectionMonths = prism' (\() -> PoliciesInspectionMonths) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Just (); PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesInspectionHoursLike p f Field x' where + policiesInspectionHours = prism' (\() -> PoliciesInspectionHours) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Just (); PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesBatteryReserveLike p f Field x' where + policiesBatteryReserve = prism' (\() -> PoliciesBatteryReserve) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Just (); PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesBackupFrequencyLike p f Field x' where + policiesBackupFrequency = prism' (\() -> PoliciesBackupFrequency) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Just (); PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesIndependentReviewYearsLike p f Field x' where + policiesIndependentReviewYears = prism' (\() -> PoliciesIndependentReviewYears) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Just (); PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => PoliciesCheckingMonthsLike p f Field x' where + policiesCheckingMonths = prism' (\() -> PoliciesCheckingMonths) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Just (); RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskAssessmentRiskLikelihoodLike p f Field x' where + riskAssessmentRiskLikelihood = prism' (\() -> RiskAssessmentRiskLikelihood) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Just (); RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskAssessmentRiskConsequenceLike p f Field x' where + riskAssessmentRiskConsequence = prism' (\() -> RiskAssessmentRiskConsequence) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Just (); RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskHazardLike p f Field x' where + riskHazard = prism' (\() -> RiskHazard) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Just (); RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskRiskDescriptionLike p f Field x' where + riskRiskDescription = prism' (\() -> RiskRiskDescription) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Just (); RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskExistingControlsLike p f Field x' where + riskExistingControls = prism' (\() -> RiskExistingControls) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Just (); RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskInitialRiskLike p f Field x' where + riskInitialRisk = prism' (\() -> RiskInitialRisk) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Just (); RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskAdditionalControlsLike p f Field x' where + riskAdditionalControls = prism' (\() -> RiskAdditionalControls) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Just (); RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskResidualRiskLike p f Field x' where + riskResidualRisk = prism' (\() -> RiskResidualRisk) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Just (); RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskRiskOwnerLike p f Field x' where + riskRiskOwner = prism' (\() -> RiskRiskOwner) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Just (); RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskDateEnteredLike p f Field x' where + riskDateEntered = prism' (\() -> RiskDateEntered) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Just (); RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RiskReviewMonthsLike p f Field x' where + riskReviewMonths = prism' (\() -> RiskReviewMonths) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Just (); OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationsManualFirstIssueLike p f Field x' where + operationsManualFirstIssue = prism' (\() -> OperationsManualFirstIssue) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Just (); OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationsManualRevisionsLike p f Field x' where + operationsManualRevisions = prism' (\() -> OperationsManualRevisions) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Just (); OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationsManualServicesLike p f Field x' where + operationsManualServices = prism' (\() -> OperationsManualServices) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Just (); OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationsManualPoliciesLike p f Field x' where + operationsManualPolicies = prism' (\() -> OperationsManualPolicies) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Just (); OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationsManualRiskRegisterLike p f Field x' where + operationsManualRiskRegister = prism' (\() -> OperationsManualRiskRegister) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Just (); OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationsManualCrewLike p f Field x' where + operationsManualCrew = prism' (\() -> OperationsManualCrew) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Just (); OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationsManualPilotsLike p f Field x' where + operationsManualPilots = prism' (\() -> OperationsManualPilots) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Just (); CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CriNomineeCriIsCEOLike p f Field x' where + criNomineeCriIsCEO = prism' (\() -> CRINomineeCriIsCEO) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Just (); CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CriNomineeCriIsCRPLike p f Field x' where + criNomineeCriIsCRP = prism' (\() -> CRINomineeCriIsCRP) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Just (); CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CriNomineeCriIsMCLike p f Field x' where + criNomineeCriIsMC = prism' (\() -> CRINomineeCriIsMC) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Just (); CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => CriNomineeCriNominatedLike p f Field x' where + criNomineeCriNominated = prism' (\() -> CRINomineeCriNominated) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Just (); RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RePLHoldingHoldsRePLForEachTypeLike p f Field x' where + rePLHoldingHoldsRePLForEachType = prism' (\() -> RePLHoldingHoldsRePLForEachType) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Just (); RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => RePLHoldingRePLHoldingIntentLike p f Field x' where + rePLHoldingRePLHoldingIntent = prism' (\() -> RePLHoldingRePLHoldingIntent) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Just (); TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TeachingQualificationTeachingQualificationHeldLike p f Field x' where + teachingQualificationTeachingQualificationHeld = prism' (\() -> TeachingQualificationTeachingQualificationHeld) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Just (); TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TeachingQualificationTeachingQualificationIntentLike p f Field x' where + teachingQualificationTeachingQualificationIntent = prism' (\() -> TeachingQualificationTeachingQualificationIntent) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Just (); OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationalExperienceHasOperationalExperienceLike p f Field x' where + operationalExperienceHasOperationalExperience = prism' (\() -> OperationalExperienceHasOperationalExperience) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Just (); OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationalExperienceOperationalExperienceIntentLike p f Field x' where + operationalExperienceOperationalExperienceIntent = prism' (\() -> OperationalExperienceOperationalExperienceIntent) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Just (); OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => OperationalExperienceOperationalExperienceNotApplicableLike p f Field x' where + operationalExperienceOperationalExperienceNotApplicable = prism' (\() -> OperationalExperienceOperationalExperienceNotApplicable) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Just (); TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingCourseCourseKindLike p f Field x' where + trainingCourseCourseKind = prism' (\() -> TrainingCourseCourseKind) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Just (); TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingCourseTrainingRPALike p f Field x' where + trainingCourseTrainingRPA = prism' (\() -> TrainingCourseTrainingRPA) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Just (); TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingCourseComplexitiesLike p f Field x' where + trainingCourseComplexities = prism' (\() -> TrainingCourseComplexities) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Just (); TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsTheoryVenuesLike p f Field x' where + trainingArrangementsTheoryVenues = prism' (\() -> TrainingArrangementsTheoryVenues) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Just (); TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsPracticalAreasLike p f Field x' where + trainingArrangementsPracticalAreas = prism' (\() -> TrainingArrangementsPracticalAreas) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Just (); TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsMaxStudentsPerCourseLike p f Field x' where + trainingArrangementsMaxStudentsPerCourse = prism' (\() -> TrainingArrangementsMaxStudentsPerCourse) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Just (); TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsMaxStudentsPerInstructorLike p f Field x' where + trainingArrangementsMaxStudentsPerInstructor = prism' (\() -> TrainingArrangementsMaxStudentsPerInstructor) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Just (); TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsTakeoverLike p f Field x' where + trainingArrangementsTakeover = prism' (\() -> TrainingArrangementsTakeover) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Just (); TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsTheoryLike p f Field x' where + trainingArrangementsTheory = prism' (\() -> TrainingArrangementsTheory) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Just (); TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsExamLike p f Field x' where + trainingArrangementsExam = prism' (\() -> TrainingArrangementsExam) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Just (); TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsExamPassMarkLike p f Field x' where + trainingArrangementsExamPassMark = prism' (\() -> TrainingArrangementsExamPassMark) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Just (); TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsExaminerLike p f Field x' where + trainingArrangementsExaminer = prism' (\() -> TrainingArrangementsExaminer) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Just (); TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingArrangementsSimulatorLike p f Field x' where + trainingArrangementsSimulator = prism' (\() -> TrainingArrangementsSimulator) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Just (); TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingMaterialCriNomineeLike p f Field x' where + trainingMaterialCriNominee = prism' (\() -> TrainingMaterialCriNominee) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Just (); TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingMaterialRePLHoldingLike p f Field x' where + trainingMaterialRePLHolding = prism' (\() -> TrainingMaterialRePLHolding) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Just (); TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingMaterialTeachingQualificationLike p f Field x' where + trainingMaterialTeachingQualification = prism' (\() -> TrainingMaterialTeachingQualification) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Just (); TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingMaterialOperationalExperienceLike p f Field x' where + trainingMaterialOperationalExperience = prism' (\() -> TrainingMaterialOperationalExperience) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Just (); TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingMaterialCriOtherReOCRolesLike p f Field x' where + trainingMaterialCriOtherReOCRoles = prism' (\() -> TrainingMaterialCriOtherReOCRoles) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Just (); TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingMaterialTrainingCoursesLike p f Field x' where + trainingMaterialTrainingCourses = prism' (\() -> TrainingMaterialTrainingCourses) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Just (); TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => TrainingMaterialTrainingArrangementsLike p f Field x' where + trainingMaterialTrainingArrangements = prism' (\() -> TrainingMaterialTrainingArrangements) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Just (); ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ReOCOperatorLike p f Field x' where + reOCOperator = prism' (\() -> ReOCOperator) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Just (); ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ReOCApplicationFormLike p f Field x' where + reOCApplicationForm = prism' (\() -> ReOCApplicationForm) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Just (); ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ReOCOperationsManualLike p f Field x' where + reOCOperationsManual = prism' (\() -> ReOCOperationsManual) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Just (); ReOCMaybeTrainingMaterial -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Field) => ReOCMaybeTrainingMaterialLike p f Field x' where + reOCMaybeTrainingMaterial = prism' (\() -> ReOCMaybeTrainingMaterial) (\case PersonFullName -> Nothing; PersonArn -> Nothing; PersonPhoneNumber -> Nothing; PersonEmailAddress -> Nothing; AddressStreetAddress -> Nothing; AddressSuburb -> Nothing; AddressStateOrTerritory -> Nothing; AddressPostcode -> Nothing; OperationalHeadquartersAtRegisteredOffice -> Nothing; OperationalHeadquartersOperationalHeadquartersAddress -> Nothing; CompanyCompanyName -> Nothing; CompanyAbn -> Nothing; CompanyArn -> Nothing; CompanyRegisteredOffice -> Nothing; CompanyOperationalHeadquarters -> Nothing; CompanyPhoneNumber -> Nothing; CompanyEmailAddress -> Nothing; CompanyBusinessName -> Nothing; FlightTerminationNoFlightTerminationSystem -> Nothing; FlightTerminationFlightTerminationSystem -> Nothing; EmergencyActionSituation -> Nothing; EmergencyActionResponse -> Nothing; EmergencyActionActionSteps -> Nothing; RPATypeRpaMake -> Nothing; RPATypeRpaModel -> Nothing; RPATypeShortName -> Nothing; RPATypeCategory -> Nothing; RPATypeMaximumGrossWeight -> Nothing; RPATypeUserManual -> Nothing; RPATypeTransponderCarriage -> Nothing; RPATypeFlightTermination -> Nothing; RPATypeInspectionItems -> Nothing; RPATypeBeforeFlight -> Nothing; RPATypeBatteryWarnings -> Nothing; RPATypeEmergencyActions -> Nothing; EquipmentEquipmentDescription -> Nothing; EquipmentSerialNumber -> Nothing; AircraftSerialNumber -> Nothing; AircraftAssociatedEquipment -> Nothing; OperatedTypeRpaType -> Nothing; OperatedTypeAirframes -> Nothing; RePLOriginPplTheory -> Nothing; RePLOriginRePLTrainingOrganisation -> Nothing; OtherReOCRolesNoOtherReOCRoles -> Nothing; OtherReOCRolesOtherReOCRolesHeld -> Nothing; NomineePerson -> Nothing; NomineeOtherQualifications -> Nothing; NomineeAviationExperience -> Nothing; ChiefExecutiveNominee -> Nothing; ChiefExecutiveDirectorStatus -> Nothing; ChiefExecutiveManagementExperience -> Nothing; CRPNomineeCrpIsCEO -> Nothing; CRPNomineeCrpNominated -> Nothing; ChiefPilotCrpNominee -> Nothing; ChiefPilotRePLOrigin -> Nothing; ChiefPilotRpaHistory -> Nothing; ChiefPilotOtherReOCRoles -> Nothing; ChiefPilotRadio -> Nothing; MCNomineeMcIsCEO -> Nothing; MCNomineeMcIsCRP -> Nothing; MCNomineeMcNominated -> Nothing; KeyPersonnelChiefExecutive -> Nothing; KeyPersonnelChiefPilot -> Nothing; KeyPersonnelMcNominee -> Nothing; OperatorCompany -> Nothing; OperatorKeyPersonnel -> Nothing; OperatorFleet -> Nothing; ContactPersonFullName -> Nothing; ContactPersonPosition -> Nothing; ContactPersonPhoneNumber -> Nothing; ContactPersonEmailAddress -> Nothing; PrimaryContactApplicantIsPrimaryContact -> Nothing; PrimaryContactPrimaryContactPerson -> Nothing; HistoryAnswerNoHistory -> Nothing; HistoryAnswerHistoryDisclosed -> Nothing; PersonnelHistoryActionTaken -> Nothing; PersonnelHistoryTransportLicenceRefused -> Nothing; PersonnelHistoryCriminalConviction -> Nothing; PersonnelHistorySuspensionPending -> Nothing; RegulatoryActionReocSuspendedOrCancelled -> Nothing; RegulatoryActionTypeOfAction -> Nothing; RegulatoryActionAuthorisationAction -> Nothing; RegulatoryActionActionDate -> Nothing; RegulatoryActionActionDetails -> Nothing; RegulatoryHistoryNoRegulatoryAction -> Nothing; RegulatoryHistoryRegulatoryActionTaken -> Nothing; DeclarantFullName -> Nothing; DeclarantRole -> Nothing; DeclarationDeclaredByCEO -> Nothing; DeclarationDeclaredByResponsibleManager -> Nothing; DeclarationDeclaredByAgent -> Nothing; DeclarationDeclaredByOther -> Nothing; WrittenSignatureWrittenSignatureImage -> Nothing; WrittenSignatureWrittenSignatureFile -> Nothing; ApplicationFormPrimaryContact -> Nothing; ApplicationFormPersonnelHistory -> Nothing; ApplicationFormRegulatoryHistory -> Nothing; ApplicationFormProceduresLibrary -> Nothing; ApplicationFormOtherDocuments -> Nothing; ApplicationFormDeclaration -> Nothing; ApplicationFormSignature -> Nothing; VersionMajorVersion -> Nothing; VersionMinorVersion -> Nothing; FirstIssueVersion -> Nothing; FirstIssueIssueDate -> Nothing; FirstIssueEffective -> Nothing; FirstIssueParts -> Nothing; FirstIssueDetails -> Nothing; RevisionVersionIncrement -> Nothing; RevisionMonthsAfter -> Nothing; RevisionEffective -> Nothing; RevisionParts -> Nothing; RevisionDetails -> Nothing; PoliciesRecencyFlights -> Nothing; PoliciesRecencyDays -> Nothing; PoliciesRefresherMonths -> Nothing; PoliciesAlcoholHours -> Nothing; PoliciesRestHours -> Nothing; PoliciesDutyHours -> Nothing; PoliciesInspectionMonths -> Nothing; PoliciesInspectionHours -> Nothing; PoliciesBatteryReserve -> Nothing; PoliciesBackupFrequency -> Nothing; PoliciesIndependentReviewYears -> Nothing; PoliciesCheckingMonths -> Nothing; RiskAssessmentRiskLikelihood -> Nothing; RiskAssessmentRiskConsequence -> Nothing; RiskHazard -> Nothing; RiskRiskDescription -> Nothing; RiskExistingControls -> Nothing; RiskInitialRisk -> Nothing; RiskAdditionalControls -> Nothing; RiskResidualRisk -> Nothing; RiskRiskOwner -> Nothing; RiskDateEntered -> Nothing; RiskReviewMonths -> Nothing; OperationsManualFirstIssue -> Nothing; OperationsManualRevisions -> Nothing; OperationsManualServices -> Nothing; OperationsManualPolicies -> Nothing; OperationsManualRiskRegister -> Nothing; OperationsManualCrew -> Nothing; OperationsManualPilots -> Nothing; CRINomineeCriIsCEO -> Nothing; CRINomineeCriIsCRP -> Nothing; CRINomineeCriIsMC -> Nothing; CRINomineeCriNominated -> Nothing; RePLHoldingHoldsRePLForEachType -> Nothing; RePLHoldingRePLHoldingIntent -> Nothing; TeachingQualificationTeachingQualificationHeld -> Nothing; TeachingQualificationTeachingQualificationIntent -> Nothing; OperationalExperienceHasOperationalExperience -> Nothing; OperationalExperienceOperationalExperienceIntent -> Nothing; OperationalExperienceOperationalExperienceNotApplicable -> Nothing; TrainingCourseCourseKind -> Nothing; TrainingCourseTrainingRPA -> Nothing; TrainingCourseComplexities -> Nothing; TrainingArrangementsTheoryVenues -> Nothing; TrainingArrangementsPracticalAreas -> Nothing; TrainingArrangementsMaxStudentsPerCourse -> Nothing; TrainingArrangementsMaxStudentsPerInstructor -> Nothing; TrainingArrangementsTakeover -> Nothing; TrainingArrangementsTheory -> Nothing; TrainingArrangementsExam -> Nothing; TrainingArrangementsExamPassMark -> Nothing; TrainingArrangementsExaminer -> Nothing; TrainingArrangementsSimulator -> Nothing; TrainingMaterialCriNominee -> Nothing; TrainingMaterialRePLHolding -> Nothing; TrainingMaterialTeachingQualification -> Nothing; TrainingMaterialOperationalExperience -> Nothing; TrainingMaterialCriOtherReOCRoles -> Nothing; TrainingMaterialTrainingCourses -> Nothing; TrainingMaterialTrainingArrangements -> Nothing; ReOCOperator -> Nothing; ReOCApplicationForm -> Nothing; ReOCOperationsManual -> Nothing; ReOCMaybeTrainingMaterial -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesField == id +-} +lawNamesField :: Field -> Field +lawNamesField = \case + PersonFullName -> review personFullName () + PersonArn -> review personArn () + PersonPhoneNumber -> review personPhoneNumber () + PersonEmailAddress -> review personEmailAddress () + AddressStreetAddress -> review addressStreetAddress () + AddressSuburb -> review addressSuburb () + AddressStateOrTerritory -> review addressStateOrTerritory () + AddressPostcode -> review addressPostcode () + OperationalHeadquartersAtRegisteredOffice -> review operationalHeadquartersAtRegisteredOffice () + OperationalHeadquartersOperationalHeadquartersAddress -> review operationalHeadquartersOperationalHeadquartersAddress () + CompanyCompanyName -> review companyCompanyName () + CompanyAbn -> review companyAbn () + CompanyArn -> review companyArn () + CompanyRegisteredOffice -> review companyRegisteredOffice () + CompanyOperationalHeadquarters -> review companyOperationalHeadquarters () + CompanyPhoneNumber -> review companyPhoneNumber () + CompanyEmailAddress -> review companyEmailAddress () + CompanyBusinessName -> review companyBusinessName () + FlightTerminationNoFlightTerminationSystem -> review flightTerminationNoFlightTerminationSystem () + FlightTerminationFlightTerminationSystem -> review flightTerminationFlightTerminationSystem () + EmergencyActionSituation -> review emergencyActionSituation () + EmergencyActionResponse -> review emergencyActionResponse () + EmergencyActionActionSteps -> review emergencyActionActionSteps () + RPATypeRpaMake -> review rpaTypeRpaMake () + RPATypeRpaModel -> review rpaTypeRpaModel () + RPATypeShortName -> review rpaTypeShortName () + RPATypeCategory -> review rpaTypeCategory () + RPATypeMaximumGrossWeight -> review rpaTypeMaximumGrossWeight () + RPATypeUserManual -> review rpaTypeUserManual () + RPATypeTransponderCarriage -> review rpaTypeTransponderCarriage () + RPATypeFlightTermination -> review rpaTypeFlightTermination () + RPATypeInspectionItems -> review rpaTypeInspectionItems () + RPATypeBeforeFlight -> review rpaTypeBeforeFlight () + RPATypeBatteryWarnings -> review rpaTypeBatteryWarnings () + RPATypeEmergencyActions -> review rpaTypeEmergencyActions () + EquipmentEquipmentDescription -> review equipmentEquipmentDescription () + EquipmentSerialNumber -> review equipmentSerialNumber () + AircraftSerialNumber -> review aircraftSerialNumber () + AircraftAssociatedEquipment -> review aircraftAssociatedEquipment () + OperatedTypeRpaType -> review operatedTypeRpaType () + OperatedTypeAirframes -> review operatedTypeAirframes () + RePLOriginPplTheory -> review rePLOriginPplTheory () + RePLOriginRePLTrainingOrganisation -> review rePLOriginRePLTrainingOrganisation () + OtherReOCRolesNoOtherReOCRoles -> review otherReOCRolesNoOtherReOCRoles () + OtherReOCRolesOtherReOCRolesHeld -> review otherReOCRolesOtherReOCRolesHeld () + NomineePerson -> review nomineePerson () + NomineeOtherQualifications -> review nomineeOtherQualifications () + NomineeAviationExperience -> review nomineeAviationExperience () + ChiefExecutiveNominee -> review chiefExecutiveNominee () + ChiefExecutiveDirectorStatus -> review chiefExecutiveDirectorStatus () + ChiefExecutiveManagementExperience -> review chiefExecutiveManagementExperience () + CRPNomineeCrpIsCEO -> review crpNomineeCrpIsCEO () + CRPNomineeCrpNominated -> review crpNomineeCrpNominated () + ChiefPilotCrpNominee -> review chiefPilotCrpNominee () + ChiefPilotRePLOrigin -> review chiefPilotRePLOrigin () + ChiefPilotRpaHistory -> review chiefPilotRpaHistory () + ChiefPilotOtherReOCRoles -> review chiefPilotOtherReOCRoles () + ChiefPilotRadio -> review chiefPilotRadio () + MCNomineeMcIsCEO -> review mcNomineeMcIsCEO () + MCNomineeMcIsCRP -> review mcNomineeMcIsCRP () + MCNomineeMcNominated -> review mcNomineeMcNominated () + KeyPersonnelChiefExecutive -> review keyPersonnelChiefExecutive () + KeyPersonnelChiefPilot -> review keyPersonnelChiefPilot () + KeyPersonnelMcNominee -> review keyPersonnelMcNominee () + OperatorCompany -> review operatorCompany () + OperatorKeyPersonnel -> review operatorKeyPersonnel () + OperatorFleet -> review operatorFleet () + ContactPersonFullName -> review contactPersonFullName () + ContactPersonPosition -> review contactPersonPosition () + ContactPersonPhoneNumber -> review contactPersonPhoneNumber () + ContactPersonEmailAddress -> review contactPersonEmailAddress () + PrimaryContactApplicantIsPrimaryContact -> review primaryContactApplicantIsPrimaryContact () + PrimaryContactPrimaryContactPerson -> review primaryContactPrimaryContactPerson () + HistoryAnswerNoHistory -> review historyAnswerNoHistory () + HistoryAnswerHistoryDisclosed -> review historyAnswerHistoryDisclosed () + PersonnelHistoryActionTaken -> review personnelHistoryActionTaken () + PersonnelHistoryTransportLicenceRefused -> review personnelHistoryTransportLicenceRefused () + PersonnelHistoryCriminalConviction -> review personnelHistoryCriminalConviction () + PersonnelHistorySuspensionPending -> review personnelHistorySuspensionPending () + RegulatoryActionReocSuspendedOrCancelled -> review regulatoryActionReocSuspendedOrCancelled () + RegulatoryActionTypeOfAction -> review regulatoryActionTypeOfAction () + RegulatoryActionAuthorisationAction -> review regulatoryActionAuthorisationAction () + RegulatoryActionActionDate -> review regulatoryActionActionDate () + RegulatoryActionActionDetails -> review regulatoryActionActionDetails () + RegulatoryHistoryNoRegulatoryAction -> review regulatoryHistoryNoRegulatoryAction () + RegulatoryHistoryRegulatoryActionTaken -> review regulatoryHistoryRegulatoryActionTaken () + DeclarantFullName -> review declarantFullName () + DeclarantRole -> review declarantRole () + DeclarationDeclaredByCEO -> review declarationDeclaredByCEO () + DeclarationDeclaredByResponsibleManager -> review declarationDeclaredByResponsibleManager () + DeclarationDeclaredByAgent -> review declarationDeclaredByAgent () + DeclarationDeclaredByOther -> review declarationDeclaredByOther () + WrittenSignatureWrittenSignatureImage -> review writtenSignatureWrittenSignatureImage () + WrittenSignatureWrittenSignatureFile -> review writtenSignatureWrittenSignatureFile () + ApplicationFormPrimaryContact -> review applicationFormPrimaryContact () + ApplicationFormPersonnelHistory -> review applicationFormPersonnelHistory () + ApplicationFormRegulatoryHistory -> review applicationFormRegulatoryHistory () + ApplicationFormProceduresLibrary -> review applicationFormProceduresLibrary () + ApplicationFormOtherDocuments -> review applicationFormOtherDocuments () + ApplicationFormDeclaration -> review applicationFormDeclaration () + ApplicationFormSignature -> review applicationFormSignature () + VersionMajorVersion -> review versionMajorVersion () + VersionMinorVersion -> review versionMinorVersion () + FirstIssueVersion -> review firstIssueVersion () + FirstIssueIssueDate -> review firstIssueIssueDate () + FirstIssueEffective -> review firstIssueEffective () + FirstIssueParts -> review firstIssueParts () + FirstIssueDetails -> review firstIssueDetails () + RevisionVersionIncrement -> review revisionVersionIncrement () + RevisionMonthsAfter -> review revisionMonthsAfter () + RevisionEffective -> review revisionEffective () + RevisionParts -> review revisionParts () + RevisionDetails -> review revisionDetails () + PoliciesRecencyFlights -> review policiesRecencyFlights () + PoliciesRecencyDays -> review policiesRecencyDays () + PoliciesRefresherMonths -> review policiesRefresherMonths () + PoliciesAlcoholHours -> review policiesAlcoholHours () + PoliciesRestHours -> review policiesRestHours () + PoliciesDutyHours -> review policiesDutyHours () + PoliciesInspectionMonths -> review policiesInspectionMonths () + PoliciesInspectionHours -> review policiesInspectionHours () + PoliciesBatteryReserve -> review policiesBatteryReserve () + PoliciesBackupFrequency -> review policiesBackupFrequency () + PoliciesIndependentReviewYears -> review policiesIndependentReviewYears () + PoliciesCheckingMonths -> review policiesCheckingMonths () + RiskAssessmentRiskLikelihood -> review riskAssessmentRiskLikelihood () + RiskAssessmentRiskConsequence -> review riskAssessmentRiskConsequence () + RiskHazard -> review riskHazard () + RiskRiskDescription -> review riskRiskDescription () + RiskExistingControls -> review riskExistingControls () + RiskInitialRisk -> review riskInitialRisk () + RiskAdditionalControls -> review riskAdditionalControls () + RiskResidualRisk -> review riskResidualRisk () + RiskRiskOwner -> review riskRiskOwner () + RiskDateEntered -> review riskDateEntered () + RiskReviewMonths -> review riskReviewMonths () + OperationsManualFirstIssue -> review operationsManualFirstIssue () + OperationsManualRevisions -> review operationsManualRevisions () + OperationsManualServices -> review operationsManualServices () + OperationsManualPolicies -> review operationsManualPolicies () + OperationsManualRiskRegister -> review operationsManualRiskRegister () + OperationsManualCrew -> review operationsManualCrew () + OperationsManualPilots -> review operationsManualPilots () + CRINomineeCriIsCEO -> review criNomineeCriIsCEO () + CRINomineeCriIsCRP -> review criNomineeCriIsCRP () + CRINomineeCriIsMC -> review criNomineeCriIsMC () + CRINomineeCriNominated -> review criNomineeCriNominated () + RePLHoldingHoldsRePLForEachType -> review rePLHoldingHoldsRePLForEachType () + RePLHoldingRePLHoldingIntent -> review rePLHoldingRePLHoldingIntent () + TeachingQualificationTeachingQualificationHeld -> review teachingQualificationTeachingQualificationHeld () + TeachingQualificationTeachingQualificationIntent -> review teachingQualificationTeachingQualificationIntent () + OperationalExperienceHasOperationalExperience -> review operationalExperienceHasOperationalExperience () + OperationalExperienceOperationalExperienceIntent -> review operationalExperienceOperationalExperienceIntent () + OperationalExperienceOperationalExperienceNotApplicable -> review operationalExperienceOperationalExperienceNotApplicable () + TrainingCourseCourseKind -> review trainingCourseCourseKind () + TrainingCourseTrainingRPA -> review trainingCourseTrainingRPA () + TrainingCourseComplexities -> review trainingCourseComplexities () + TrainingArrangementsTheoryVenues -> review trainingArrangementsTheoryVenues () + TrainingArrangementsPracticalAreas -> review trainingArrangementsPracticalAreas () + TrainingArrangementsMaxStudentsPerCourse -> review trainingArrangementsMaxStudentsPerCourse () + TrainingArrangementsMaxStudentsPerInstructor -> review trainingArrangementsMaxStudentsPerInstructor () + TrainingArrangementsTakeover -> review trainingArrangementsTakeover () + TrainingArrangementsTheory -> review trainingArrangementsTheory () + TrainingArrangementsExam -> review trainingArrangementsExam () + TrainingArrangementsExamPassMark -> review trainingArrangementsExamPassMark () + TrainingArrangementsExaminer -> review trainingArrangementsExaminer () + TrainingArrangementsSimulator -> review trainingArrangementsSimulator () + TrainingMaterialCriNominee -> review trainingMaterialCriNominee () + TrainingMaterialRePLHolding -> review trainingMaterialRePLHolding () + TrainingMaterialTeachingQualification -> review trainingMaterialTeachingQualification () + TrainingMaterialOperationalExperience -> review trainingMaterialOperationalExperience () + TrainingMaterialCriOtherReOCRoles -> review trainingMaterialCriOtherReOCRoles () + TrainingMaterialTrainingCourses -> review trainingMaterialTrainingCourses () + TrainingMaterialTrainingArrangements -> review trainingMaterialTrainingArrangements () + ReOCOperator -> review reOCOperator () + ReOCApplicationForm -> review reOCApplicationForm () + ReOCOperationsManual -> review reOCOperationsManual () + ReOCMaybeTrainingMaterial -> review reOCMaybeTrainingMaterial () + +-- | The classes that a data type holding @Field@ in one field, or in one or more constructors, inherits. +type InheritField s = + ( ( FieldLike (->) (Const ()) s s + , PersonFullNameLike (->) (Const ()) s s + , PersonArnLike (->) (Const ()) s s + , PersonPhoneNumberLike (->) (Const ()) s s + , PersonEmailAddressLike (->) (Const ()) s s + , AddressStreetAddressLike (->) (Const ()) s s + , AddressSuburbLike (->) (Const ()) s s + , AddressStateOrTerritoryLike (->) (Const ()) s s + , AddressPostcodeLike (->) (Const ()) s s + , OperationalHeadquartersAtRegisteredOfficeLike (->) (Const ()) s s + , OperationalHeadquartersOperationalHeadquartersAddressLike (->) (Const ()) s s + , CompanyCompanyNameLike (->) (Const ()) s s + , CompanyAbnLike (->) (Const ()) s s + , CompanyArnLike (->) (Const ()) s s + , CompanyRegisteredOfficeLike (->) (Const ()) s s + , CompanyOperationalHeadquartersLike (->) (Const ()) s s + , CompanyPhoneNumberLike (->) (Const ()) s s + , CompanyEmailAddressLike (->) (Const ()) s s + , CompanyBusinessNameLike (->) (Const ()) s s + , FlightTerminationNoFlightTerminationSystemLike (->) (Const ()) s s + , FlightTerminationFlightTerminationSystemLike (->) (Const ()) s s + , EmergencyActionSituationLike (->) (Const ()) s s + , EmergencyActionResponseLike (->) (Const ()) s s + , EmergencyActionActionStepsLike (->) (Const ()) s s + , RpaTypeRpaMakeLike (->) (Const ()) s s + , RpaTypeRpaModelLike (->) (Const ()) s s + , RpaTypeShortNameLike (->) (Const ()) s s + , RpaTypeCategoryLike (->) (Const ()) s s + , RpaTypeMaximumGrossWeightLike (->) (Const ()) s s + , RpaTypeUserManualLike (->) (Const ()) s s + , RpaTypeTransponderCarriageLike (->) (Const ()) s s + , RpaTypeFlightTerminationLike (->) (Const ()) s s + , RpaTypeInspectionItemsLike (->) (Const ()) s s + , RpaTypeBeforeFlightLike (->) (Const ()) s s + , RpaTypeBatteryWarningsLike (->) (Const ()) s s + , RpaTypeEmergencyActionsLike (->) (Const ()) s s + , EquipmentEquipmentDescriptionLike (->) (Const ()) s s + , EquipmentSerialNumberLike (->) (Const ()) s s + , AircraftSerialNumberLike (->) (Const ()) s s + , AircraftAssociatedEquipmentLike (->) (Const ()) s s + , OperatedTypeRpaTypeLike (->) (Const ()) s s + , OperatedTypeAirframesLike (->) (Const ()) s s + , RePLOriginPplTheoryLike (->) (Const ()) s s + , RePLOriginRePLTrainingOrganisationLike (->) (Const ()) s s + , OtherReOCRolesNoOtherReOCRolesLike (->) (Const ()) s s + , OtherReOCRolesOtherReOCRolesHeldLike (->) (Const ()) s s + , NomineePersonLike (->) (Const ()) s s + , NomineeOtherQualificationsLike (->) (Const ()) s s + , NomineeAviationExperienceLike (->) (Const ()) s s + , ChiefExecutiveNomineeLike (->) (Const ()) s s + ) + , ( ChiefExecutiveDirectorStatusLike (->) (Const ()) s s + , ChiefExecutiveManagementExperienceLike (->) (Const ()) s s + , CrpNomineeCrpIsCEOLike (->) (Const ()) s s + , CrpNomineeCrpNominatedLike (->) (Const ()) s s + , ChiefPilotCrpNomineeLike (->) (Const ()) s s + , ChiefPilotRePLOriginLike (->) (Const ()) s s + , ChiefPilotRpaHistoryLike (->) (Const ()) s s + , ChiefPilotOtherReOCRolesLike (->) (Const ()) s s + , ChiefPilotRadioLike (->) (Const ()) s s + , McNomineeMcIsCEOLike (->) (Const ()) s s + , McNomineeMcIsCRPLike (->) (Const ()) s s + , McNomineeMcNominatedLike (->) (Const ()) s s + , KeyPersonnelChiefExecutiveLike (->) (Const ()) s s + , KeyPersonnelChiefPilotLike (->) (Const ()) s s + , KeyPersonnelMcNomineeLike (->) (Const ()) s s + , OperatorCompanyLike (->) (Const ()) s s + , OperatorKeyPersonnelLike (->) (Const ()) s s + , OperatorFleetLike (->) (Const ()) s s + , ContactPersonFullNameLike (->) (Const ()) s s + , ContactPersonPositionLike (->) (Const ()) s s + , ContactPersonPhoneNumberLike (->) (Const ()) s s + , ContactPersonEmailAddressLike (->) (Const ()) s s + , PrimaryContactApplicantIsPrimaryContactLike (->) (Const ()) s s + , PrimaryContactPrimaryContactPersonLike (->) (Const ()) s s + , HistoryAnswerNoHistoryLike (->) (Const ()) s s + , HistoryAnswerHistoryDisclosedLike (->) (Const ()) s s + , PersonnelHistoryActionTakenLike (->) (Const ()) s s + , PersonnelHistoryTransportLicenceRefusedLike (->) (Const ()) s s + , PersonnelHistoryCriminalConvictionLike (->) (Const ()) s s + , PersonnelHistorySuspensionPendingLike (->) (Const ()) s s + , RegulatoryActionReocSuspendedOrCancelledLike (->) (Const ()) s s + , RegulatoryActionTypeOfActionLike (->) (Const ()) s s + , RegulatoryActionAuthorisationActionLike (->) (Const ()) s s + , RegulatoryActionActionDateLike (->) (Const ()) s s + , RegulatoryActionActionDetailsLike (->) (Const ()) s s + , RegulatoryHistoryNoRegulatoryActionLike (->) (Const ()) s s + , RegulatoryHistoryRegulatoryActionTakenLike (->) (Const ()) s s + , DeclarantFullNameLike (->) (Const ()) s s + , DeclarantRoleLike (->) (Const ()) s s + , DeclarationDeclaredByCEOLike (->) (Const ()) s s + , DeclarationDeclaredByResponsibleManagerLike (->) (Const ()) s s + , DeclarationDeclaredByAgentLike (->) (Const ()) s s + , DeclarationDeclaredByOtherLike (->) (Const ()) s s + , WrittenSignatureWrittenSignatureImageLike (->) (Const ()) s s + , WrittenSignatureWrittenSignatureFileLike (->) (Const ()) s s + , ApplicationFormPrimaryContactLike (->) (Const ()) s s + , ApplicationFormPersonnelHistoryLike (->) (Const ()) s s + , ApplicationFormRegulatoryHistoryLike (->) (Const ()) s s + , ApplicationFormProceduresLibraryLike (->) (Const ()) s s + , ApplicationFormOtherDocumentsLike (->) (Const ()) s s + ) + , ( ApplicationFormDeclarationLike (->) (Const ()) s s + , ApplicationFormSignatureLike (->) (Const ()) s s + , VersionMajorVersionLike (->) (Const ()) s s + , VersionMinorVersionLike (->) (Const ()) s s + , FirstIssueVersionLike (->) (Const ()) s s + , FirstIssueIssueDateLike (->) (Const ()) s s + , FirstIssueEffectiveLike (->) (Const ()) s s + , FirstIssuePartsLike (->) (Const ()) s s + , FirstIssueDetailsLike (->) (Const ()) s s + , RevisionVersionIncrementLike (->) (Const ()) s s + , RevisionMonthsAfterLike (->) (Const ()) s s + , RevisionEffectiveLike (->) (Const ()) s s + , RevisionPartsLike (->) (Const ()) s s + , RevisionDetailsLike (->) (Const ()) s s + , PoliciesRecencyFlightsLike (->) (Const ()) s s + , PoliciesRecencyDaysLike (->) (Const ()) s s + , PoliciesRefresherMonthsLike (->) (Const ()) s s + , PoliciesAlcoholHoursLike (->) (Const ()) s s + , PoliciesRestHoursLike (->) (Const ()) s s + , PoliciesDutyHoursLike (->) (Const ()) s s + , PoliciesInspectionMonthsLike (->) (Const ()) s s + , PoliciesInspectionHoursLike (->) (Const ()) s s + , PoliciesBatteryReserveLike (->) (Const ()) s s + , PoliciesBackupFrequencyLike (->) (Const ()) s s + , PoliciesIndependentReviewYearsLike (->) (Const ()) s s + , PoliciesCheckingMonthsLike (->) (Const ()) s s + , RiskAssessmentRiskLikelihoodLike (->) (Const ()) s s + , RiskAssessmentRiskConsequenceLike (->) (Const ()) s s + , RiskHazardLike (->) (Const ()) s s + , RiskRiskDescriptionLike (->) (Const ()) s s + , RiskExistingControlsLike (->) (Const ()) s s + , RiskInitialRiskLike (->) (Const ()) s s + , RiskAdditionalControlsLike (->) (Const ()) s s + , RiskResidualRiskLike (->) (Const ()) s s + , RiskRiskOwnerLike (->) (Const ()) s s + , RiskDateEnteredLike (->) (Const ()) s s + , RiskReviewMonthsLike (->) (Const ()) s s + , OperationsManualFirstIssueLike (->) (Const ()) s s + , OperationsManualRevisionsLike (->) (Const ()) s s + , OperationsManualServicesLike (->) (Const ()) s s + , OperationsManualPoliciesLike (->) (Const ()) s s + , OperationsManualRiskRegisterLike (->) (Const ()) s s + , OperationsManualCrewLike (->) (Const ()) s s + , OperationsManualPilotsLike (->) (Const ()) s s + , CriNomineeCriIsCEOLike (->) (Const ()) s s + , CriNomineeCriIsCRPLike (->) (Const ()) s s + , CriNomineeCriIsMCLike (->) (Const ()) s s + , CriNomineeCriNominatedLike (->) (Const ()) s s + , RePLHoldingHoldsRePLForEachTypeLike (->) (Const ()) s s + , RePLHoldingRePLHoldingIntentLike (->) (Const ()) s s + ) + , ( TeachingQualificationTeachingQualificationHeldLike (->) (Const ()) s s + , TeachingQualificationTeachingQualificationIntentLike (->) (Const ()) s s + , OperationalExperienceHasOperationalExperienceLike (->) (Const ()) s s + , OperationalExperienceOperationalExperienceIntentLike (->) (Const ()) s s + , OperationalExperienceOperationalExperienceNotApplicableLike (->) (Const ()) s s + , TrainingCourseCourseKindLike (->) (Const ()) s s + , TrainingCourseTrainingRPALike (->) (Const ()) s s + , TrainingCourseComplexitiesLike (->) (Const ()) s s + , TrainingArrangementsTheoryVenuesLike (->) (Const ()) s s + , TrainingArrangementsPracticalAreasLike (->) (Const ()) s s + , TrainingArrangementsMaxStudentsPerCourseLike (->) (Const ()) s s + , TrainingArrangementsMaxStudentsPerInstructorLike (->) (Const ()) s s + , TrainingArrangementsTakeoverLike (->) (Const ()) s s + , TrainingArrangementsTheoryLike (->) (Const ()) s s + , TrainingArrangementsExamLike (->) (Const ()) s s + , TrainingArrangementsExamPassMarkLike (->) (Const ()) s s + , TrainingArrangementsExaminerLike (->) (Const ()) s s + , TrainingArrangementsSimulatorLike (->) (Const ()) s s + , TrainingMaterialCriNomineeLike (->) (Const ()) s s + , TrainingMaterialRePLHoldingLike (->) (Const ()) s s + , TrainingMaterialTeachingQualificationLike (->) (Const ()) s s + , TrainingMaterialOperationalExperienceLike (->) (Const ()) s s + , TrainingMaterialCriOtherReOCRolesLike (->) (Const ()) s s + , TrainingMaterialTrainingCoursesLike (->) (Const ()) s s + , TrainingMaterialTrainingArrangementsLike (->) (Const ()) s s + , ReOCOperatorLike (->) (Const ()) s s + , ReOCApplicationFormLike (->) (Const ()) s s + , ReOCOperationsManualLike (->) (Const ()) s s + , ReOCMaybeTrainingMaterialLike (->) (Const ()) s s + ) + ) + +-- | Checks that a data type inherits every class of @InheritField@. +inheritField :: (InheritField s) => proxy s -> () +inheritField _ = () diff --git a/src/ReOC/Data/FirstIssue.hs b/src/ReOC/Data/FirstIssue.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/FirstIssue.hs @@ -0,0 +1,111 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritFirstIssue') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @FirstIssue'@: the first entry in the amendment record of the operations manual: its version and date, and the effective date, parts and details. +module ReOC.Data.FirstIssue ( + FirstIssue' (..), + FirstIssue'Like (..), + lawNamesFirstIssue', + FirstIssue, + UnfilledFirstIssue, + mkUnfilledFirstIssue, + InheritFirstIssue', + inheritFirstIssue', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import Data.Time.Calendar.Month (Month) +import ReOC.Data.Version (UnfilledVersion, Version, mkUnfilledVersion) +import ReOC.Name.Details (DetailsLike (..)) +import ReOC.Name.Effective (EffectiveLike (..)) +import ReOC.Name.IssueDate (IssueDateLike (..)) +import ReOC.Name.Parts (PartsLike (..)) +import ReOC.Name.Version (VersionLike (..)) +import ReOC.Primitive.Text1 (Text1) + +-- | The first entry in the amendment record of the operations manual: its version and date, and the effective date, parts and details. Its valid form is @FirstIssue@, and its unfilled form @UnfilledFirstIssue@. +data FirstIssue' a1 a2 a3 a4 a5 = FirstIssue' a1 a2 a3 a4 a5 + deriving (Eq, Ord, Show) + +-- | The name of the data type @FirstIssue'@. +class FirstIssue'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' | x -> a1 a2 a3 a4 a5 where + firstIssue' :: + Optic p f x x' (FirstIssue' a1 a2 a3 a4 a5) (FirstIssue' a1' a2' a3' a4' a5') + +-- | Identity +instance (x' ~ FirstIssue' a1' a2' a3' a4' a5') => FirstIssue'Like p f (FirstIssue' a1 a2 a3 a4 a5) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' where + firstIssue' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ FirstIssue' a1' a2 a3 a4 a5) => VersionLike p f (FirstIssue' a1 a2 a3 a4 a5) x' a1 a1' where + version f (FirstIssue' x1 x2 x3 x4 x5) = fmap (\x1' -> FirstIssue' x1' x2 x3 x4 x5) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ FirstIssue' a1 a2' a3 a4 a5) => IssueDateLike p f (FirstIssue' a1 a2 a3 a4 a5) x' a2 a2' where + issueDate f (FirstIssue' x1 x2 x3 x4 x5) = fmap (\x2' -> FirstIssue' x1 x2' x3 x4 x5) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ FirstIssue' a1 a2 a3' a4 a5) => EffectiveLike p f (FirstIssue' a1 a2 a3 a4 a5) x' a3 a3' where + effective f (FirstIssue' x1 x2 x3 x4 x5) = fmap (\x3' -> FirstIssue' x1 x2 x3' x4 x5) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ FirstIssue' a1 a2 a3 a4' a5) => PartsLike p f (FirstIssue' a1 a2 a3 a4 a5) x' a4 a4' where + parts f (FirstIssue' x1 x2 x3 x4 x5) = fmap (\x4' -> FirstIssue' x1 x2 x3 x4' x5) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ FirstIssue' a1 a2 a3 a4 a5') => DetailsLike p f (FirstIssue' a1 a2 a3 a4 a5) x' a5 a5' where + details f (FirstIssue' x1 x2 x3 x4 x5) = fmap (FirstIssue' x1 x2 x3 x4) (f x5) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesFirstIssue' == id +-} +lawNamesFirstIssue' :: FirstIssue' a1 a2 a3 a4 a5 -> FirstIssue' a1 a2 a3 a4 a5 +lawNamesFirstIssue' s = + FirstIssue' + (view (cloneLens version) s) + (view (cloneLens issueDate) s) + (view (cloneLens effective) s) + (view (cloneLens parts) s) + (view (cloneLens details) s) + +-- | A valid @FirstIssue'@. +type FirstIssue = FirstIssue' Version Month Text1 Text1 Text1 + +-- | An unfilled @FirstIssue'@: each field holds what has been entered, if anything, to be checked by @fillFirstIssue@. +type UnfilledFirstIssue = FirstIssue' UnfilledVersion (Maybe Month) (Maybe Text) (Maybe Text) (Maybe Text) + +-- | An unfilled @FirstIssue'@ with nothing entered. +mkUnfilledFirstIssue :: UnfilledFirstIssue +mkUnfilledFirstIssue = + FirstIssue' + mkUnfilledVersion + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @FirstIssue'@ in one field, or in one or more constructors, inherits. +type InheritFirstIssue' s a1 a2 a3 a4 a5 = + ( FirstIssue'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 + , VersionLike (->) (Const ()) s s a1 a1 + , IssueDateLike (->) (Const ()) s s a2 a2 + , EffectiveLike (->) (Const ()) s s a3 a3 + , PartsLike (->) (Const ()) s s a4 a4 + , DetailsLike (->) (Const ()) s s a5 a5 + ) + +-- | Checks that a data type inherits every class of @InheritFirstIssue'@. +inheritFirstIssue' :: (InheritFirstIssue' s a1 a2 a3 a4 a5) => proxy s -> () +inheritFirstIssue' _ = () diff --git a/src/ReOC/Data/FlightTermination.hs b/src/ReOC/Data/FlightTermination.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/FlightTermination.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritFlightTermination') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @FlightTermination'@: whether a type of RPA is fitted with a dedicated flight termination system, and its description. +module ReOC.Data.FlightTermination ( + FlightTermination' (..), + FlightTermination'Like (..), + lawNamesFlightTermination', + FlightTermination, + UnfilledFlightTermination, + InheritFlightTermination', + inheritFlightTermination', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.FlightTerminationSystem (FlightTerminationSystemLike (..)) +import ReOC.Name.NoFlightTerminationSystem (NoFlightTerminationSystemLike (..)) +import ReOC.Primitive.Text1 (Text1) + +-- | Whether a type of RPA is fitted with a dedicated flight termination system, and its description. Its valid form is @FlightTermination@, and its unfilled form @UnfilledFlightTermination@. +data FlightTermination' a1 + = NoFlightTerminationSystem + | FlightTerminationSystem a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @FlightTermination'@. +class FlightTermination'Like p f x x' a1 a1' | x -> a1 where + flightTermination' :: + Optic p f x x' (FlightTermination' a1) (FlightTermination' a1') + +-- | Identity +instance (x' ~ FlightTermination' a1') => FlightTermination'Like p f (FlightTermination' a1) x' a1 a1' where + flightTermination' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ FlightTermination' a1) => NoFlightTerminationSystemLike p f (FlightTermination' a1) x' where + noFlightTerminationSystem = prism' (\() -> NoFlightTerminationSystem) (\case NoFlightTerminationSystem -> Just (); FlightTerminationSystem _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ FlightTermination' a1') => FlightTerminationSystemLike p f (FlightTermination' a1) x' a1 a1' where + flightTerminationSystem = prism FlightTerminationSystem (\case NoFlightTerminationSystem -> Left NoFlightTerminationSystem; FlightTerminationSystem x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesFlightTermination' == id +-} +lawNamesFlightTermination' :: FlightTermination' a1 -> FlightTermination' a1 +lawNamesFlightTermination' = \case + NoFlightTerminationSystem -> review noFlightTerminationSystem () + FlightTerminationSystem x -> review flightTerminationSystem x + +-- | A valid @FlightTermination'@. +type FlightTermination = FlightTermination' Text1 + +-- | An unfilled @FlightTermination'@: each field holds what has been entered, if anything, to be checked by @fillFlightTermination@. +type UnfilledFlightTermination = FlightTermination' (Maybe Text) + +-- | The classes that a data type holding @FlightTermination'@ in one field, or in one or more constructors, inherits. +type InheritFlightTermination' s a1 = + ( FlightTermination'Like (->) (Const ()) s s a1 a1 + , NoFlightTerminationSystemLike (->) (Const ()) s s + , FlightTerminationSystemLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritFlightTermination'@. +inheritFlightTermination' :: (InheritFlightTermination' s a1) => proxy s -> () +inheritFlightTermination' _ = () diff --git a/src/ReOC/Data/FlightTestExaminer.hs b/src/ReOC/Data/FlightTestExaminer.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/FlightTestExaminer.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritFlightTestExaminer) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @FlightTestExaminer@: who conducts flight tests. +module ReOC.Data.FlightTestExaminer ( + FlightTestExaminer (..), + FlightTestExaminerLike (..), + lawNamesFlightTestExaminer, + InheritFlightTestExaminer, + inheritFlightTestExaminer, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.CriConductsFlightTests (CriConductsFlightTestsLike (..)) +import ReOC.Name.IndependentExaminerWhereAvailable (IndependentExaminerWhereAvailableLike (..)) + +-- | Who conducts flight tests. +data FlightTestExaminer + = CRIConductsFlightTests + | IndependentExaminerWhereAvailable + deriving (Eq, Ord, Show) + +-- | The name of the data type @FlightTestExaminer@. +class FlightTestExaminerLike p f x x' where + flightTestExaminer :: + Optic p f x x' FlightTestExaminer FlightTestExaminer + +-- | Identity +instance (x' ~ FlightTestExaminer) => FlightTestExaminerLike p f FlightTestExaminer x' where + flightTestExaminer = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ FlightTestExaminer) => CriConductsFlightTestsLike p f FlightTestExaminer x' where + criConductsFlightTests = prism' (\() -> CRIConductsFlightTests) (\case CRIConductsFlightTests -> Just (); IndependentExaminerWhereAvailable -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ FlightTestExaminer) => IndependentExaminerWhereAvailableLike p f FlightTestExaminer x' where + independentExaminerWhereAvailable = prism' (\() -> IndependentExaminerWhereAvailable) (\case CRIConductsFlightTests -> Nothing; IndependentExaminerWhereAvailable -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesFlightTestExaminer == id +-} +lawNamesFlightTestExaminer :: FlightTestExaminer -> FlightTestExaminer +lawNamesFlightTestExaminer = \case + CRIConductsFlightTests -> review criConductsFlightTests () + IndependentExaminerWhereAvailable -> review independentExaminerWhereAvailable () + +-- | The classes that a data type holding @FlightTestExaminer@ in one field, or in one or more constructors, inherits. +type InheritFlightTestExaminer s = + ( FlightTestExaminerLike (->) (Const ()) s s + , CriConductsFlightTestsLike (->) (Const ()) s s + , IndependentExaminerWhereAvailableLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritFlightTestExaminer@. +inheritFlightTestExaminer :: (InheritFlightTestExaminer s) => proxy s -> () +inheritFlightTestExaminer _ = () diff --git a/src/ReOC/Data/HistoryAnswer.hs b/src/ReOC/Data/HistoryAnswer.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/HistoryAnswer.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritHistoryAnswer') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @HistoryAnswer'@: an answer about the history of the applicant and nominated personnel, with the details where the answer is yes (CASA Form 101-02, questions 19 to 23). The details of all four answers share the box of question 23. +module ReOC.Data.HistoryAnswer ( + HistoryAnswer' (..), + HistoryAnswer'Like (..), + lawNamesHistoryAnswer', + HistoryAnswer, + UnfilledHistoryAnswer, + InheritHistoryAnswer', + inheritHistoryAnswer', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.HistoryDisclosed (HistoryDisclosedLike (..)) +import ReOC.Name.NoHistory (NoHistoryLike (..)) +import ReOC.Primitive.FormText (FormFont (..), FormText) + +-- | An answer about the history of the applicant and nominated personnel, with the details where the answer is yes (CASA Form 101-02, questions 19 to 23). The details of all four answers share the box of question 23. Its valid form is @HistoryAnswer@, and its unfilled form @UnfilledHistoryAnswer@. +data HistoryAnswer' a1 + = NoHistory + | HistoryDisclosed a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @HistoryAnswer'@. +class HistoryAnswer'Like p f x x' a1 a1' | x -> a1 where + historyAnswer' :: + Optic p f x x' (HistoryAnswer' a1) (HistoryAnswer' a1') + +-- | Identity +instance (x' ~ HistoryAnswer' a1') => HistoryAnswer'Like p f (HistoryAnswer' a1) x' a1 a1' where + historyAnswer' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ HistoryAnswer' a1) => NoHistoryLike p f (HistoryAnswer' a1) x' where + noHistory = prism' (\() -> NoHistory) (\case NoHistory -> Just (); HistoryDisclosed _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ HistoryAnswer' a1') => HistoryDisclosedLike p f (HistoryAnswer' a1) x' a1 a1' where + historyDisclosed = prism HistoryDisclosed (\case NoHistory -> Left NoHistory; HistoryDisclosed x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesHistoryAnswer' == id +-} +lawNamesHistoryAnswer' :: HistoryAnswer' a1 -> HistoryAnswer' a1 +lawNamesHistoryAnswer' = \case + NoHistory -> review noHistory () + HistoryDisclosed x -> review historyDisclosed x + +-- | A valid @HistoryAnswer'@. +type HistoryAnswer = HistoryAnswer' (FormText 'Narrow 190 3) + +-- | An unfilled @HistoryAnswer'@: each field holds what has been entered, if anything, to be checked by @fillHistoryAnswer@. +type UnfilledHistoryAnswer = HistoryAnswer' (Maybe Text) + +-- | The classes that a data type holding @HistoryAnswer'@ in one field, or in one or more constructors, inherits. +type InheritHistoryAnswer' s a1 = + ( HistoryAnswer'Like (->) (Const ()) s s a1 a1 + , NoHistoryLike (->) (Const ()) s s + , HistoryDisclosedLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritHistoryAnswer'@. +inheritHistoryAnswer' :: (InheritHistoryAnswer' s a1) => proxy s -> () +inheritHistoryAnswer' _ = () diff --git a/src/ReOC/Data/InstructorTakeover.hs b/src/ReOC/Data/InstructorTakeover.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/InstructorTakeover.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritInstructorTakeover) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @InstructorTakeover@: how an instructor takes immediate control of a training RPA. +module ReOC.Data.InstructorTakeover ( + InstructorTakeover (..), + InstructorTakeoverLike (..), + lawNamesInstructorTakeover, + InheritInstructorTakeover, + inheritInstructorTakeover, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.DualControllerLink (DualControllerLinkLike (..)) +import ReOC.Name.SharedController (SharedControllerLike (..)) + +-- | How an instructor takes immediate control of a training RPA. +data InstructorTakeover + = DualControllerLink + | SharedController + deriving (Eq, Ord, Show) + +-- | The name of the data type @InstructorTakeover@. +class InstructorTakeoverLike p f x x' where + instructorTakeover :: + Optic p f x x' InstructorTakeover InstructorTakeover + +-- | Identity +instance (x' ~ InstructorTakeover) => InstructorTakeoverLike p f InstructorTakeover x' where + instructorTakeover = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ InstructorTakeover) => DualControllerLinkLike p f InstructorTakeover x' where + dualControllerLink = prism' (\() -> DualControllerLink) (\case DualControllerLink -> Just (); SharedController -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InstructorTakeover) => SharedControllerLike p f InstructorTakeover x' where + sharedController = prism' (\() -> SharedController) (\case DualControllerLink -> Nothing; SharedController -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesInstructorTakeover == id +-} +lawNamesInstructorTakeover :: InstructorTakeover -> InstructorTakeover +lawNamesInstructorTakeover = \case + DualControllerLink -> review dualControllerLink () + SharedController -> review sharedController () + +-- | The classes that a data type holding @InstructorTakeover@ in one field, or in one or more constructors, inherits. +type InheritInstructorTakeover s = + ( InstructorTakeoverLike (->) (Const ()) s s + , DualControllerLinkLike (->) (Const ()) s s + , SharedControllerLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritInstructorTakeover@. +inheritInstructorTakeover :: (InheritInstructorTakeover s) => proxy s -> () +inheritInstructorTakeover _ = () diff --git a/src/ReOC/Data/Invalid.hs b/src/ReOC/Data/Invalid.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Invalid.hs @@ -0,0 +1,149 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritInvalid) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Invalid@: a field filled in with a value it does not accept, at its path. +module ReOC.Data.Invalid ( + Invalid (..), + InvalidLike (..), + lawNamesInvalid, + InheritInvalid, + inheritInvalid, + inheritsInvalid, +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Proxy (Proxy (..)) +import ReOC.Data.InvalidValue (InvalidValue, InvalidValueLike (..), inheritInvalidValue) +import ReOC.Data.Step (Step) +import ReOC.Name.InvalidABN (InvalidABNLike (..)) +import ReOC.Name.InvalidARN (InvalidARNLike (..)) +import ReOC.Name.InvalidEmailAddress (InvalidEmailAddressLike (..)) +import ReOC.Name.InvalidFormText (InvalidFormTextLike (..)) +import ReOC.Name.InvalidGrossWeight (InvalidGrossWeightLike (..)) +import ReOC.Name.InvalidPassMark (InvalidPassMarkLike (..)) +import ReOC.Name.InvalidPercentage (InvalidPercentageLike (..)) +import ReOC.Name.InvalidPhoneNumber (InvalidPhoneNumberLike (..)) +import ReOC.Name.InvalidPositive (InvalidPositiveLike (..)) +import ReOC.Name.InvalidPostcode (InvalidPostcodeLike (..)) +import ReOC.Name.InvalidReviewMonths (InvalidReviewMonthsLike (..)) +import ReOC.Name.InvalidText1 (InvalidText1Like (..)) +import ReOC.Name.Path (PathLike (..)) + +-- | A field filled in with a value it does not accept, at its path. +data Invalid = Invalid [Step] InvalidValue + deriving (Eq, Ord, Show) + +-- | The name of the data type @Invalid@. +class InvalidLike p f x x' where + invalid :: + Optic p f x x' Invalid Invalid + +-- | Identity +instance (x' ~ Invalid) => InvalidLike p f Invalid x' where + invalid = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Invalid) => PathLike p f Invalid x' where + path f (Invalid x1 x2) = fmap (\x1' -> Invalid x1' x2) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Invalid) => InvalidValueLike p f Invalid x' where + invalidValue f (Invalid x1 x2) = fmap (Invalid x1) (f x2) + +-- | Affine traversal: through @invalidValue@, then @invalidText1@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidText1Like p f Invalid x' where + invalidText1 = invalidValue . invalidText1 + +-- | Affine traversal: through @invalidValue@, then @invalidFormText@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidFormTextLike p f Invalid x' where + invalidFormText = invalidValue . invalidFormText + +-- | Affine traversal: through @invalidValue@, then @invalidABN@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidABNLike p f Invalid x' where + invalidABN = invalidValue . invalidABN + +-- | Affine traversal: through @invalidValue@, then @invalidARN@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidARNLike p f Invalid x' where + invalidARN = invalidValue . invalidARN + +-- | Affine traversal: through @invalidValue@, then @invalidEmailAddress@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidEmailAddressLike p f Invalid x' where + invalidEmailAddress = invalidValue . invalidEmailAddress + +-- | Affine traversal: through @invalidValue@, then @invalidPhoneNumber@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidPhoneNumberLike p f Invalid x' where + invalidPhoneNumber = invalidValue . invalidPhoneNumber + +-- | Affine traversal: through @invalidValue@, then @invalidPostcode@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidPostcodeLike p f Invalid x' where + invalidPostcode = invalidValue . invalidPostcode + +-- | Affine traversal: through @invalidValue@, then @invalidPositive@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidPositiveLike p f Invalid x' where + invalidPositive = invalidValue . invalidPositive + +-- | Affine traversal: through @invalidValue@, then @invalidPercentage@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidPercentageLike p f Invalid x' where + invalidPercentage = invalidValue . invalidPercentage + +-- | Affine traversal: through @invalidValue@, then @invalidGrossWeight@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidGrossWeightLike p f Invalid x' where + invalidGrossWeight = invalidValue . invalidGrossWeight + +-- | Affine traversal: through @invalidValue@, then @invalidReviewMonths@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidReviewMonthsLike p f Invalid x' where + invalidReviewMonths = invalidValue . invalidReviewMonths + +-- | Affine traversal: through @invalidValue@, then @invalidPassMark@ of @InvalidValue@. +instance (p ~ (->), Applicative f, x' ~ Invalid) => InvalidPassMarkLike p f Invalid x' where + invalidPassMark = invalidValue . invalidPassMark + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesInvalid == id +-} +lawNamesInvalid :: Invalid -> Invalid +lawNamesInvalid s = + Invalid + (view (cloneLens path) s) + (view (cloneLens invalidValue) s) + +-- | The classes that a data type holding @Invalid@ in one field, or in one or more constructors, inherits. +type InheritInvalid s = + ( InvalidLike (->) (Const ()) s s + , PathLike (->) (Const ()) s s + , InvalidValueLike (->) (Const ()) s s + , InvalidText1Like (->) (Const ()) s s + , InvalidFormTextLike (->) (Const ()) s s + , InvalidABNLike (->) (Const ()) s s + , InvalidARNLike (->) (Const ()) s s + , InvalidEmailAddressLike (->) (Const ()) s s + , InvalidPhoneNumberLike (->) (Const ()) s s + , InvalidPostcodeLike (->) (Const ()) s s + , InvalidPositiveLike (->) (Const ()) s s + , InvalidPercentageLike (->) (Const ()) s s + , InvalidGrossWeightLike (->) (Const ()) s s + , InvalidReviewMonthsLike (->) (Const ()) s s + , InvalidPassMarkLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritInvalid@. +inheritInvalid :: (InheritInvalid s) => proxy s -> () +inheritInvalid _ = () + +-- | The checks of inheritance of @Invalid@. +inheritsInvalid :: [()] +inheritsInvalid = + [ inheritInvalidValue p + ] + where + p = Proxy :: Proxy Invalid diff --git a/src/ReOC/Data/InvalidValue.hs b/src/ReOC/Data/InvalidValue.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/InvalidValue.hs @@ -0,0 +1,150 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritInvalidValue) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @InvalidValue@: a value entered in an unfilled form that its field does not accept. +module ReOC.Data.InvalidValue ( + InvalidValue (..), + InvalidValueLike (..), + lawNamesInvalidValue, + InheritInvalidValue, + inheritInvalidValue, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import Numeric.Natural (Natural) +import ReOC.Name.InvalidABN (InvalidABNLike (..)) +import ReOC.Name.InvalidARN (InvalidARNLike (..)) +import ReOC.Name.InvalidEmailAddress (InvalidEmailAddressLike (..)) +import ReOC.Name.InvalidFormText (InvalidFormTextLike (..)) +import ReOC.Name.InvalidGrossWeight (InvalidGrossWeightLike (..)) +import ReOC.Name.InvalidPassMark (InvalidPassMarkLike (..)) +import ReOC.Name.InvalidPercentage (InvalidPercentageLike (..)) +import ReOC.Name.InvalidPhoneNumber (InvalidPhoneNumberLike (..)) +import ReOC.Name.InvalidPositive (InvalidPositiveLike (..)) +import ReOC.Name.InvalidPostcode (InvalidPostcodeLike (..)) +import ReOC.Name.InvalidReviewMonths (InvalidReviewMonthsLike (..)) +import ReOC.Name.InvalidText1 (InvalidText1Like (..)) + +-- | A value entered in an unfilled form that its field does not accept. +data InvalidValue + = InvalidText1 Text + | InvalidFormText Text + | InvalidABN Text + | InvalidARN Text + | InvalidEmailAddress Text + | InvalidPhoneNumber Text + | InvalidPostcode Text + | InvalidPositive Natural + | InvalidPercentage Natural + | InvalidGrossWeight Natural + | InvalidReviewMonths Natural + | InvalidPassMark Natural + deriving (Eq, Ord, Show) + +-- | The name of the data type @InvalidValue@. +class InvalidValueLike p f x x' where + invalidValue :: + Optic p f x x' InvalidValue InvalidValue + +-- | Identity +instance (x' ~ InvalidValue) => InvalidValueLike p f InvalidValue x' where + invalidValue = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidText1Like p f InvalidValue x' where + invalidText1 = prism' InvalidText1 (\case InvalidText1 x -> Just x; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidFormTextLike p f InvalidValue x' where + invalidFormText = prism' InvalidFormText (\case InvalidText1 _ -> Nothing; InvalidFormText x -> Just x; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidABNLike p f InvalidValue x' where + invalidABN = prism' InvalidABN (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN x -> Just x; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidARNLike p f InvalidValue x' where + invalidARN = prism' InvalidARN (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN x -> Just x; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidEmailAddressLike p f InvalidValue x' where + invalidEmailAddress = prism' InvalidEmailAddress (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress x -> Just x; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidPhoneNumberLike p f InvalidValue x' where + invalidPhoneNumber = prism' InvalidPhoneNumber (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber x -> Just x; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidPostcodeLike p f InvalidValue x' where + invalidPostcode = prism' InvalidPostcode (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode x -> Just x; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidPositiveLike p f InvalidValue x' where + invalidPositive = prism' InvalidPositive (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive x -> Just x; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidPercentageLike p f InvalidValue x' where + invalidPercentage = prism' InvalidPercentage (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage x -> Just x; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidGrossWeightLike p f InvalidValue x' where + invalidGrossWeight = prism' InvalidGrossWeight (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight x -> Just x; InvalidReviewMonths _ -> Nothing; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidReviewMonthsLike p f InvalidValue x' where + invalidReviewMonths = prism' InvalidReviewMonths (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths x -> Just x; InvalidPassMark _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ InvalidValue) => InvalidPassMarkLike p f InvalidValue x' where + invalidPassMark = prism' InvalidPassMark (\case InvalidText1 _ -> Nothing; InvalidFormText _ -> Nothing; InvalidABN _ -> Nothing; InvalidARN _ -> Nothing; InvalidEmailAddress _ -> Nothing; InvalidPhoneNumber _ -> Nothing; InvalidPostcode _ -> Nothing; InvalidPositive _ -> Nothing; InvalidPercentage _ -> Nothing; InvalidGrossWeight _ -> Nothing; InvalidReviewMonths _ -> Nothing; InvalidPassMark x -> Just x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesInvalidValue == id +-} +lawNamesInvalidValue :: InvalidValue -> InvalidValue +lawNamesInvalidValue = \case + InvalidText1 x -> review invalidText1 x + InvalidFormText x -> review invalidFormText x + InvalidABN x -> review invalidABN x + InvalidARN x -> review invalidARN x + InvalidEmailAddress x -> review invalidEmailAddress x + InvalidPhoneNumber x -> review invalidPhoneNumber x + InvalidPostcode x -> review invalidPostcode x + InvalidPositive x -> review invalidPositive x + InvalidPercentage x -> review invalidPercentage x + InvalidGrossWeight x -> review invalidGrossWeight x + InvalidReviewMonths x -> review invalidReviewMonths x + InvalidPassMark x -> review invalidPassMark x + +-- | The classes that a data type holding @InvalidValue@ in one field, or in one or more constructors, inherits. +type InheritInvalidValue s = + ( InvalidValueLike (->) (Const ()) s s + , InvalidText1Like (->) (Const ()) s s + , InvalidFormTextLike (->) (Const ()) s s + , InvalidABNLike (->) (Const ()) s s + , InvalidARNLike (->) (Const ()) s s + , InvalidEmailAddressLike (->) (Const ()) s s + , InvalidPhoneNumberLike (->) (Const ()) s s + , InvalidPostcodeLike (->) (Const ()) s s + , InvalidPositiveLike (->) (Const ()) s s + , InvalidPercentageLike (->) (Const ()) s s + , InvalidGrossWeightLike (->) (Const ()) s s + , InvalidReviewMonthsLike (->) (Const ()) s s + , InvalidPassMarkLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritInvalidValue@. +inheritInvalidValue :: (InheritInvalidValue s) => proxy s -> () +inheritInvalidValue _ = () diff --git a/src/ReOC/Data/KeyPersonnel.hs b/src/ReOC/Data/KeyPersonnel.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/KeyPersonnel.hs @@ -0,0 +1,93 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritKeyPersonnel') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @KeyPersonnel'@: the key personnel of the operator: CEO, chief remote pilot and maintenance controller. A position held by the holder of another position refers to it, so that one person is given once. +module ReOC.Data.KeyPersonnel ( + KeyPersonnel' (..), + KeyPersonnel'Like (..), + lawNamesKeyPersonnel', + KeyPersonnel, + UnfilledKeyPersonnel, + mkUnfilledKeyPersonnel, + InheritKeyPersonnel', + inheritKeyPersonnel', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import ReOC.Data.ChiefExecutive (ChiefExecutive, UnfilledChiefExecutive, mkUnfilledChiefExecutive) +import ReOC.Data.ChiefPilot (ChiefPilot, UnfilledChiefPilot, mkUnfilledChiefPilot) +import ReOC.Data.MCNominee (MCNominee, UnfilledMCNominee) +import ReOC.Name.ChiefExecutive (ChiefExecutiveLike (..)) +import ReOC.Name.ChiefPilot (ChiefPilotLike (..)) +import ReOC.Name.McNominee (McNomineeLike (..)) + +-- | The key personnel of the operator: CEO, chief remote pilot and maintenance controller. A position held by the holder of another position refers to it, so that one person is given once. Its valid form is @KeyPersonnel@, and its unfilled form @UnfilledKeyPersonnel@. +data KeyPersonnel' a1 a2 a3 = KeyPersonnel' a1 a2 a3 + deriving (Eq, Ord, Show) + +-- | The name of the data type @KeyPersonnel'@. +class KeyPersonnel'Like p f x x' a1 a1' a2 a2' a3 a3' | x -> a1 a2 a3 where + keyPersonnel' :: + Optic p f x x' (KeyPersonnel' a1 a2 a3) (KeyPersonnel' a1' a2' a3') + +-- | Identity +instance (x' ~ KeyPersonnel' a1' a2' a3') => KeyPersonnel'Like p f (KeyPersonnel' a1 a2 a3) x' a1 a1' a2 a2' a3 a3' where + keyPersonnel' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ KeyPersonnel' a1' a2 a3) => ChiefExecutiveLike p f (KeyPersonnel' a1 a2 a3) x' a1 a1' where + chiefExecutive f (KeyPersonnel' x1 x2 x3) = fmap (\x1' -> KeyPersonnel' x1' x2 x3) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ KeyPersonnel' a1 a2' a3) => ChiefPilotLike p f (KeyPersonnel' a1 a2 a3) x' a2 a2' where + chiefPilot f (KeyPersonnel' x1 x2 x3) = fmap (\x2' -> KeyPersonnel' x1 x2' x3) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ KeyPersonnel' a1 a2 a3') => McNomineeLike p f (KeyPersonnel' a1 a2 a3) x' a3 a3' where + mcNominee f (KeyPersonnel' x1 x2 x3) = fmap (KeyPersonnel' x1 x2) (f x3) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesKeyPersonnel' == id +-} +lawNamesKeyPersonnel' :: KeyPersonnel' a1 a2 a3 -> KeyPersonnel' a1 a2 a3 +lawNamesKeyPersonnel' s = + KeyPersonnel' + (view (cloneLens chiefExecutive) s) + (view (cloneLens chiefPilot) s) + (view (cloneLens mcNominee) s) + +-- | A valid @KeyPersonnel'@. +type KeyPersonnel = KeyPersonnel' ChiefExecutive ChiefPilot MCNominee + +-- | An unfilled @KeyPersonnel'@: each field holds what has been entered, if anything, to be checked by @fillKeyPersonnel@. +type UnfilledKeyPersonnel = KeyPersonnel' UnfilledChiefExecutive UnfilledChiefPilot (Maybe UnfilledMCNominee) + +-- | An unfilled @KeyPersonnel'@ with nothing entered. +mkUnfilledKeyPersonnel :: UnfilledKeyPersonnel +mkUnfilledKeyPersonnel = + KeyPersonnel' + mkUnfilledChiefExecutive + mkUnfilledChiefPilot + Nothing + +-- | The classes that a data type holding @KeyPersonnel'@ in one field, or in one or more constructors, inherits. +type InheritKeyPersonnel' s a1 a2 a3 = + ( KeyPersonnel'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 + , ChiefExecutiveLike (->) (Const ()) s s a1 a1 + , ChiefPilotLike (->) (Const ()) s s a2 a2 + , McNomineeLike (->) (Const ()) s s a3 a3 + ) + +-- | Checks that a data type inherits every class of @InheritKeyPersonnel'@. +inheritKeyPersonnel' :: (InheritKeyPersonnel' s a1 a2 a3) => proxy s -> () +inheritKeyPersonnel' _ = () diff --git a/src/ReOC/Data/KeyPosition.hs b/src/ReOC/Data/KeyPosition.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/KeyPosition.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritKeyPosition) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @KeyPosition@: a key position of the operator that can own a risk. +module ReOC.Data.KeyPosition ( + KeyPosition (..), + KeyPositionLike (..), + lawNamesKeyPosition, + InheritKeyPosition, + inheritKeyPosition, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.ChiefExecutiveOfficer (ChiefExecutiveOfficerLike (..)) +import ReOC.Name.ChiefRemotePilot (ChiefRemotePilotLike (..)) +import ReOC.Name.MaintenanceController (MaintenanceControllerLike (..)) + +-- | A key position of the operator that can own a risk. +data KeyPosition + = ChiefExecutiveOfficer + | ChiefRemotePilot + | MaintenanceController + deriving (Eq, Ord, Show) + +-- | The name of the data type @KeyPosition@. +class KeyPositionLike p f x x' where + keyPosition :: + Optic p f x x' KeyPosition KeyPosition + +-- | Identity +instance (x' ~ KeyPosition) => KeyPositionLike p f KeyPosition x' where + keyPosition = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ KeyPosition) => ChiefExecutiveOfficerLike p f KeyPosition x' where + chiefExecutiveOfficer = prism' (\() -> ChiefExecutiveOfficer) (\case ChiefExecutiveOfficer -> Just (); ChiefRemotePilot -> Nothing; MaintenanceController -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ KeyPosition) => ChiefRemotePilotLike p f KeyPosition x' where + chiefRemotePilot = prism' (\() -> ChiefRemotePilot) (\case ChiefExecutiveOfficer -> Nothing; ChiefRemotePilot -> Just (); MaintenanceController -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ KeyPosition) => MaintenanceControllerLike p f KeyPosition x' where + maintenanceController = prism' (\() -> MaintenanceController) (\case ChiefExecutiveOfficer -> Nothing; ChiefRemotePilot -> Nothing; MaintenanceController -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesKeyPosition == id +-} +lawNamesKeyPosition :: KeyPosition -> KeyPosition +lawNamesKeyPosition = \case + ChiefExecutiveOfficer -> review chiefExecutiveOfficer () + ChiefRemotePilot -> review chiefRemotePilot () + MaintenanceController -> review maintenanceController () + +-- | The classes that a data type holding @KeyPosition@ in one field, or in one or more constructors, inherits. +type InheritKeyPosition s = + ( KeyPositionLike (->) (Const ()) s s + , ChiefExecutiveOfficerLike (->) (Const ()) s s + , ChiefRemotePilotLike (->) (Const ()) s s + , MaintenanceControllerLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritKeyPosition@. +inheritKeyPosition :: (InheritKeyPosition s) => proxy s -> () +inheritKeyPosition _ = () diff --git a/src/ReOC/Data/Likelihood.hs b/src/ReOC/Data/Likelihood.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Likelihood.hs @@ -0,0 +1,92 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritLikelihood) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Likelihood@: the likelihood of a risk (operations manual Appendix E, Table 11). +module ReOC.Data.Likelihood ( + Likelihood (..), + LikelihoodLike (..), + lawNamesLikelihood, + InheritLikelihood, + inheritLikelihood, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.ExtremelyImprobable (ExtremelyImprobableLike (..)) +import ReOC.Name.Frequent (FrequentLike (..)) +import ReOC.Name.Improbable (ImprobableLike (..)) +import ReOC.Name.Occasional (OccasionalLike (..)) +import ReOC.Name.Remote (RemoteLike (..)) + +-- | The likelihood of a risk (operations manual Appendix E, Table 11). +data Likelihood + = Frequent + | Occasional + | Remote + | Improbable + | ExtremelyImprobable + deriving (Eq, Ord, Show) + +-- | The name of the data type @Likelihood@. +class LikelihoodLike p f x x' where + likelihood :: + Optic p f x x' Likelihood Likelihood + +-- | Identity +instance (x' ~ Likelihood) => LikelihoodLike p f Likelihood x' where + likelihood = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Likelihood) => FrequentLike p f Likelihood x' where + frequent = prism' (\() -> Frequent) (\case Frequent -> Just (); Occasional -> Nothing; Remote -> Nothing; Improbable -> Nothing; ExtremelyImprobable -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Likelihood) => OccasionalLike p f Likelihood x' where + occasional = prism' (\() -> Occasional) (\case Frequent -> Nothing; Occasional -> Just (); Remote -> Nothing; Improbable -> Nothing; ExtremelyImprobable -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Likelihood) => RemoteLike p f Likelihood x' where + remote = prism' (\() -> Remote) (\case Frequent -> Nothing; Occasional -> Nothing; Remote -> Just (); Improbable -> Nothing; ExtremelyImprobable -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Likelihood) => ImprobableLike p f Likelihood x' where + improbable = prism' (\() -> Improbable) (\case Frequent -> Nothing; Occasional -> Nothing; Remote -> Nothing; Improbable -> Just (); ExtremelyImprobable -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Likelihood) => ExtremelyImprobableLike p f Likelihood x' where + extremelyImprobable = prism' (\() -> ExtremelyImprobable) (\case Frequent -> Nothing; Occasional -> Nothing; Remote -> Nothing; Improbable -> Nothing; ExtremelyImprobable -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesLikelihood == id +-} +lawNamesLikelihood :: Likelihood -> Likelihood +lawNamesLikelihood = \case + Frequent -> review frequent () + Occasional -> review occasional () + Remote -> review remote () + Improbable -> review improbable () + ExtremelyImprobable -> review extremelyImprobable () + +-- | The classes that a data type holding @Likelihood@ in one field, or in one or more constructors, inherits. +type InheritLikelihood s = + ( LikelihoodLike (->) (Const ()) s s + , FrequentLike (->) (Const ()) s s + , OccasionalLike (->) (Const ()) s s + , RemoteLike (->) (Const ()) s s + , ImprobableLike (->) (Const ()) s s + , ExtremelyImprobableLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritLikelihood@. +inheritLikelihood :: (InheritLikelihood s) => proxy s -> () +inheritLikelihood _ = () diff --git a/src/ReOC/Data/MCNominee.hs b/src/ReOC/Data/MCNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/MCNominee.hs @@ -0,0 +1,85 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritMCNominee') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @MCNominee'@: who is nominated as maintenance controller (CASA Form 101-02, question 12): the CEO, the chief remote pilot, or another person. +module ReOC.Data.MCNominee ( + MCNominee' (..), + MCNominee'Like (..), + lawNamesMCNominee', + MCNominee, + UnfilledMCNominee, + InheritMCNominee', + inheritMCNominee', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import ReOC.Data.Nominee (Nominee, UnfilledNominee) +import ReOC.Name.McIsCEO (McIsCEOLike (..)) +import ReOC.Name.McIsCRP (McIsCRPLike (..)) +import ReOC.Name.McNominated (McNominatedLike (..)) + +-- | Who is nominated as maintenance controller (CASA Form 101-02, question 12): the CEO, the chief remote pilot, or another person. Its valid form is @MCNominee@, and its unfilled form @UnfilledMCNominee@. +data MCNominee' a1 + = MCIsCEO + | MCIsCRP + | MCNominated a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @MCNominee'@. +class MCNominee'Like p f x x' a1 a1' | x -> a1 where + mcNominee' :: + Optic p f x x' (MCNominee' a1) (MCNominee' a1') + +-- | Identity +instance (x' ~ MCNominee' a1') => MCNominee'Like p f (MCNominee' a1) x' a1 a1' where + mcNominee' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ MCNominee' a1) => McIsCEOLike p f (MCNominee' a1) x' where + mcIsCEO = prism' (\() -> MCIsCEO) (\case MCIsCEO -> Just (); MCIsCRP -> Nothing; MCNominated _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ MCNominee' a1) => McIsCRPLike p f (MCNominee' a1) x' where + mcIsCRP = prism' (\() -> MCIsCRP) (\case MCIsCEO -> Nothing; MCIsCRP -> Just (); MCNominated _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ MCNominee' a1') => McNominatedLike p f (MCNominee' a1) x' a1 a1' where + mcNominated = prism MCNominated (\case MCIsCEO -> Left MCIsCEO; MCIsCRP -> Left MCIsCRP; MCNominated x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesMCNominee' == id +-} +lawNamesMCNominee' :: MCNominee' a1 -> MCNominee' a1 +lawNamesMCNominee' = \case + MCIsCEO -> review mcIsCEO () + MCIsCRP -> review mcIsCRP () + MCNominated x -> review mcNominated x + +-- | A valid @MCNominee'@. +type MCNominee = MCNominee' Nominee + +-- | An unfilled @MCNominee'@: each field holds what has been entered, if anything, to be checked by @fillMCNominee@. +type UnfilledMCNominee = MCNominee' UnfilledNominee + +-- | The classes that a data type holding @MCNominee'@ in one field, or in one or more constructors, inherits. +type InheritMCNominee' s a1 = + ( MCNominee'Like (->) (Const ()) s s a1 a1 + , McIsCEOLike (->) (Const ()) s s + , McIsCRPLike (->) (Const ()) s s + , McNominatedLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritMCNominee'@. +inheritMCNominee' :: (InheritMCNominee' s a1) => proxy s -> () +inheritMCNominee' _ = () diff --git a/src/ReOC/Data/Nominee.hs b/src/ReOC/Data/Nominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Nominee.hs @@ -0,0 +1,99 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritNominee') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Nominee'@: a person nominated for a key position, with their qualifications and experience (operations manual Section 1.2.1). +module ReOC.Data.Nominee ( + Nominee' (..), + Nominee'Like (..), + lawNamesNominee', + Nominee, + UnfilledNominee, + mkNominee, + mkUnfilledNominee, + InheritNominee', + inheritNominee', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Data.Person (Person, UnfilledPerson, mkUnfilledPerson) +import ReOC.Name.AviationExperience (AviationExperienceLike (..)) +import ReOC.Name.OtherQualifications (OtherQualificationsLike (..)) +import ReOC.Name.Person (PersonLike (..)) +import ReOC.Primitive.Text1 (Text1) + +-- | A person nominated for a key position, with their qualifications and experience (operations manual Section 1.2.1). Its valid form is @Nominee@, and its unfilled form @UnfilledNominee@. +data Nominee' a1 a2 a3 = Nominee' a1 a2 a3 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Nominee'@. +class Nominee'Like p f x x' a1 a1' a2 a2' a3 a3' | x -> a1 a2 a3 where + nominee' :: + Optic p f x x' (Nominee' a1 a2 a3) (Nominee' a1' a2' a3') + +-- | Identity +instance (x' ~ Nominee' a1' a2' a3') => Nominee'Like p f (Nominee' a1 a2 a3) x' a1 a1' a2 a2' a3 a3' where + nominee' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Nominee' a1' a2 a3) => PersonLike p f (Nominee' a1 a2 a3) x' a1 a1' where + person f (Nominee' x1 x2 x3) = fmap (\x1' -> Nominee' x1' x2 x3) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Nominee' a1 a2' a3) => OtherQualificationsLike p f (Nominee' a1 a2 a3) x' a2 a2' where + otherQualifications f (Nominee' x1 x2 x3) = fmap (\x2' -> Nominee' x1 x2' x3) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Nominee' a1 a2 a3') => AviationExperienceLike p f (Nominee' a1 a2 a3) x' a3 a3' where + aviationExperience f (Nominee' x1 x2 x3) = fmap (Nominee' x1 x2) (f x3) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesNominee' == id +-} +lawNamesNominee' :: Nominee' a1 a2 a3 -> Nominee' a1 a2 a3 +lawNamesNominee' s = + Nominee' + (view (cloneLens person) s) + (view (cloneLens otherQualifications) s) + (view (cloneLens aviationExperience) s) + +-- | A valid @Nominee'@. +type Nominee = Nominee' Person [Text1] Text1 + +-- | An unfilled @Nominee'@: each field holds what has been entered, if anything, to be checked by @fillNominee@. +type UnfilledNominee = Nominee' UnfilledPerson [Text] (Maybe Text) + +-- | Builds a valid @Nominee'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkNominee :: Person -> Text1 -> Nominee +mkNominee x1 = Nominee' x1 [] + +-- | An unfilled @Nominee'@ with nothing entered. +mkUnfilledNominee :: UnfilledNominee +mkUnfilledNominee = + Nominee' + mkUnfilledPerson + [] + Nothing + +-- | The classes that a data type holding @Nominee'@ in one field, or in one or more constructors, inherits. +type InheritNominee' s a1 a2 a3 = + ( Nominee'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 + , PersonLike (->) (Const ()) s s a1 a1 + , OtherQualificationsLike (->) (Const ()) s s a2 a2 + , AviationExperienceLike (->) (Const ()) s s a3 a3 + ) + +-- | Checks that a data type inherits every class of @InheritNominee'@. +inheritNominee' :: (InheritNominee' s a1 a2 a3) => proxy s -> () +inheritNominee' _ = () diff --git a/src/ReOC/Data/OperatedType.hs b/src/ReOC/Data/OperatedType.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/OperatedType.hs @@ -0,0 +1,85 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritOperatedType') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @OperatedType'@: a type of RPA that the operator operates, and each RPA of that type. +module ReOC.Data.OperatedType ( + OperatedType' (..), + OperatedType'Like (..), + lawNamesOperatedType', + OperatedType, + UnfilledOperatedType, + mkUnfilledOperatedType, + InheritOperatedType', + inheritOperatedType', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.List.NonEmpty (NonEmpty) +import ReOC.Data.Aircraft (Aircraft, UnfilledAircraft) +import ReOC.Data.RPAType (RPAType, UnfilledRPAType, mkUnfilledRPAType) +import ReOC.Name.Airframes (AirframesLike (..)) +import ReOC.Name.RpaType (RpaTypeLike (..)) + +-- | A type of RPA that the operator operates, and each RPA of that type. Its valid form is @OperatedType@, and its unfilled form @UnfilledOperatedType@. +data OperatedType' a1 a2 = OperatedType' a1 a2 + deriving (Eq, Ord, Show) + +-- | The name of the data type @OperatedType'@. +class OperatedType'Like p f x x' a1 a1' a2 a2' | x -> a1 a2 where + operatedType' :: + Optic p f x x' (OperatedType' a1 a2) (OperatedType' a1' a2') + +-- | Identity +instance (x' ~ OperatedType' a1' a2') => OperatedType'Like p f (OperatedType' a1 a2) x' a1 a1' a2 a2' where + operatedType' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperatedType' a1' a2) => RpaTypeLike p f (OperatedType' a1 a2) x' a1 a1' where + rpaType f (OperatedType' x1 x2) = fmap (\x1' -> OperatedType' x1' x2) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperatedType' a1 a2') => AirframesLike p f (OperatedType' a1 a2) x' a2 a2' where + airframes f (OperatedType' x1 x2) = fmap (OperatedType' x1) (f x2) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesOperatedType' == id +-} +lawNamesOperatedType' :: OperatedType' a1 a2 -> OperatedType' a1 a2 +lawNamesOperatedType' s = + OperatedType' + (view (cloneLens rpaType) s) + (view (cloneLens airframes) s) + +-- | A valid @OperatedType'@. +type OperatedType = OperatedType' RPAType (NonEmpty Aircraft) + +-- | An unfilled @OperatedType'@: each field holds what has been entered, if anything, to be checked by @fillOperatedType@. +type UnfilledOperatedType = OperatedType' UnfilledRPAType [UnfilledAircraft] + +-- | An unfilled @OperatedType'@ with nothing entered. +mkUnfilledOperatedType :: UnfilledOperatedType +mkUnfilledOperatedType = + OperatedType' + mkUnfilledRPAType + [] + +-- | The classes that a data type holding @OperatedType'@ in one field, or in one or more constructors, inherits. +type InheritOperatedType' s a1 a2 = + ( OperatedType'Like (->) (Const ()) s s a1 a1 a2 a2 + , RpaTypeLike (->) (Const ()) s s a1 a1 + , AirframesLike (->) (Const ()) s s a2 a2 + ) + +-- | Checks that a data type inherits every class of @InheritOperatedType'@. +inheritOperatedType' :: (InheritOperatedType' s a1 a2) => proxy s -> () +inheritOperatedType' _ = () diff --git a/src/ReOC/Data/OperationalExperience.hs b/src/ReOC/Data/OperationalExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/OperationalExperience.hs @@ -0,0 +1,87 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritOperationalExperience') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @OperationalExperience'@: whether the chief RePL instructor has 20 hours of non-training operational experience for each category trained (CASA Form 101-02, questions 16 and 17). +module ReOC.Data.OperationalExperience ( + OperationalExperience' (..), + OperationalExperience'Like (..), + lawNamesOperationalExperience', + OperationalExperience, + UnfilledOperationalExperience, + InheritOperationalExperience', + inheritOperationalExperience', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.HasOperationalExperience (HasOperationalExperienceLike (..)) +import ReOC.Name.OperationalExperienceIntent (OperationalExperienceIntentLike (..)) +import ReOC.Name.OperationalExperienceNotApplicable (OperationalExperienceNotApplicableLike (..)) +import ReOC.Primitive.FormText (FormFont (..), FormText) + +-- | Whether the chief RePL instructor has 20 hours of non-training operational experience for each category trained (CASA Form 101-02, questions 16 and 17). Its valid form is @OperationalExperience@, and its unfilled form @UnfilledOperationalExperience@. +data OperationalExperience' a1 + = HasOperationalExperience + | OperationalExperienceIntent a1 + | OperationalExperienceNotApplicable + deriving (Eq, Ord, Show) + +-- | The name of the data type @OperationalExperience'@. +class OperationalExperience'Like p f x x' a1 a1' | x -> a1 where + operationalExperience' :: + Optic p f x x' (OperationalExperience' a1) (OperationalExperience' a1') + +-- | Identity +instance (x' ~ OperationalExperience' a1') => OperationalExperience'Like p f (OperationalExperience' a1) x' a1 a1' where + operationalExperience' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ OperationalExperience' a1) => HasOperationalExperienceLike p f (OperationalExperience' a1) x' where + hasOperationalExperience = prism' (\() -> HasOperationalExperience) (\case HasOperationalExperience -> Just (); OperationalExperienceIntent _ -> Nothing; OperationalExperienceNotApplicable -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ OperationalExperience' a1') => OperationalExperienceIntentLike p f (OperationalExperience' a1) x' a1 a1' where + operationalExperienceIntent = prism OperationalExperienceIntent (\case HasOperationalExperience -> Left HasOperationalExperience; OperationalExperienceIntent x -> Right x; OperationalExperienceNotApplicable -> Left OperationalExperienceNotApplicable) + +-- | Prism +instance (Choice p, Applicative f, x' ~ OperationalExperience' a1) => OperationalExperienceNotApplicableLike p f (OperationalExperience' a1) x' where + operationalExperienceNotApplicable = prism' (\() -> OperationalExperienceNotApplicable) (\case HasOperationalExperience -> Nothing; OperationalExperienceIntent _ -> Nothing; OperationalExperienceNotApplicable -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesOperationalExperience' == id +-} +lawNamesOperationalExperience' :: OperationalExperience' a1 -> OperationalExperience' a1 +lawNamesOperationalExperience' = \case + HasOperationalExperience -> review hasOperationalExperience () + OperationalExperienceIntent x -> review operationalExperienceIntent x + OperationalExperienceNotApplicable -> review operationalExperienceNotApplicable () + +-- | A valid @OperationalExperience'@. +type OperationalExperience = OperationalExperience' (FormText 'Wide 185 5) + +-- | An unfilled @OperationalExperience'@: each field holds what has been entered, if anything, to be checked by @fillOperationalExperience@. +type UnfilledOperationalExperience = OperationalExperience' (Maybe Text) + +-- | The classes that a data type holding @OperationalExperience'@ in one field, or in one or more constructors, inherits. +type InheritOperationalExperience' s a1 = + ( OperationalExperience'Like (->) (Const ()) s s a1 a1 + , HasOperationalExperienceLike (->) (Const ()) s s + , OperationalExperienceIntentLike (->) (Const ()) s s a1 a1 + , OperationalExperienceNotApplicableLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritOperationalExperience'@. +inheritOperationalExperience' :: (InheritOperationalExperience' s a1) => proxy s -> () +inheritOperationalExperience' _ = () diff --git a/src/ReOC/Data/OperationalHeadquarters.hs b/src/ReOC/Data/OperationalHeadquarters.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/OperationalHeadquarters.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritOperationalHeadquarters') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @OperationalHeadquarters'@: where the operational headquarters of the operator is. +module ReOC.Data.OperationalHeadquarters ( + OperationalHeadquarters' (..), + OperationalHeadquarters'Like (..), + lawNamesOperationalHeadquarters', + OperationalHeadquarters, + UnfilledOperationalHeadquarters, + InheritOperationalHeadquarters', + inheritOperationalHeadquarters', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import ReOC.Data.Address (Address, UnfilledAddress) +import ReOC.Name.AtRegisteredOffice (AtRegisteredOfficeLike (..)) +import ReOC.Name.OperationalHeadquartersAddress (OperationalHeadquartersAddressLike (..)) + +-- | Where the operational headquarters of the operator is. Its valid form is @OperationalHeadquarters@, and its unfilled form @UnfilledOperationalHeadquarters@. +data OperationalHeadquarters' a1 + = AtRegisteredOffice + | OperationalHeadquartersAddress a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @OperationalHeadquarters'@. +class OperationalHeadquarters'Like p f x x' a1 a1' | x -> a1 where + operationalHeadquarters' :: + Optic p f x x' (OperationalHeadquarters' a1) (OperationalHeadquarters' a1') + +-- | Identity +instance (x' ~ OperationalHeadquarters' a1') => OperationalHeadquarters'Like p f (OperationalHeadquarters' a1) x' a1 a1' where + operationalHeadquarters' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ OperationalHeadquarters' a1) => AtRegisteredOfficeLike p f (OperationalHeadquarters' a1) x' where + atRegisteredOffice = prism' (\() -> AtRegisteredOffice) (\case AtRegisteredOffice -> Just (); OperationalHeadquartersAddress _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ OperationalHeadquarters' a1') => OperationalHeadquartersAddressLike p f (OperationalHeadquarters' a1) x' a1 a1' where + operationalHeadquartersAddress = prism OperationalHeadquartersAddress (\case AtRegisteredOffice -> Left AtRegisteredOffice; OperationalHeadquartersAddress x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesOperationalHeadquarters' == id +-} +lawNamesOperationalHeadquarters' :: OperationalHeadquarters' a1 -> OperationalHeadquarters' a1 +lawNamesOperationalHeadquarters' = \case + AtRegisteredOffice -> review atRegisteredOffice () + OperationalHeadquartersAddress x -> review operationalHeadquartersAddress x + +-- | A valid @OperationalHeadquarters'@. +type OperationalHeadquarters = OperationalHeadquarters' Address + +-- | An unfilled @OperationalHeadquarters'@: each field holds what has been entered, if anything, to be checked by @fillOperationalHeadquarters@. +type UnfilledOperationalHeadquarters = OperationalHeadquarters' UnfilledAddress + +-- | The classes that a data type holding @OperationalHeadquarters'@ in one field, or in one or more constructors, inherits. +type InheritOperationalHeadquarters' s a1 = + ( OperationalHeadquarters'Like (->) (Const ()) s s a1 a1 + , AtRegisteredOfficeLike (->) (Const ()) s s + , OperationalHeadquartersAddressLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritOperationalHeadquarters'@. +inheritOperationalHeadquarters' :: (InheritOperationalHeadquarters' s a1) => proxy s -> () +inheritOperationalHeadquarters' _ = () diff --git a/src/ReOC/Data/OperationsManual.hs b/src/ReOC/Data/OperationsManual.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/OperationsManual.hs @@ -0,0 +1,137 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritOperationsManual') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @OperationsManual'@: the parts of the operations manual that are not part of the operator. The manual is reviewed 12 months after the date of its last amendment. +module ReOC.Data.OperationsManual ( + OperationsManual' (..), + OperationsManual'Like (..), + lawNamesOperationsManual', + OperationsManual, + UnfilledOperationsManual, + mkOperationsManual, + mkUnfilledOperationsManual, + InheritOperationsManual', + inheritOperationsManual', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.List.NonEmpty (NonEmpty) +import Data.Text (Text) +import ReOC.Data.Crewing (Crewing) +import ReOC.Data.FirstIssue (FirstIssue, UnfilledFirstIssue, mkUnfilledFirstIssue) +import ReOC.Data.Policies (Policies, UnfilledPolicies, mkUnfilledPolicies) +import ReOC.Data.RemotePilots (RemotePilots) +import ReOC.Data.Revision (Revision, UnfilledRevision) +import ReOC.Data.Risk (Risk, UnfilledRisk) +import ReOC.Name.Crew (CrewLike (..)) +import ReOC.Name.FirstIssue (FirstIssueLike (..)) +import ReOC.Name.Pilots (PilotsLike (..)) +import ReOC.Name.Policies (PoliciesLike (..)) +import ReOC.Name.Revisions (RevisionsLike (..)) +import ReOC.Name.RiskRegister (RiskRegisterLike (..)) +import ReOC.Name.Services (ServicesLike (..)) +import ReOC.Primitive.Text1 (Text1) + +-- | The parts of the operations manual that are not part of the operator. The manual is reviewed 12 months after the date of its last amendment. Its valid form is @OperationsManual@, and its unfilled form @UnfilledOperationsManual@. +data OperationsManual' a1 a2 a3 a4 a5 a6 a7 = OperationsManual' a1 a2 a3 a4 a5 a6 a7 + deriving (Eq, Ord, Show) + +-- | The name of the data type @OperationsManual'@. +class OperationsManual'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' | x -> a1 a2 a3 a4 a5 a6 a7 where + operationsManual' :: + Optic p f x x' (OperationsManual' a1 a2 a3 a4 a5 a6 a7) (OperationsManual' a1' a2' a3' a4' a5' a6' a7') + +-- | Identity +instance (x' ~ OperationsManual' a1' a2' a3' a4' a5' a6' a7') => OperationsManual'Like p f (OperationsManual' a1 a2 a3 a4 a5 a6 a7) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' where + operationsManual' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperationsManual' a1' a2 a3 a4 a5 a6 a7) => FirstIssueLike p f (OperationsManual' a1 a2 a3 a4 a5 a6 a7) x' a1 a1' where + firstIssue f (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = fmap (\x1' -> OperationsManual' x1' x2 x3 x4 x5 x6 x7) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperationsManual' a1 a2' a3 a4 a5 a6 a7) => RevisionsLike p f (OperationsManual' a1 a2 a3 a4 a5 a6 a7) x' a2 a2' where + revisions f (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = fmap (\x2' -> OperationsManual' x1 x2' x3 x4 x5 x6 x7) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperationsManual' a1 a2 a3' a4 a5 a6 a7) => ServicesLike p f (OperationsManual' a1 a2 a3 a4 a5 a6 a7) x' a3 a3' where + services f (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = fmap (\x3' -> OperationsManual' x1 x2 x3' x4 x5 x6 x7) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperationsManual' a1 a2 a3 a4' a5 a6 a7) => PoliciesLike p f (OperationsManual' a1 a2 a3 a4 a5 a6 a7) x' a4 a4' where + policies f (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = fmap (\x4' -> OperationsManual' x1 x2 x3 x4' x5 x6 x7) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperationsManual' a1 a2 a3 a4 a5' a6 a7) => RiskRegisterLike p f (OperationsManual' a1 a2 a3 a4 a5 a6 a7) x' a5 a5' where + riskRegister f (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = fmap (\x5' -> OperationsManual' x1 x2 x3 x4 x5' x6 x7) (f x5) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperationsManual' a1 a2 a3 a4 a5 a6' a7) => CrewLike p f (OperationsManual' a1 a2 a3 a4 a5 a6 a7) x' a6 a6' where + crew f (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = fmap (\x6' -> OperationsManual' x1 x2 x3 x4 x5 x6' x7) (f x6) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ OperationsManual' a1 a2 a3 a4 a5 a6 a7') => PilotsLike p f (OperationsManual' a1 a2 a3 a4 a5 a6 a7) x' a7 a7' where + pilots f (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = fmap (OperationsManual' x1 x2 x3 x4 x5 x6) (f x7) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesOperationsManual' == id +-} +lawNamesOperationsManual' :: OperationsManual' a1 a2 a3 a4 a5 a6 a7 -> OperationsManual' a1 a2 a3 a4 a5 a6 a7 +lawNamesOperationsManual' s = + OperationsManual' + (view (cloneLens firstIssue) s) + (view (cloneLens revisions) s) + (view (cloneLens services) s) + (view (cloneLens policies) s) + (view (cloneLens riskRegister) s) + (view (cloneLens crew) s) + (view (cloneLens pilots) s) + +-- | A valid @OperationsManual'@. +type OperationsManual = OperationsManual' FirstIssue [Revision] (NonEmpty Text1) Policies (NonEmpty Risk) Crewing RemotePilots + +-- | An unfilled @OperationsManual'@: each field holds what has been entered, if anything, to be checked by @fillOperationsManual@. +type UnfilledOperationsManual = OperationsManual' UnfilledFirstIssue [UnfilledRevision] [Text] UnfilledPolicies [UnfilledRisk] (Maybe Crewing) (Maybe RemotePilots) + +-- | Builds a valid @OperationsManual'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkOperationsManual :: FirstIssue -> NonEmpty Text1 -> Policies -> NonEmpty Risk -> Crewing -> RemotePilots -> OperationsManual +mkOperationsManual x1 = OperationsManual' x1 [] + +-- | An unfilled @OperationsManual'@ with nothing entered. +mkUnfilledOperationsManual :: UnfilledOperationsManual +mkUnfilledOperationsManual = + OperationsManual' + mkUnfilledFirstIssue + [] + [] + mkUnfilledPolicies + [] + Nothing + Nothing + +-- | The classes that a data type holding @OperationsManual'@ in one field, or in one or more constructors, inherits. +type InheritOperationsManual' s a1 a2 a3 a4 a5 a6 a7 = + ( OperationsManual'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 a6 a6 a7 a7 + , FirstIssueLike (->) (Const ()) s s a1 a1 + , RevisionsLike (->) (Const ()) s s a2 a2 + , ServicesLike (->) (Const ()) s s a3 a3 + , PoliciesLike (->) (Const ()) s s a4 a4 + , RiskRegisterLike (->) (Const ()) s s a5 a5 + , CrewLike (->) (Const ()) s s a6 a6 + , PilotsLike (->) (Const ()) s s a7 a7 + ) + +-- | Checks that a data type inherits every class of @InheritOperationsManual'@. +inheritOperationsManual' :: (InheritOperationsManual' s a1 a2 a3 a4 a5 a6 a7) => proxy s -> () +inheritOperationsManual' _ = () diff --git a/src/ReOC/Data/Operator.hs b/src/ReOC/Data/Operator.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Operator.hs @@ -0,0 +1,95 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritOperator') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Operator'@: the operator: the company, its key personnel and the types of RPA it operates, which are held by both documents. The fleet has at most 8 types, so that with up to 9 types of training RPA it fits question 27. +module ReOC.Data.Operator ( + Operator' (..), + Operator'Like (..), + lawNamesOperator', + Operator, + UnfilledOperator, + mkUnfilledOperator, + InheritOperator', + inheritOperator', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import ReOC.Data.Company (Company, UnfilledCompany, mkUnfilledCompany) +import ReOC.Data.KeyPersonnel (KeyPersonnel, UnfilledKeyPersonnel, mkUnfilledKeyPersonnel) +import ReOC.Data.OperatedType (OperatedType, UnfilledOperatedType) +import ReOC.Name.Company (CompanyLike (..)) +import ReOC.Name.Fleet (FleetLike (..)) +import ReOC.Name.KeyPersonnel (KeyPersonnelLike (..)) +import ReOC.Primitive.Some (Some) + +-- | The operator: the company, its key personnel and the types of RPA it operates, which are held by both documents. The fleet has at most 8 types, so that with up to 9 types of training RPA it fits question 27. Its valid form is @Operator@, and its unfilled form @UnfilledOperator@. +data Operator' a1 a2 a3 = Operator' a1 a2 a3 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Operator'@. +class Operator'Like p f x x' a1 a1' a2 a2' a3 a3' | x -> a1 a2 a3 where + operator' :: + Optic p f x x' (Operator' a1 a2 a3) (Operator' a1' a2' a3') + +-- | Identity +instance (x' ~ Operator' a1' a2' a3') => Operator'Like p f (Operator' a1 a2 a3) x' a1 a1' a2 a2' a3 a3' where + operator' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Operator' a1' a2 a3) => CompanyLike p f (Operator' a1 a2 a3) x' a1 a1' where + company f (Operator' x1 x2 x3) = fmap (\x1' -> Operator' x1' x2 x3) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Operator' a1 a2' a3) => KeyPersonnelLike p f (Operator' a1 a2 a3) x' a2 a2' where + keyPersonnel f (Operator' x1 x2 x3) = fmap (\x2' -> Operator' x1 x2' x3) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Operator' a1 a2 a3') => FleetLike p f (Operator' a1 a2 a3) x' a3 a3' where + fleet f (Operator' x1 x2 x3) = fmap (Operator' x1 x2) (f x3) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesOperator' == id +-} +lawNamesOperator' :: Operator' a1 a2 a3 -> Operator' a1 a2 a3 +lawNamesOperator' s = + Operator' + (view (cloneLens company) s) + (view (cloneLens keyPersonnel) s) + (view (cloneLens fleet) s) + +-- | A valid @Operator'@. +type Operator = Operator' Company KeyPersonnel (Some 8 OperatedType) + +-- | An unfilled @Operator'@: each field holds what has been entered, if anything, to be checked by @fillOperator@. +type UnfilledOperator = Operator' UnfilledCompany UnfilledKeyPersonnel [UnfilledOperatedType] + +-- | An unfilled @Operator'@ with nothing entered. +mkUnfilledOperator :: UnfilledOperator +mkUnfilledOperator = + Operator' + mkUnfilledCompany + mkUnfilledKeyPersonnel + [] + +-- | The classes that a data type holding @Operator'@ in one field, or in one or more constructors, inherits. +type InheritOperator' s a1 a2 a3 = + ( Operator'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 + , CompanyLike (->) (Const ()) s s a1 a1 + , KeyPersonnelLike (->) (Const ()) s s a2 a2 + , FleetLike (->) (Const ()) s s a3 a3 + ) + +-- | Checks that a data type inherits every class of @InheritOperator'@. +inheritOperator' :: (InheritOperator' s a1 a2 a3) => proxy s -> () +inheritOperator' _ = () diff --git a/src/ReOC/Data/OtherReOCRoles.hs b/src/ReOC/Data/OtherReOCRoles.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/OtherReOCRoles.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritOtherReOCRoles') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @OtherReOCRoles'@: whether a person is also a chief remote pilot or chief RePL instructor for other ReOC holders (CASA Form 101-02, questions 11 and 18). +module ReOC.Data.OtherReOCRoles ( + OtherReOCRoles' (..), + OtherReOCRoles'Like (..), + lawNamesOtherReOCRoles', + OtherReOCRoles, + UnfilledOtherReOCRoles, + InheritOtherReOCRoles', + inheritOtherReOCRoles', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.NoOtherReOCRoles (NoOtherReOCRolesLike (..)) +import ReOC.Name.OtherReOCRolesHeld (OtherReOCRolesHeldLike (..)) +import ReOC.Primitive.FormText (FormLines) + +-- | Whether a person is also a chief remote pilot or chief RePL instructor for other ReOC holders (CASA Form 101-02, questions 11 and 18). Its valid form is @OtherReOCRoles@, and its unfilled form @UnfilledOtherReOCRoles@. +data OtherReOCRoles' a1 + = NoOtherReOCRoles + | OtherReOCRolesHeld a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @OtherReOCRoles'@. +class OtherReOCRoles'Like p f x x' a1 a1' | x -> a1 where + otherReOCRoles' :: + Optic p f x x' (OtherReOCRoles' a1) (OtherReOCRoles' a1') + +-- | Identity +instance (x' ~ OtherReOCRoles' a1') => OtherReOCRoles'Like p f (OtherReOCRoles' a1) x' a1 a1' where + otherReOCRoles' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ OtherReOCRoles' a1) => NoOtherReOCRolesLike p f (OtherReOCRoles' a1) x' where + noOtherReOCRoles = prism' (\() -> NoOtherReOCRoles) (\case NoOtherReOCRoles -> Just (); OtherReOCRolesHeld _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ OtherReOCRoles' a1') => OtherReOCRolesHeldLike p f (OtherReOCRoles' a1) x' a1 a1' where + otherReOCRolesHeld = prism OtherReOCRolesHeld (\case NoOtherReOCRoles -> Left NoOtherReOCRoles; OtherReOCRolesHeld x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesOtherReOCRoles' == id +-} +lawNamesOtherReOCRoles' :: OtherReOCRoles' a1 -> OtherReOCRoles' a1 +lawNamesOtherReOCRoles' = \case + NoOtherReOCRoles -> review noOtherReOCRoles () + OtherReOCRolesHeld x -> review otherReOCRolesHeld x + +-- | A valid @OtherReOCRoles'@. +type OtherReOCRoles = OtherReOCRoles' (FormLines 5) + +-- | An unfilled @OtherReOCRoles'@: each field holds what has been entered, if anything, to be checked by @fillOtherReOCRoles@. +type UnfilledOtherReOCRoles = OtherReOCRoles' (Maybe Text) + +-- | The classes that a data type holding @OtherReOCRoles'@ in one field, or in one or more constructors, inherits. +type InheritOtherReOCRoles' s a1 = + ( OtherReOCRoles'Like (->) (Const ()) s s a1 a1 + , NoOtherReOCRolesLike (->) (Const ()) s s + , OtherReOCRolesHeldLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritOtherReOCRoles'@. +inheritOtherReOCRoles' :: (InheritOtherReOCRoles' s a1) => proxy s -> () +inheritOtherReOCRoles' _ = () diff --git a/src/ReOC/Data/Person.hs b/src/ReOC/Data/Person.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Person.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritPerson') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Person'@: a person: their full name, aviation reference number and contact details. +module ReOC.Data.Person ( + Person' (..), + Person'Like (..), + lawNamesPerson', + Person, + UnfilledPerson, + mkUnfilledPerson, + InheritPerson', + inheritPerson', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.Arn (ArnLike (..)) +import ReOC.Name.EmailAddress (EmailAddressLike (..)) +import ReOC.Name.FullName (FullNameLike (..)) +import ReOC.Name.PhoneNumber (PhoneNumberLike (..)) +import ReOC.Primitive.ARN (ARN) +import ReOC.Primitive.EmailAddress (EmailAddress) +import ReOC.Primitive.FormText (FormLine) +import ReOC.Primitive.PhoneNumber (PhoneNumber) + +-- | A person: their full name, aviation reference number and contact details. Its valid form is @Person@, and its unfilled form @UnfilledPerson@. +data Person' a1 a2 a3 a4 = Person' a1 a2 a3 a4 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Person'@. +class Person'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' | x -> a1 a2 a3 a4 where + person' :: + Optic p f x x' (Person' a1 a2 a3 a4) (Person' a1' a2' a3' a4') + +-- | Identity +instance (x' ~ Person' a1' a2' a3' a4') => Person'Like p f (Person' a1 a2 a3 a4) x' a1 a1' a2 a2' a3 a3' a4 a4' where + person' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Person' a1' a2 a3 a4) => FullNameLike p f (Person' a1 a2 a3 a4) x' a1 a1' where + fullName f (Person' x1 x2 x3 x4) = fmap (\x1' -> Person' x1' x2 x3 x4) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Person' a1 a2' a3 a4) => ArnLike p f (Person' a1 a2 a3 a4) x' a2 a2' where + arn f (Person' x1 x2 x3 x4) = fmap (\x2' -> Person' x1 x2' x3 x4) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Person' a1 a2 a3' a4) => PhoneNumberLike p f (Person' a1 a2 a3 a4) x' a3 a3' where + phoneNumber f (Person' x1 x2 x3 x4) = fmap (\x3' -> Person' x1 x2 x3' x4) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Person' a1 a2 a3 a4') => EmailAddressLike p f (Person' a1 a2 a3 a4) x' a4 a4' where + emailAddress f (Person' x1 x2 x3 x4) = fmap (Person' x1 x2 x3) (f x4) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesPerson' == id +-} +lawNamesPerson' :: Person' a1 a2 a3 a4 -> Person' a1 a2 a3 a4 +lawNamesPerson' s = + Person' + (view (cloneLens fullName) s) + (view (cloneLens arn) s) + (view (cloneLens phoneNumber) s) + (view (cloneLens emailAddress) s) + +-- | A valid @Person'@. +type Person = Person' FormLine ARN PhoneNumber EmailAddress + +-- | An unfilled @Person'@: each field holds what has been entered, if anything, to be checked by @fillPerson@. +type UnfilledPerson = Person' (Maybe Text) (Maybe Text) (Maybe Text) (Maybe Text) + +-- | An unfilled @Person'@ with nothing entered. +mkUnfilledPerson :: UnfilledPerson +mkUnfilledPerson = + Person' + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @Person'@ in one field, or in one or more constructors, inherits. +type InheritPerson' s a1 a2 a3 a4 = + ( Person'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 + , FullNameLike (->) (Const ()) s s a1 a1 + , ArnLike (->) (Const ()) s s a2 a2 + , PhoneNumberLike (->) (Const ()) s s a3 a3 + , EmailAddressLike (->) (Const ()) s s a4 a4 + ) + +-- | Checks that a data type inherits every class of @InheritPerson'@. +inheritPerson' :: (InheritPerson' s a1 a2 a3 a4) => proxy s -> () +inheritPerson' _ = () diff --git a/src/ReOC/Data/PersonnelHistory.hs b/src/ReOC/Data/PersonnelHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/PersonnelHistory.hs @@ -0,0 +1,99 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritPersonnelHistory') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @PersonnelHistory'@: the history of the applicant and nominated personnel (CASA Form 101-02, questions 19 to 23). +module ReOC.Data.PersonnelHistory ( + PersonnelHistory' (..), + PersonnelHistory'Like (..), + lawNamesPersonnelHistory', + PersonnelHistory, + UnfilledPersonnelHistory, + mkUnfilledPersonnelHistory, + InheritPersonnelHistory', + inheritPersonnelHistory', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import ReOC.Data.HistoryAnswer (HistoryAnswer, UnfilledHistoryAnswer) +import ReOC.Name.ActionTaken (ActionTakenLike (..)) +import ReOC.Name.CriminalConviction (CriminalConvictionLike (..)) +import ReOC.Name.SuspensionPending (SuspensionPendingLike (..)) +import ReOC.Name.TransportLicenceRefused (TransportLicenceRefusedLike (..)) + +-- | The history of the applicant and nominated personnel (CASA Form 101-02, questions 19 to 23). Its valid form is @PersonnelHistory@, and its unfilled form @UnfilledPersonnelHistory@. +data PersonnelHistory' a1 a2 a3 a4 = PersonnelHistory' a1 a2 a3 a4 + deriving (Eq, Ord, Show) + +-- | The name of the data type @PersonnelHistory'@. +class PersonnelHistory'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' | x -> a1 a2 a3 a4 where + personnelHistory' :: + Optic p f x x' (PersonnelHistory' a1 a2 a3 a4) (PersonnelHistory' a1' a2' a3' a4') + +-- | Identity +instance (x' ~ PersonnelHistory' a1' a2' a3' a4') => PersonnelHistory'Like p f (PersonnelHistory' a1 a2 a3 a4) x' a1 a1' a2 a2' a3 a3' a4 a4' where + personnelHistory' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ PersonnelHistory' a1' a2 a3 a4) => ActionTakenLike p f (PersonnelHistory' a1 a2 a3 a4) x' a1 a1' where + actionTaken f (PersonnelHistory' x1 x2 x3 x4) = fmap (\x1' -> PersonnelHistory' x1' x2 x3 x4) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ PersonnelHistory' a1 a2' a3 a4) => TransportLicenceRefusedLike p f (PersonnelHistory' a1 a2 a3 a4) x' a2 a2' where + transportLicenceRefused f (PersonnelHistory' x1 x2 x3 x4) = fmap (\x2' -> PersonnelHistory' x1 x2' x3 x4) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ PersonnelHistory' a1 a2 a3' a4) => CriminalConvictionLike p f (PersonnelHistory' a1 a2 a3 a4) x' a3 a3' where + criminalConviction f (PersonnelHistory' x1 x2 x3 x4) = fmap (\x3' -> PersonnelHistory' x1 x2 x3' x4) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ PersonnelHistory' a1 a2 a3 a4') => SuspensionPendingLike p f (PersonnelHistory' a1 a2 a3 a4) x' a4 a4' where + suspensionPending f (PersonnelHistory' x1 x2 x3 x4) = fmap (PersonnelHistory' x1 x2 x3) (f x4) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesPersonnelHistory' == id +-} +lawNamesPersonnelHistory' :: PersonnelHistory' a1 a2 a3 a4 -> PersonnelHistory' a1 a2 a3 a4 +lawNamesPersonnelHistory' s = + PersonnelHistory' + (view (cloneLens actionTaken) s) + (view (cloneLens transportLicenceRefused) s) + (view (cloneLens criminalConviction) s) + (view (cloneLens suspensionPending) s) + +-- | A valid @PersonnelHistory'@. +type PersonnelHistory = PersonnelHistory' HistoryAnswer HistoryAnswer HistoryAnswer HistoryAnswer + +-- | An unfilled @PersonnelHistory'@: each field holds what has been entered, if anything, to be checked by @fillPersonnelHistory@. +type UnfilledPersonnelHistory = PersonnelHistory' (Maybe UnfilledHistoryAnswer) (Maybe UnfilledHistoryAnswer) (Maybe UnfilledHistoryAnswer) (Maybe UnfilledHistoryAnswer) + +-- | An unfilled @PersonnelHistory'@ with nothing entered. +mkUnfilledPersonnelHistory :: UnfilledPersonnelHistory +mkUnfilledPersonnelHistory = + PersonnelHistory' + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @PersonnelHistory'@ in one field, or in one or more constructors, inherits. +type InheritPersonnelHistory' s a1 a2 a3 a4 = + ( PersonnelHistory'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 + , ActionTakenLike (->) (Const ()) s s a1 a1 + , TransportLicenceRefusedLike (->) (Const ()) s s a2 a2 + , CriminalConvictionLike (->) (Const ()) s s a3 a3 + , SuspensionPendingLike (->) (Const ()) s s a4 a4 + ) + +-- | Checks that a data type inherits every class of @InheritPersonnelHistory'@. +inheritPersonnelHistory' :: (InheritPersonnelHistory' s a1 a2 a3 a4) => proxy s -> () +inheritPersonnelHistory' _ = () diff --git a/src/ReOC/Data/Policies.hs b/src/ReOC/Data/Policies.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Policies.hs @@ -0,0 +1,166 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritPolicies') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Policies'@: the limits that the operator sets in its operations manual. +module ReOC.Data.Policies ( + Policies' (..), + Policies'Like (..), + lawNamesPolicies', + Policies, + UnfilledPolicies, + mkUnfilledPolicies, + InheritPolicies', + inheritPolicies', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Numeric.Natural (Natural) +import ReOC.Data.BackupInterval (BackupInterval) +import ReOC.Name.AlcoholHours (AlcoholHoursLike (..)) +import ReOC.Name.BackupFrequency (BackupFrequencyLike (..)) +import ReOC.Name.BatteryReserve (BatteryReserveLike (..)) +import ReOC.Name.CheckingMonths (CheckingMonthsLike (..)) +import ReOC.Name.DutyHours (DutyHoursLike (..)) +import ReOC.Name.IndependentReviewYears (IndependentReviewYearsLike (..)) +import ReOC.Name.InspectionHours (InspectionHoursLike (..)) +import ReOC.Name.InspectionMonths (InspectionMonthsLike (..)) +import ReOC.Name.RecencyDays (RecencyDaysLike (..)) +import ReOC.Name.RecencyFlights (RecencyFlightsLike (..)) +import ReOC.Name.RefresherMonths (RefresherMonthsLike (..)) +import ReOC.Name.RestHours (RestHoursLike (..)) +import ReOC.Primitive.Percentage (Percentage) +import ReOC.Primitive.Positive (Positive) + +-- | The limits that the operator sets in its operations manual. Its valid form is @Policies@, and its unfilled form @UnfilledPolicies@. +data Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Policies'@. +class Policies'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' a9 a9' a10 a10' a11 a11' a12 a12' | x -> a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 where + policies' :: + Optic p f x x' (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) (Policies' a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12') + +-- | Identity +instance (x' ~ Policies' a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12') => Policies'Like p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' a9 a9' a10 a10' a11 a11' a12 a12' where + policies' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1' a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) => RecencyFlightsLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a1 a1' where + recencyFlights f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x1' -> Policies' x1' x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2' a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) => RecencyDaysLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a2 a2' where + recencyDays f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x2' -> Policies' x1 x2' x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3' a4 a5 a6 a7 a8 a9 a10 a11 a12) => RefresherMonthsLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a3 a3' where + refresherMonths f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x3' -> Policies' x1 x2 x3' x4 x5 x6 x7 x8 x9 x10 x11 x12) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4' a5 a6 a7 a8 a9 a10 a11 a12) => AlcoholHoursLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a4 a4' where + alcoholHours f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x4' -> Policies' x1 x2 x3 x4' x5 x6 x7 x8 x9 x10 x11 x12) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4 a5' a6 a7 a8 a9 a10 a11 a12) => RestHoursLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a5 a5' where + restHours f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x5' -> Policies' x1 x2 x3 x4 x5' x6 x7 x8 x9 x10 x11 x12) (f x5) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4 a5 a6' a7 a8 a9 a10 a11 a12) => DutyHoursLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a6 a6' where + dutyHours f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x6' -> Policies' x1 x2 x3 x4 x5 x6' x7 x8 x9 x10 x11 x12) (f x6) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4 a5 a6 a7' a8 a9 a10 a11 a12) => InspectionMonthsLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a7 a7' where + inspectionMonths f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x7' -> Policies' x1 x2 x3 x4 x5 x6 x7' x8 x9 x10 x11 x12) (f x7) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4 a5 a6 a7 a8' a9 a10 a11 a12) => InspectionHoursLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a8 a8' where + inspectionHours f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x8' -> Policies' x1 x2 x3 x4 x5 x6 x7 x8' x9 x10 x11 x12) (f x8) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9' a10 a11 a12) => BatteryReserveLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a9 a9' where + batteryReserve f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x9' -> Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9' x10 x11 x12) (f x9) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10' a11 a12) => BackupFrequencyLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a10 a10' where + backupFrequency f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x10' -> Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10' x11 x12) (f x10) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11' a12) => IndependentReviewYearsLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a11 a11' where + independentReviewYears f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x11' -> Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11' x12) (f x11) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12') => CheckingMonthsLike p f (Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a12 a12' where + checkingMonths f (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11) (f x12) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesPolicies' == id +-} +lawNamesPolicies' :: Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 -> Policies' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 +lawNamesPolicies' s = + Policies' + (view (cloneLens recencyFlights) s) + (view (cloneLens recencyDays) s) + (view (cloneLens refresherMonths) s) + (view (cloneLens alcoholHours) s) + (view (cloneLens restHours) s) + (view (cloneLens dutyHours) s) + (view (cloneLens inspectionMonths) s) + (view (cloneLens inspectionHours) s) + (view (cloneLens batteryReserve) s) + (view (cloneLens backupFrequency) s) + (view (cloneLens independentReviewYears) s) + (view (cloneLens checkingMonths) s) + +-- | A valid @Policies'@. +type Policies = Policies' Positive Positive Positive Positive Positive Positive Positive Positive Percentage BackupInterval Positive Positive + +-- | An unfilled @Policies'@: each field holds what has been entered, if anything, to be checked by @fillPolicies@. +type UnfilledPolicies = Policies' (Maybe Natural) (Maybe Natural) (Maybe Natural) (Maybe Natural) (Maybe Natural) (Maybe Natural) (Maybe Natural) (Maybe Natural) (Maybe Natural) (Maybe BackupInterval) (Maybe Natural) (Maybe Natural) + +-- | An unfilled @Policies'@ with nothing entered. +mkUnfilledPolicies :: UnfilledPolicies +mkUnfilledPolicies = + Policies' + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @Policies'@ in one field, or in one or more constructors, inherits. +type InheritPolicies' s a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = + ( Policies'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 a6 a6 a7 a7 a8 a8 a9 a9 a10 a10 a11 a11 a12 a12 + , RecencyFlightsLike (->) (Const ()) s s a1 a1 + , RecencyDaysLike (->) (Const ()) s s a2 a2 + , RefresherMonthsLike (->) (Const ()) s s a3 a3 + , AlcoholHoursLike (->) (Const ()) s s a4 a4 + , RestHoursLike (->) (Const ()) s s a5 a5 + , DutyHoursLike (->) (Const ()) s s a6 a6 + , InspectionMonthsLike (->) (Const ()) s s a7 a7 + , InspectionHoursLike (->) (Const ()) s s a8 a8 + , BatteryReserveLike (->) (Const ()) s s a9 a9 + , BackupFrequencyLike (->) (Const ()) s s a10 a10 + , IndependentReviewYearsLike (->) (Const ()) s s a11 a11 + , CheckingMonthsLike (->) (Const ()) s s a12 a12 + ) + +-- | Checks that a data type inherits every class of @InheritPolicies'@. +inheritPolicies' :: (InheritPolicies' s a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) => proxy s -> () +inheritPolicies' _ = () diff --git a/src/ReOC/Data/PrimaryContact.hs b/src/ReOC/Data/PrimaryContact.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/PrimaryContact.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritPrimaryContact') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @PrimaryContact'@: who is the primary contact for the application (CASA Form 101-02, questions 2 and 3). +module ReOC.Data.PrimaryContact ( + PrimaryContact' (..), + PrimaryContact'Like (..), + lawNamesPrimaryContact', + PrimaryContact, + UnfilledPrimaryContact, + InheritPrimaryContact', + inheritPrimaryContact', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import ReOC.Data.ContactPerson (ContactPerson, UnfilledContactPerson) +import ReOC.Name.ApplicantIsPrimaryContact (ApplicantIsPrimaryContactLike (..)) +import ReOC.Name.PrimaryContactPerson (PrimaryContactPersonLike (..)) + +-- | Who is the primary contact for the application (CASA Form 101-02, questions 2 and 3). Its valid form is @PrimaryContact@, and its unfilled form @UnfilledPrimaryContact@. +data PrimaryContact' a1 + = ApplicantIsPrimaryContact + | PrimaryContactPerson a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @PrimaryContact'@. +class PrimaryContact'Like p f x x' a1 a1' | x -> a1 where + primaryContact' :: + Optic p f x x' (PrimaryContact' a1) (PrimaryContact' a1') + +-- | Identity +instance (x' ~ PrimaryContact' a1') => PrimaryContact'Like p f (PrimaryContact' a1) x' a1 a1' where + primaryContact' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ PrimaryContact' a1) => ApplicantIsPrimaryContactLike p f (PrimaryContact' a1) x' where + applicantIsPrimaryContact = prism' (\() -> ApplicantIsPrimaryContact) (\case ApplicantIsPrimaryContact -> Just (); PrimaryContactPerson _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ PrimaryContact' a1') => PrimaryContactPersonLike p f (PrimaryContact' a1) x' a1 a1' where + primaryContactPerson = prism PrimaryContactPerson (\case ApplicantIsPrimaryContact -> Left ApplicantIsPrimaryContact; PrimaryContactPerson x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesPrimaryContact' == id +-} +lawNamesPrimaryContact' :: PrimaryContact' a1 -> PrimaryContact' a1 +lawNamesPrimaryContact' = \case + ApplicantIsPrimaryContact -> review applicantIsPrimaryContact () + PrimaryContactPerson x -> review primaryContactPerson x + +-- | A valid @PrimaryContact'@. +type PrimaryContact = PrimaryContact' ContactPerson + +-- | An unfilled @PrimaryContact'@: each field holds what has been entered, if anything, to be checked by @fillPrimaryContact@. +type UnfilledPrimaryContact = PrimaryContact' UnfilledContactPerson + +-- | The classes that a data type holding @PrimaryContact'@ in one field, or in one or more constructors, inherits. +type InheritPrimaryContact' s a1 = + ( PrimaryContact'Like (->) (Const ()) s s a1 a1 + , ApplicantIsPrimaryContactLike (->) (Const ()) s s + , PrimaryContactPersonLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritPrimaryContact'@. +inheritPrimaryContact' :: (InheritPrimaryContact' s a1) => proxy s -> () +inheritPrimaryContact' _ = () diff --git a/src/ReOC/Data/RPACategory.hs b/src/ReOC/Data/RPACategory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RPACategory.hs @@ -0,0 +1,84 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRPACategory) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RPACategory@: a category of remotely piloted aircraft (CASA Form 101-02, questions 27 and 29). The operations manual does not cover airships. +module ReOC.Data.RPACategory ( + RPACategory (..), + RPACategoryLike (..), + lawNamesRPACategory, + InheritRPACategory, + inheritRPACategory, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.Aeroplane (AeroplaneLike (..)) +import ReOC.Name.Helicopter (HelicopterLike (..)) +import ReOC.Name.Multirotor (MultirotorLike (..)) +import ReOC.Name.PoweredLift (PoweredLiftLike (..)) + +-- | A category of remotely piloted aircraft (CASA Form 101-02, questions 27 and 29). The operations manual does not cover airships. +data RPACategory + = Aeroplane + | Helicopter + | Multirotor + | PoweredLift + deriving (Eq, Ord, Show) + +-- | The name of the data type @RPACategory@. +class RPACategoryLike p f x x' where + rpaCategory :: + Optic p f x x' RPACategory RPACategory + +-- | Identity +instance (x' ~ RPACategory) => RPACategoryLike p f RPACategory x' where + rpaCategory = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ RPACategory) => AeroplaneLike p f RPACategory x' where + aeroplane = prism' (\() -> Aeroplane) (\case Aeroplane -> Just (); Helicopter -> Nothing; Multirotor -> Nothing; PoweredLift -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RPACategory) => HelicopterLike p f RPACategory x' where + helicopter = prism' (\() -> Helicopter) (\case Aeroplane -> Nothing; Helicopter -> Just (); Multirotor -> Nothing; PoweredLift -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RPACategory) => MultirotorLike p f RPACategory x' where + multirotor = prism' (\() -> Multirotor) (\case Aeroplane -> Nothing; Helicopter -> Nothing; Multirotor -> Just (); PoweredLift -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RPACategory) => PoweredLiftLike p f RPACategory x' where + poweredLift = prism' (\() -> PoweredLift) (\case Aeroplane -> Nothing; Helicopter -> Nothing; Multirotor -> Nothing; PoweredLift -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRPACategory == id +-} +lawNamesRPACategory :: RPACategory -> RPACategory +lawNamesRPACategory = \case + Aeroplane -> review aeroplane () + Helicopter -> review helicopter () + Multirotor -> review multirotor () + PoweredLift -> review poweredLift () + +-- | The classes that a data type holding @RPACategory@ in one field, or in one or more constructors, inherits. +type InheritRPACategory s = + ( RPACategoryLike (->) (Const ()) s s + , AeroplaneLike (->) (Const ()) s s + , HelicopterLike (->) (Const ()) s s + , MultirotorLike (->) (Const ()) s s + , PoweredLiftLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritRPACategory@. +inheritRPACategory :: (InheritRPACategory s) => proxy s -> () +inheritRPACategory _ = () diff --git a/src/ReOC/Data/RPAType.hs b/src/ReOC/Data/RPAType.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RPAType.hs @@ -0,0 +1,178 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRPAType') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RPAType'@: a type of RPA, with the facts and type-specific procedures that the operations manual gives for it. Its short name (such as "DJI Mavic 3 Pro") names it in prose and on the form, and must fit the cell of question 27 for its make and model. +module ReOC.Data.RPAType ( + RPAType' (..), + RPAType'Like (..), + lawNamesRPAType', + RPAType, + UnfilledRPAType, + mkRPAType, + mkUnfilledRPAType, + InheritRPAType', + inheritRPAType', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.List.NonEmpty (NonEmpty) +import Data.Text (Text) +import Numeric.Natural (Natural) +import ReOC.Data.EmergencyAction (EmergencyAction, UnfilledEmergencyAction) +import ReOC.Data.FlightTermination (FlightTermination, UnfilledFlightTermination) +import ReOC.Data.RPACategory (RPACategory) +import ReOC.Data.Transponder (Transponder) +import ReOC.Name.BatteryWarnings (BatteryWarningsLike (..)) +import ReOC.Name.BeforeFlight (BeforeFlightLike (..)) +import ReOC.Name.Category (CategoryLike (..)) +import ReOC.Name.EmergencyActions (EmergencyActionsLike (..)) +import ReOC.Name.FlightTermination (FlightTerminationLike (..)) +import ReOC.Name.InspectionItems (InspectionItemsLike (..)) +import ReOC.Name.MaximumGrossWeight (MaximumGrossWeightLike (..)) +import ReOC.Name.RpaMake (RpaMakeLike (..)) +import ReOC.Name.RpaModel (RpaModelLike (..)) +import ReOC.Name.ShortName (ShortNameLike (..)) +import ReOC.Name.TransponderCarriage (TransponderCarriageLike (..)) +import ReOC.Name.UserManual (UserManualLike (..)) +import ReOC.Primitive.FormText (FormFont (..), FormText) +import ReOC.Primitive.GrossWeight (GrossWeight) +import ReOC.Primitive.Text1 (Text1) + +-- | A type of RPA, with the facts and type-specific procedures that the operations manual gives for it. Its short name (such as "DJI Mavic 3 Pro") names it in prose and on the form, and must fit the cell of question 27 for its make and model. Its valid form is @RPAType@, and its unfilled form @UnfilledRPAType@. +data RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 + deriving (Eq, Ord, Show) + +-- | The name of the data type @RPAType'@. +class RPAType'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' a9 a9' a10 a10' a11 a11' a12 a12' | x -> a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 where + rpaType' :: + Optic p f x x' (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) (RPAType' a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12') + +-- | Identity +instance (x' ~ RPAType' a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12') => RPAType'Like p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' a9 a9' a10 a10' a11 a11' a12 a12' where + rpaType' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1' a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) => RpaMakeLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a1 a1' where + rpaMake f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x1' -> RPAType' x1' x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2' a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) => RpaModelLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a2 a2' where + rpaModel f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x2' -> RPAType' x1 x2' x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3' a4 a5 a6 a7 a8 a9 a10 a11 a12) => ShortNameLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a3 a3' where + shortName f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x3' -> RPAType' x1 x2 x3' x4 x5 x6 x7 x8 x9 x10 x11 x12) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4' a5 a6 a7 a8 a9 a10 a11 a12) => CategoryLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a4 a4' where + category f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x4' -> RPAType' x1 x2 x3 x4' x5 x6 x7 x8 x9 x10 x11 x12) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4 a5' a6 a7 a8 a9 a10 a11 a12) => MaximumGrossWeightLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a5 a5' where + maximumGrossWeight f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x5' -> RPAType' x1 x2 x3 x4 x5' x6 x7 x8 x9 x10 x11 x12) (f x5) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4 a5 a6' a7 a8 a9 a10 a11 a12) => UserManualLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a6 a6' where + userManual f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x6' -> RPAType' x1 x2 x3 x4 x5 x6' x7 x8 x9 x10 x11 x12) (f x6) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4 a5 a6 a7' a8 a9 a10 a11 a12) => TransponderCarriageLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a7 a7' where + transponderCarriage f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x7' -> RPAType' x1 x2 x3 x4 x5 x6 x7' x8 x9 x10 x11 x12) (f x7) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4 a5 a6 a7 a8' a9 a10 a11 a12) => FlightTerminationLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a8 a8' where + flightTermination f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x8' -> RPAType' x1 x2 x3 x4 x5 x6 x7 x8' x9 x10 x11 x12) (f x8) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9' a10 a11 a12) => InspectionItemsLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a9 a9' where + inspectionItems f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x9' -> RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9' x10 x11 x12) (f x9) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10' a11 a12) => BeforeFlightLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a10 a10' where + beforeFlight f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x10' -> RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10' x11 x12) (f x10) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11' a12) => BatteryWarningsLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a11 a11' where + batteryWarnings f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (\x11' -> RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11' x12) (f x11) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12') => EmergencyActionsLike p f (RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) x' a12 a12' where + emergencyActions f (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = fmap (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11) (f x12) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRPAType' == id +-} +lawNamesRPAType' :: RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 -> RPAType' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 +lawNamesRPAType' s = + RPAType' + (view (cloneLens rpaMake) s) + (view (cloneLens rpaModel) s) + (view (cloneLens shortName) s) + (view (cloneLens category) s) + (view (cloneLens maximumGrossWeight) s) + (view (cloneLens userManual) s) + (view (cloneLens transponderCarriage) s) + (view (cloneLens flightTermination) s) + (view (cloneLens inspectionItems) s) + (view (cloneLens beforeFlight) s) + (view (cloneLens batteryWarnings) s) + (view (cloneLens emergencyActions) s) + +-- | A valid @RPAType'@. +type RPAType = RPAType' Text1 Text1 (FormText 'Narrow 84 1) RPACategory GrossWeight Text1 Transponder FlightTermination (NonEmpty Text1) [Text1] (Maybe Text1) [EmergencyAction] + +-- | An unfilled @RPAType'@: each field holds what has been entered, if anything, to be checked by @fillRPAType@. +type UnfilledRPAType = RPAType' (Maybe Text) (Maybe Text) (Maybe Text) (Maybe RPACategory) (Maybe Natural) (Maybe Text) (Maybe Transponder) (Maybe UnfilledFlightTermination) [Text] [Text] (Maybe Text) [UnfilledEmergencyAction] + +-- | Builds a valid @RPAType'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkRPAType :: Text1 -> Text1 -> FormText 'Narrow 84 1 -> RPACategory -> GrossWeight -> Text1 -> Transponder -> FlightTermination -> NonEmpty Text1 -> RPAType +mkRPAType x1 x2 x3 x4 x5 x6 x7 x8 x9 = RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 [] Nothing [] + +-- | An unfilled @RPAType'@ with nothing entered. +mkUnfilledRPAType :: UnfilledRPAType +mkUnfilledRPAType = + RPAType' + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + [] + [] + Nothing + [] + +-- | The classes that a data type holding @RPAType'@ in one field, or in one or more constructors, inherits. +type InheritRPAType' s a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = + ( RPAType'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 a6 a6 a7 a7 a8 a8 a9 a9 a10 a10 a11 a11 a12 a12 + , RpaMakeLike (->) (Const ()) s s a1 a1 + , RpaModelLike (->) (Const ()) s s a2 a2 + , ShortNameLike (->) (Const ()) s s a3 a3 + , CategoryLike (->) (Const ()) s s a4 a4 + , MaximumGrossWeightLike (->) (Const ()) s s a5 a5 + , UserManualLike (->) (Const ()) s s a6 a6 + , TransponderCarriageLike (->) (Const ()) s s a7 a7 + , FlightTerminationLike (->) (Const ()) s s a8 a8 + , InspectionItemsLike (->) (Const ()) s s a9 a9 + , BeforeFlightLike (->) (Const ()) s s a10 a10 + , BatteryWarningsLike (->) (Const ()) s s a11 a11 + , EmergencyActionsLike (->) (Const ()) s s a12 a12 + ) + +-- | Checks that a data type inherits every class of @InheritRPAType'@. +inheritRPAType' :: (InheritRPAType' s a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12) => proxy s -> () +inheritRPAType' _ = () diff --git a/src/ReOC/Data/RadioQualification.hs b/src/ReOC/Data/RadioQualification.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RadioQualification.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRadioQualification) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RadioQualification@: the qualification of the chief remote pilot to use an aeronautical radio. +module ReOC.Data.RadioQualification ( + RadioQualification (..), + RadioQualificationLike (..), + lawNamesRadioQualification, + InheritRadioQualification, + inheritRadioQualification, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.FlightCrewLicence (FlightCrewLicenceLike (..)) +import ReOC.Name.NoRadioQualification (NoRadioQualificationLike (..)) +import ReOC.Name.RadioOperatorCertificate (RadioOperatorCertificateLike (..)) + +-- | The qualification of the chief remote pilot to use an aeronautical radio. +data RadioQualification + = FlightCrewLicence + | RadioOperatorCertificate + | NoRadioQualification + deriving (Eq, Ord, Show) + +-- | The name of the data type @RadioQualification@. +class RadioQualificationLike p f x x' where + radioQualification :: + Optic p f x x' RadioQualification RadioQualification + +-- | Identity +instance (x' ~ RadioQualification) => RadioQualificationLike p f RadioQualification x' where + radioQualification = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ RadioQualification) => FlightCrewLicenceLike p f RadioQualification x' where + flightCrewLicence = prism' (\() -> FlightCrewLicence) (\case FlightCrewLicence -> Just (); RadioOperatorCertificate -> Nothing; NoRadioQualification -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RadioQualification) => RadioOperatorCertificateLike p f RadioQualification x' where + radioOperatorCertificate = prism' (\() -> RadioOperatorCertificate) (\case FlightCrewLicence -> Nothing; RadioOperatorCertificate -> Just (); NoRadioQualification -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RadioQualification) => NoRadioQualificationLike p f RadioQualification x' where + noRadioQualification = prism' (\() -> NoRadioQualification) (\case FlightCrewLicence -> Nothing; RadioOperatorCertificate -> Nothing; NoRadioQualification -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRadioQualification == id +-} +lawNamesRadioQualification :: RadioQualification -> RadioQualification +lawNamesRadioQualification = \case + FlightCrewLicence -> review flightCrewLicence () + RadioOperatorCertificate -> review radioOperatorCertificate () + NoRadioQualification -> review noRadioQualification () + +-- | The classes that a data type holding @RadioQualification@ in one field, or in one or more constructors, inherits. +type InheritRadioQualification s = + ( RadioQualificationLike (->) (Const ()) s s + , FlightCrewLicenceLike (->) (Const ()) s s + , RadioOperatorCertificateLike (->) (Const ()) s s + , NoRadioQualificationLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritRadioQualification@. +inheritRadioQualification :: (InheritRadioQualification s) => proxy s -> () +inheritRadioQualification _ = () diff --git a/src/ReOC/Data/ReOC.hs b/src/ReOC/Data/ReOC.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/ReOC.hs @@ -0,0 +1,107 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritReOC') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @ReOC'@: an application for the initial issue of a ReOC: the operator, the answers to the application form, the operations manual, and RePL training if it is applied for. +module ReOC.Data.ReOC ( + ReOC' (..), + ReOC'Like (..), + lawNamesReOC', + ReOC, + UnfilledReOC, + mkReOC, + mkUnfilledReOC, + InheritReOC', + inheritReOC', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import ReOC.Data.ApplicationForm (ApplicationForm, UnfilledApplicationForm, mkUnfilledApplicationForm) +import ReOC.Data.OperationsManual (OperationsManual, UnfilledOperationsManual, mkUnfilledOperationsManual) +import ReOC.Data.Operator (Operator, UnfilledOperator, mkUnfilledOperator) +import ReOC.Data.TrainingMaterial (TrainingMaterial, UnfilledTrainingMaterial) +import ReOC.Name.ApplicationForm (ApplicationFormLike (..)) +import ReOC.Name.MaybeTrainingMaterial (MaybeTrainingMaterialLike (..)) +import ReOC.Name.OperationsManual (OperationsManualLike (..)) +import ReOC.Name.Operator (OperatorLike (..)) + +-- | An application for the initial issue of a ReOC: the operator, the answers to the application form, the operations manual, and RePL training if it is applied for. Its valid form is @ReOC@, and its unfilled form @UnfilledReOC@. +data ReOC' a1 a2 a3 a4 = ReOC' a1 a2 a3 a4 + deriving (Eq, Ord, Show) + +-- | The name of the data type @ReOC'@. +class ReOC'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' | x -> a1 a2 a3 a4 where + reOC' :: + Optic p f x x' (ReOC' a1 a2 a3 a4) (ReOC' a1' a2' a3' a4') + +-- | Identity +instance (x' ~ ReOC' a1' a2' a3' a4') => ReOC'Like p f (ReOC' a1 a2 a3 a4) x' a1 a1' a2 a2' a3 a3' a4 a4' where + reOC' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ReOC' a1' a2 a3 a4) => OperatorLike p f (ReOC' a1 a2 a3 a4) x' a1 a1' where + operator f (ReOC' x1 x2 x3 x4) = fmap (\x1' -> ReOC' x1' x2 x3 x4) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ReOC' a1 a2' a3 a4) => ApplicationFormLike p f (ReOC' a1 a2 a3 a4) x' a2 a2' where + applicationForm f (ReOC' x1 x2 x3 x4) = fmap (\x2' -> ReOC' x1 x2' x3 x4) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ReOC' a1 a2 a3' a4) => OperationsManualLike p f (ReOC' a1 a2 a3 a4) x' a3 a3' where + operationsManual f (ReOC' x1 x2 x3 x4) = fmap (\x3' -> ReOC' x1 x2 x3' x4) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ ReOC' a1 a2 a3 a4') => MaybeTrainingMaterialLike p f (ReOC' a1 a2 a3 a4) x' a4 a4' where + maybeTrainingMaterial f (ReOC' x1 x2 x3 x4) = fmap (ReOC' x1 x2 x3) (f x4) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesReOC' == id +-} +lawNamesReOC' :: ReOC' a1 a2 a3 a4 -> ReOC' a1 a2 a3 a4 +lawNamesReOC' s = + ReOC' + (view (cloneLens operator) s) + (view (cloneLens applicationForm) s) + (view (cloneLens operationsManual) s) + (view (cloneLens maybeTrainingMaterial) s) + +-- | A valid @ReOC'@. +type ReOC = ReOC' Operator ApplicationForm OperationsManual (Maybe TrainingMaterial) + +-- | An unfilled @ReOC'@: each field holds what has been entered, if anything, to be checked by @fillReOC@. +type UnfilledReOC = ReOC' UnfilledOperator UnfilledApplicationForm UnfilledOperationsManual (Maybe UnfilledTrainingMaterial) + +-- | Builds a valid @ReOC'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkReOC :: Operator -> ApplicationForm -> OperationsManual -> ReOC +mkReOC x1 x2 x3 = ReOC' x1 x2 x3 Nothing + +-- | An unfilled @ReOC'@ with nothing entered. +mkUnfilledReOC :: UnfilledReOC +mkUnfilledReOC = + ReOC' + mkUnfilledOperator + mkUnfilledApplicationForm + mkUnfilledOperationsManual + Nothing + +-- | The classes that a data type holding @ReOC'@ in one field, or in one or more constructors, inherits. +type InheritReOC' s a1 a2 a3 a4 = + ( ReOC'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 + , OperatorLike (->) (Const ()) s s a1 a1 + , ApplicationFormLike (->) (Const ()) s s a2 a2 + , OperationsManualLike (->) (Const ()) s s a3 a3 + , MaybeTrainingMaterialLike (->) (Const ()) s s a4 a4 + ) + +-- | Checks that a data type inherits every class of @InheritReOC'@. +inheritReOC' :: (InheritReOC' s a1 a2 a3 a4) => proxy s -> () +inheritReOC' _ = () diff --git a/src/ReOC/Data/ReOCError.hs b/src/ReOC/Data/ReOCError.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/ReOCError.hs @@ -0,0 +1,187 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritReOCError) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @ReOCError@: a reason that an unfilled ReOC is not a valid ReOC. +module ReOC.Data.ReOCError ( + ReOCError (..), + ReOCErrorLike (..), + lawNamesReOCError, + InheritReOCError, + inheritReOCError, + inheritsReOCError, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import Data.Proxy (Proxy (..)) +import ReOC.Data.Invalid (Invalid, InvalidLike (..), inheritInvalid) +import ReOC.Data.InvalidValue (InvalidValueLike (..)) +import ReOC.Data.TooMany (TooMany, TooManyLike (..), inheritTooMany) +import ReOC.Data.Unfilled (Unfilled, UnfilledLike (..), inheritUnfilled) +import ReOC.Name.GivenElements (GivenElementsLike (..)) +import ReOC.Name.InvalidABN (InvalidABNLike (..)) +import ReOC.Name.InvalidARN (InvalidARNLike (..)) +import ReOC.Name.InvalidEmailAddress (InvalidEmailAddressLike (..)) +import ReOC.Name.InvalidFormText (InvalidFormTextLike (..)) +import ReOC.Name.InvalidGrossWeight (InvalidGrossWeightLike (..)) +import ReOC.Name.InvalidPassMark (InvalidPassMarkLike (..)) +import ReOC.Name.InvalidPercentage (InvalidPercentageLike (..)) +import ReOC.Name.InvalidPhoneNumber (InvalidPhoneNumberLike (..)) +import ReOC.Name.InvalidPositive (InvalidPositiveLike (..)) +import ReOC.Name.InvalidPostcode (InvalidPostcodeLike (..)) +import ReOC.Name.InvalidReviewMonths (InvalidReviewMonthsLike (..)) +import ReOC.Name.InvalidText1 (InvalidText1Like (..)) +import ReOC.Name.MostElements (MostElementsLike (..)) +import ReOC.Name.Path (PathLike (..)) + +-- | A reason that an unfilled ReOC is not a valid ReOC. +data ReOCError + = ReOCErrorUnfilled Unfilled + | ReOCErrorInvalid Invalid + | ReOCErrorTooMany TooMany + deriving (Eq, Ord, Show) + +-- | The name of the data type @ReOCError@. +class ReOCErrorLike p f x x' where + reOCError :: + Optic p f x x' ReOCError ReOCError + +-- | Identity +instance (x' ~ ReOCError) => ReOCErrorLike p f ReOCError x' where + reOCError = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ ReOCError) => UnfilledLike p f ReOCError x' where + unfilled = prism' ReOCErrorUnfilled (\case ReOCErrorUnfilled x -> Just x; ReOCErrorInvalid _ -> Nothing; ReOCErrorTooMany _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ ReOCError) => InvalidLike p f ReOCError x' where + invalid = prism' ReOCErrorInvalid (\case ReOCErrorUnfilled _ -> Nothing; ReOCErrorInvalid x -> Just x; ReOCErrorTooMany _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ ReOCError) => TooManyLike p f ReOCError x' where + tooMany = prism' ReOCErrorTooMany (\case ReOCErrorUnfilled _ -> Nothing; ReOCErrorInvalid _ -> Nothing; ReOCErrorTooMany x -> Just x) + +-- | Affine traversal: @path@ is reached through @ReOCErrorUnfilled@, @ReOCErrorInvalid@, @ReOCErrorTooMany@, once each. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => PathLike p f ReOCError x' where + path f = \case + ReOCErrorUnfilled x -> ReOCErrorUnfilled <$> path f x + ReOCErrorInvalid x -> ReOCErrorInvalid <$> path f x + ReOCErrorTooMany x -> ReOCErrorTooMany <$> path f x + +-- | Affine traversal: through @invalid@, then @invalidValue@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidValueLike p f ReOCError x' where + invalidValue = invalid . invalidValue + +-- | Affine traversal: through @invalid@, then @invalidText1@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidText1Like p f ReOCError x' where + invalidText1 = invalid . invalidText1 + +-- | Affine traversal: through @invalid@, then @invalidFormText@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidFormTextLike p f ReOCError x' where + invalidFormText = invalid . invalidFormText + +-- | Affine traversal: through @invalid@, then @invalidABN@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidABNLike p f ReOCError x' where + invalidABN = invalid . invalidABN + +-- | Affine traversal: through @invalid@, then @invalidARN@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidARNLike p f ReOCError x' where + invalidARN = invalid . invalidARN + +-- | Affine traversal: through @invalid@, then @invalidEmailAddress@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidEmailAddressLike p f ReOCError x' where + invalidEmailAddress = invalid . invalidEmailAddress + +-- | Affine traversal: through @invalid@, then @invalidPhoneNumber@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidPhoneNumberLike p f ReOCError x' where + invalidPhoneNumber = invalid . invalidPhoneNumber + +-- | Affine traversal: through @invalid@, then @invalidPostcode@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidPostcodeLike p f ReOCError x' where + invalidPostcode = invalid . invalidPostcode + +-- | Affine traversal: through @invalid@, then @invalidPositive@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidPositiveLike p f ReOCError x' where + invalidPositive = invalid . invalidPositive + +-- | Affine traversal: through @invalid@, then @invalidPercentage@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidPercentageLike p f ReOCError x' where + invalidPercentage = invalid . invalidPercentage + +-- | Affine traversal: through @invalid@, then @invalidGrossWeight@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidGrossWeightLike p f ReOCError x' where + invalidGrossWeight = invalid . invalidGrossWeight + +-- | Affine traversal: through @invalid@, then @invalidReviewMonths@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidReviewMonthsLike p f ReOCError x' where + invalidReviewMonths = invalid . invalidReviewMonths + +-- | Affine traversal: through @invalid@, then @invalidPassMark@ of @Invalid@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => InvalidPassMarkLike p f ReOCError x' where + invalidPassMark = invalid . invalidPassMark + +-- | Affine traversal: through @tooMany@, then @mostElements@ of @TooMany@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => MostElementsLike p f ReOCError x' where + mostElements = tooMany . mostElements + +-- | Affine traversal: through @tooMany@, then @givenElements@ of @TooMany@. +instance (p ~ (->), Applicative f, x' ~ ReOCError) => GivenElementsLike p f ReOCError x' where + givenElements = tooMany . givenElements + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesReOCError == id +-} +lawNamesReOCError :: ReOCError -> ReOCError +lawNamesReOCError = \case + ReOCErrorUnfilled x -> review unfilled x + ReOCErrorInvalid x -> review invalid x + ReOCErrorTooMany x -> review tooMany x + +-- | The classes that a data type holding @ReOCError@ in one field, or in one or more constructors, inherits. +type InheritReOCError s = + ( ReOCErrorLike (->) (Const ()) s s + , UnfilledLike (->) (Const ()) s s + , InvalidLike (->) (Const ()) s s + , TooManyLike (->) (Const ()) s s + , PathLike (->) (Const ()) s s + , InvalidValueLike (->) (Const ()) s s + , InvalidText1Like (->) (Const ()) s s + , InvalidFormTextLike (->) (Const ()) s s + , InvalidABNLike (->) (Const ()) s s + , InvalidARNLike (->) (Const ()) s s + , InvalidEmailAddressLike (->) (Const ()) s s + , InvalidPhoneNumberLike (->) (Const ()) s s + , InvalidPostcodeLike (->) (Const ()) s s + , InvalidPositiveLike (->) (Const ()) s s + , InvalidPercentageLike (->) (Const ()) s s + , InvalidGrossWeightLike (->) (Const ()) s s + , InvalidReviewMonthsLike (->) (Const ()) s s + , InvalidPassMarkLike (->) (Const ()) s s + , MostElementsLike (->) (Const ()) s s + , GivenElementsLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritReOCError@. +inheritReOCError :: (InheritReOCError s) => proxy s -> () +inheritReOCError _ = () + +-- | The checks of inheritance of @ReOCError@. +inheritsReOCError :: [()] +inheritsReOCError = + [ inheritUnfilled p + , inheritInvalid p + , inheritTooMany p + ] + where + p = Proxy :: Proxy ReOCError diff --git a/src/ReOC/Data/RePLHolding.hs b/src/ReOC/Data/RePLHolding.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RePLHolding.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRePLHolding') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RePLHolding'@: whether the chief RePL instructor holds a RePL for each type of RPA used in training (CASA Form 101-02, questions 14 and 17). +module ReOC.Data.RePLHolding ( + RePLHolding' (..), + RePLHolding'Like (..), + lawNamesRePLHolding', + RePLHolding, + UnfilledRePLHolding, + InheritRePLHolding', + inheritRePLHolding', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.HoldsRePLForEachType (HoldsRePLForEachTypeLike (..)) +import ReOC.Name.RePLHoldingIntent (RePLHoldingIntentLike (..)) +import ReOC.Primitive.FormText (FormFont (..), FormText) + +-- | Whether the chief RePL instructor holds a RePL for each type of RPA used in training (CASA Form 101-02, questions 14 and 17). Its valid form is @RePLHolding@, and its unfilled form @UnfilledRePLHolding@. +data RePLHolding' a1 + = HoldsRePLForEachType + | RePLHoldingIntent a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @RePLHolding'@. +class RePLHolding'Like p f x x' a1 a1' | x -> a1 where + rePLHolding' :: + Optic p f x x' (RePLHolding' a1) (RePLHolding' a1') + +-- | Identity +instance (x' ~ RePLHolding' a1') => RePLHolding'Like p f (RePLHolding' a1) x' a1 a1' where + rePLHolding' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ RePLHolding' a1) => HoldsRePLForEachTypeLike p f (RePLHolding' a1) x' where + holdsRePLForEachType = prism' (\() -> HoldsRePLForEachType) (\case HoldsRePLForEachType -> Just (); RePLHoldingIntent _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RePLHolding' a1') => RePLHoldingIntentLike p f (RePLHolding' a1) x' a1 a1' where + rePLHoldingIntent = prism RePLHoldingIntent (\case HoldsRePLForEachType -> Left HoldsRePLForEachType; RePLHoldingIntent x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRePLHolding' == id +-} +lawNamesRePLHolding' :: RePLHolding' a1 -> RePLHolding' a1 +lawNamesRePLHolding' = \case + HoldsRePLForEachType -> review holdsRePLForEachType () + RePLHoldingIntent x -> review rePLHoldingIntent x + +-- | A valid @RePLHolding'@. +type RePLHolding = RePLHolding' (FormText 'Wide 185 5) + +-- | An unfilled @RePLHolding'@: each field holds what has been entered, if anything, to be checked by @fillRePLHolding@. +type UnfilledRePLHolding = RePLHolding' (Maybe Text) + +-- | The classes that a data type holding @RePLHolding'@ in one field, or in one or more constructors, inherits. +type InheritRePLHolding' s a1 = + ( RePLHolding'Like (->) (Const ()) s s a1 a1 + , HoldsRePLForEachTypeLike (->) (Const ()) s s + , RePLHoldingIntentLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritRePLHolding'@. +inheritRePLHolding' :: (InheritRePLHolding' s a1) => proxy s -> () +inheritRePLHolding' _ = () diff --git a/src/ReOC/Data/RePLOrigin.hs b/src/ReOC/Data/RePLOrigin.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RePLOrigin.hs @@ -0,0 +1,78 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRePLOrigin') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RePLOrigin'@: how the chief remote pilot obtained their initial RePL (CASA Form 101-02, question 9). +module ReOC.Data.RePLOrigin ( + RePLOrigin' (..), + RePLOrigin'Like (..), + lawNamesRePLOrigin', + RePLOrigin, + UnfilledRePLOrigin, + InheritRePLOrigin', + inheritRePLOrigin', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.PplTheory (PplTheoryLike (..)) +import ReOC.Name.RePLTrainingOrganisation (RePLTrainingOrganisationLike (..)) +import ReOC.Primitive.FormText (WideLine) + +-- | How the chief remote pilot obtained their initial RePL (CASA Form 101-02, question 9). Its valid form is @RePLOrigin@, and its unfilled form @UnfilledRePLOrigin@. +data RePLOrigin' a1 + = PPLTheory + | RePLTraining a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @RePLOrigin'@. +class RePLOrigin'Like p f x x' a1 a1' | x -> a1 where + rePLOrigin' :: + Optic p f x x' (RePLOrigin' a1) (RePLOrigin' a1') + +-- | Identity +instance (x' ~ RePLOrigin' a1') => RePLOrigin'Like p f (RePLOrigin' a1) x' a1 a1' where + rePLOrigin' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ RePLOrigin' a1) => PplTheoryLike p f (RePLOrigin' a1) x' where + pplTheory = prism' (\() -> PPLTheory) (\case PPLTheory -> Just (); RePLTraining _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RePLOrigin' a1') => RePLTrainingOrganisationLike p f (RePLOrigin' a1) x' a1 a1' where + rePLTrainingOrganisation = prism RePLTraining (\case PPLTheory -> Left PPLTheory; RePLTraining x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRePLOrigin' == id +-} +lawNamesRePLOrigin' :: RePLOrigin' a1 -> RePLOrigin' a1 +lawNamesRePLOrigin' = \case + PPLTheory -> review pplTheory () + RePLTraining x -> review rePLTrainingOrganisation x + +-- | A valid @RePLOrigin'@. +type RePLOrigin = RePLOrigin' WideLine + +-- | An unfilled @RePLOrigin'@: each field holds what has been entered, if anything, to be checked by @fillRePLOrigin@. +type UnfilledRePLOrigin = RePLOrigin' (Maybe Text) + +-- | The classes that a data type holding @RePLOrigin'@ in one field, or in one or more constructors, inherits. +type InheritRePLOrigin' s a1 = + ( RePLOrigin'Like (->) (Const ()) s s a1 a1 + , PplTheoryLike (->) (Const ()) s s + , RePLTrainingOrganisationLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritRePLOrigin'@. +inheritRePLOrigin' :: (InheritRePLOrigin' s a1) => proxy s -> () +inheritRePLOrigin' _ = () diff --git a/src/ReOC/Data/RegulatoryAction.hs b/src/ReOC/Data/RegulatoryAction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RegulatoryAction.hs @@ -0,0 +1,110 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRegulatoryAction') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RegulatoryAction'@: regulatory action taken against the applicant or nominated personnel (CASA Form 101-02, questions 25 and 26). +module ReOC.Data.RegulatoryAction ( + RegulatoryAction' (..), + RegulatoryAction'Like (..), + lawNamesRegulatoryAction', + RegulatoryAction, + UnfilledRegulatoryAction, + mkUnfilledRegulatoryAction, + InheritRegulatoryAction', + inheritRegulatoryAction', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import Data.Time.Calendar (Day) +import ReOC.Name.ActionDate (ActionDateLike (..)) +import ReOC.Name.ActionDetails (ActionDetailsLike (..)) +import ReOC.Name.AuthorisationAction (AuthorisationActionLike (..)) +import ReOC.Name.ReocSuspendedOrCancelled (ReocSuspendedOrCancelledLike (..)) +import ReOC.Name.TypeOfAction (TypeOfActionLike (..)) +import ReOC.Primitive.FormText (FormLine, FormLines) + +-- | Regulatory action taken against the applicant or nominated personnel (CASA Form 101-02, questions 25 and 26). Its valid form is @RegulatoryAction@, and its unfilled form @UnfilledRegulatoryAction@. +data RegulatoryAction' a1 a2 a3 a4 a5 = RegulatoryAction' a1 a2 a3 a4 a5 + deriving (Eq, Ord, Show) + +-- | The name of the data type @RegulatoryAction'@. +class RegulatoryAction'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' | x -> a1 a2 a3 a4 a5 where + regulatoryAction' :: + Optic p f x x' (RegulatoryAction' a1 a2 a3 a4 a5) (RegulatoryAction' a1' a2' a3' a4' a5') + +-- | Identity +instance (x' ~ RegulatoryAction' a1' a2' a3' a4' a5') => RegulatoryAction'Like p f (RegulatoryAction' a1 a2 a3 a4 a5) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' where + regulatoryAction' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RegulatoryAction' a1' a2 a3 a4 a5) => ReocSuspendedOrCancelledLike p f (RegulatoryAction' a1 a2 a3 a4 a5) x' a1 a1' where + reocSuspendedOrCancelled f (RegulatoryAction' x1 x2 x3 x4 x5) = fmap (\x1' -> RegulatoryAction' x1' x2 x3 x4 x5) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RegulatoryAction' a1 a2' a3 a4 a5) => TypeOfActionLike p f (RegulatoryAction' a1 a2 a3 a4 a5) x' a2 a2' where + typeOfAction f (RegulatoryAction' x1 x2 x3 x4 x5) = fmap (\x2' -> RegulatoryAction' x1 x2' x3 x4 x5) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RegulatoryAction' a1 a2 a3' a4 a5) => AuthorisationActionLike p f (RegulatoryAction' a1 a2 a3 a4 a5) x' a3 a3' where + authorisationAction f (RegulatoryAction' x1 x2 x3 x4 x5) = fmap (\x3' -> RegulatoryAction' x1 x2 x3' x4 x5) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RegulatoryAction' a1 a2 a3 a4' a5) => ActionDateLike p f (RegulatoryAction' a1 a2 a3 a4 a5) x' a4 a4' where + actionDate f (RegulatoryAction' x1 x2 x3 x4 x5) = fmap (\x4' -> RegulatoryAction' x1 x2 x3 x4' x5) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RegulatoryAction' a1 a2 a3 a4 a5') => ActionDetailsLike p f (RegulatoryAction' a1 a2 a3 a4 a5) x' a5 a5' where + actionDetails f (RegulatoryAction' x1 x2 x3 x4 x5) = fmap (RegulatoryAction' x1 x2 x3 x4) (f x5) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRegulatoryAction' == id +-} +lawNamesRegulatoryAction' :: RegulatoryAction' a1 a2 a3 a4 a5 -> RegulatoryAction' a1 a2 a3 a4 a5 +lawNamesRegulatoryAction' s = + RegulatoryAction' + (view (cloneLens reocSuspendedOrCancelled) s) + (view (cloneLens typeOfAction) s) + (view (cloneLens authorisationAction) s) + (view (cloneLens actionDate) s) + (view (cloneLens actionDetails) s) + +-- | A valid @RegulatoryAction'@. +type RegulatoryAction = RegulatoryAction' Bool FormLine FormLine Day (FormLines 4) + +-- | An unfilled @RegulatoryAction'@: each field holds what has been entered, if anything, to be checked by @fillRegulatoryAction@. +type UnfilledRegulatoryAction = RegulatoryAction' (Maybe Bool) (Maybe Text) (Maybe Text) (Maybe Day) (Maybe Text) + +-- | An unfilled @RegulatoryAction'@ with nothing entered. +mkUnfilledRegulatoryAction :: UnfilledRegulatoryAction +mkUnfilledRegulatoryAction = + RegulatoryAction' + Nothing + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @RegulatoryAction'@ in one field, or in one or more constructors, inherits. +type InheritRegulatoryAction' s a1 a2 a3 a4 a5 = + ( RegulatoryAction'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 + , ReocSuspendedOrCancelledLike (->) (Const ()) s s a1 a1 + , TypeOfActionLike (->) (Const ()) s s a2 a2 + , AuthorisationActionLike (->) (Const ()) s s a3 a3 + , ActionDateLike (->) (Const ()) s s a4 a4 + , ActionDetailsLike (->) (Const ()) s s a5 a5 + ) + +-- | Checks that a data type inherits every class of @InheritRegulatoryAction'@. +inheritRegulatoryAction' :: (InheritRegulatoryAction' s a1 a2 a3 a4 a5) => proxy s -> () +inheritRegulatoryAction' _ = () diff --git a/src/ReOC/Data/RegulatoryHistory.hs b/src/ReOC/Data/RegulatoryHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RegulatoryHistory.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRegulatoryHistory') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RegulatoryHistory'@: whether regulatory action has been taken in the last 10 years (CASA Form 101-02, question 24). +module ReOC.Data.RegulatoryHistory ( + RegulatoryHistory' (..), + RegulatoryHistory'Like (..), + lawNamesRegulatoryHistory', + RegulatoryHistory, + UnfilledRegulatoryHistory, + InheritRegulatoryHistory', + inheritRegulatoryHistory', +) where + +import Control.Lens (Choice, Optic, prism, prism', review) +import Data.Functor.Const (Const) +import ReOC.Data.RegulatoryAction (RegulatoryAction, UnfilledRegulatoryAction) +import ReOC.Name.NoRegulatoryAction (NoRegulatoryActionLike (..)) +import ReOC.Name.RegulatoryActionTaken (RegulatoryActionTakenLike (..)) + +-- | Whether regulatory action has been taken in the last 10 years (CASA Form 101-02, question 24). Its valid form is @RegulatoryHistory@, and its unfilled form @UnfilledRegulatoryHistory@. +data RegulatoryHistory' a1 + = NoRegulatoryAction + | RegulatoryActionTaken a1 + deriving (Eq, Ord, Show) + +-- | The name of the data type @RegulatoryHistory'@. +class RegulatoryHistory'Like p f x x' a1 a1' | x -> a1 where + regulatoryHistory' :: + Optic p f x x' (RegulatoryHistory' a1) (RegulatoryHistory' a1') + +-- | Identity +instance (x' ~ RegulatoryHistory' a1') => RegulatoryHistory'Like p f (RegulatoryHistory' a1) x' a1 a1' where + regulatoryHistory' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ RegulatoryHistory' a1) => NoRegulatoryActionLike p f (RegulatoryHistory' a1) x' where + noRegulatoryAction = prism' (\() -> NoRegulatoryAction) (\case NoRegulatoryAction -> Just (); RegulatoryActionTaken _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RegulatoryHistory' a1') => RegulatoryActionTakenLike p f (RegulatoryHistory' a1) x' a1 a1' where + regulatoryActionTaken = prism RegulatoryActionTaken (\case NoRegulatoryAction -> Left NoRegulatoryAction; RegulatoryActionTaken x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRegulatoryHistory' == id +-} +lawNamesRegulatoryHistory' :: RegulatoryHistory' a1 -> RegulatoryHistory' a1 +lawNamesRegulatoryHistory' = \case + NoRegulatoryAction -> review noRegulatoryAction () + RegulatoryActionTaken x -> review regulatoryActionTaken x + +-- | A valid @RegulatoryHistory'@. +type RegulatoryHistory = RegulatoryHistory' RegulatoryAction + +-- | An unfilled @RegulatoryHistory'@: each field holds what has been entered, if anything, to be checked by @fillRegulatoryHistory@. +type UnfilledRegulatoryHistory = RegulatoryHistory' UnfilledRegulatoryAction + +-- | The classes that a data type holding @RegulatoryHistory'@ in one field, or in one or more constructors, inherits. +type InheritRegulatoryHistory' s a1 = + ( RegulatoryHistory'Like (->) (Const ()) s s a1 a1 + , NoRegulatoryActionLike (->) (Const ()) s s + , RegulatoryActionTakenLike (->) (Const ()) s s a1 a1 + ) + +-- | Checks that a data type inherits every class of @InheritRegulatoryHistory'@. +inheritRegulatoryHistory' :: (InheritRegulatoryHistory' s a1) => proxy s -> () +inheritRegulatoryHistory' _ = () diff --git a/src/ReOC/Data/RemotePilots.hs b/src/ReOC/Data/RemotePilots.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RemotePilots.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRemotePilots) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RemotePilots@: whether the chief remote pilot is the operator’s only remote pilot. +module ReOC.Data.RemotePilots ( + RemotePilots (..), + RemotePilotsLike (..), + lawNamesRemotePilots, + InheritRemotePilots, + inheritRemotePilots, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.CrpIsOnlyRemotePilot (CrpIsOnlyRemotePilotLike (..)) +import ReOC.Name.OtherRemotePilots (OtherRemotePilotsLike (..)) + +-- | Whether the chief remote pilot is the operator’s only remote pilot. +data RemotePilots + = CRPIsOnlyRemotePilot + | OtherRemotePilots + deriving (Eq, Ord, Show) + +-- | The name of the data type @RemotePilots@. +class RemotePilotsLike p f x x' where + remotePilots :: + Optic p f x x' RemotePilots RemotePilots + +-- | Identity +instance (x' ~ RemotePilots) => RemotePilotsLike p f RemotePilots x' where + remotePilots = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ RemotePilots) => CrpIsOnlyRemotePilotLike p f RemotePilots x' where + crpIsOnlyRemotePilot = prism' (\() -> CRPIsOnlyRemotePilot) (\case CRPIsOnlyRemotePilot -> Just (); OtherRemotePilots -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RemotePilots) => OtherRemotePilotsLike p f RemotePilots x' where + otherRemotePilots = prism' (\() -> OtherRemotePilots) (\case CRPIsOnlyRemotePilot -> Nothing; OtherRemotePilots -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRemotePilots == id +-} +lawNamesRemotePilots :: RemotePilots -> RemotePilots +lawNamesRemotePilots = \case + CRPIsOnlyRemotePilot -> review crpIsOnlyRemotePilot () + OtherRemotePilots -> review otherRemotePilots () + +-- | The classes that a data type holding @RemotePilots@ in one field, or in one or more constructors, inherits. +type InheritRemotePilots s = + ( RemotePilotsLike (->) (Const ()) s s + , CrpIsOnlyRemotePilotLike (->) (Const ()) s s + , OtherRemotePilotsLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritRemotePilots@. +inheritRemotePilots :: (InheritRemotePilots s) => proxy s -> () +inheritRemotePilots _ = () diff --git a/src/ReOC/Data/Revision.hs b/src/ReOC/Data/Revision.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Revision.hs @@ -0,0 +1,111 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRevision') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Revision'@: a later entry in the amendment record of the operations manual. Its version and date follow from the entry before it: the version changes by its version change, and the date is a number of months later. +module ReOC.Data.Revision ( + Revision' (..), + Revision'Like (..), + lawNamesRevision', + Revision, + UnfilledRevision, + mkUnfilledRevision, + InheritRevision', + inheritRevision', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import Numeric.Natural (Natural) +import ReOC.Data.VersionChange (VersionChange) +import ReOC.Name.Details (DetailsLike (..)) +import ReOC.Name.Effective (EffectiveLike (..)) +import ReOC.Name.MonthsAfter (MonthsAfterLike (..)) +import ReOC.Name.Parts (PartsLike (..)) +import ReOC.Name.VersionIncrement (VersionIncrementLike (..)) +import ReOC.Primitive.Text1 (Text1) + +-- | A later entry in the amendment record of the operations manual. Its version and date follow from the entry before it: the version changes by its version change, and the date is a number of months later. Its valid form is @Revision@, and its unfilled form @UnfilledRevision@. +data Revision' a1 a2 a3 a4 a5 = Revision' a1 a2 a3 a4 a5 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Revision'@. +class Revision'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' | x -> a1 a2 a3 a4 a5 where + revision' :: + Optic p f x x' (Revision' a1 a2 a3 a4 a5) (Revision' a1' a2' a3' a4' a5') + +-- | Identity +instance (x' ~ Revision' a1' a2' a3' a4' a5') => Revision'Like p f (Revision' a1 a2 a3 a4 a5) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' where + revision' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Revision' a1' a2 a3 a4 a5) => VersionIncrementLike p f (Revision' a1 a2 a3 a4 a5) x' a1 a1' where + versionIncrement f (Revision' x1 x2 x3 x4 x5) = fmap (\x1' -> Revision' x1' x2 x3 x4 x5) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Revision' a1 a2' a3 a4 a5) => MonthsAfterLike p f (Revision' a1 a2 a3 a4 a5) x' a2 a2' where + monthsAfter f (Revision' x1 x2 x3 x4 x5) = fmap (\x2' -> Revision' x1 x2' x3 x4 x5) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Revision' a1 a2 a3' a4 a5) => EffectiveLike p f (Revision' a1 a2 a3 a4 a5) x' a3 a3' where + effective f (Revision' x1 x2 x3 x4 x5) = fmap (\x3' -> Revision' x1 x2 x3' x4 x5) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Revision' a1 a2 a3 a4' a5) => PartsLike p f (Revision' a1 a2 a3 a4 a5) x' a4 a4' where + parts f (Revision' x1 x2 x3 x4 x5) = fmap (\x4' -> Revision' x1 x2 x3 x4' x5) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Revision' a1 a2 a3 a4 a5') => DetailsLike p f (Revision' a1 a2 a3 a4 a5) x' a5 a5' where + details f (Revision' x1 x2 x3 x4 x5) = fmap (Revision' x1 x2 x3 x4) (f x5) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRevision' == id +-} +lawNamesRevision' :: Revision' a1 a2 a3 a4 a5 -> Revision' a1 a2 a3 a4 a5 +lawNamesRevision' s = + Revision' + (view (cloneLens versionIncrement) s) + (view (cloneLens monthsAfter) s) + (view (cloneLens effective) s) + (view (cloneLens parts) s) + (view (cloneLens details) s) + +-- | A valid @Revision'@. +type Revision = Revision' VersionChange Natural Text1 Text1 Text1 + +-- | An unfilled @Revision'@: each field holds what has been entered, if anything, to be checked by @fillRevision@. +type UnfilledRevision = Revision' (Maybe VersionChange) (Maybe Natural) (Maybe Text) (Maybe Text) (Maybe Text) + +-- | An unfilled @Revision'@ with nothing entered. +mkUnfilledRevision :: UnfilledRevision +mkUnfilledRevision = + Revision' + Nothing + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @Revision'@ in one field, or in one or more constructors, inherits. +type InheritRevision' s a1 a2 a3 a4 a5 = + ( Revision'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 + , VersionIncrementLike (->) (Const ()) s s a1 a1 + , MonthsAfterLike (->) (Const ()) s s a2 a2 + , EffectiveLike (->) (Const ()) s s a3 a3 + , PartsLike (->) (Const ()) s s a4 a4 + , DetailsLike (->) (Const ()) s s a5 a5 + ) + +-- | Checks that a data type inherits every class of @InheritRevision'@. +inheritRevision' :: (InheritRevision' s a1 a2 a3 a4 a5) => proxy s -> () +inheritRevision' _ = () diff --git a/src/ReOC/Data/Risk.hs b/src/ReOC/Data/Risk.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Risk.hs @@ -0,0 +1,146 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRisk') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Risk'@: an entry in the risk register (operations manual Appendix E). It is due for review a number of months, at most 12, after it is entered. +module ReOC.Data.Risk ( + Risk' (..), + Risk'Like (..), + lawNamesRisk', + Risk, + UnfilledRisk, + mkUnfilledRisk, + InheritRisk', + inheritRisk', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.Text (Text) +import Data.Time.Calendar.Month (Month) +import Numeric.Natural (Natural) +import ReOC.Data.KeyPosition (KeyPosition) +import ReOC.Data.RiskAssessment (RiskAssessment, UnfilledRiskAssessment, mkUnfilledRiskAssessment) +import ReOC.Name.AdditionalControls (AdditionalControlsLike (..)) +import ReOC.Name.DateEntered (DateEnteredLike (..)) +import ReOC.Name.ExistingControls (ExistingControlsLike (..)) +import ReOC.Name.Hazard (HazardLike (..)) +import ReOC.Name.InitialRisk (InitialRiskLike (..)) +import ReOC.Name.ResidualRisk (ResidualRiskLike (..)) +import ReOC.Name.ReviewMonths (ReviewMonthsLike (..)) +import ReOC.Name.RiskDescription (RiskDescriptionLike (..)) +import ReOC.Name.RiskOwner (RiskOwnerLike (..)) +import ReOC.Primitive.ReviewMonths (ReviewMonths) +import ReOC.Primitive.Text1 (Text1) + +-- | An entry in the risk register (operations manual Appendix E). It is due for review a number of months, at most 12, after it is entered. Its valid form is @Risk@, and its unfilled form @UnfilledRisk@. +data Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9 = Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Risk'@. +class Risk'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' a9 a9' | x -> a1 a2 a3 a4 a5 a6 a7 a8 a9 where + risk' :: + Optic p f x x' (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) (Risk' a1' a2' a3' a4' a5' a6' a7' a8' a9') + +-- | Identity +instance (x' ~ Risk' a1' a2' a3' a4' a5' a6' a7' a8' a9') => Risk'Like p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' a9 a9' where + risk' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1' a2 a3 a4 a5 a6 a7 a8 a9) => HazardLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a1 a1' where + hazard f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (\x1' -> Risk' x1' x2 x3 x4 x5 x6 x7 x8 x9) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1 a2' a3 a4 a5 a6 a7 a8 a9) => RiskDescriptionLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a2 a2' where + riskDescription f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (\x2' -> Risk' x1 x2' x3 x4 x5 x6 x7 x8 x9) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1 a2 a3' a4 a5 a6 a7 a8 a9) => ExistingControlsLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a3 a3' where + existingControls f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (\x3' -> Risk' x1 x2 x3' x4 x5 x6 x7 x8 x9) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1 a2 a3 a4' a5 a6 a7 a8 a9) => InitialRiskLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a4 a4' where + initialRisk f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (\x4' -> Risk' x1 x2 x3 x4' x5 x6 x7 x8 x9) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1 a2 a3 a4 a5' a6 a7 a8 a9) => AdditionalControlsLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a5 a5' where + additionalControls f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (\x5' -> Risk' x1 x2 x3 x4 x5' x6 x7 x8 x9) (f x5) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1 a2 a3 a4 a5 a6' a7 a8 a9) => ResidualRiskLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a6 a6' where + residualRisk f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (\x6' -> Risk' x1 x2 x3 x4 x5 x6' x7 x8 x9) (f x6) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1 a2 a3 a4 a5 a6 a7' a8 a9) => RiskOwnerLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a7 a7' where + riskOwner f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (\x7' -> Risk' x1 x2 x3 x4 x5 x6 x7' x8 x9) (f x7) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1 a2 a3 a4 a5 a6 a7 a8' a9) => DateEnteredLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a8 a8' where + dateEntered f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (\x8' -> Risk' x1 x2 x3 x4 x5 x6 x7 x8' x9) (f x8) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9') => ReviewMonthsLike p f (Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9) x' a9 a9' where + reviewMonths f (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = fmap (Risk' x1 x2 x3 x4 x5 x6 x7 x8) (f x9) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRisk' == id +-} +lawNamesRisk' :: Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9 -> Risk' a1 a2 a3 a4 a5 a6 a7 a8 a9 +lawNamesRisk' s = + Risk' + (view (cloneLens hazard) s) + (view (cloneLens riskDescription) s) + (view (cloneLens existingControls) s) + (view (cloneLens initialRisk) s) + (view (cloneLens additionalControls) s) + (view (cloneLens residualRisk) s) + (view (cloneLens riskOwner) s) + (view (cloneLens dateEntered) s) + (view (cloneLens reviewMonths) s) + +-- | A valid @Risk'@. +type Risk = Risk' Text1 Text1 Text1 RiskAssessment Text1 RiskAssessment KeyPosition Month ReviewMonths + +-- | An unfilled @Risk'@: each field holds what has been entered, if anything, to be checked by @fillRisk@. +type UnfilledRisk = Risk' (Maybe Text) (Maybe Text) (Maybe Text) UnfilledRiskAssessment (Maybe Text) UnfilledRiskAssessment (Maybe KeyPosition) (Maybe Month) (Maybe Natural) + +-- | An unfilled @Risk'@ with nothing entered. +mkUnfilledRisk :: UnfilledRisk +mkUnfilledRisk = + Risk' + Nothing + Nothing + Nothing + mkUnfilledRiskAssessment + Nothing + mkUnfilledRiskAssessment + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @Risk'@ in one field, or in one or more constructors, inherits. +type InheritRisk' s a1 a2 a3 a4 a5 a6 a7 a8 a9 = + ( Risk'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 a6 a6 a7 a7 a8 a8 a9 a9 + , HazardLike (->) (Const ()) s s a1 a1 + , RiskDescriptionLike (->) (Const ()) s s a2 a2 + , ExistingControlsLike (->) (Const ()) s s a3 a3 + , InitialRiskLike (->) (Const ()) s s a4 a4 + , AdditionalControlsLike (->) (Const ()) s s a5 a5 + , ResidualRiskLike (->) (Const ()) s s a6 a6 + , RiskOwnerLike (->) (Const ()) s s a7 a7 + , DateEnteredLike (->) (Const ()) s s a8 a8 + , ReviewMonthsLike (->) (Const ()) s s a9 a9 + ) + +-- | Checks that a data type inherits every class of @InheritRisk'@. +inheritRisk' :: (InheritRisk' s a1 a2 a3 a4 a5 a6 a7 a8 a9) => proxy s -> () +inheritRisk' _ = () diff --git a/src/ReOC/Data/RiskAssessment.hs b/src/ReOC/Data/RiskAssessment.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RiskAssessment.hs @@ -0,0 +1,84 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRiskAssessment') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RiskAssessment'@: the likelihood and consequence of a risk. Its level is given by the risk rating matrix. +module ReOC.Data.RiskAssessment ( + RiskAssessment' (..), + RiskAssessment'Like (..), + lawNamesRiskAssessment', + RiskAssessment, + UnfilledRiskAssessment, + mkUnfilledRiskAssessment, + InheritRiskAssessment', + inheritRiskAssessment', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import ReOC.Data.Consequence (Consequence) +import ReOC.Data.Likelihood (Likelihood) +import ReOC.Name.RiskConsequence (RiskConsequenceLike (..)) +import ReOC.Name.RiskLikelihood (RiskLikelihoodLike (..)) + +-- | The likelihood and consequence of a risk. Its level is given by the risk rating matrix. Its valid form is @RiskAssessment@, and its unfilled form @UnfilledRiskAssessment@. +data RiskAssessment' a1 a2 = RiskAssessment' a1 a2 + deriving (Eq, Ord, Show) + +-- | The name of the data type @RiskAssessment'@. +class RiskAssessment'Like p f x x' a1 a1' a2 a2' | x -> a1 a2 where + riskAssessment' :: + Optic p f x x' (RiskAssessment' a1 a2) (RiskAssessment' a1' a2') + +-- | Identity +instance (x' ~ RiskAssessment' a1' a2') => RiskAssessment'Like p f (RiskAssessment' a1 a2) x' a1 a1' a2 a2' where + riskAssessment' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RiskAssessment' a1' a2) => RiskLikelihoodLike p f (RiskAssessment' a1 a2) x' a1 a1' where + riskLikelihood f (RiskAssessment' x1 x2) = fmap (\x1' -> RiskAssessment' x1' x2) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ RiskAssessment' a1 a2') => RiskConsequenceLike p f (RiskAssessment' a1 a2) x' a2 a2' where + riskConsequence f (RiskAssessment' x1 x2) = fmap (RiskAssessment' x1) (f x2) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRiskAssessment' == id +-} +lawNamesRiskAssessment' :: RiskAssessment' a1 a2 -> RiskAssessment' a1 a2 +lawNamesRiskAssessment' s = + RiskAssessment' + (view (cloneLens riskLikelihood) s) + (view (cloneLens riskConsequence) s) + +-- | A valid @RiskAssessment'@. +type RiskAssessment = RiskAssessment' Likelihood Consequence + +-- | An unfilled @RiskAssessment'@: each field holds what has been entered, if anything, to be checked by @fillRiskAssessment@. +type UnfilledRiskAssessment = RiskAssessment' (Maybe Likelihood) (Maybe Consequence) + +-- | An unfilled @RiskAssessment'@ with nothing entered. +mkUnfilledRiskAssessment :: UnfilledRiskAssessment +mkUnfilledRiskAssessment = + RiskAssessment' + Nothing + Nothing + +-- | The classes that a data type holding @RiskAssessment'@ in one field, or in one or more constructors, inherits. +type InheritRiskAssessment' s a1 a2 = + ( RiskAssessment'Like (->) (Const ()) s s a1 a1 a2 a2 + , RiskLikelihoodLike (->) (Const ()) s s a1 a1 + , RiskConsequenceLike (->) (Const ()) s s a2 a2 + ) + +-- | Checks that a data type inherits every class of @InheritRiskAssessment'@. +inheritRiskAssessment' :: (InheritRiskAssessment' s a1 a2) => proxy s -> () +inheritRiskAssessment' _ = () diff --git a/src/ReOC/Data/RiskLevel.hs b/src/ReOC/Data/RiskLevel.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/RiskLevel.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritRiskLevel) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @RiskLevel@: the level of a risk, given by the risk rating matrix (operations manual Appendix E, Table 12). +module ReOC.Data.RiskLevel ( + RiskLevel (..), + RiskLevelLike (..), + lawNamesRiskLevel, + InheritRiskLevel, + inheritRiskLevel, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.High (HighLike (..)) +import ReOC.Name.Low (LowLike (..)) +import ReOC.Name.Medium (MediumLike (..)) + +-- | The level of a risk, given by the risk rating matrix (operations manual Appendix E, Table 12). +data RiskLevel + = High + | Medium + | Low + deriving (Eq, Ord, Show) + +-- | The name of the data type @RiskLevel@. +class RiskLevelLike p f x x' where + riskLevel :: + Optic p f x x' RiskLevel RiskLevel + +-- | Identity +instance (x' ~ RiskLevel) => RiskLevelLike p f RiskLevel x' where + riskLevel = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ RiskLevel) => HighLike p f RiskLevel x' where + high = prism' (\() -> High) (\case High -> Just (); Medium -> Nothing; Low -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RiskLevel) => MediumLike p f RiskLevel x' where + medium = prism' (\() -> Medium) (\case High -> Nothing; Medium -> Just (); Low -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ RiskLevel) => LowLike p f RiskLevel x' where + low = prism' (\() -> Low) (\case High -> Nothing; Medium -> Nothing; Low -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesRiskLevel == id +-} +lawNamesRiskLevel :: RiskLevel -> RiskLevel +lawNamesRiskLevel = \case + High -> review high () + Medium -> review medium () + Low -> review low () + +-- | The classes that a data type holding @RiskLevel@ in one field, or in one or more constructors, inherits. +type InheritRiskLevel s = + ( RiskLevelLike (->) (Const ()) s s + , HighLike (->) (Const ()) s s + , MediumLike (->) (Const ()) s s + , LowLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritRiskLevel@. +inheritRiskLevel :: (InheritRiskLevel s) => proxy s -> () +inheritRiskLevel _ = () diff --git a/src/ReOC/Data/Step.hs b/src/ReOC/Data/Step.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Step.hs @@ -0,0 +1,1151 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritStep) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Step@: a step of the path from the whole form to a field: a field or constructor, or the index of an element of a list. +module ReOC.Data.Step ( + Step (..), + StepLike (..), + lawNamesStep, + InheritStep, + inheritStep, + inheritsStep, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import Data.Proxy (Proxy (..)) +import Numeric.Natural (Natural) +import ReOC.Data.Field (Field, FieldLike (..), inheritField) +import ReOC.Name.AddressPostcode (AddressPostcodeLike (..)) +import ReOC.Name.AddressStateOrTerritory (AddressStateOrTerritoryLike (..)) +import ReOC.Name.AddressStreetAddress (AddressStreetAddressLike (..)) +import ReOC.Name.AddressSuburb (AddressSuburbLike (..)) +import ReOC.Name.AircraftAssociatedEquipment (AircraftAssociatedEquipmentLike (..)) +import ReOC.Name.AircraftSerialNumber (AircraftSerialNumberLike (..)) +import ReOC.Name.ApplicationFormDeclaration (ApplicationFormDeclarationLike (..)) +import ReOC.Name.ApplicationFormOtherDocuments (ApplicationFormOtherDocumentsLike (..)) +import ReOC.Name.ApplicationFormPersonnelHistory (ApplicationFormPersonnelHistoryLike (..)) +import ReOC.Name.ApplicationFormPrimaryContact (ApplicationFormPrimaryContactLike (..)) +import ReOC.Name.ApplicationFormProceduresLibrary (ApplicationFormProceduresLibraryLike (..)) +import ReOC.Name.ApplicationFormRegulatoryHistory (ApplicationFormRegulatoryHistoryLike (..)) +import ReOC.Name.ApplicationFormSignature (ApplicationFormSignatureLike (..)) +import ReOC.Name.ChiefExecutiveDirectorStatus (ChiefExecutiveDirectorStatusLike (..)) +import ReOC.Name.ChiefExecutiveManagementExperience (ChiefExecutiveManagementExperienceLike (..)) +import ReOC.Name.ChiefExecutiveNominee (ChiefExecutiveNomineeLike (..)) +import ReOC.Name.ChiefPilotCrpNominee (ChiefPilotCrpNomineeLike (..)) +import ReOC.Name.ChiefPilotOtherReOCRoles (ChiefPilotOtherReOCRolesLike (..)) +import ReOC.Name.ChiefPilotRadio (ChiefPilotRadioLike (..)) +import ReOC.Name.ChiefPilotRePLOrigin (ChiefPilotRePLOriginLike (..)) +import ReOC.Name.ChiefPilotRpaHistory (ChiefPilotRpaHistoryLike (..)) +import ReOC.Name.CompanyAbn (CompanyAbnLike (..)) +import ReOC.Name.CompanyArn (CompanyArnLike (..)) +import ReOC.Name.CompanyBusinessName (CompanyBusinessNameLike (..)) +import ReOC.Name.CompanyCompanyName (CompanyCompanyNameLike (..)) +import ReOC.Name.CompanyEmailAddress (CompanyEmailAddressLike (..)) +import ReOC.Name.CompanyOperationalHeadquarters (CompanyOperationalHeadquartersLike (..)) +import ReOC.Name.CompanyPhoneNumber (CompanyPhoneNumberLike (..)) +import ReOC.Name.CompanyRegisteredOffice (CompanyRegisteredOfficeLike (..)) +import ReOC.Name.ContactPersonEmailAddress (ContactPersonEmailAddressLike (..)) +import ReOC.Name.ContactPersonFullName (ContactPersonFullNameLike (..)) +import ReOC.Name.ContactPersonPhoneNumber (ContactPersonPhoneNumberLike (..)) +import ReOC.Name.ContactPersonPosition (ContactPersonPositionLike (..)) +import ReOC.Name.CriNomineeCriIsCEO (CriNomineeCriIsCEOLike (..)) +import ReOC.Name.CriNomineeCriIsCRP (CriNomineeCriIsCRPLike (..)) +import ReOC.Name.CriNomineeCriIsMC (CriNomineeCriIsMCLike (..)) +import ReOC.Name.CriNomineeCriNominated (CriNomineeCriNominatedLike (..)) +import ReOC.Name.CrpNomineeCrpIsCEO (CrpNomineeCrpIsCEOLike (..)) +import ReOC.Name.CrpNomineeCrpNominated (CrpNomineeCrpNominatedLike (..)) +import ReOC.Name.DeclarantFullName (DeclarantFullNameLike (..)) +import ReOC.Name.DeclarantRole (DeclarantRoleLike (..)) +import ReOC.Name.DeclarationDeclaredByAgent (DeclarationDeclaredByAgentLike (..)) +import ReOC.Name.DeclarationDeclaredByCEO (DeclarationDeclaredByCEOLike (..)) +import ReOC.Name.DeclarationDeclaredByOther (DeclarationDeclaredByOtherLike (..)) +import ReOC.Name.DeclarationDeclaredByResponsibleManager (DeclarationDeclaredByResponsibleManagerLike (..)) +import ReOC.Name.EmergencyActionActionSteps (EmergencyActionActionStepsLike (..)) +import ReOC.Name.EmergencyActionResponse (EmergencyActionResponseLike (..)) +import ReOC.Name.EmergencyActionSituation (EmergencyActionSituationLike (..)) +import ReOC.Name.EquipmentEquipmentDescription (EquipmentEquipmentDescriptionLike (..)) +import ReOC.Name.EquipmentSerialNumber (EquipmentSerialNumberLike (..)) +import ReOC.Name.FirstIssueDetails (FirstIssueDetailsLike (..)) +import ReOC.Name.FirstIssueEffective (FirstIssueEffectiveLike (..)) +import ReOC.Name.FirstIssueIssueDate (FirstIssueIssueDateLike (..)) +import ReOC.Name.FirstIssueParts (FirstIssuePartsLike (..)) +import ReOC.Name.FirstIssueVersion (FirstIssueVersionLike (..)) +import ReOC.Name.FlightTerminationFlightTerminationSystem (FlightTerminationFlightTerminationSystemLike (..)) +import ReOC.Name.FlightTerminationNoFlightTerminationSystem (FlightTerminationNoFlightTerminationSystemLike (..)) +import ReOC.Name.HistoryAnswerHistoryDisclosed (HistoryAnswerHistoryDisclosedLike (..)) +import ReOC.Name.HistoryAnswerNoHistory (HistoryAnswerNoHistoryLike (..)) +import ReOC.Name.KeyPersonnelChiefExecutive (KeyPersonnelChiefExecutiveLike (..)) +import ReOC.Name.KeyPersonnelChiefPilot (KeyPersonnelChiefPilotLike (..)) +import ReOC.Name.KeyPersonnelMcNominee (KeyPersonnelMcNomineeLike (..)) +import ReOC.Name.McNomineeMcIsCEO (McNomineeMcIsCEOLike (..)) +import ReOC.Name.McNomineeMcIsCRP (McNomineeMcIsCRPLike (..)) +import ReOC.Name.McNomineeMcNominated (McNomineeMcNominatedLike (..)) +import ReOC.Name.NomineeAviationExperience (NomineeAviationExperienceLike (..)) +import ReOC.Name.NomineeOtherQualifications (NomineeOtherQualificationsLike (..)) +import ReOC.Name.NomineePerson (NomineePersonLike (..)) +import ReOC.Name.OperatedTypeAirframes (OperatedTypeAirframesLike (..)) +import ReOC.Name.OperatedTypeRpaType (OperatedTypeRpaTypeLike (..)) +import ReOC.Name.OperationalExperienceHasOperationalExperience (OperationalExperienceHasOperationalExperienceLike (..)) +import ReOC.Name.OperationalExperienceOperationalExperienceIntent (OperationalExperienceOperationalExperienceIntentLike (..)) +import ReOC.Name.OperationalExperienceOperationalExperienceNotApplicable (OperationalExperienceOperationalExperienceNotApplicableLike (..)) +import ReOC.Name.OperationalHeadquartersAtRegisteredOffice (OperationalHeadquartersAtRegisteredOfficeLike (..)) +import ReOC.Name.OperationalHeadquartersOperationalHeadquartersAddress (OperationalHeadquartersOperationalHeadquartersAddressLike (..)) +import ReOC.Name.OperationsManualCrew (OperationsManualCrewLike (..)) +import ReOC.Name.OperationsManualFirstIssue (OperationsManualFirstIssueLike (..)) +import ReOC.Name.OperationsManualPilots (OperationsManualPilotsLike (..)) +import ReOC.Name.OperationsManualPolicies (OperationsManualPoliciesLike (..)) +import ReOC.Name.OperationsManualRevisions (OperationsManualRevisionsLike (..)) +import ReOC.Name.OperationsManualRiskRegister (OperationsManualRiskRegisterLike (..)) +import ReOC.Name.OperationsManualServices (OperationsManualServicesLike (..)) +import ReOC.Name.OperatorCompany (OperatorCompanyLike (..)) +import ReOC.Name.OperatorFleet (OperatorFleetLike (..)) +import ReOC.Name.OperatorKeyPersonnel (OperatorKeyPersonnelLike (..)) +import ReOC.Name.OtherReOCRolesNoOtherReOCRoles (OtherReOCRolesNoOtherReOCRolesLike (..)) +import ReOC.Name.OtherReOCRolesOtherReOCRolesHeld (OtherReOCRolesOtherReOCRolesHeldLike (..)) +import ReOC.Name.PersonArn (PersonArnLike (..)) +import ReOC.Name.PersonEmailAddress (PersonEmailAddressLike (..)) +import ReOC.Name.PersonFullName (PersonFullNameLike (..)) +import ReOC.Name.PersonPhoneNumber (PersonPhoneNumberLike (..)) +import ReOC.Name.PersonnelHistoryActionTaken (PersonnelHistoryActionTakenLike (..)) +import ReOC.Name.PersonnelHistoryCriminalConviction (PersonnelHistoryCriminalConvictionLike (..)) +import ReOC.Name.PersonnelHistorySuspensionPending (PersonnelHistorySuspensionPendingLike (..)) +import ReOC.Name.PersonnelHistoryTransportLicenceRefused (PersonnelHistoryTransportLicenceRefusedLike (..)) +import ReOC.Name.PoliciesAlcoholHours (PoliciesAlcoholHoursLike (..)) +import ReOC.Name.PoliciesBackupFrequency (PoliciesBackupFrequencyLike (..)) +import ReOC.Name.PoliciesBatteryReserve (PoliciesBatteryReserveLike (..)) +import ReOC.Name.PoliciesCheckingMonths (PoliciesCheckingMonthsLike (..)) +import ReOC.Name.PoliciesDutyHours (PoliciesDutyHoursLike (..)) +import ReOC.Name.PoliciesIndependentReviewYears (PoliciesIndependentReviewYearsLike (..)) +import ReOC.Name.PoliciesInspectionHours (PoliciesInspectionHoursLike (..)) +import ReOC.Name.PoliciesInspectionMonths (PoliciesInspectionMonthsLike (..)) +import ReOC.Name.PoliciesRecencyDays (PoliciesRecencyDaysLike (..)) +import ReOC.Name.PoliciesRecencyFlights (PoliciesRecencyFlightsLike (..)) +import ReOC.Name.PoliciesRefresherMonths (PoliciesRefresherMonthsLike (..)) +import ReOC.Name.PoliciesRestHours (PoliciesRestHoursLike (..)) +import ReOC.Name.PrimaryContactApplicantIsPrimaryContact (PrimaryContactApplicantIsPrimaryContactLike (..)) +import ReOC.Name.PrimaryContactPrimaryContactPerson (PrimaryContactPrimaryContactPersonLike (..)) +import ReOC.Name.ReOCApplicationForm (ReOCApplicationFormLike (..)) +import ReOC.Name.ReOCMaybeTrainingMaterial (ReOCMaybeTrainingMaterialLike (..)) +import ReOC.Name.ReOCOperationsManual (ReOCOperationsManualLike (..)) +import ReOC.Name.ReOCOperator (ReOCOperatorLike (..)) +import ReOC.Name.RePLHoldingHoldsRePLForEachType (RePLHoldingHoldsRePLForEachTypeLike (..)) +import ReOC.Name.RePLHoldingRePLHoldingIntent (RePLHoldingRePLHoldingIntentLike (..)) +import ReOC.Name.RePLOriginPplTheory (RePLOriginPplTheoryLike (..)) +import ReOC.Name.RePLOriginRePLTrainingOrganisation (RePLOriginRePLTrainingOrganisationLike (..)) +import ReOC.Name.RegulatoryActionActionDate (RegulatoryActionActionDateLike (..)) +import ReOC.Name.RegulatoryActionActionDetails (RegulatoryActionActionDetailsLike (..)) +import ReOC.Name.RegulatoryActionAuthorisationAction (RegulatoryActionAuthorisationActionLike (..)) +import ReOC.Name.RegulatoryActionReocSuspendedOrCancelled (RegulatoryActionReocSuspendedOrCancelledLike (..)) +import ReOC.Name.RegulatoryActionTypeOfAction (RegulatoryActionTypeOfActionLike (..)) +import ReOC.Name.RegulatoryHistoryNoRegulatoryAction (RegulatoryHistoryNoRegulatoryActionLike (..)) +import ReOC.Name.RegulatoryHistoryRegulatoryActionTaken (RegulatoryHistoryRegulatoryActionTakenLike (..)) +import ReOC.Name.RevisionDetails (RevisionDetailsLike (..)) +import ReOC.Name.RevisionEffective (RevisionEffectiveLike (..)) +import ReOC.Name.RevisionMonthsAfter (RevisionMonthsAfterLike (..)) +import ReOC.Name.RevisionParts (RevisionPartsLike (..)) +import ReOC.Name.RevisionVersionIncrement (RevisionVersionIncrementLike (..)) +import ReOC.Name.RiskAdditionalControls (RiskAdditionalControlsLike (..)) +import ReOC.Name.RiskAssessmentRiskConsequence (RiskAssessmentRiskConsequenceLike (..)) +import ReOC.Name.RiskAssessmentRiskLikelihood (RiskAssessmentRiskLikelihoodLike (..)) +import ReOC.Name.RiskDateEntered (RiskDateEnteredLike (..)) +import ReOC.Name.RiskExistingControls (RiskExistingControlsLike (..)) +import ReOC.Name.RiskHazard (RiskHazardLike (..)) +import ReOC.Name.RiskInitialRisk (RiskInitialRiskLike (..)) +import ReOC.Name.RiskResidualRisk (RiskResidualRiskLike (..)) +import ReOC.Name.RiskReviewMonths (RiskReviewMonthsLike (..)) +import ReOC.Name.RiskRiskDescription (RiskRiskDescriptionLike (..)) +import ReOC.Name.RiskRiskOwner (RiskRiskOwnerLike (..)) +import ReOC.Name.RpaTypeBatteryWarnings (RpaTypeBatteryWarningsLike (..)) +import ReOC.Name.RpaTypeBeforeFlight (RpaTypeBeforeFlightLike (..)) +import ReOC.Name.RpaTypeCategory (RpaTypeCategoryLike (..)) +import ReOC.Name.RpaTypeEmergencyActions (RpaTypeEmergencyActionsLike (..)) +import ReOC.Name.RpaTypeFlightTermination (RpaTypeFlightTerminationLike (..)) +import ReOC.Name.RpaTypeInspectionItems (RpaTypeInspectionItemsLike (..)) +import ReOC.Name.RpaTypeMaximumGrossWeight (RpaTypeMaximumGrossWeightLike (..)) +import ReOC.Name.RpaTypeRpaMake (RpaTypeRpaMakeLike (..)) +import ReOC.Name.RpaTypeRpaModel (RpaTypeRpaModelLike (..)) +import ReOC.Name.RpaTypeShortName (RpaTypeShortNameLike (..)) +import ReOC.Name.RpaTypeTransponderCarriage (RpaTypeTransponderCarriageLike (..)) +import ReOC.Name.RpaTypeUserManual (RpaTypeUserManualLike (..)) +import ReOC.Name.StepIndex (StepIndexLike (..)) +import ReOC.Name.TeachingQualificationTeachingQualificationHeld (TeachingQualificationTeachingQualificationHeldLike (..)) +import ReOC.Name.TeachingQualificationTeachingQualificationIntent (TeachingQualificationTeachingQualificationIntentLike (..)) +import ReOC.Name.TrainingArrangementsExam (TrainingArrangementsExamLike (..)) +import ReOC.Name.TrainingArrangementsExamPassMark (TrainingArrangementsExamPassMarkLike (..)) +import ReOC.Name.TrainingArrangementsExaminer (TrainingArrangementsExaminerLike (..)) +import ReOC.Name.TrainingArrangementsMaxStudentsPerCourse (TrainingArrangementsMaxStudentsPerCourseLike (..)) +import ReOC.Name.TrainingArrangementsMaxStudentsPerInstructor (TrainingArrangementsMaxStudentsPerInstructorLike (..)) +import ReOC.Name.TrainingArrangementsPracticalAreas (TrainingArrangementsPracticalAreasLike (..)) +import ReOC.Name.TrainingArrangementsSimulator (TrainingArrangementsSimulatorLike (..)) +import ReOC.Name.TrainingArrangementsTakeover (TrainingArrangementsTakeoverLike (..)) +import ReOC.Name.TrainingArrangementsTheory (TrainingArrangementsTheoryLike (..)) +import ReOC.Name.TrainingArrangementsTheoryVenues (TrainingArrangementsTheoryVenuesLike (..)) +import ReOC.Name.TrainingCourseComplexities (TrainingCourseComplexitiesLike (..)) +import ReOC.Name.TrainingCourseCourseKind (TrainingCourseCourseKindLike (..)) +import ReOC.Name.TrainingCourseTrainingRPA (TrainingCourseTrainingRPALike (..)) +import ReOC.Name.TrainingMaterialCriNominee (TrainingMaterialCriNomineeLike (..)) +import ReOC.Name.TrainingMaterialCriOtherReOCRoles (TrainingMaterialCriOtherReOCRolesLike (..)) +import ReOC.Name.TrainingMaterialOperationalExperience (TrainingMaterialOperationalExperienceLike (..)) +import ReOC.Name.TrainingMaterialRePLHolding (TrainingMaterialRePLHoldingLike (..)) +import ReOC.Name.TrainingMaterialTeachingQualification (TrainingMaterialTeachingQualificationLike (..)) +import ReOC.Name.TrainingMaterialTrainingArrangements (TrainingMaterialTrainingArrangementsLike (..)) +import ReOC.Name.TrainingMaterialTrainingCourses (TrainingMaterialTrainingCoursesLike (..)) +import ReOC.Name.VersionMajorVersion (VersionMajorVersionLike (..)) +import ReOC.Name.VersionMinorVersion (VersionMinorVersionLike (..)) +import ReOC.Name.WrittenSignatureWrittenSignatureFile (WrittenSignatureWrittenSignatureFileLike (..)) +import ReOC.Name.WrittenSignatureWrittenSignatureImage (WrittenSignatureWrittenSignatureImageLike (..)) + +-- | A step of the path from the whole form to a field: a field or constructor, or the index of an element of a list. +data Step + = StepField Field + | StepIndex Natural + deriving (Eq, Ord, Show) + +-- | The name of the data type @Step@. +class StepLike p f x x' where + step :: + Optic p f x x' Step Step + +-- | Identity +instance (x' ~ Step) => StepLike p f Step x' where + step = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Step) => FieldLike p f Step x' where + field = prism' StepField (\case StepField x -> Just x; StepIndex _ -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Step) => StepIndexLike p f Step x' where + stepIndex = prism' StepIndex (\case StepField _ -> Nothing; StepIndex x -> Just x) + +-- | Prism: through @field@, then @personFullName@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PersonFullNameLike p f Step x' where + personFullName = field . personFullName + +-- | Prism: through @field@, then @personArn@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PersonArnLike p f Step x' where + personArn = field . personArn + +-- | Prism: through @field@, then @personPhoneNumber@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PersonPhoneNumberLike p f Step x' where + personPhoneNumber = field . personPhoneNumber + +-- | Prism: through @field@, then @personEmailAddress@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PersonEmailAddressLike p f Step x' where + personEmailAddress = field . personEmailAddress + +-- | Prism: through @field@, then @addressStreetAddress@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => AddressStreetAddressLike p f Step x' where + addressStreetAddress = field . addressStreetAddress + +-- | Prism: through @field@, then @addressSuburb@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => AddressSuburbLike p f Step x' where + addressSuburb = field . addressSuburb + +-- | Prism: through @field@, then @addressStateOrTerritory@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => AddressStateOrTerritoryLike p f Step x' where + addressStateOrTerritory = field . addressStateOrTerritory + +-- | Prism: through @field@, then @addressPostcode@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => AddressPostcodeLike p f Step x' where + addressPostcode = field . addressPostcode + +-- | Prism: through @field@, then @operationalHeadquartersAtRegisteredOffice@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationalHeadquartersAtRegisteredOfficeLike p f Step x' where + operationalHeadquartersAtRegisteredOffice = field . operationalHeadquartersAtRegisteredOffice + +-- | Prism: through @field@, then @operationalHeadquartersOperationalHeadquartersAddress@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationalHeadquartersOperationalHeadquartersAddressLike p f Step x' where + operationalHeadquartersOperationalHeadquartersAddress = field . operationalHeadquartersOperationalHeadquartersAddress + +-- | Prism: through @field@, then @companyCompanyName@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CompanyCompanyNameLike p f Step x' where + companyCompanyName = field . companyCompanyName + +-- | Prism: through @field@, then @companyAbn@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CompanyAbnLike p f Step x' where + companyAbn = field . companyAbn + +-- | Prism: through @field@, then @companyArn@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CompanyArnLike p f Step x' where + companyArn = field . companyArn + +-- | Prism: through @field@, then @companyRegisteredOffice@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CompanyRegisteredOfficeLike p f Step x' where + companyRegisteredOffice = field . companyRegisteredOffice + +-- | Prism: through @field@, then @companyOperationalHeadquarters@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CompanyOperationalHeadquartersLike p f Step x' where + companyOperationalHeadquarters = field . companyOperationalHeadquarters + +-- | Prism: through @field@, then @companyPhoneNumber@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CompanyPhoneNumberLike p f Step x' where + companyPhoneNumber = field . companyPhoneNumber + +-- | Prism: through @field@, then @companyEmailAddress@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CompanyEmailAddressLike p f Step x' where + companyEmailAddress = field . companyEmailAddress + +-- | Prism: through @field@, then @companyBusinessName@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CompanyBusinessNameLike p f Step x' where + companyBusinessName = field . companyBusinessName + +-- | Prism: through @field@, then @flightTerminationNoFlightTerminationSystem@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => FlightTerminationNoFlightTerminationSystemLike p f Step x' where + flightTerminationNoFlightTerminationSystem = field . flightTerminationNoFlightTerminationSystem + +-- | Prism: through @field@, then @flightTerminationFlightTerminationSystem@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => FlightTerminationFlightTerminationSystemLike p f Step x' where + flightTerminationFlightTerminationSystem = field . flightTerminationFlightTerminationSystem + +-- | Prism: through @field@, then @emergencyActionSituation@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => EmergencyActionSituationLike p f Step x' where + emergencyActionSituation = field . emergencyActionSituation + +-- | Prism: through @field@, then @emergencyActionResponse@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => EmergencyActionResponseLike p f Step x' where + emergencyActionResponse = field . emergencyActionResponse + +-- | Prism: through @field@, then @emergencyActionActionSteps@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => EmergencyActionActionStepsLike p f Step x' where + emergencyActionActionSteps = field . emergencyActionActionSteps + +-- | Prism: through @field@, then @rpaTypeRpaMake@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeRpaMakeLike p f Step x' where + rpaTypeRpaMake = field . rpaTypeRpaMake + +-- | Prism: through @field@, then @rpaTypeRpaModel@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeRpaModelLike p f Step x' where + rpaTypeRpaModel = field . rpaTypeRpaModel + +-- | Prism: through @field@, then @rpaTypeShortName@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeShortNameLike p f Step x' where + rpaTypeShortName = field . rpaTypeShortName + +-- | Prism: through @field@, then @rpaTypeCategory@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeCategoryLike p f Step x' where + rpaTypeCategory = field . rpaTypeCategory + +-- | Prism: through @field@, then @rpaTypeMaximumGrossWeight@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeMaximumGrossWeightLike p f Step x' where + rpaTypeMaximumGrossWeight = field . rpaTypeMaximumGrossWeight + +-- | Prism: through @field@, then @rpaTypeUserManual@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeUserManualLike p f Step x' where + rpaTypeUserManual = field . rpaTypeUserManual + +-- | Prism: through @field@, then @rpaTypeTransponderCarriage@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeTransponderCarriageLike p f Step x' where + rpaTypeTransponderCarriage = field . rpaTypeTransponderCarriage + +-- | Prism: through @field@, then @rpaTypeFlightTermination@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeFlightTerminationLike p f Step x' where + rpaTypeFlightTermination = field . rpaTypeFlightTermination + +-- | Prism: through @field@, then @rpaTypeInspectionItems@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeInspectionItemsLike p f Step x' where + rpaTypeInspectionItems = field . rpaTypeInspectionItems + +-- | Prism: through @field@, then @rpaTypeBeforeFlight@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeBeforeFlightLike p f Step x' where + rpaTypeBeforeFlight = field . rpaTypeBeforeFlight + +-- | Prism: through @field@, then @rpaTypeBatteryWarnings@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeBatteryWarningsLike p f Step x' where + rpaTypeBatteryWarnings = field . rpaTypeBatteryWarnings + +-- | Prism: through @field@, then @rpaTypeEmergencyActions@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RpaTypeEmergencyActionsLike p f Step x' where + rpaTypeEmergencyActions = field . rpaTypeEmergencyActions + +-- | Prism: through @field@, then @equipmentEquipmentDescription@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => EquipmentEquipmentDescriptionLike p f Step x' where + equipmentEquipmentDescription = field . equipmentEquipmentDescription + +-- | Prism: through @field@, then @equipmentSerialNumber@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => EquipmentSerialNumberLike p f Step x' where + equipmentSerialNumber = field . equipmentSerialNumber + +-- | Prism: through @field@, then @aircraftSerialNumber@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => AircraftSerialNumberLike p f Step x' where + aircraftSerialNumber = field . aircraftSerialNumber + +-- | Prism: through @field@, then @aircraftAssociatedEquipment@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => AircraftAssociatedEquipmentLike p f Step x' where + aircraftAssociatedEquipment = field . aircraftAssociatedEquipment + +-- | Prism: through @field@, then @operatedTypeRpaType@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperatedTypeRpaTypeLike p f Step x' where + operatedTypeRpaType = field . operatedTypeRpaType + +-- | Prism: through @field@, then @operatedTypeAirframes@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperatedTypeAirframesLike p f Step x' where + operatedTypeAirframes = field . operatedTypeAirframes + +-- | Prism: through @field@, then @rePLOriginPplTheory@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RePLOriginPplTheoryLike p f Step x' where + rePLOriginPplTheory = field . rePLOriginPplTheory + +-- | Prism: through @field@, then @rePLOriginRePLTrainingOrganisation@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RePLOriginRePLTrainingOrganisationLike p f Step x' where + rePLOriginRePLTrainingOrganisation = field . rePLOriginRePLTrainingOrganisation + +-- | Prism: through @field@, then @otherReOCRolesNoOtherReOCRoles@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OtherReOCRolesNoOtherReOCRolesLike p f Step x' where + otherReOCRolesNoOtherReOCRoles = field . otherReOCRolesNoOtherReOCRoles + +-- | Prism: through @field@, then @otherReOCRolesOtherReOCRolesHeld@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OtherReOCRolesOtherReOCRolesHeldLike p f Step x' where + otherReOCRolesOtherReOCRolesHeld = field . otherReOCRolesOtherReOCRolesHeld + +-- | Prism: through @field@, then @nomineePerson@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => NomineePersonLike p f Step x' where + nomineePerson = field . nomineePerson + +-- | Prism: through @field@, then @nomineeOtherQualifications@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => NomineeOtherQualificationsLike p f Step x' where + nomineeOtherQualifications = field . nomineeOtherQualifications + +-- | Prism: through @field@, then @nomineeAviationExperience@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => NomineeAviationExperienceLike p f Step x' where + nomineeAviationExperience = field . nomineeAviationExperience + +-- | Prism: through @field@, then @chiefExecutiveNominee@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ChiefExecutiveNomineeLike p f Step x' where + chiefExecutiveNominee = field . chiefExecutiveNominee + +-- | Prism: through @field@, then @chiefExecutiveDirectorStatus@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ChiefExecutiveDirectorStatusLike p f Step x' where + chiefExecutiveDirectorStatus = field . chiefExecutiveDirectorStatus + +-- | Prism: through @field@, then @chiefExecutiveManagementExperience@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ChiefExecutiveManagementExperienceLike p f Step x' where + chiefExecutiveManagementExperience = field . chiefExecutiveManagementExperience + +-- | Prism: through @field@, then @crpNomineeCrpIsCEO@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CrpNomineeCrpIsCEOLike p f Step x' where + crpNomineeCrpIsCEO = field . crpNomineeCrpIsCEO + +-- | Prism: through @field@, then @crpNomineeCrpNominated@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CrpNomineeCrpNominatedLike p f Step x' where + crpNomineeCrpNominated = field . crpNomineeCrpNominated + +-- | Prism: through @field@, then @chiefPilotCrpNominee@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ChiefPilotCrpNomineeLike p f Step x' where + chiefPilotCrpNominee = field . chiefPilotCrpNominee + +-- | Prism: through @field@, then @chiefPilotRePLOrigin@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ChiefPilotRePLOriginLike p f Step x' where + chiefPilotRePLOrigin = field . chiefPilotRePLOrigin + +-- | Prism: through @field@, then @chiefPilotRpaHistory@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ChiefPilotRpaHistoryLike p f Step x' where + chiefPilotRpaHistory = field . chiefPilotRpaHistory + +-- | Prism: through @field@, then @chiefPilotOtherReOCRoles@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ChiefPilotOtherReOCRolesLike p f Step x' where + chiefPilotOtherReOCRoles = field . chiefPilotOtherReOCRoles + +-- | Prism: through @field@, then @chiefPilotRadio@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ChiefPilotRadioLike p f Step x' where + chiefPilotRadio = field . chiefPilotRadio + +-- | Prism: through @field@, then @mcNomineeMcIsCEO@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => McNomineeMcIsCEOLike p f Step x' where + mcNomineeMcIsCEO = field . mcNomineeMcIsCEO + +-- | Prism: through @field@, then @mcNomineeMcIsCRP@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => McNomineeMcIsCRPLike p f Step x' where + mcNomineeMcIsCRP = field . mcNomineeMcIsCRP + +-- | Prism: through @field@, then @mcNomineeMcNominated@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => McNomineeMcNominatedLike p f Step x' where + mcNomineeMcNominated = field . mcNomineeMcNominated + +-- | Prism: through @field@, then @keyPersonnelChiefExecutive@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => KeyPersonnelChiefExecutiveLike p f Step x' where + keyPersonnelChiefExecutive = field . keyPersonnelChiefExecutive + +-- | Prism: through @field@, then @keyPersonnelChiefPilot@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => KeyPersonnelChiefPilotLike p f Step x' where + keyPersonnelChiefPilot = field . keyPersonnelChiefPilot + +-- | Prism: through @field@, then @keyPersonnelMcNominee@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => KeyPersonnelMcNomineeLike p f Step x' where + keyPersonnelMcNominee = field . keyPersonnelMcNominee + +-- | Prism: through @field@, then @operatorCompany@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperatorCompanyLike p f Step x' where + operatorCompany = field . operatorCompany + +-- | Prism: through @field@, then @operatorKeyPersonnel@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperatorKeyPersonnelLike p f Step x' where + operatorKeyPersonnel = field . operatorKeyPersonnel + +-- | Prism: through @field@, then @operatorFleet@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperatorFleetLike p f Step x' where + operatorFleet = field . operatorFleet + +-- | Prism: through @field@, then @contactPersonFullName@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ContactPersonFullNameLike p f Step x' where + contactPersonFullName = field . contactPersonFullName + +-- | Prism: through @field@, then @contactPersonPosition@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ContactPersonPositionLike p f Step x' where + contactPersonPosition = field . contactPersonPosition + +-- | Prism: through @field@, then @contactPersonPhoneNumber@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ContactPersonPhoneNumberLike p f Step x' where + contactPersonPhoneNumber = field . contactPersonPhoneNumber + +-- | Prism: through @field@, then @contactPersonEmailAddress@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ContactPersonEmailAddressLike p f Step x' where + contactPersonEmailAddress = field . contactPersonEmailAddress + +-- | Prism: through @field@, then @primaryContactApplicantIsPrimaryContact@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PrimaryContactApplicantIsPrimaryContactLike p f Step x' where + primaryContactApplicantIsPrimaryContact = field . primaryContactApplicantIsPrimaryContact + +-- | Prism: through @field@, then @primaryContactPrimaryContactPerson@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PrimaryContactPrimaryContactPersonLike p f Step x' where + primaryContactPrimaryContactPerson = field . primaryContactPrimaryContactPerson + +-- | Prism: through @field@, then @historyAnswerNoHistory@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => HistoryAnswerNoHistoryLike p f Step x' where + historyAnswerNoHistory = field . historyAnswerNoHistory + +-- | Prism: through @field@, then @historyAnswerHistoryDisclosed@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => HistoryAnswerHistoryDisclosedLike p f Step x' where + historyAnswerHistoryDisclosed = field . historyAnswerHistoryDisclosed + +-- | Prism: through @field@, then @personnelHistoryActionTaken@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PersonnelHistoryActionTakenLike p f Step x' where + personnelHistoryActionTaken = field . personnelHistoryActionTaken + +-- | Prism: through @field@, then @personnelHistoryTransportLicenceRefused@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PersonnelHistoryTransportLicenceRefusedLike p f Step x' where + personnelHistoryTransportLicenceRefused = field . personnelHistoryTransportLicenceRefused + +-- | Prism: through @field@, then @personnelHistoryCriminalConviction@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PersonnelHistoryCriminalConvictionLike p f Step x' where + personnelHistoryCriminalConviction = field . personnelHistoryCriminalConviction + +-- | Prism: through @field@, then @personnelHistorySuspensionPending@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PersonnelHistorySuspensionPendingLike p f Step x' where + personnelHistorySuspensionPending = field . personnelHistorySuspensionPending + +-- | Prism: through @field@, then @regulatoryActionReocSuspendedOrCancelled@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RegulatoryActionReocSuspendedOrCancelledLike p f Step x' where + regulatoryActionReocSuspendedOrCancelled = field . regulatoryActionReocSuspendedOrCancelled + +-- | Prism: through @field@, then @regulatoryActionTypeOfAction@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RegulatoryActionTypeOfActionLike p f Step x' where + regulatoryActionTypeOfAction = field . regulatoryActionTypeOfAction + +-- | Prism: through @field@, then @regulatoryActionAuthorisationAction@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RegulatoryActionAuthorisationActionLike p f Step x' where + regulatoryActionAuthorisationAction = field . regulatoryActionAuthorisationAction + +-- | Prism: through @field@, then @regulatoryActionActionDate@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RegulatoryActionActionDateLike p f Step x' where + regulatoryActionActionDate = field . regulatoryActionActionDate + +-- | Prism: through @field@, then @regulatoryActionActionDetails@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RegulatoryActionActionDetailsLike p f Step x' where + regulatoryActionActionDetails = field . regulatoryActionActionDetails + +-- | Prism: through @field@, then @regulatoryHistoryNoRegulatoryAction@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RegulatoryHistoryNoRegulatoryActionLike p f Step x' where + regulatoryHistoryNoRegulatoryAction = field . regulatoryHistoryNoRegulatoryAction + +-- | Prism: through @field@, then @regulatoryHistoryRegulatoryActionTaken@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RegulatoryHistoryRegulatoryActionTakenLike p f Step x' where + regulatoryHistoryRegulatoryActionTaken = field . regulatoryHistoryRegulatoryActionTaken + +-- | Prism: through @field@, then @declarantFullName@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => DeclarantFullNameLike p f Step x' where + declarantFullName = field . declarantFullName + +-- | Prism: through @field@, then @declarantRole@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => DeclarantRoleLike p f Step x' where + declarantRole = field . declarantRole + +-- | Prism: through @field@, then @declarationDeclaredByCEO@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => DeclarationDeclaredByCEOLike p f Step x' where + declarationDeclaredByCEO = field . declarationDeclaredByCEO + +-- | Prism: through @field@, then @declarationDeclaredByResponsibleManager@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => DeclarationDeclaredByResponsibleManagerLike p f Step x' where + declarationDeclaredByResponsibleManager = field . declarationDeclaredByResponsibleManager + +-- | Prism: through @field@, then @declarationDeclaredByAgent@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => DeclarationDeclaredByAgentLike p f Step x' where + declarationDeclaredByAgent = field . declarationDeclaredByAgent + +-- | Prism: through @field@, then @declarationDeclaredByOther@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => DeclarationDeclaredByOtherLike p f Step x' where + declarationDeclaredByOther = field . declarationDeclaredByOther + +-- | Prism: through @field@, then @writtenSignatureWrittenSignatureImage@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => WrittenSignatureWrittenSignatureImageLike p f Step x' where + writtenSignatureWrittenSignatureImage = field . writtenSignatureWrittenSignatureImage + +-- | Prism: through @field@, then @writtenSignatureWrittenSignatureFile@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => WrittenSignatureWrittenSignatureFileLike p f Step x' where + writtenSignatureWrittenSignatureFile = field . writtenSignatureWrittenSignatureFile + +-- | Prism: through @field@, then @applicationFormPrimaryContact@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ApplicationFormPrimaryContactLike p f Step x' where + applicationFormPrimaryContact = field . applicationFormPrimaryContact + +-- | Prism: through @field@, then @applicationFormPersonnelHistory@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ApplicationFormPersonnelHistoryLike p f Step x' where + applicationFormPersonnelHistory = field . applicationFormPersonnelHistory + +-- | Prism: through @field@, then @applicationFormRegulatoryHistory@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ApplicationFormRegulatoryHistoryLike p f Step x' where + applicationFormRegulatoryHistory = field . applicationFormRegulatoryHistory + +-- | Prism: through @field@, then @applicationFormProceduresLibrary@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ApplicationFormProceduresLibraryLike p f Step x' where + applicationFormProceduresLibrary = field . applicationFormProceduresLibrary + +-- | Prism: through @field@, then @applicationFormOtherDocuments@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ApplicationFormOtherDocumentsLike p f Step x' where + applicationFormOtherDocuments = field . applicationFormOtherDocuments + +-- | Prism: through @field@, then @applicationFormDeclaration@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ApplicationFormDeclarationLike p f Step x' where + applicationFormDeclaration = field . applicationFormDeclaration + +-- | Prism: through @field@, then @applicationFormSignature@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ApplicationFormSignatureLike p f Step x' where + applicationFormSignature = field . applicationFormSignature + +-- | Prism: through @field@, then @versionMajorVersion@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => VersionMajorVersionLike p f Step x' where + versionMajorVersion = field . versionMajorVersion + +-- | Prism: through @field@, then @versionMinorVersion@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => VersionMinorVersionLike p f Step x' where + versionMinorVersion = field . versionMinorVersion + +-- | Prism: through @field@, then @firstIssueVersion@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => FirstIssueVersionLike p f Step x' where + firstIssueVersion = field . firstIssueVersion + +-- | Prism: through @field@, then @firstIssueIssueDate@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => FirstIssueIssueDateLike p f Step x' where + firstIssueIssueDate = field . firstIssueIssueDate + +-- | Prism: through @field@, then @firstIssueEffective@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => FirstIssueEffectiveLike p f Step x' where + firstIssueEffective = field . firstIssueEffective + +-- | Prism: through @field@, then @firstIssueParts@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => FirstIssuePartsLike p f Step x' where + firstIssueParts = field . firstIssueParts + +-- | Prism: through @field@, then @firstIssueDetails@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => FirstIssueDetailsLike p f Step x' where + firstIssueDetails = field . firstIssueDetails + +-- | Prism: through @field@, then @revisionVersionIncrement@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RevisionVersionIncrementLike p f Step x' where + revisionVersionIncrement = field . revisionVersionIncrement + +-- | Prism: through @field@, then @revisionMonthsAfter@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RevisionMonthsAfterLike p f Step x' where + revisionMonthsAfter = field . revisionMonthsAfter + +-- | Prism: through @field@, then @revisionEffective@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RevisionEffectiveLike p f Step x' where + revisionEffective = field . revisionEffective + +-- | Prism: through @field@, then @revisionParts@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RevisionPartsLike p f Step x' where + revisionParts = field . revisionParts + +-- | Prism: through @field@, then @revisionDetails@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RevisionDetailsLike p f Step x' where + revisionDetails = field . revisionDetails + +-- | Prism: through @field@, then @policiesRecencyFlights@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesRecencyFlightsLike p f Step x' where + policiesRecencyFlights = field . policiesRecencyFlights + +-- | Prism: through @field@, then @policiesRecencyDays@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesRecencyDaysLike p f Step x' where + policiesRecencyDays = field . policiesRecencyDays + +-- | Prism: through @field@, then @policiesRefresherMonths@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesRefresherMonthsLike p f Step x' where + policiesRefresherMonths = field . policiesRefresherMonths + +-- | Prism: through @field@, then @policiesAlcoholHours@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesAlcoholHoursLike p f Step x' where + policiesAlcoholHours = field . policiesAlcoholHours + +-- | Prism: through @field@, then @policiesRestHours@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesRestHoursLike p f Step x' where + policiesRestHours = field . policiesRestHours + +-- | Prism: through @field@, then @policiesDutyHours@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesDutyHoursLike p f Step x' where + policiesDutyHours = field . policiesDutyHours + +-- | Prism: through @field@, then @policiesInspectionMonths@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesInspectionMonthsLike p f Step x' where + policiesInspectionMonths = field . policiesInspectionMonths + +-- | Prism: through @field@, then @policiesInspectionHours@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesInspectionHoursLike p f Step x' where + policiesInspectionHours = field . policiesInspectionHours + +-- | Prism: through @field@, then @policiesBatteryReserve@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesBatteryReserveLike p f Step x' where + policiesBatteryReserve = field . policiesBatteryReserve + +-- | Prism: through @field@, then @policiesBackupFrequency@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesBackupFrequencyLike p f Step x' where + policiesBackupFrequency = field . policiesBackupFrequency + +-- | Prism: through @field@, then @policiesIndependentReviewYears@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesIndependentReviewYearsLike p f Step x' where + policiesIndependentReviewYears = field . policiesIndependentReviewYears + +-- | Prism: through @field@, then @policiesCheckingMonths@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => PoliciesCheckingMonthsLike p f Step x' where + policiesCheckingMonths = field . policiesCheckingMonths + +-- | Prism: through @field@, then @riskAssessmentRiskLikelihood@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskAssessmentRiskLikelihoodLike p f Step x' where + riskAssessmentRiskLikelihood = field . riskAssessmentRiskLikelihood + +-- | Prism: through @field@, then @riskAssessmentRiskConsequence@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskAssessmentRiskConsequenceLike p f Step x' where + riskAssessmentRiskConsequence = field . riskAssessmentRiskConsequence + +-- | Prism: through @field@, then @riskHazard@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskHazardLike p f Step x' where + riskHazard = field . riskHazard + +-- | Prism: through @field@, then @riskRiskDescription@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskRiskDescriptionLike p f Step x' where + riskRiskDescription = field . riskRiskDescription + +-- | Prism: through @field@, then @riskExistingControls@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskExistingControlsLike p f Step x' where + riskExistingControls = field . riskExistingControls + +-- | Prism: through @field@, then @riskInitialRisk@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskInitialRiskLike p f Step x' where + riskInitialRisk = field . riskInitialRisk + +-- | Prism: through @field@, then @riskAdditionalControls@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskAdditionalControlsLike p f Step x' where + riskAdditionalControls = field . riskAdditionalControls + +-- | Prism: through @field@, then @riskResidualRisk@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskResidualRiskLike p f Step x' where + riskResidualRisk = field . riskResidualRisk + +-- | Prism: through @field@, then @riskRiskOwner@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskRiskOwnerLike p f Step x' where + riskRiskOwner = field . riskRiskOwner + +-- | Prism: through @field@, then @riskDateEntered@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskDateEnteredLike p f Step x' where + riskDateEntered = field . riskDateEntered + +-- | Prism: through @field@, then @riskReviewMonths@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RiskReviewMonthsLike p f Step x' where + riskReviewMonths = field . riskReviewMonths + +-- | Prism: through @field@, then @operationsManualFirstIssue@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationsManualFirstIssueLike p f Step x' where + operationsManualFirstIssue = field . operationsManualFirstIssue + +-- | Prism: through @field@, then @operationsManualRevisions@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationsManualRevisionsLike p f Step x' where + operationsManualRevisions = field . operationsManualRevisions + +-- | Prism: through @field@, then @operationsManualServices@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationsManualServicesLike p f Step x' where + operationsManualServices = field . operationsManualServices + +-- | Prism: through @field@, then @operationsManualPolicies@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationsManualPoliciesLike p f Step x' where + operationsManualPolicies = field . operationsManualPolicies + +-- | Prism: through @field@, then @operationsManualRiskRegister@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationsManualRiskRegisterLike p f Step x' where + operationsManualRiskRegister = field . operationsManualRiskRegister + +-- | Prism: through @field@, then @operationsManualCrew@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationsManualCrewLike p f Step x' where + operationsManualCrew = field . operationsManualCrew + +-- | Prism: through @field@, then @operationsManualPilots@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationsManualPilotsLike p f Step x' where + operationsManualPilots = field . operationsManualPilots + +-- | Prism: through @field@, then @criNomineeCriIsCEO@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CriNomineeCriIsCEOLike p f Step x' where + criNomineeCriIsCEO = field . criNomineeCriIsCEO + +-- | Prism: through @field@, then @criNomineeCriIsCRP@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CriNomineeCriIsCRPLike p f Step x' where + criNomineeCriIsCRP = field . criNomineeCriIsCRP + +-- | Prism: through @field@, then @criNomineeCriIsMC@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CriNomineeCriIsMCLike p f Step x' where + criNomineeCriIsMC = field . criNomineeCriIsMC + +-- | Prism: through @field@, then @criNomineeCriNominated@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => CriNomineeCriNominatedLike p f Step x' where + criNomineeCriNominated = field . criNomineeCriNominated + +-- | Prism: through @field@, then @rePLHoldingHoldsRePLForEachType@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RePLHoldingHoldsRePLForEachTypeLike p f Step x' where + rePLHoldingHoldsRePLForEachType = field . rePLHoldingHoldsRePLForEachType + +-- | Prism: through @field@, then @rePLHoldingRePLHoldingIntent@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => RePLHoldingRePLHoldingIntentLike p f Step x' where + rePLHoldingRePLHoldingIntent = field . rePLHoldingRePLHoldingIntent + +-- | Prism: through @field@, then @teachingQualificationTeachingQualificationHeld@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TeachingQualificationTeachingQualificationHeldLike p f Step x' where + teachingQualificationTeachingQualificationHeld = field . teachingQualificationTeachingQualificationHeld + +-- | Prism: through @field@, then @teachingQualificationTeachingQualificationIntent@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TeachingQualificationTeachingQualificationIntentLike p f Step x' where + teachingQualificationTeachingQualificationIntent = field . teachingQualificationTeachingQualificationIntent + +-- | Prism: through @field@, then @operationalExperienceHasOperationalExperience@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationalExperienceHasOperationalExperienceLike p f Step x' where + operationalExperienceHasOperationalExperience = field . operationalExperienceHasOperationalExperience + +-- | Prism: through @field@, then @operationalExperienceOperationalExperienceIntent@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationalExperienceOperationalExperienceIntentLike p f Step x' where + operationalExperienceOperationalExperienceIntent = field . operationalExperienceOperationalExperienceIntent + +-- | Prism: through @field@, then @operationalExperienceOperationalExperienceNotApplicable@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => OperationalExperienceOperationalExperienceNotApplicableLike p f Step x' where + operationalExperienceOperationalExperienceNotApplicable = field . operationalExperienceOperationalExperienceNotApplicable + +-- | Prism: through @field@, then @trainingCourseCourseKind@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingCourseCourseKindLike p f Step x' where + trainingCourseCourseKind = field . trainingCourseCourseKind + +-- | Prism: through @field@, then @trainingCourseTrainingRPA@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingCourseTrainingRPALike p f Step x' where + trainingCourseTrainingRPA = field . trainingCourseTrainingRPA + +-- | Prism: through @field@, then @trainingCourseComplexities@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingCourseComplexitiesLike p f Step x' where + trainingCourseComplexities = field . trainingCourseComplexities + +-- | Prism: through @field@, then @trainingArrangementsTheoryVenues@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsTheoryVenuesLike p f Step x' where + trainingArrangementsTheoryVenues = field . trainingArrangementsTheoryVenues + +-- | Prism: through @field@, then @trainingArrangementsPracticalAreas@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsPracticalAreasLike p f Step x' where + trainingArrangementsPracticalAreas = field . trainingArrangementsPracticalAreas + +-- | Prism: through @field@, then @trainingArrangementsMaxStudentsPerCourse@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsMaxStudentsPerCourseLike p f Step x' where + trainingArrangementsMaxStudentsPerCourse = field . trainingArrangementsMaxStudentsPerCourse + +-- | Prism: through @field@, then @trainingArrangementsMaxStudentsPerInstructor@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsMaxStudentsPerInstructorLike p f Step x' where + trainingArrangementsMaxStudentsPerInstructor = field . trainingArrangementsMaxStudentsPerInstructor + +-- | Prism: through @field@, then @trainingArrangementsTakeover@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsTakeoverLike p f Step x' where + trainingArrangementsTakeover = field . trainingArrangementsTakeover + +-- | Prism: through @field@, then @trainingArrangementsTheory@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsTheoryLike p f Step x' where + trainingArrangementsTheory = field . trainingArrangementsTheory + +-- | Prism: through @field@, then @trainingArrangementsExam@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsExamLike p f Step x' where + trainingArrangementsExam = field . trainingArrangementsExam + +-- | Prism: through @field@, then @trainingArrangementsExamPassMark@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsExamPassMarkLike p f Step x' where + trainingArrangementsExamPassMark = field . trainingArrangementsExamPassMark + +-- | Prism: through @field@, then @trainingArrangementsExaminer@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsExaminerLike p f Step x' where + trainingArrangementsExaminer = field . trainingArrangementsExaminer + +-- | Prism: through @field@, then @trainingArrangementsSimulator@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingArrangementsSimulatorLike p f Step x' where + trainingArrangementsSimulator = field . trainingArrangementsSimulator + +-- | Prism: through @field@, then @trainingMaterialCriNominee@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingMaterialCriNomineeLike p f Step x' where + trainingMaterialCriNominee = field . trainingMaterialCriNominee + +-- | Prism: through @field@, then @trainingMaterialRePLHolding@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingMaterialRePLHoldingLike p f Step x' where + trainingMaterialRePLHolding = field . trainingMaterialRePLHolding + +-- | Prism: through @field@, then @trainingMaterialTeachingQualification@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingMaterialTeachingQualificationLike p f Step x' where + trainingMaterialTeachingQualification = field . trainingMaterialTeachingQualification + +-- | Prism: through @field@, then @trainingMaterialOperationalExperience@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingMaterialOperationalExperienceLike p f Step x' where + trainingMaterialOperationalExperience = field . trainingMaterialOperationalExperience + +-- | Prism: through @field@, then @trainingMaterialCriOtherReOCRoles@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingMaterialCriOtherReOCRolesLike p f Step x' where + trainingMaterialCriOtherReOCRoles = field . trainingMaterialCriOtherReOCRoles + +-- | Prism: through @field@, then @trainingMaterialTrainingCourses@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingMaterialTrainingCoursesLike p f Step x' where + trainingMaterialTrainingCourses = field . trainingMaterialTrainingCourses + +-- | Prism: through @field@, then @trainingMaterialTrainingArrangements@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => TrainingMaterialTrainingArrangementsLike p f Step x' where + trainingMaterialTrainingArrangements = field . trainingMaterialTrainingArrangements + +-- | Prism: through @field@, then @reOCOperator@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ReOCOperatorLike p f Step x' where + reOCOperator = field . reOCOperator + +-- | Prism: through @field@, then @reOCApplicationForm@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ReOCApplicationFormLike p f Step x' where + reOCApplicationForm = field . reOCApplicationForm + +-- | Prism: through @field@, then @reOCOperationsManual@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ReOCOperationsManualLike p f Step x' where + reOCOperationsManual = field . reOCOperationsManual + +-- | Prism: through @field@, then @reOCMaybeTrainingMaterial@ of @Field@. +instance (Choice p, Applicative f, x' ~ Step) => ReOCMaybeTrainingMaterialLike p f Step x' where + reOCMaybeTrainingMaterial = field . reOCMaybeTrainingMaterial + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesStep == id +-} +lawNamesStep :: Step -> Step +lawNamesStep = \case + StepField x -> review field x + StepIndex x -> review stepIndex x + +-- | The classes that a data type holding @Step@ in one field, or in one or more constructors, inherits. +type InheritStep s = + ( ( StepLike (->) (Const ()) s s + , FieldLike (->) (Const ()) s s + , StepIndexLike (->) (Const ()) s s + , PersonFullNameLike (->) (Const ()) s s + , PersonArnLike (->) (Const ()) s s + , PersonPhoneNumberLike (->) (Const ()) s s + , PersonEmailAddressLike (->) (Const ()) s s + , AddressStreetAddressLike (->) (Const ()) s s + , AddressSuburbLike (->) (Const ()) s s + , AddressStateOrTerritoryLike (->) (Const ()) s s + , AddressPostcodeLike (->) (Const ()) s s + , OperationalHeadquartersAtRegisteredOfficeLike (->) (Const ()) s s + , OperationalHeadquartersOperationalHeadquartersAddressLike (->) (Const ()) s s + , CompanyCompanyNameLike (->) (Const ()) s s + , CompanyAbnLike (->) (Const ()) s s + , CompanyArnLike (->) (Const ()) s s + , CompanyRegisteredOfficeLike (->) (Const ()) s s + , CompanyOperationalHeadquartersLike (->) (Const ()) s s + , CompanyPhoneNumberLike (->) (Const ()) s s + , CompanyEmailAddressLike (->) (Const ()) s s + , CompanyBusinessNameLike (->) (Const ()) s s + , FlightTerminationNoFlightTerminationSystemLike (->) (Const ()) s s + , FlightTerminationFlightTerminationSystemLike (->) (Const ()) s s + , EmergencyActionSituationLike (->) (Const ()) s s + , EmergencyActionResponseLike (->) (Const ()) s s + , EmergencyActionActionStepsLike (->) (Const ()) s s + , RpaTypeRpaMakeLike (->) (Const ()) s s + , RpaTypeRpaModelLike (->) (Const ()) s s + , RpaTypeShortNameLike (->) (Const ()) s s + , RpaTypeCategoryLike (->) (Const ()) s s + , RpaTypeMaximumGrossWeightLike (->) (Const ()) s s + , RpaTypeUserManualLike (->) (Const ()) s s + , RpaTypeTransponderCarriageLike (->) (Const ()) s s + , RpaTypeFlightTerminationLike (->) (Const ()) s s + , RpaTypeInspectionItemsLike (->) (Const ()) s s + , RpaTypeBeforeFlightLike (->) (Const ()) s s + , RpaTypeBatteryWarningsLike (->) (Const ()) s s + , RpaTypeEmergencyActionsLike (->) (Const ()) s s + , EquipmentEquipmentDescriptionLike (->) (Const ()) s s + , EquipmentSerialNumberLike (->) (Const ()) s s + , AircraftSerialNumberLike (->) (Const ()) s s + , AircraftAssociatedEquipmentLike (->) (Const ()) s s + , OperatedTypeRpaTypeLike (->) (Const ()) s s + , OperatedTypeAirframesLike (->) (Const ()) s s + , RePLOriginPplTheoryLike (->) (Const ()) s s + , RePLOriginRePLTrainingOrganisationLike (->) (Const ()) s s + , OtherReOCRolesNoOtherReOCRolesLike (->) (Const ()) s s + , OtherReOCRolesOtherReOCRolesHeldLike (->) (Const ()) s s + , NomineePersonLike (->) (Const ()) s s + , NomineeOtherQualificationsLike (->) (Const ()) s s + ) + , ( NomineeAviationExperienceLike (->) (Const ()) s s + , ChiefExecutiveNomineeLike (->) (Const ()) s s + , ChiefExecutiveDirectorStatusLike (->) (Const ()) s s + , ChiefExecutiveManagementExperienceLike (->) (Const ()) s s + , CrpNomineeCrpIsCEOLike (->) (Const ()) s s + , CrpNomineeCrpNominatedLike (->) (Const ()) s s + , ChiefPilotCrpNomineeLike (->) (Const ()) s s + , ChiefPilotRePLOriginLike (->) (Const ()) s s + , ChiefPilotRpaHistoryLike (->) (Const ()) s s + , ChiefPilotOtherReOCRolesLike (->) (Const ()) s s + , ChiefPilotRadioLike (->) (Const ()) s s + , McNomineeMcIsCEOLike (->) (Const ()) s s + , McNomineeMcIsCRPLike (->) (Const ()) s s + , McNomineeMcNominatedLike (->) (Const ()) s s + , KeyPersonnelChiefExecutiveLike (->) (Const ()) s s + , KeyPersonnelChiefPilotLike (->) (Const ()) s s + , KeyPersonnelMcNomineeLike (->) (Const ()) s s + , OperatorCompanyLike (->) (Const ()) s s + , OperatorKeyPersonnelLike (->) (Const ()) s s + , OperatorFleetLike (->) (Const ()) s s + , ContactPersonFullNameLike (->) (Const ()) s s + , ContactPersonPositionLike (->) (Const ()) s s + , ContactPersonPhoneNumberLike (->) (Const ()) s s + , ContactPersonEmailAddressLike (->) (Const ()) s s + , PrimaryContactApplicantIsPrimaryContactLike (->) (Const ()) s s + , PrimaryContactPrimaryContactPersonLike (->) (Const ()) s s + , HistoryAnswerNoHistoryLike (->) (Const ()) s s + , HistoryAnswerHistoryDisclosedLike (->) (Const ()) s s + , PersonnelHistoryActionTakenLike (->) (Const ()) s s + , PersonnelHistoryTransportLicenceRefusedLike (->) (Const ()) s s + , PersonnelHistoryCriminalConvictionLike (->) (Const ()) s s + , PersonnelHistorySuspensionPendingLike (->) (Const ()) s s + , RegulatoryActionReocSuspendedOrCancelledLike (->) (Const ()) s s + , RegulatoryActionTypeOfActionLike (->) (Const ()) s s + , RegulatoryActionAuthorisationActionLike (->) (Const ()) s s + , RegulatoryActionActionDateLike (->) (Const ()) s s + , RegulatoryActionActionDetailsLike (->) (Const ()) s s + , RegulatoryHistoryNoRegulatoryActionLike (->) (Const ()) s s + , RegulatoryHistoryRegulatoryActionTakenLike (->) (Const ()) s s + , DeclarantFullNameLike (->) (Const ()) s s + , DeclarantRoleLike (->) (Const ()) s s + , DeclarationDeclaredByCEOLike (->) (Const ()) s s + , DeclarationDeclaredByResponsibleManagerLike (->) (Const ()) s s + , DeclarationDeclaredByAgentLike (->) (Const ()) s s + , DeclarationDeclaredByOtherLike (->) (Const ()) s s + , WrittenSignatureWrittenSignatureImageLike (->) (Const ()) s s + , WrittenSignatureWrittenSignatureFileLike (->) (Const ()) s s + , ApplicationFormPrimaryContactLike (->) (Const ()) s s + , ApplicationFormPersonnelHistoryLike (->) (Const ()) s s + , ApplicationFormRegulatoryHistoryLike (->) (Const ()) s s + ) + , ( ApplicationFormProceduresLibraryLike (->) (Const ()) s s + , ApplicationFormOtherDocumentsLike (->) (Const ()) s s + , ApplicationFormDeclarationLike (->) (Const ()) s s + , ApplicationFormSignatureLike (->) (Const ()) s s + , VersionMajorVersionLike (->) (Const ()) s s + , VersionMinorVersionLike (->) (Const ()) s s + , FirstIssueVersionLike (->) (Const ()) s s + , FirstIssueIssueDateLike (->) (Const ()) s s + , FirstIssueEffectiveLike (->) (Const ()) s s + , FirstIssuePartsLike (->) (Const ()) s s + , FirstIssueDetailsLike (->) (Const ()) s s + , RevisionVersionIncrementLike (->) (Const ()) s s + , RevisionMonthsAfterLike (->) (Const ()) s s + , RevisionEffectiveLike (->) (Const ()) s s + , RevisionPartsLike (->) (Const ()) s s + , RevisionDetailsLike (->) (Const ()) s s + , PoliciesRecencyFlightsLike (->) (Const ()) s s + , PoliciesRecencyDaysLike (->) (Const ()) s s + , PoliciesRefresherMonthsLike (->) (Const ()) s s + , PoliciesAlcoholHoursLike (->) (Const ()) s s + , PoliciesRestHoursLike (->) (Const ()) s s + , PoliciesDutyHoursLike (->) (Const ()) s s + , PoliciesInspectionMonthsLike (->) (Const ()) s s + , PoliciesInspectionHoursLike (->) (Const ()) s s + , PoliciesBatteryReserveLike (->) (Const ()) s s + , PoliciesBackupFrequencyLike (->) (Const ()) s s + , PoliciesIndependentReviewYearsLike (->) (Const ()) s s + , PoliciesCheckingMonthsLike (->) (Const ()) s s + , RiskAssessmentRiskLikelihoodLike (->) (Const ()) s s + , RiskAssessmentRiskConsequenceLike (->) (Const ()) s s + , RiskHazardLike (->) (Const ()) s s + , RiskRiskDescriptionLike (->) (Const ()) s s + , RiskExistingControlsLike (->) (Const ()) s s + , RiskInitialRiskLike (->) (Const ()) s s + , RiskAdditionalControlsLike (->) (Const ()) s s + , RiskResidualRiskLike (->) (Const ()) s s + , RiskRiskOwnerLike (->) (Const ()) s s + , RiskDateEnteredLike (->) (Const ()) s s + , RiskReviewMonthsLike (->) (Const ()) s s + , OperationsManualFirstIssueLike (->) (Const ()) s s + , OperationsManualRevisionsLike (->) (Const ()) s s + , OperationsManualServicesLike (->) (Const ()) s s + , OperationsManualPoliciesLike (->) (Const ()) s s + , OperationsManualRiskRegisterLike (->) (Const ()) s s + , OperationsManualCrewLike (->) (Const ()) s s + , OperationsManualPilotsLike (->) (Const ()) s s + , CriNomineeCriIsCEOLike (->) (Const ()) s s + , CriNomineeCriIsCRPLike (->) (Const ()) s s + , CriNomineeCriIsMCLike (->) (Const ()) s s + , CriNomineeCriNominatedLike (->) (Const ()) s s + ) + , ( RePLHoldingHoldsRePLForEachTypeLike (->) (Const ()) s s + , RePLHoldingRePLHoldingIntentLike (->) (Const ()) s s + , TeachingQualificationTeachingQualificationHeldLike (->) (Const ()) s s + , TeachingQualificationTeachingQualificationIntentLike (->) (Const ()) s s + , OperationalExperienceHasOperationalExperienceLike (->) (Const ()) s s + , OperationalExperienceOperationalExperienceIntentLike (->) (Const ()) s s + , OperationalExperienceOperationalExperienceNotApplicableLike (->) (Const ()) s s + , TrainingCourseCourseKindLike (->) (Const ()) s s + , TrainingCourseTrainingRPALike (->) (Const ()) s s + , TrainingCourseComplexitiesLike (->) (Const ()) s s + , TrainingArrangementsTheoryVenuesLike (->) (Const ()) s s + , TrainingArrangementsPracticalAreasLike (->) (Const ()) s s + , TrainingArrangementsMaxStudentsPerCourseLike (->) (Const ()) s s + , TrainingArrangementsMaxStudentsPerInstructorLike (->) (Const ()) s s + , TrainingArrangementsTakeoverLike (->) (Const ()) s s + , TrainingArrangementsTheoryLike (->) (Const ()) s s + , TrainingArrangementsExamLike (->) (Const ()) s s + , TrainingArrangementsExamPassMarkLike (->) (Const ()) s s + , TrainingArrangementsExaminerLike (->) (Const ()) s s + , TrainingArrangementsSimulatorLike (->) (Const ()) s s + , TrainingMaterialCriNomineeLike (->) (Const ()) s s + , TrainingMaterialRePLHoldingLike (->) (Const ()) s s + , TrainingMaterialTeachingQualificationLike (->) (Const ()) s s + , TrainingMaterialOperationalExperienceLike (->) (Const ()) s s + , TrainingMaterialCriOtherReOCRolesLike (->) (Const ()) s s + , TrainingMaterialTrainingCoursesLike (->) (Const ()) s s + , TrainingMaterialTrainingArrangementsLike (->) (Const ()) s s + , ReOCOperatorLike (->) (Const ()) s s + , ReOCApplicationFormLike (->) (Const ()) s s + , ReOCOperationsManualLike (->) (Const ()) s s + , ReOCMaybeTrainingMaterialLike (->) (Const ()) s s + ) + ) + +-- | Checks that a data type inherits every class of @InheritStep@. +inheritStep :: (InheritStep s) => proxy s -> () +inheritStep _ = () + +-- | The checks of inheritance of @Step@. +inheritsStep :: [()] +inheritsStep = + [ inheritField p + ] + where + p = Proxy :: Proxy Step diff --git a/src/ReOC/Data/TeachingQualification.hs b/src/ReOC/Data/TeachingQualification.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/TeachingQualification.hs @@ -0,0 +1,79 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritTeachingQualification') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @TeachingQualification'@: the teaching qualification of the chief RePL instructor (CASA Form 101-02, questions 15 and 17). +module ReOC.Data.TeachingQualification ( + TeachingQualification' (..), + TeachingQualification'Like (..), + lawNamesTeachingQualification', + TeachingQualification, + UnfilledTeachingQualification, + InheritTeachingQualification', + inheritTeachingQualification', +) where + +import Control.Lens (Choice, Optic, prism, review) +import Data.Functor.Const (Const) +import Data.Text (Text) +import ReOC.Name.TeachingQualificationHeld (TeachingQualificationHeldLike (..)) +import ReOC.Name.TeachingQualificationIntent (TeachingQualificationIntentLike (..)) +import ReOC.Primitive.FormText (FormFont (..), FormLines, FormText) + +-- | The teaching qualification of the chief RePL instructor (CASA Form 101-02, questions 15 and 17). Its valid form is @TeachingQualification@, and its unfilled form @UnfilledTeachingQualification@. +data TeachingQualification' a1 a2 + = TeachingQualificationHeld a1 + | TeachingQualificationIntent a2 + deriving (Eq, Ord, Show) + +-- | The name of the data type @TeachingQualification'@. +class TeachingQualification'Like p f x x' a1 a1' a2 a2' | x -> a1 a2 where + teachingQualification' :: + Optic p f x x' (TeachingQualification' a1 a2) (TeachingQualification' a1' a2') + +-- | Identity +instance (x' ~ TeachingQualification' a1' a2') => TeachingQualification'Like p f (TeachingQualification' a1 a2) x' a1 a1' a2 a2' where + teachingQualification' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ TeachingQualification' a1' a2) => TeachingQualificationHeldLike p f (TeachingQualification' a1 a2) x' a1 a1' where + teachingQualificationHeld = prism TeachingQualificationHeld (\case TeachingQualificationHeld x -> Right x; TeachingQualificationIntent x -> Left (TeachingQualificationIntent x)) + +-- | Prism +instance (Choice p, Applicative f, x' ~ TeachingQualification' a1 a2') => TeachingQualificationIntentLike p f (TeachingQualification' a1 a2) x' a2 a2' where + teachingQualificationIntent = prism TeachingQualificationIntent (\case TeachingQualificationHeld x -> Left (TeachingQualificationHeld x); TeachingQualificationIntent x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesTeachingQualification' == id +-} +lawNamesTeachingQualification' :: TeachingQualification' a1 a2 -> TeachingQualification' a1 a2 +lawNamesTeachingQualification' = \case + TeachingQualificationHeld x -> review teachingQualificationHeld x + TeachingQualificationIntent x -> review teachingQualificationIntent x + +-- | A valid @TeachingQualification'@. +type TeachingQualification = TeachingQualification' (FormLines 5) (FormText 'Wide 185 5) + +-- | An unfilled @TeachingQualification'@: each field holds what has been entered, if anything, to be checked by @fillTeachingQualification@. +type UnfilledTeachingQualification = TeachingQualification' (Maybe Text) (Maybe Text) + +-- | The classes that a data type holding @TeachingQualification'@ in one field, or in one or more constructors, inherits. +type InheritTeachingQualification' s a1 a2 = + ( TeachingQualification'Like (->) (Const ()) s s a1 a1 a2 a2 + , TeachingQualificationHeldLike (->) (Const ()) s s a1 a1 + , TeachingQualificationIntentLike (->) (Const ()) s s a2 a2 + ) + +-- | Checks that a data type inherits every class of @InheritTeachingQualification'@. +inheritTeachingQualification' :: (InheritTeachingQualification' s a1 a2) => proxy s -> () +inheritTeachingQualification' _ = () diff --git a/src/ReOC/Data/TheoryDelivery.hs b/src/ReOC/Data/TheoryDelivery.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/TheoryDelivery.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritTheoryDelivery) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @TheoryDelivery@: how theory lessons are delivered. +module ReOC.Data.TheoryDelivery ( + TheoryDelivery (..), + TheoryDeliveryLike (..), + lawNamesTheoryDelivery, + InheritTheoryDelivery, + inheritTheoryDelivery, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.BlendedTheory (BlendedTheoryLike (..)) +import ReOC.Name.ClassroomTheory (ClassroomTheoryLike (..)) +import ReOC.Name.OnlineTheory (OnlineTheoryLike (..)) + +-- | How theory lessons are delivered. +data TheoryDelivery + = ClassroomTheory + | BlendedTheory + | OnlineTheory + deriving (Eq, Ord, Show) + +-- | The name of the data type @TheoryDelivery@. +class TheoryDeliveryLike p f x x' where + theoryDelivery :: + Optic p f x x' TheoryDelivery TheoryDelivery + +-- | Identity +instance (x' ~ TheoryDelivery) => TheoryDeliveryLike p f TheoryDelivery x' where + theoryDelivery = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ TheoryDelivery) => ClassroomTheoryLike p f TheoryDelivery x' where + classroomTheory = prism' (\() -> ClassroomTheory) (\case ClassroomTheory -> Just (); BlendedTheory -> Nothing; OnlineTheory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ TheoryDelivery) => BlendedTheoryLike p f TheoryDelivery x' where + blendedTheory = prism' (\() -> BlendedTheory) (\case ClassroomTheory -> Nothing; BlendedTheory -> Just (); OnlineTheory -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ TheoryDelivery) => OnlineTheoryLike p f TheoryDelivery x' where + onlineTheory = prism' (\() -> OnlineTheory) (\case ClassroomTheory -> Nothing; BlendedTheory -> Nothing; OnlineTheory -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesTheoryDelivery == id +-} +lawNamesTheoryDelivery :: TheoryDelivery -> TheoryDelivery +lawNamesTheoryDelivery = \case + ClassroomTheory -> review classroomTheory () + BlendedTheory -> review blendedTheory () + OnlineTheory -> review onlineTheory () + +-- | The classes that a data type holding @TheoryDelivery@ in one field, or in one or more constructors, inherits. +type InheritTheoryDelivery s = + ( TheoryDeliveryLike (->) (Const ()) s s + , ClassroomTheoryLike (->) (Const ()) s s + , BlendedTheoryLike (->) (Const ()) s s + , OnlineTheoryLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritTheoryDelivery@. +inheritTheoryDelivery :: (InheritTheoryDelivery s) => proxy s -> () +inheritTheoryDelivery _ = () diff --git a/src/ReOC/Data/TooMany.hs b/src/ReOC/Data/TooMany.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/TooMany.hs @@ -0,0 +1,75 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritTooMany) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @TooMany@: a list field filled in with more elements than it holds, at its path: the most it holds, and the number given. +module ReOC.Data.TooMany ( + TooMany (..), + TooManyLike (..), + lawNamesTooMany, + InheritTooMany, + inheritTooMany, +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Numeric.Natural (Natural) +import ReOC.Data.Step (Step) +import ReOC.Name.GivenElements (GivenElementsLike (..)) +import ReOC.Name.MostElements (MostElementsLike (..)) +import ReOC.Name.Path (PathLike (..)) + +-- | A list field filled in with more elements than it holds, at its path: the most it holds, and the number given. +data TooMany = TooMany [Step] Natural Natural + deriving (Eq, Ord, Show) + +-- | The name of the data type @TooMany@. +class TooManyLike p f x x' where + tooMany :: + Optic p f x x' TooMany TooMany + +-- | Identity +instance (x' ~ TooMany) => TooManyLike p f TooMany x' where + tooMany = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TooMany) => PathLike p f TooMany x' where + path f (TooMany x1 x2 x3) = fmap (\x1' -> TooMany x1' x2 x3) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TooMany) => MostElementsLike p f TooMany x' where + mostElements f (TooMany x1 x2 x3) = fmap (\x2' -> TooMany x1 x2' x3) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TooMany) => GivenElementsLike p f TooMany x' where + givenElements f (TooMany x1 x2 x3) = fmap (TooMany x1 x2) (f x3) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesTooMany == id +-} +lawNamesTooMany :: TooMany -> TooMany +lawNamesTooMany s = + TooMany + (view (cloneLens path) s) + (view (cloneLens mostElements) s) + (view (cloneLens givenElements) s) + +-- | The classes that a data type holding @TooMany@ in one field, or in one or more constructors, inherits. +type InheritTooMany s = + ( TooManyLike (->) (Const ()) s s + , PathLike (->) (Const ()) s s + , MostElementsLike (->) (Const ()) s s + , GivenElementsLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritTooMany@. +inheritTooMany :: (InheritTooMany s) => proxy s -> () +inheritTooMany _ = () diff --git a/src/ReOC/Data/TrainingArrangements.hs b/src/ReOC/Data/TrainingArrangements.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/TrainingArrangements.hs @@ -0,0 +1,162 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritTrainingArrangements') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @TrainingArrangements'@: how RePL training is conducted, as the RePL training manual sets out: where theory and practical training are conducted, student numbers, the instructor’s control of the RPA, the delivery of theory and examinations, the pass mark, the examiner of flight tests, and the simulator, if one is used. +module ReOC.Data.TrainingArrangements ( + TrainingArrangements' (..), + TrainingArrangements'Like (..), + lawNamesTrainingArrangements', + TrainingArrangements, + UnfilledTrainingArrangements, + mkTrainingArrangements, + mkUnfilledTrainingArrangements, + InheritTrainingArrangements', + inheritTrainingArrangements', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.List.NonEmpty (NonEmpty) +import Data.Text (Text) +import Numeric.Natural (Natural) +import ReOC.Data.ExamDelivery (ExamDelivery) +import ReOC.Data.FlightTestExaminer (FlightTestExaminer) +import ReOC.Data.InstructorTakeover (InstructorTakeover) +import ReOC.Data.TheoryDelivery (TheoryDelivery) +import ReOC.Name.Exam (ExamLike (..)) +import ReOC.Name.ExamPassMark (ExamPassMarkLike (..)) +import ReOC.Name.Examiner (ExaminerLike (..)) +import ReOC.Name.MaxStudentsPerCourse (MaxStudentsPerCourseLike (..)) +import ReOC.Name.MaxStudentsPerInstructor (MaxStudentsPerInstructorLike (..)) +import ReOC.Name.PracticalAreas (PracticalAreasLike (..)) +import ReOC.Name.Simulator (SimulatorLike (..)) +import ReOC.Name.Takeover (TakeoverLike (..)) +import ReOC.Name.Theory (TheoryLike (..)) +import ReOC.Name.TheoryVenues (TheoryVenuesLike (..)) +import ReOC.Primitive.PassMark (PassMark) +import ReOC.Primitive.Positive (Positive) +import ReOC.Primitive.Text1 (Text1) + +-- | How RePL training is conducted, as the RePL training manual sets out: where theory and practical training are conducted, student numbers, the instructor’s control of the RPA, the delivery of theory and examinations, the pass mark, the examiner of flight tests, and the simulator, if one is used. Its valid form is @TrainingArrangements@, and its unfilled form @UnfilledTrainingArrangements@. +data TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 + deriving (Eq, Ord, Show) + +-- | The name of the data type @TrainingArrangements'@. +class TrainingArrangements'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' a9 a9' a10 a10' | x -> a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 where + trainingArrangements' :: + Optic p f x x' (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) (TrainingArrangements' a1' a2' a3' a4' a5' a6' a7' a8' a9' a10') + +-- | Identity +instance (x' ~ TrainingArrangements' a1' a2' a3' a4' a5' a6' a7' a8' a9' a10') => TrainingArrangements'Like p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' a8 a8' a9 a9' a10 a10' where + trainingArrangements' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1' a2 a3 a4 a5 a6 a7 a8 a9 a10) => TheoryVenuesLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a1 a1' where + theoryVenues f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x1' -> TrainingArrangements' x1' x2 x3 x4 x5 x6 x7 x8 x9 x10) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2' a3 a4 a5 a6 a7 a8 a9 a10) => PracticalAreasLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a2 a2' where + practicalAreas f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x2' -> TrainingArrangements' x1 x2' x3 x4 x5 x6 x7 x8 x9 x10) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2 a3' a4 a5 a6 a7 a8 a9 a10) => MaxStudentsPerCourseLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a3 a3' where + maxStudentsPerCourse f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x3' -> TrainingArrangements' x1 x2 x3' x4 x5 x6 x7 x8 x9 x10) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2 a3 a4' a5 a6 a7 a8 a9 a10) => MaxStudentsPerInstructorLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a4 a4' where + maxStudentsPerInstructor f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x4' -> TrainingArrangements' x1 x2 x3 x4' x5 x6 x7 x8 x9 x10) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2 a3 a4 a5' a6 a7 a8 a9 a10) => TakeoverLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a5 a5' where + takeover f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x5' -> TrainingArrangements' x1 x2 x3 x4 x5' x6 x7 x8 x9 x10) (f x5) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2 a3 a4 a5 a6' a7 a8 a9 a10) => TheoryLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a6 a6' where + theory f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x6' -> TrainingArrangements' x1 x2 x3 x4 x5 x6' x7 x8 x9 x10) (f x6) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2 a3 a4 a5 a6 a7' a8 a9 a10) => ExamLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a7 a7' where + exam f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x7' -> TrainingArrangements' x1 x2 x3 x4 x5 x6 x7' x8 x9 x10) (f x7) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8' a9 a10) => ExamPassMarkLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a8 a8' where + examPassMark f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x8' -> TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8' x9 x10) (f x8) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9' a10) => ExaminerLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a9 a9' where + examiner f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (\x9' -> TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9' x10) (f x9) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10') => SimulatorLike p f (TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) x' a10 a10' where + simulator f (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = fmap (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9) (f x10) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesTrainingArrangements' == id +-} +lawNamesTrainingArrangements' :: TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 -> TrainingArrangements' a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 +lawNamesTrainingArrangements' s = + TrainingArrangements' + (view (cloneLens theoryVenues) s) + (view (cloneLens practicalAreas) s) + (view (cloneLens maxStudentsPerCourse) s) + (view (cloneLens maxStudentsPerInstructor) s) + (view (cloneLens takeover) s) + (view (cloneLens theory) s) + (view (cloneLens exam) s) + (view (cloneLens examPassMark) s) + (view (cloneLens examiner) s) + (view (cloneLens simulator) s) + +-- | A valid @TrainingArrangements'@. +type TrainingArrangements = TrainingArrangements' (NonEmpty Text1) (NonEmpty Text1) Positive Positive InstructorTakeover TheoryDelivery ExamDelivery PassMark FlightTestExaminer (Maybe Text1) + +-- | An unfilled @TrainingArrangements'@: each field holds what has been entered, if anything, to be checked by @fillTrainingArrangements@. +type UnfilledTrainingArrangements = TrainingArrangements' [Text] [Text] (Maybe Natural) (Maybe Natural) (Maybe InstructorTakeover) (Maybe TheoryDelivery) (Maybe ExamDelivery) (Maybe Natural) (Maybe FlightTestExaminer) (Maybe Text) + +-- | Builds a valid @TrainingArrangements'@ with every @Maybe@ field @Nothing@ and every list (or @AtMost@) field empty. +mkTrainingArrangements :: NonEmpty Text1 -> NonEmpty Text1 -> Positive -> Positive -> InstructorTakeover -> TheoryDelivery -> ExamDelivery -> PassMark -> FlightTestExaminer -> TrainingArrangements +mkTrainingArrangements x1 x2 x3 x4 x5 x6 x7 x8 x9 = TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 Nothing + +-- | An unfilled @TrainingArrangements'@ with nothing entered. +mkUnfilledTrainingArrangements :: UnfilledTrainingArrangements +mkUnfilledTrainingArrangements = + TrainingArrangements' + [] + [] + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + Nothing + +-- | The classes that a data type holding @TrainingArrangements'@ in one field, or in one or more constructors, inherits. +type InheritTrainingArrangements' s a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = + ( TrainingArrangements'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 a6 a6 a7 a7 a8 a8 a9 a9 a10 a10 + , TheoryVenuesLike (->) (Const ()) s s a1 a1 + , PracticalAreasLike (->) (Const ()) s s a2 a2 + , MaxStudentsPerCourseLike (->) (Const ()) s s a3 a3 + , MaxStudentsPerInstructorLike (->) (Const ()) s s a4 a4 + , TakeoverLike (->) (Const ()) s s a5 a5 + , TheoryLike (->) (Const ()) s s a6 a6 + , ExamLike (->) (Const ()) s s a7 a7 + , ExamPassMarkLike (->) (Const ()) s s a8 a8 + , ExaminerLike (->) (Const ()) s s a9 a9 + , SimulatorLike (->) (Const ()) s s a10 a10 + ) + +-- | Checks that a data type inherits every class of @InheritTrainingArrangements'@. +inheritTrainingArrangements' :: (InheritTrainingArrangements' s a1 a2 a3 a4 a5 a6 a7 a8 a9 a10) => proxy s -> () +inheritTrainingArrangements' _ = () diff --git a/src/ReOC/Data/TrainingCourse.hs b/src/ReOC/Data/TrainingCourse.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/TrainingCourse.hs @@ -0,0 +1,94 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritTrainingCourse') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @TrainingCourse'@: a RePL training course (a row of CASA Form 101-02, question 29). Its category and weight class are those of its training RPA, which is listed with the operator’s RPA in both documents. +module ReOC.Data.TrainingCourse ( + TrainingCourse' (..), + TrainingCourse'Like (..), + lawNamesTrainingCourse', + TrainingCourse, + UnfilledTrainingCourse, + mkUnfilledTrainingCourse, + InheritTrainingCourse', + inheritTrainingCourse', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Data.List.NonEmpty (NonEmpty) +import ReOC.Data.Complexity (Complexity) +import ReOC.Data.CourseType (CourseType) +import ReOC.Data.OperatedType (OperatedType, UnfilledOperatedType, mkUnfilledOperatedType) +import ReOC.Name.Complexities (ComplexitiesLike (..)) +import ReOC.Name.CourseKind (CourseKindLike (..)) +import ReOC.Name.TrainingRPA (TrainingRPALike (..)) + +-- | A RePL training course (a row of CASA Form 101-02, question 29). Its category and weight class are those of its training RPA, which is listed with the operator’s RPA in both documents. Its valid form is @TrainingCourse@, and its unfilled form @UnfilledTrainingCourse@. +data TrainingCourse' a1 a2 a3 = TrainingCourse' a1 a2 a3 + deriving (Eq, Ord, Show) + +-- | The name of the data type @TrainingCourse'@. +class TrainingCourse'Like p f x x' a1 a1' a2 a2' a3 a3' | x -> a1 a2 a3 where + trainingCourse' :: + Optic p f x x' (TrainingCourse' a1 a2 a3) (TrainingCourse' a1' a2' a3') + +-- | Identity +instance (x' ~ TrainingCourse' a1' a2' a3') => TrainingCourse'Like p f (TrainingCourse' a1 a2 a3) x' a1 a1' a2 a2' a3 a3' where + trainingCourse' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingCourse' a1' a2 a3) => CourseKindLike p f (TrainingCourse' a1 a2 a3) x' a1 a1' where + courseKind f (TrainingCourse' x1 x2 x3) = fmap (\x1' -> TrainingCourse' x1' x2 x3) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingCourse' a1 a2' a3) => TrainingRPALike p f (TrainingCourse' a1 a2 a3) x' a2 a2' where + trainingRPA f (TrainingCourse' x1 x2 x3) = fmap (\x2' -> TrainingCourse' x1 x2' x3) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingCourse' a1 a2 a3') => ComplexitiesLike p f (TrainingCourse' a1 a2 a3) x' a3 a3' where + complexities f (TrainingCourse' x1 x2 x3) = fmap (TrainingCourse' x1 x2) (f x3) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesTrainingCourse' == id +-} +lawNamesTrainingCourse' :: TrainingCourse' a1 a2 a3 -> TrainingCourse' a1 a2 a3 +lawNamesTrainingCourse' s = + TrainingCourse' + (view (cloneLens courseKind) s) + (view (cloneLens trainingRPA) s) + (view (cloneLens complexities) s) + +-- | A valid @TrainingCourse'@. +type TrainingCourse = TrainingCourse' CourseType OperatedType (NonEmpty Complexity) + +-- | An unfilled @TrainingCourse'@: each field holds what has been entered, if anything, to be checked by @fillTrainingCourse@. +type UnfilledTrainingCourse = TrainingCourse' (Maybe CourseType) UnfilledOperatedType [Complexity] + +-- | An unfilled @TrainingCourse'@ with nothing entered. +mkUnfilledTrainingCourse :: UnfilledTrainingCourse +mkUnfilledTrainingCourse = + TrainingCourse' + Nothing + mkUnfilledOperatedType + [] + +-- | The classes that a data type holding @TrainingCourse'@ in one field, or in one or more constructors, inherits. +type InheritTrainingCourse' s a1 a2 a3 = + ( TrainingCourse'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 + , CourseKindLike (->) (Const ()) s s a1 a1 + , TrainingRPALike (->) (Const ()) s s a2 a2 + , ComplexitiesLike (->) (Const ()) s s a3 a3 + ) + +-- | Checks that a data type inherits every class of @InheritTrainingCourse'@. +inheritTrainingCourse' :: (InheritTrainingCourse' s a1 a2 a3) => proxy s -> () +inheritTrainingCourse' _ = () diff --git a/src/ReOC/Data/TrainingMaterial.hs b/src/ReOC/Data/TrainingMaterial.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/TrainingMaterial.hs @@ -0,0 +1,131 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritTrainingMaterial') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @TrainingMaterial'@: rePL training: the chief RePL instructor and the courses, at most 9 (CASA Form 101-02, questions 13 to 18, 29 and 30), and the arrangements of the RePL training manual. +module ReOC.Data.TrainingMaterial ( + TrainingMaterial' (..), + TrainingMaterial'Like (..), + lawNamesTrainingMaterial', + TrainingMaterial, + UnfilledTrainingMaterial, + mkUnfilledTrainingMaterial, + InheritTrainingMaterial', + inheritTrainingMaterial', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import ReOC.Data.CRINominee (CRINominee, UnfilledCRINominee) +import ReOC.Data.OperationalExperience (OperationalExperience, UnfilledOperationalExperience) +import ReOC.Data.OtherReOCRoles (OtherReOCRoles, UnfilledOtherReOCRoles) +import ReOC.Data.RePLHolding (RePLHolding, UnfilledRePLHolding) +import ReOC.Data.TeachingQualification (TeachingQualification, UnfilledTeachingQualification) +import ReOC.Data.TrainingArrangements (TrainingArrangements, UnfilledTrainingArrangements, mkUnfilledTrainingArrangements) +import ReOC.Data.TrainingCourse (TrainingCourse, UnfilledTrainingCourse) +import ReOC.Name.CriNominee (CriNomineeLike (..)) +import ReOC.Name.CriOtherReOCRoles (CriOtherReOCRolesLike (..)) +import ReOC.Name.OperationalExperience (OperationalExperienceLike (..)) +import ReOC.Name.RePLHolding (RePLHoldingLike (..)) +import ReOC.Name.TeachingQualification (TeachingQualificationLike (..)) +import ReOC.Name.TrainingArrangements (TrainingArrangementsLike (..)) +import ReOC.Name.TrainingCourses (TrainingCoursesLike (..)) +import ReOC.Primitive.Some (Some) + +-- | RePL training: the chief RePL instructor and the courses, at most 9 (CASA Form 101-02, questions 13 to 18, 29 and 30), and the arrangements of the RePL training manual. Its valid form is @TrainingMaterial@, and its unfilled form @UnfilledTrainingMaterial@. +data TrainingMaterial' a1 a2 a3 a4 a5 a6 a7 = TrainingMaterial' a1 a2 a3 a4 a5 a6 a7 + deriving (Eq, Ord, Show) + +-- | The name of the data type @TrainingMaterial'@. +class TrainingMaterial'Like p f x x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' | x -> a1 a2 a3 a4 a5 a6 a7 where + trainingMaterial' :: + Optic p f x x' (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) (TrainingMaterial' a1' a2' a3' a4' a5' a6' a7') + +-- | Identity +instance (x' ~ TrainingMaterial' a1' a2' a3' a4' a5' a6' a7') => TrainingMaterial'Like p f (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) x' a1 a1' a2 a2' a3 a3' a4 a4' a5 a5' a6 a6' a7 a7' where + trainingMaterial' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingMaterial' a1' a2 a3 a4 a5 a6 a7) => CriNomineeLike p f (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) x' a1 a1' where + criNominee f (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = fmap (\x1' -> TrainingMaterial' x1' x2 x3 x4 x5 x6 x7) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingMaterial' a1 a2' a3 a4 a5 a6 a7) => RePLHoldingLike p f (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) x' a2 a2' where + rePLHolding f (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = fmap (\x2' -> TrainingMaterial' x1 x2' x3 x4 x5 x6 x7) (f x2) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingMaterial' a1 a2 a3' a4 a5 a6 a7) => TeachingQualificationLike p f (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) x' a3 a3' where + teachingQualification f (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = fmap (\x3' -> TrainingMaterial' x1 x2 x3' x4 x5 x6 x7) (f x3) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingMaterial' a1 a2 a3 a4' a5 a6 a7) => OperationalExperienceLike p f (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) x' a4 a4' where + operationalExperience f (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = fmap (\x4' -> TrainingMaterial' x1 x2 x3 x4' x5 x6 x7) (f x4) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingMaterial' a1 a2 a3 a4 a5' a6 a7) => CriOtherReOCRolesLike p f (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) x' a5 a5' where + criOtherReOCRoles f (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = fmap (\x5' -> TrainingMaterial' x1 x2 x3 x4 x5' x6 x7) (f x5) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingMaterial' a1 a2 a3 a4 a5 a6' a7) => TrainingCoursesLike p f (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) x' a6 a6' where + trainingCourses f (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = fmap (\x6' -> TrainingMaterial' x1 x2 x3 x4 x5 x6' x7) (f x6) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ TrainingMaterial' a1 a2 a3 a4 a5 a6 a7') => TrainingArrangementsLike p f (TrainingMaterial' a1 a2 a3 a4 a5 a6 a7) x' a7 a7' where + trainingArrangements f (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = fmap (TrainingMaterial' x1 x2 x3 x4 x5 x6) (f x7) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesTrainingMaterial' == id +-} +lawNamesTrainingMaterial' :: TrainingMaterial' a1 a2 a3 a4 a5 a6 a7 -> TrainingMaterial' a1 a2 a3 a4 a5 a6 a7 +lawNamesTrainingMaterial' s = + TrainingMaterial' + (view (cloneLens criNominee) s) + (view (cloneLens rePLHolding) s) + (view (cloneLens teachingQualification) s) + (view (cloneLens operationalExperience) s) + (view (cloneLens criOtherReOCRoles) s) + (view (cloneLens trainingCourses) s) + (view (cloneLens trainingArrangements) s) + +-- | A valid @TrainingMaterial'@. +type TrainingMaterial = TrainingMaterial' CRINominee RePLHolding TeachingQualification OperationalExperience OtherReOCRoles (Some 9 TrainingCourse) TrainingArrangements + +-- | An unfilled @TrainingMaterial'@: each field holds what has been entered, if anything, to be checked by @fillTrainingMaterial@. +type UnfilledTrainingMaterial = TrainingMaterial' (Maybe UnfilledCRINominee) (Maybe UnfilledRePLHolding) (Maybe UnfilledTeachingQualification) (Maybe UnfilledOperationalExperience) (Maybe UnfilledOtherReOCRoles) [UnfilledTrainingCourse] UnfilledTrainingArrangements + +-- | An unfilled @TrainingMaterial'@ with nothing entered. +mkUnfilledTrainingMaterial :: UnfilledTrainingMaterial +mkUnfilledTrainingMaterial = + TrainingMaterial' + Nothing + Nothing + Nothing + Nothing + Nothing + [] + mkUnfilledTrainingArrangements + +-- | The classes that a data type holding @TrainingMaterial'@ in one field, or in one or more constructors, inherits. +type InheritTrainingMaterial' s a1 a2 a3 a4 a5 a6 a7 = + ( TrainingMaterial'Like (->) (Const ()) s s a1 a1 a2 a2 a3 a3 a4 a4 a5 a5 a6 a6 a7 a7 + , CriNomineeLike (->) (Const ()) s s a1 a1 + , RePLHoldingLike (->) (Const ()) s s a2 a2 + , TeachingQualificationLike (->) (Const ()) s s a3 a3 + , OperationalExperienceLike (->) (Const ()) s s a4 a4 + , CriOtherReOCRolesLike (->) (Const ()) s s a5 a5 + , TrainingCoursesLike (->) (Const ()) s s a6 a6 + , TrainingArrangementsLike (->) (Const ()) s s a7 a7 + ) + +-- | Checks that a data type inherits every class of @InheritTrainingMaterial'@. +inheritTrainingMaterial' :: (InheritTrainingMaterial' s a1 a2 a3 a4 a5 a6 a7) => proxy s -> () +inheritTrainingMaterial' _ = () diff --git a/src/ReOC/Data/Transponder.hs b/src/ReOC/Data/Transponder.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Transponder.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritTransponder) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Transponder@: whether a type of RPA is fitted with a transponder or ADS-B (out). +module ReOC.Data.Transponder ( + Transponder (..), + TransponderLike (..), + lawNamesTransponder, + InheritTransponder, + inheritTransponder, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.NoTransponder (NoTransponderLike (..)) +import ReOC.Name.TransponderFitted (TransponderFittedLike (..)) + +-- | Whether a type of RPA is fitted with a transponder or ADS-B (out). +data Transponder + = NoTransponder + | TransponderFitted + deriving (Eq, Ord, Show) + +-- | The name of the data type @Transponder@. +class TransponderLike p f x x' where + transponder :: + Optic p f x x' Transponder Transponder + +-- | Identity +instance (x' ~ Transponder) => TransponderLike p f Transponder x' where + transponder = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ Transponder) => NoTransponderLike p f Transponder x' where + noTransponder = prism' (\() -> NoTransponder) (\case NoTransponder -> Just (); TransponderFitted -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ Transponder) => TransponderFittedLike p f Transponder x' where + transponderFitted = prism' (\() -> TransponderFitted) (\case NoTransponder -> Nothing; TransponderFitted -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesTransponder == id +-} +lawNamesTransponder :: Transponder -> Transponder +lawNamesTransponder = \case + NoTransponder -> review noTransponder () + TransponderFitted -> review transponderFitted () + +-- | The classes that a data type holding @Transponder@ in one field, or in one or more constructors, inherits. +type InheritTransponder s = + ( TransponderLike (->) (Const ()) s s + , NoTransponderLike (->) (Const ()) s s + , TransponderFittedLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritTransponder@. +inheritTransponder :: (InheritTransponder s) => proxy s -> () +inheritTransponder _ = () diff --git a/src/ReOC/Data/Unfilled.hs b/src/ReOC/Data/Unfilled.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Unfilled.hs @@ -0,0 +1,60 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritUnfilled) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Unfilled@: a field that has not been filled in, at its path. +module ReOC.Data.Unfilled ( + Unfilled (..), + UnfilledLike (..), + lawNamesUnfilled, + InheritUnfilled, + inheritUnfilled, +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import ReOC.Data.Step (Step) +import ReOC.Name.Path (PathLike (..)) + +-- | A field that has not been filled in, at its path. +newtype Unfilled = Unfilled [Step] + deriving (Eq, Ord, Show) + +-- | The name of the data type @Unfilled@. +class UnfilledLike p f x x' where + unfilled :: + Optic p f x x' Unfilled Unfilled + +-- | Identity +instance (x' ~ Unfilled) => UnfilledLike p f Unfilled x' where + unfilled = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Unfilled) => PathLike p f Unfilled x' where + path f (Unfilled x1) = fmap Unfilled (f x1) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesUnfilled == id +-} +lawNamesUnfilled :: Unfilled -> Unfilled +lawNamesUnfilled s = + Unfilled + (view (cloneLens path) s) + +-- | The classes that a data type holding @Unfilled@ in one field, or in one or more constructors, inherits. +type InheritUnfilled s = + ( UnfilledLike (->) (Const ()) s s + , PathLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritUnfilled@. +inheritUnfilled :: (InheritUnfilled s) => proxy s -> () +inheritUnfilled _ = () diff --git a/src/ReOC/Data/Version.hs b/src/ReOC/Data/Version.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/Version.hs @@ -0,0 +1,83 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritVersion') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @Version'@: the version of the operations manual. +module ReOC.Data.Version ( + Version' (..), + Version'Like (..), + lawNamesVersion', + Version, + UnfilledVersion, + mkUnfilledVersion, + InheritVersion', + inheritVersion', +) where + +import Control.Lens (Optic, cloneLens, view) +import Data.Functor.Const (Const) +import Numeric.Natural (Natural) +import ReOC.Name.MajorVersion (MajorVersionLike (..)) +import ReOC.Name.MinorVersion (MinorVersionLike (..)) + +-- | The version of the operations manual. Its valid form is @Version@, and its unfilled form @UnfilledVersion@. +data Version' a1 a2 = Version' a1 a2 + deriving (Eq, Ord, Show) + +-- | The name of the data type @Version'@. +class Version'Like p f x x' a1 a1' a2 a2' | x -> a1 a2 where + version' :: + Optic p f x x' (Version' a1 a2) (Version' a1' a2') + +-- | Identity +instance (x' ~ Version' a1' a2') => Version'Like p f (Version' a1 a2) x' a1 a1' a2 a2' where + version' = id + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Version' a1' a2) => MajorVersionLike p f (Version' a1 a2) x' a1 a1' where + majorVersion f (Version' x1 x2) = fmap (\x1' -> Version' x1' x2) (f x1) + +-- | Lens +instance (p ~ (->), Functor f, x' ~ Version' a1 a2') => MinorVersionLike p f (Version' a1 a2) x' a2 a2' where + minorVersion f (Version' x1 x2) = fmap (Version' x1) (f x2) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesVersion' == id +-} +lawNamesVersion' :: Version' a1 a2 -> Version' a1 a2 +lawNamesVersion' s = + Version' + (view (cloneLens majorVersion) s) + (view (cloneLens minorVersion) s) + +-- | A valid @Version'@. +type Version = Version' Natural Natural + +-- | An unfilled @Version'@: each field holds what has been entered, if anything, to be checked by @fillVersion@. +type UnfilledVersion = Version' (Maybe Natural) (Maybe Natural) + +-- | An unfilled @Version'@ with nothing entered. +mkUnfilledVersion :: UnfilledVersion +mkUnfilledVersion = + Version' + Nothing + Nothing + +-- | The classes that a data type holding @Version'@ in one field, or in one or more constructors, inherits. +type InheritVersion' s a1 a2 = + ( Version'Like (->) (Const ()) s s a1 a1 a2 a2 + , MajorVersionLike (->) (Const ()) s s a1 a1 + , MinorVersionLike (->) (Const ()) s s a2 a2 + ) + +-- | Checks that a data type inherits every class of @InheritVersion'@. +inheritVersion' :: (InheritVersion' s a1 a2) => proxy s -> () +inheritVersion' _ = () diff --git a/src/ReOC/Data/VersionChange.hs b/src/ReOC/Data/VersionChange.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/VersionChange.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritVersionChange) have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @VersionChange@: how a revision of the operations manual changes its version: a major revision increments the major version and resets the minor version to 0. +module ReOC.Data.VersionChange ( + VersionChange (..), + VersionChangeLike (..), + lawNamesVersionChange, + InheritVersionChange, + inheritVersionChange, +) where + +import Control.Lens (Choice, Optic, prism', review) +import Data.Functor.Const (Const) +import ReOC.Name.MajorRevision (MajorRevisionLike (..)) +import ReOC.Name.MinorRevision (MinorRevisionLike (..)) + +-- | How a revision of the operations manual changes its version: a major revision increments the major version and resets the minor version to 0. +data VersionChange + = MajorRevision + | MinorRevision + deriving (Eq, Ord, Show) + +-- | The name of the data type @VersionChange@. +class VersionChangeLike p f x x' where + versionChange :: + Optic p f x x' VersionChange VersionChange + +-- | Identity +instance (x' ~ VersionChange) => VersionChangeLike p f VersionChange x' where + versionChange = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ VersionChange) => MajorRevisionLike p f VersionChange x' where + majorRevision = prism' (\() -> MajorRevision) (\case MajorRevision -> Just (); MinorRevision -> Nothing) + +-- | Prism +instance (Choice p, Applicative f, x' ~ VersionChange) => MinorRevisionLike p f VersionChange x' where + minorRevision = prism' (\() -> MinorRevision) (\case MajorRevision -> Nothing; MinorRevision -> Just ()) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesVersionChange == id +-} +lawNamesVersionChange :: VersionChange -> VersionChange +lawNamesVersionChange = \case + MajorRevision -> review majorRevision () + MinorRevision -> review minorRevision () + +-- | The classes that a data type holding @VersionChange@ in one field, or in one or more constructors, inherits. +type InheritVersionChange s = + ( VersionChangeLike (->) (Const ()) s s + , MajorRevisionLike (->) (Const ()) s s + , MinorRevisionLike (->) (Const ()) s s + ) + +-- | Checks that a data type inherits every class of @InheritVersionChange@. +inheritVersionChange :: (InheritVersionChange s) => proxy s -> () +inheritVersionChange _ = () diff --git a/src/ReOC/Data/WrittenSignature.hs b/src/ReOC/Data/WrittenSignature.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Data/WrittenSignature.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE FunctionalDependencies #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- The checks of inheritance (inheritWrittenSignature') have a constraint that their body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +-- | The data type @WrittenSignature'@: the written signature of the declarant, which a document build places in the signature box of the declaration (CASA Form 101-02, question 31): a PNG image, given by its contents or by the path of its file. +module ReOC.Data.WrittenSignature ( + WrittenSignature' (..), + WrittenSignature'Like (..), + lawNamesWrittenSignature', + WrittenSignature, + UnfilledWrittenSignature, + InheritWrittenSignature', + inheritWrittenSignature', +) where + +import Control.Lens (Choice, Optic, prism, review) +import Data.ByteString (ByteString) +import Data.Functor.Const (Const) +import ReOC.Name.WrittenSignatureFile (WrittenSignatureFileLike (..)) +import ReOC.Name.WrittenSignatureImage (WrittenSignatureImageLike (..)) + +-- | The written signature of the declarant, which a document build places in the signature box of the declaration (CASA Form 101-02, question 31): a PNG image, given by its contents or by the path of its file. Its valid form is @WrittenSignature@, and its unfilled form @UnfilledWrittenSignature@. +data WrittenSignature' a1 a2 + = WrittenSignatureImage a1 + | WrittenSignatureFile a2 + deriving (Eq, Ord, Show) + +-- | The name of the data type @WrittenSignature'@. +class WrittenSignature'Like p f x x' a1 a1' a2 a2' | x -> a1 a2 where + writtenSignature' :: + Optic p f x x' (WrittenSignature' a1 a2) (WrittenSignature' a1' a2') + +-- | Identity +instance (x' ~ WrittenSignature' a1' a2') => WrittenSignature'Like p f (WrittenSignature' a1 a2) x' a1 a1' a2 a2' where + writtenSignature' = id + +-- | Prism +instance (Choice p, Applicative f, x' ~ WrittenSignature' a1' a2) => WrittenSignatureImageLike p f (WrittenSignature' a1 a2) x' a1 a1' where + writtenSignatureImage = prism WrittenSignatureImage (\case WrittenSignatureImage x -> Right x; WrittenSignatureFile x -> Left (WrittenSignatureFile x)) + +-- | Prism +instance (Choice p, Applicative f, x' ~ WrittenSignature' a1 a2') => WrittenSignatureFileLike p f (WrittenSignature' a1 a2) x' a2 a2' where + writtenSignatureFile = prism WrittenSignatureFile (\case WrittenSignatureImage x -> Left (WrittenSignatureImage x); WrittenSignatureFile x -> Right x) + +{- | Rebuilds a value from the name of each field or constructor. + +Laws: + +> lawNamesWrittenSignature' == id +-} +lawNamesWrittenSignature' :: WrittenSignature' a1 a2 -> WrittenSignature' a1 a2 +lawNamesWrittenSignature' = \case + WrittenSignatureImage x -> review writtenSignatureImage x + WrittenSignatureFile x -> review writtenSignatureFile x + +-- | A valid @WrittenSignature'@. +type WrittenSignature = WrittenSignature' ByteString FilePath + +-- | An unfilled @WrittenSignature'@: each field holds what has been entered, if anything, to be checked by @fillWrittenSignature@. +type UnfilledWrittenSignature = WrittenSignature' (Maybe ByteString) (Maybe FilePath) + +-- | The classes that a data type holding @WrittenSignature'@ in one field, or in one or more constructors, inherits. +type InheritWrittenSignature' s a1 a2 = + ( WrittenSignature'Like (->) (Const ()) s s a1 a1 a2 a2 + , WrittenSignatureImageLike (->) (Const ()) s s a1 a1 + , WrittenSignatureFileLike (->) (Const ()) s s a2 a2 + ) + +-- | Checks that a data type inherits every class of @InheritWrittenSignature'@. +inheritWrittenSignature' :: (InheritWrittenSignature' s a1 a2) => proxy s -> () +inheritWrittenSignature' _ = () diff --git a/src/ReOC/Fill.hs b/src/ReOC/Fill.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Fill.hs @@ -0,0 +1,1136 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE LambdaCase #-} +{-# OPTIONS_GHC -Wall #-} + +{- | Filling in each form type: checking an unfilled form, and either giving the valid form or every reason that +it is not valid, each at the path of its field (@fillT@ from the whole form, @fillTAt@ from a path); and +@unfillT@, the unfilled form of a valid form, which @fillT@ gives back. +-} +module ReOC.Fill ( + fillPerson, + fillPersonAt, + unfillPerson, + fillAddress, + fillAddressAt, + unfillAddress, + fillOperationalHeadquarters, + fillOperationalHeadquartersAt, + unfillOperationalHeadquarters, + fillCompany, + fillCompanyAt, + unfillCompany, + fillFlightTermination, + fillFlightTerminationAt, + unfillFlightTermination, + fillEmergencyAction, + fillEmergencyActionAt, + unfillEmergencyAction, + fillRPAType, + fillRPATypeAt, + unfillRPAType, + fillEquipment, + fillEquipmentAt, + unfillEquipment, + fillAircraft, + fillAircraftAt, + unfillAircraft, + fillOperatedType, + fillOperatedTypeAt, + unfillOperatedType, + fillRePLOrigin, + fillRePLOriginAt, + unfillRePLOrigin, + fillOtherReOCRoles, + fillOtherReOCRolesAt, + unfillOtherReOCRoles, + fillNominee, + fillNomineeAt, + unfillNominee, + fillChiefExecutive, + fillChiefExecutiveAt, + unfillChiefExecutive, + fillCRPNominee, + fillCRPNomineeAt, + unfillCRPNominee, + fillChiefPilot, + fillChiefPilotAt, + unfillChiefPilot, + fillMCNominee, + fillMCNomineeAt, + unfillMCNominee, + fillKeyPersonnel, + fillKeyPersonnelAt, + unfillKeyPersonnel, + fillOperator, + fillOperatorAt, + unfillOperator, + fillContactPerson, + fillContactPersonAt, + unfillContactPerson, + fillPrimaryContact, + fillPrimaryContactAt, + unfillPrimaryContact, + fillHistoryAnswer, + fillHistoryAnswerAt, + unfillHistoryAnswer, + fillPersonnelHistory, + fillPersonnelHistoryAt, + unfillPersonnelHistory, + fillRegulatoryAction, + fillRegulatoryActionAt, + unfillRegulatoryAction, + fillRegulatoryHistory, + fillRegulatoryHistoryAt, + unfillRegulatoryHistory, + fillDeclarant, + fillDeclarantAt, + unfillDeclarant, + fillDeclaration, + fillDeclarationAt, + unfillDeclaration, + fillWrittenSignature, + fillWrittenSignatureAt, + unfillWrittenSignature, + fillApplicationForm, + fillApplicationFormAt, + unfillApplicationForm, + fillVersion, + fillVersionAt, + unfillVersion, + fillFirstIssue, + fillFirstIssueAt, + unfillFirstIssue, + fillRevision, + fillRevisionAt, + unfillRevision, + fillPolicies, + fillPoliciesAt, + unfillPolicies, + fillRiskAssessment, + fillRiskAssessmentAt, + unfillRiskAssessment, + fillRisk, + fillRiskAt, + unfillRisk, + fillOperationsManual, + fillOperationsManualAt, + unfillOperationsManual, + fillCRINominee, + fillCRINomineeAt, + unfillCRINominee, + fillRePLHolding, + fillRePLHoldingAt, + unfillRePLHolding, + fillTeachingQualification, + fillTeachingQualificationAt, + unfillTeachingQualification, + fillOperationalExperience, + fillOperationalExperienceAt, + unfillOperationalExperience, + fillTrainingCourse, + fillTrainingCourseAt, + unfillTrainingCourse, + fillTrainingArrangements, + fillTrainingArrangementsAt, + unfillTrainingArrangements, + fillTrainingMaterial, + fillTrainingMaterialAt, + unfillTrainingMaterial, + fillReOC, + fillReOCAt, + unfillReOC, +) where + +import Control.Lens (preview, review) +import Data.Foldable (toList) +import Data.List.NonEmpty (NonEmpty) +import Data.Validation (Validation, toEither) +import ReOC.Input +import ReOC.Model + +-- | Fills in @Person'@ from the whole form. +fillPerson :: (AsReOCError e) => UnfilledPerson -> Either (NonEmpty e) Person +fillPerson = + toEither . fillPersonAt [] + +-- | Fills in @Person'@ at a path. +fillPersonAt :: (AsReOCError e) => [Step] -> UnfilledPerson -> Validation (NonEmpty e) Person +fillPersonAt p (Person' x1 x2 x3 x4) = + Person' + <$> required (checked (preview _FormText) InvalidFormText) (at p PersonFullName) x1 + <*> required (checked (preview _ARN) InvalidARN) (at p PersonArn) x2 + <*> required (checked parsePhoneNumber InvalidPhoneNumber) (at p PersonPhoneNumber) x3 + <*> required (checked (preview _EmailAddress) InvalidEmailAddress) (at p PersonEmailAddress) x4 + +-- | The unfilled form of a valid @Person'@. +unfillPerson :: Person -> UnfilledPerson +unfillPerson (Person' x1 x2 x3 x4) = + Person' + (Just (review _FormText x1)) + (Just (review _ARN x2)) + (Just (review _PhoneNumber x3)) + (Just (review _EmailAddress x4)) + +-- | Fills in @Address'@ from the whole form. +fillAddress :: (AsReOCError e) => UnfilledAddress -> Either (NonEmpty e) Address +fillAddress = + toEither . fillAddressAt [] + +-- | Fills in @Address'@ at a path. +fillAddressAt :: (AsReOCError e) => [Step] -> UnfilledAddress -> Validation (NonEmpty e) Address +fillAddressAt p (Address' x1 x2 x3 x4) = + Address' + <$> nonEmptyElements (checked (preview _Text1) InvalidText1) (at p AddressStreetAddress) x1 + <*> required (checked (preview _Text1) InvalidText1) (at p AddressSuburb) x2 + <*> required accepted (at p AddressStateOrTerritory) x3 + <*> required (checked (preview _Postcode) InvalidPostcode) (at p AddressPostcode) x4 + +-- | The unfilled form of a valid @Address'@. +unfillAddress :: Address -> UnfilledAddress +unfillAddress (Address' x1 x2 x3 x4) = + Address' + (map (review _Text1) (toList x1)) + (Just (review _Text1 x2)) + (Just x3) + (Just (review _Postcode x4)) + +-- | Fills in @OperationalHeadquarters'@ from the whole form. +fillOperationalHeadquarters :: (AsReOCError e) => UnfilledOperationalHeadquarters -> Either (NonEmpty e) OperationalHeadquarters +fillOperationalHeadquarters = + toEither . fillOperationalHeadquartersAt [] + +-- | Fills in @OperationalHeadquarters'@ at a path. +fillOperationalHeadquartersAt :: (AsReOCError e) => [Step] -> UnfilledOperationalHeadquarters -> Validation (NonEmpty e) OperationalHeadquarters +fillOperationalHeadquartersAt p = \case + AtRegisteredOffice -> pure AtRegisteredOffice + OperationalHeadquartersAddress x -> OperationalHeadquartersAddress <$> fillAddressAt (at p OperationalHeadquartersOperationalHeadquartersAddress) x + +-- | The unfilled form of a valid @OperationalHeadquarters'@. +unfillOperationalHeadquarters :: OperationalHeadquarters -> UnfilledOperationalHeadquarters +unfillOperationalHeadquarters = \case + AtRegisteredOffice -> AtRegisteredOffice + OperationalHeadquartersAddress x -> OperationalHeadquartersAddress (unfillAddress x) + +-- | Fills in @Company'@ from the whole form. +fillCompany :: (AsReOCError e) => UnfilledCompany -> Either (NonEmpty e) Company +fillCompany = + toEither . fillCompanyAt [] + +-- | Fills in @Company'@ at a path. +fillCompanyAt :: (AsReOCError e) => [Step] -> UnfilledCompany -> Validation (NonEmpty e) Company +fillCompanyAt p (Company' x1 x2 x3 x4 x5 x6 x7 x8) = + Company' + <$> required (checked (preview _FormText) InvalidFormText) (at p CompanyCompanyName) x1 + <*> required (checked parseABN InvalidABN) (at p CompanyAbn) x2 + <*> required (checked (preview _ARN) InvalidARN) (at p CompanyArn) x3 + <*> fillAddressAt (at p CompanyRegisteredOffice) x4 + <*> required fillOperationalHeadquartersAt (at p CompanyOperationalHeadquarters) x5 + <*> required (checked parsePhoneNumber InvalidPhoneNumber) (at p CompanyPhoneNumber) x6 + <*> required (checked (preview _EmailAddress) InvalidEmailAddress) (at p CompanyEmailAddress) x7 + <*> optional (checked (preview _FormText) InvalidFormText) (at p CompanyBusinessName) x8 + +-- | The unfilled form of a valid @Company'@. +unfillCompany :: Company -> UnfilledCompany +unfillCompany (Company' x1 x2 x3 x4 x5 x6 x7 x8) = + Company' + (Just (review _FormText x1)) + (Just (review _ABN x2)) + (Just (review _ARN x3)) + (unfillAddress x4) + (Just (unfillOperationalHeadquarters x5)) + (Just (review _PhoneNumber x6)) + (Just (review _EmailAddress x7)) + (fmap (review _FormText) x8) + +-- | Fills in @FlightTermination'@ from the whole form. +fillFlightTermination :: (AsReOCError e) => UnfilledFlightTermination -> Either (NonEmpty e) FlightTermination +fillFlightTermination = + toEither . fillFlightTerminationAt [] + +-- | Fills in @FlightTermination'@ at a path. +fillFlightTerminationAt :: (AsReOCError e) => [Step] -> UnfilledFlightTermination -> Validation (NonEmpty e) FlightTermination +fillFlightTerminationAt p = \case + NoFlightTerminationSystem -> pure NoFlightTerminationSystem + FlightTerminationSystem x -> FlightTerminationSystem <$> required (checked (preview _Text1) InvalidText1) (at p FlightTerminationFlightTerminationSystem) x + +-- | The unfilled form of a valid @FlightTermination'@. +unfillFlightTermination :: FlightTermination -> UnfilledFlightTermination +unfillFlightTermination = \case + NoFlightTerminationSystem -> NoFlightTerminationSystem + FlightTerminationSystem x -> FlightTerminationSystem (Just (review _Text1 x)) + +-- | Fills in @EmergencyAction'@ from the whole form. +fillEmergencyAction :: (AsReOCError e) => UnfilledEmergencyAction -> Either (NonEmpty e) EmergencyAction +fillEmergencyAction = + toEither . fillEmergencyActionAt [] + +-- | Fills in @EmergencyAction'@ at a path. +fillEmergencyActionAt :: (AsReOCError e) => [Step] -> UnfilledEmergencyAction -> Validation (NonEmpty e) EmergencyAction +fillEmergencyActionAt p (EmergencyAction' x1 x2 x3) = + EmergencyAction' + <$> required (checked (preview _Text1) InvalidText1) (at p EmergencyActionSituation) x1 + <*> required (checked (preview _Text1) InvalidText1) (at p EmergencyActionResponse) x2 + <*> elements (checked (preview _Text1) InvalidText1) (at p EmergencyActionActionSteps) x3 + +-- | The unfilled form of a valid @EmergencyAction'@. +unfillEmergencyAction :: EmergencyAction -> UnfilledEmergencyAction +unfillEmergencyAction (EmergencyAction' x1 x2 x3) = + EmergencyAction' + (Just (review _Text1 x1)) + (Just (review _Text1 x2)) + (fmap (review _Text1) x3) + +-- | Fills in @RPAType'@ from the whole form. +fillRPAType :: (AsReOCError e) => UnfilledRPAType -> Either (NonEmpty e) RPAType +fillRPAType = + toEither . fillRPATypeAt [] + +-- | Fills in @RPAType'@ at a path. +fillRPATypeAt :: (AsReOCError e) => [Step] -> UnfilledRPAType -> Validation (NonEmpty e) RPAType +fillRPATypeAt p (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = + RPAType' + <$> required (checked (preview _Text1) InvalidText1) (at p RPATypeRpaMake) x1 + <*> required (checked (preview _Text1) InvalidText1) (at p RPATypeRpaModel) x2 + <*> required (checked (preview _FormText) InvalidFormText) (at p RPATypeShortName) x3 + <*> required accepted (at p RPATypeCategory) x4 + <*> required (checked (preview _GrossWeight) InvalidGrossWeight) (at p RPATypeMaximumGrossWeight) x5 + <*> required (checked (preview _Text1) InvalidText1) (at p RPATypeUserManual) x6 + <*> required accepted (at p RPATypeTransponderCarriage) x7 + <*> required fillFlightTerminationAt (at p RPATypeFlightTermination) x8 + <*> nonEmptyElements (checked (preview _Text1) InvalidText1) (at p RPATypeInspectionItems) x9 + <*> elements (checked (preview _Text1) InvalidText1) (at p RPATypeBeforeFlight) x10 + <*> optional (checked (preview _Text1) InvalidText1) (at p RPATypeBatteryWarnings) x11 + <*> elements fillEmergencyActionAt (at p RPATypeEmergencyActions) x12 + +-- | The unfilled form of a valid @RPAType'@. +unfillRPAType :: RPAType -> UnfilledRPAType +unfillRPAType (RPAType' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = + RPAType' + (Just (review _Text1 x1)) + (Just (review _Text1 x2)) + (Just (review _FormText x3)) + (Just x4) + (Just (review _GrossWeight x5)) + (Just (review _Text1 x6)) + (Just x7) + (Just (unfillFlightTermination x8)) + (map (review _Text1) (toList x9)) + (fmap (review _Text1) x10) + (fmap (review _Text1) x11) + (fmap unfillEmergencyAction x12) + +-- | Fills in @Equipment'@ from the whole form. +fillEquipment :: (AsReOCError e) => UnfilledEquipment -> Either (NonEmpty e) Equipment +fillEquipment = + toEither . fillEquipmentAt [] + +-- | Fills in @Equipment'@ at a path. +fillEquipmentAt :: (AsReOCError e) => [Step] -> UnfilledEquipment -> Validation (NonEmpty e) Equipment +fillEquipmentAt p (Equipment' x1 x2) = + Equipment' + <$> required (checked (preview _Text1) InvalidText1) (at p EquipmentEquipmentDescription) x1 + <*> required (checked (preview _Text1) InvalidText1) (at p EquipmentSerialNumber) x2 + +-- | The unfilled form of a valid @Equipment'@. +unfillEquipment :: Equipment -> UnfilledEquipment +unfillEquipment (Equipment' x1 x2) = + Equipment' + (Just (review _Text1 x1)) + (Just (review _Text1 x2)) + +-- | Fills in @Aircraft'@ from the whole form. +fillAircraft :: (AsReOCError e) => UnfilledAircraft -> Either (NonEmpty e) Aircraft +fillAircraft = + toEither . fillAircraftAt [] + +-- | Fills in @Aircraft'@ at a path. +fillAircraftAt :: (AsReOCError e) => [Step] -> UnfilledAircraft -> Validation (NonEmpty e) Aircraft +fillAircraftAt p (Aircraft' x1 x2) = + Aircraft' + <$> required (checked (preview _Text1) InvalidText1) (at p AircraftSerialNumber) x1 + <*> elements fillEquipmentAt (at p AircraftAssociatedEquipment) x2 + +-- | The unfilled form of a valid @Aircraft'@. +unfillAircraft :: Aircraft -> UnfilledAircraft +unfillAircraft (Aircraft' x1 x2) = + Aircraft' + (Just (review _Text1 x1)) + (fmap unfillEquipment x2) + +-- | Fills in @OperatedType'@ from the whole form. +fillOperatedType :: (AsReOCError e) => UnfilledOperatedType -> Either (NonEmpty e) OperatedType +fillOperatedType = + toEither . fillOperatedTypeAt [] + +-- | Fills in @OperatedType'@ at a path. +fillOperatedTypeAt :: (AsReOCError e) => [Step] -> UnfilledOperatedType -> Validation (NonEmpty e) OperatedType +fillOperatedTypeAt p (OperatedType' x1 x2) = + OperatedType' + <$> fillRPATypeAt (at p OperatedTypeRpaType) x1 + <*> nonEmptyElements fillAircraftAt (at p OperatedTypeAirframes) x2 + +-- | The unfilled form of a valid @OperatedType'@. +unfillOperatedType :: OperatedType -> UnfilledOperatedType +unfillOperatedType (OperatedType' x1 x2) = + OperatedType' + (unfillRPAType x1) + (map unfillAircraft (toList x2)) + +-- | Fills in @RePLOrigin'@ from the whole form. +fillRePLOrigin :: (AsReOCError e) => UnfilledRePLOrigin -> Either (NonEmpty e) RePLOrigin +fillRePLOrigin = + toEither . fillRePLOriginAt [] + +-- | Fills in @RePLOrigin'@ at a path. +fillRePLOriginAt :: (AsReOCError e) => [Step] -> UnfilledRePLOrigin -> Validation (NonEmpty e) RePLOrigin +fillRePLOriginAt p = \case + PPLTheory -> pure PPLTheory + RePLTraining x -> RePLTraining <$> required (checked (preview _FormText) InvalidFormText) (at p RePLOriginRePLTrainingOrganisation) x + +-- | The unfilled form of a valid @RePLOrigin'@. +unfillRePLOrigin :: RePLOrigin -> UnfilledRePLOrigin +unfillRePLOrigin = \case + PPLTheory -> PPLTheory + RePLTraining x -> RePLTraining (Just (review _FormText x)) + +-- | Fills in @OtherReOCRoles'@ from the whole form. +fillOtherReOCRoles :: (AsReOCError e) => UnfilledOtherReOCRoles -> Either (NonEmpty e) OtherReOCRoles +fillOtherReOCRoles = + toEither . fillOtherReOCRolesAt [] + +-- | Fills in @OtherReOCRoles'@ at a path. +fillOtherReOCRolesAt :: (AsReOCError e) => [Step] -> UnfilledOtherReOCRoles -> Validation (NonEmpty e) OtherReOCRoles +fillOtherReOCRolesAt p = \case + NoOtherReOCRoles -> pure NoOtherReOCRoles + OtherReOCRolesHeld x -> OtherReOCRolesHeld <$> required (checked (preview _FormText) InvalidFormText) (at p OtherReOCRolesOtherReOCRolesHeld) x + +-- | The unfilled form of a valid @OtherReOCRoles'@. +unfillOtherReOCRoles :: OtherReOCRoles -> UnfilledOtherReOCRoles +unfillOtherReOCRoles = \case + NoOtherReOCRoles -> NoOtherReOCRoles + OtherReOCRolesHeld x -> OtherReOCRolesHeld (Just (review _FormText x)) + +-- | Fills in @Nominee'@ from the whole form. +fillNominee :: (AsReOCError e) => UnfilledNominee -> Either (NonEmpty e) Nominee +fillNominee = + toEither . fillNomineeAt [] + +-- | Fills in @Nominee'@ at a path. +fillNomineeAt :: (AsReOCError e) => [Step] -> UnfilledNominee -> Validation (NonEmpty e) Nominee +fillNomineeAt p (Nominee' x1 x2 x3) = + Nominee' + <$> fillPersonAt (at p NomineePerson) x1 + <*> elements (checked (preview _Text1) InvalidText1) (at p NomineeOtherQualifications) x2 + <*> required (checked (preview _Text1) InvalidText1) (at p NomineeAviationExperience) x3 + +-- | The unfilled form of a valid @Nominee'@. +unfillNominee :: Nominee -> UnfilledNominee +unfillNominee (Nominee' x1 x2 x3) = + Nominee' + (unfillPerson x1) + (fmap (review _Text1) x2) + (Just (review _Text1 x3)) + +-- | Fills in @ChiefExecutive'@ from the whole form. +fillChiefExecutive :: (AsReOCError e) => UnfilledChiefExecutive -> Either (NonEmpty e) ChiefExecutive +fillChiefExecutive = + toEither . fillChiefExecutiveAt [] + +-- | Fills in @ChiefExecutive'@ at a path. +fillChiefExecutiveAt :: (AsReOCError e) => [Step] -> UnfilledChiefExecutive -> Validation (NonEmpty e) ChiefExecutive +fillChiefExecutiveAt p (ChiefExecutive' x1 x2 x3) = + ChiefExecutive' + <$> fillNomineeAt (at p ChiefExecutiveNominee) x1 + <*> required accepted (at p ChiefExecutiveDirectorStatus) x2 + <*> optional (checked (preview _FormText) InvalidFormText) (at p ChiefExecutiveManagementExperience) x3 + +-- | The unfilled form of a valid @ChiefExecutive'@. +unfillChiefExecutive :: ChiefExecutive -> UnfilledChiefExecutive +unfillChiefExecutive (ChiefExecutive' x1 x2 x3) = + ChiefExecutive' + (unfillNominee x1) + (Just x2) + (fmap (review _FormText) x3) + +-- | Fills in @CRPNominee'@ from the whole form. +fillCRPNominee :: (AsReOCError e) => UnfilledCRPNominee -> Either (NonEmpty e) CRPNominee +fillCRPNominee = + toEither . fillCRPNomineeAt [] + +-- | Fills in @CRPNominee'@ at a path. +fillCRPNomineeAt :: (AsReOCError e) => [Step] -> UnfilledCRPNominee -> Validation (NonEmpty e) CRPNominee +fillCRPNomineeAt p = \case + CRPIsCEO -> pure CRPIsCEO + CRPNominated x -> CRPNominated <$> fillNomineeAt (at p CRPNomineeCrpNominated) x + +-- | The unfilled form of a valid @CRPNominee'@. +unfillCRPNominee :: CRPNominee -> UnfilledCRPNominee +unfillCRPNominee = \case + CRPIsCEO -> CRPIsCEO + CRPNominated x -> CRPNominated (unfillNominee x) + +-- | Fills in @ChiefPilot'@ from the whole form. +fillChiefPilot :: (AsReOCError e) => UnfilledChiefPilot -> Either (NonEmpty e) ChiefPilot +fillChiefPilot = + toEither . fillChiefPilotAt [] + +-- | Fills in @ChiefPilot'@ at a path. +fillChiefPilotAt :: (AsReOCError e) => [Step] -> UnfilledChiefPilot -> Validation (NonEmpty e) ChiefPilot +fillChiefPilotAt p (ChiefPilot' x1 x2 x3 x4 x5) = + ChiefPilot' + <$> required fillCRPNomineeAt (at p ChiefPilotCrpNominee) x1 + <*> required fillRePLOriginAt (at p ChiefPilotRePLOrigin) x2 + <*> required (checked (preview _FormText) InvalidFormText) (at p ChiefPilotRpaHistory) x3 + <*> required fillOtherReOCRolesAt (at p ChiefPilotOtherReOCRoles) x4 + <*> required accepted (at p ChiefPilotRadio) x5 + +-- | The unfilled form of a valid @ChiefPilot'@. +unfillChiefPilot :: ChiefPilot -> UnfilledChiefPilot +unfillChiefPilot (ChiefPilot' x1 x2 x3 x4 x5) = + ChiefPilot' + (Just (unfillCRPNominee x1)) + (Just (unfillRePLOrigin x2)) + (Just (review _FormText x3)) + (Just (unfillOtherReOCRoles x4)) + (Just x5) + +-- | Fills in @MCNominee'@ from the whole form. +fillMCNominee :: (AsReOCError e) => UnfilledMCNominee -> Either (NonEmpty e) MCNominee +fillMCNominee = + toEither . fillMCNomineeAt [] + +-- | Fills in @MCNominee'@ at a path. +fillMCNomineeAt :: (AsReOCError e) => [Step] -> UnfilledMCNominee -> Validation (NonEmpty e) MCNominee +fillMCNomineeAt p = \case + MCIsCEO -> pure MCIsCEO + MCIsCRP -> pure MCIsCRP + MCNominated x -> MCNominated <$> fillNomineeAt (at p MCNomineeMcNominated) x + +-- | The unfilled form of a valid @MCNominee'@. +unfillMCNominee :: MCNominee -> UnfilledMCNominee +unfillMCNominee = \case + MCIsCEO -> MCIsCEO + MCIsCRP -> MCIsCRP + MCNominated x -> MCNominated (unfillNominee x) + +-- | Fills in @KeyPersonnel'@ from the whole form. +fillKeyPersonnel :: (AsReOCError e) => UnfilledKeyPersonnel -> Either (NonEmpty e) KeyPersonnel +fillKeyPersonnel = + toEither . fillKeyPersonnelAt [] + +-- | Fills in @KeyPersonnel'@ at a path. +fillKeyPersonnelAt :: (AsReOCError e) => [Step] -> UnfilledKeyPersonnel -> Validation (NonEmpty e) KeyPersonnel +fillKeyPersonnelAt p (KeyPersonnel' x1 x2 x3) = + KeyPersonnel' + <$> fillChiefExecutiveAt (at p KeyPersonnelChiefExecutive) x1 + <*> fillChiefPilotAt (at p KeyPersonnelChiefPilot) x2 + <*> required fillMCNomineeAt (at p KeyPersonnelMcNominee) x3 + +-- | The unfilled form of a valid @KeyPersonnel'@. +unfillKeyPersonnel :: KeyPersonnel -> UnfilledKeyPersonnel +unfillKeyPersonnel (KeyPersonnel' x1 x2 x3) = + KeyPersonnel' + (unfillChiefExecutive x1) + (unfillChiefPilot x2) + (Just (unfillMCNominee x3)) + +-- | Fills in @Operator'@ from the whole form. +fillOperator :: (AsReOCError e) => UnfilledOperator -> Either (NonEmpty e) Operator +fillOperator = + toEither . fillOperatorAt [] + +-- | Fills in @Operator'@ at a path. +fillOperatorAt :: (AsReOCError e) => [Step] -> UnfilledOperator -> Validation (NonEmpty e) Operator +fillOperatorAt p (Operator' x1 x2 x3) = + Operator' + <$> fillCompanyAt (at p OperatorCompany) x1 + <*> fillKeyPersonnelAt (at p OperatorKeyPersonnel) x2 + <*> someElements fillOperatedTypeAt (at p OperatorFleet) x3 + +-- | The unfilled form of a valid @Operator'@. +unfillOperator :: Operator -> UnfilledOperator +unfillOperator (Operator' x1 x2 x3) = + Operator' + (unfillCompany x1) + (unfillKeyPersonnel x2) + (map unfillOperatedType (toList (someNonEmpty x3))) + +-- | Fills in @ContactPerson'@ from the whole form. +fillContactPerson :: (AsReOCError e) => UnfilledContactPerson -> Either (NonEmpty e) ContactPerson +fillContactPerson = + toEither . fillContactPersonAt [] + +-- | Fills in @ContactPerson'@ at a path. +fillContactPersonAt :: (AsReOCError e) => [Step] -> UnfilledContactPerson -> Validation (NonEmpty e) ContactPerson +fillContactPersonAt p (ContactPerson' x1 x2 x3 x4) = + ContactPerson' + <$> required (checked (preview _FormText) InvalidFormText) (at p ContactPersonFullName) x1 + <*> required (checked (preview _FormText) InvalidFormText) (at p ContactPersonPosition) x2 + <*> required (checked parsePhoneNumber InvalidPhoneNumber) (at p ContactPersonPhoneNumber) x3 + <*> required (checked (preview _EmailAddress) InvalidEmailAddress) (at p ContactPersonEmailAddress) x4 + +-- | The unfilled form of a valid @ContactPerson'@. +unfillContactPerson :: ContactPerson -> UnfilledContactPerson +unfillContactPerson (ContactPerson' x1 x2 x3 x4) = + ContactPerson' + (Just (review _FormText x1)) + (Just (review _FormText x2)) + (Just (review _PhoneNumber x3)) + (Just (review _EmailAddress x4)) + +-- | Fills in @PrimaryContact'@ from the whole form. +fillPrimaryContact :: (AsReOCError e) => UnfilledPrimaryContact -> Either (NonEmpty e) PrimaryContact +fillPrimaryContact = + toEither . fillPrimaryContactAt [] + +-- | Fills in @PrimaryContact'@ at a path. +fillPrimaryContactAt :: (AsReOCError e) => [Step] -> UnfilledPrimaryContact -> Validation (NonEmpty e) PrimaryContact +fillPrimaryContactAt p = \case + ApplicantIsPrimaryContact -> pure ApplicantIsPrimaryContact + PrimaryContactPerson x -> PrimaryContactPerson <$> fillContactPersonAt (at p PrimaryContactPrimaryContactPerson) x + +-- | The unfilled form of a valid @PrimaryContact'@. +unfillPrimaryContact :: PrimaryContact -> UnfilledPrimaryContact +unfillPrimaryContact = \case + ApplicantIsPrimaryContact -> ApplicantIsPrimaryContact + PrimaryContactPerson x -> PrimaryContactPerson (unfillContactPerson x) + +-- | Fills in @HistoryAnswer'@ from the whole form. +fillHistoryAnswer :: (AsReOCError e) => UnfilledHistoryAnswer -> Either (NonEmpty e) HistoryAnswer +fillHistoryAnswer = + toEither . fillHistoryAnswerAt [] + +-- | Fills in @HistoryAnswer'@ at a path. +fillHistoryAnswerAt :: (AsReOCError e) => [Step] -> UnfilledHistoryAnswer -> Validation (NonEmpty e) HistoryAnswer +fillHistoryAnswerAt p = \case + NoHistory -> pure NoHistory + HistoryDisclosed x -> HistoryDisclosed <$> required (checked (preview _FormText) InvalidFormText) (at p HistoryAnswerHistoryDisclosed) x + +-- | The unfilled form of a valid @HistoryAnswer'@. +unfillHistoryAnswer :: HistoryAnswer -> UnfilledHistoryAnswer +unfillHistoryAnswer = \case + NoHistory -> NoHistory + HistoryDisclosed x -> HistoryDisclosed (Just (review _FormText x)) + +-- | Fills in @PersonnelHistory'@ from the whole form. +fillPersonnelHistory :: (AsReOCError e) => UnfilledPersonnelHistory -> Either (NonEmpty e) PersonnelHistory +fillPersonnelHistory = + toEither . fillPersonnelHistoryAt [] + +-- | Fills in @PersonnelHistory'@ at a path. +fillPersonnelHistoryAt :: (AsReOCError e) => [Step] -> UnfilledPersonnelHistory -> Validation (NonEmpty e) PersonnelHistory +fillPersonnelHistoryAt p (PersonnelHistory' x1 x2 x3 x4) = + PersonnelHistory' + <$> required fillHistoryAnswerAt (at p PersonnelHistoryActionTaken) x1 + <*> required fillHistoryAnswerAt (at p PersonnelHistoryTransportLicenceRefused) x2 + <*> required fillHistoryAnswerAt (at p PersonnelHistoryCriminalConviction) x3 + <*> required fillHistoryAnswerAt (at p PersonnelHistorySuspensionPending) x4 + +-- | The unfilled form of a valid @PersonnelHistory'@. +unfillPersonnelHistory :: PersonnelHistory -> UnfilledPersonnelHistory +unfillPersonnelHistory (PersonnelHistory' x1 x2 x3 x4) = + PersonnelHistory' + (Just (unfillHistoryAnswer x1)) + (Just (unfillHistoryAnswer x2)) + (Just (unfillHistoryAnswer x3)) + (Just (unfillHistoryAnswer x4)) + +-- | Fills in @RegulatoryAction'@ from the whole form. +fillRegulatoryAction :: (AsReOCError e) => UnfilledRegulatoryAction -> Either (NonEmpty e) RegulatoryAction +fillRegulatoryAction = + toEither . fillRegulatoryActionAt [] + +-- | Fills in @RegulatoryAction'@ at a path. +fillRegulatoryActionAt :: (AsReOCError e) => [Step] -> UnfilledRegulatoryAction -> Validation (NonEmpty e) RegulatoryAction +fillRegulatoryActionAt p (RegulatoryAction' x1 x2 x3 x4 x5) = + RegulatoryAction' + <$> required accepted (at p RegulatoryActionReocSuspendedOrCancelled) x1 + <*> required (checked (preview _FormText) InvalidFormText) (at p RegulatoryActionTypeOfAction) x2 + <*> required (checked (preview _FormText) InvalidFormText) (at p RegulatoryActionAuthorisationAction) x3 + <*> required accepted (at p RegulatoryActionActionDate) x4 + <*> required (checked (preview _FormText) InvalidFormText) (at p RegulatoryActionActionDetails) x5 + +-- | The unfilled form of a valid @RegulatoryAction'@. +unfillRegulatoryAction :: RegulatoryAction -> UnfilledRegulatoryAction +unfillRegulatoryAction (RegulatoryAction' x1 x2 x3 x4 x5) = + RegulatoryAction' + (Just x1) + (Just (review _FormText x2)) + (Just (review _FormText x3)) + (Just x4) + (Just (review _FormText x5)) + +-- | Fills in @RegulatoryHistory'@ from the whole form. +fillRegulatoryHistory :: (AsReOCError e) => UnfilledRegulatoryHistory -> Either (NonEmpty e) RegulatoryHistory +fillRegulatoryHistory = + toEither . fillRegulatoryHistoryAt [] + +-- | Fills in @RegulatoryHistory'@ at a path. +fillRegulatoryHistoryAt :: (AsReOCError e) => [Step] -> UnfilledRegulatoryHistory -> Validation (NonEmpty e) RegulatoryHistory +fillRegulatoryHistoryAt p = \case + NoRegulatoryAction -> pure NoRegulatoryAction + RegulatoryActionTaken x -> RegulatoryActionTaken <$> fillRegulatoryActionAt (at p RegulatoryHistoryRegulatoryActionTaken) x + +-- | The unfilled form of a valid @RegulatoryHistory'@. +unfillRegulatoryHistory :: RegulatoryHistory -> UnfilledRegulatoryHistory +unfillRegulatoryHistory = \case + NoRegulatoryAction -> NoRegulatoryAction + RegulatoryActionTaken x -> RegulatoryActionTaken (unfillRegulatoryAction x) + +-- | Fills in @Declarant'@ from the whole form. +fillDeclarant :: (AsReOCError e) => UnfilledDeclarant -> Either (NonEmpty e) Declarant +fillDeclarant = + toEither . fillDeclarantAt [] + +-- | Fills in @Declarant'@ at a path. +fillDeclarantAt :: (AsReOCError e) => [Step] -> UnfilledDeclarant -> Validation (NonEmpty e) Declarant +fillDeclarantAt p (Declarant' x1 x2) = + Declarant' + <$> required (checked (preview _FormText) InvalidFormText) (at p DeclarantFullName) x1 + <*> required (checked (preview _FormText) InvalidFormText) (at p DeclarantRole) x2 + +-- | The unfilled form of a valid @Declarant'@. +unfillDeclarant :: Declarant -> UnfilledDeclarant +unfillDeclarant (Declarant' x1 x2) = + Declarant' + (Just (review _FormText x1)) + (Just (review _FormText x2)) + +-- | Fills in @Declaration'@ from the whole form. +fillDeclaration :: (AsReOCError e) => UnfilledDeclaration -> Either (NonEmpty e) Declaration +fillDeclaration = + toEither . fillDeclarationAt [] + +-- | Fills in @Declaration'@ at a path. +fillDeclarationAt :: (AsReOCError e) => [Step] -> UnfilledDeclaration -> Validation (NonEmpty e) Declaration +fillDeclarationAt p = \case + DeclaredByCEO -> pure DeclaredByCEO + DeclaredByResponsibleManager x -> DeclaredByResponsibleManager <$> required (checked (preview _FormText) InvalidFormText) (at p DeclarationDeclaredByResponsibleManager) x + DeclaredByAgent x -> DeclaredByAgent <$> required (checked (preview _FormText) InvalidFormText) (at p DeclarationDeclaredByAgent) x + DeclaredByOther x -> DeclaredByOther <$> fillDeclarantAt (at p DeclarationDeclaredByOther) x + +-- | The unfilled form of a valid @Declaration'@. +unfillDeclaration :: Declaration -> UnfilledDeclaration +unfillDeclaration = \case + DeclaredByCEO -> DeclaredByCEO + DeclaredByResponsibleManager x -> DeclaredByResponsibleManager (Just (review _FormText x)) + DeclaredByAgent x -> DeclaredByAgent (Just (review _FormText x)) + DeclaredByOther x -> DeclaredByOther (unfillDeclarant x) + +-- | Fills in @WrittenSignature'@ from the whole form. +fillWrittenSignature :: (AsReOCError e) => UnfilledWrittenSignature -> Either (NonEmpty e) WrittenSignature +fillWrittenSignature = + toEither . fillWrittenSignatureAt [] + +-- | Fills in @WrittenSignature'@ at a path. +fillWrittenSignatureAt :: (AsReOCError e) => [Step] -> UnfilledWrittenSignature -> Validation (NonEmpty e) WrittenSignature +fillWrittenSignatureAt p = \case + WrittenSignatureImage x -> WrittenSignatureImage <$> required accepted (at p WrittenSignatureWrittenSignatureImage) x + WrittenSignatureFile x -> WrittenSignatureFile <$> required accepted (at p WrittenSignatureWrittenSignatureFile) x + +-- | The unfilled form of a valid @WrittenSignature'@. +unfillWrittenSignature :: WrittenSignature -> UnfilledWrittenSignature +unfillWrittenSignature = \case + WrittenSignatureImage x -> WrittenSignatureImage (Just x) + WrittenSignatureFile x -> WrittenSignatureFile (Just x) + +-- | Fills in @ApplicationForm'@ from the whole form. +fillApplicationForm :: (AsReOCError e) => UnfilledApplicationForm -> Either (NonEmpty e) ApplicationForm +fillApplicationForm = + toEither . fillApplicationFormAt [] + +-- | Fills in @ApplicationForm'@ at a path. +fillApplicationFormAt :: (AsReOCError e) => [Step] -> UnfilledApplicationForm -> Validation (NonEmpty e) ApplicationForm +fillApplicationFormAt p (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = + ApplicationForm' + <$> required fillPrimaryContactAt (at p ApplicationFormPrimaryContact) x1 + <*> fillPersonnelHistoryAt (at p ApplicationFormPersonnelHistory) x2 + <*> required fillRegulatoryHistoryAt (at p ApplicationFormRegulatoryHistory) x3 + <*> required accepted (at p ApplicationFormProceduresLibrary) x4 + <*> atMostElements (checked (preview _FormText) InvalidFormText) (at p ApplicationFormOtherDocuments) x5 + <*> required fillDeclarationAt (at p ApplicationFormDeclaration) x6 + <*> optional fillWrittenSignatureAt (at p ApplicationFormSignature) x7 + +-- | The unfilled form of a valid @ApplicationForm'@. +unfillApplicationForm :: ApplicationForm -> UnfilledApplicationForm +unfillApplicationForm (ApplicationForm' x1 x2 x3 x4 x5 x6 x7) = + ApplicationForm' + (Just (unfillPrimaryContact x1)) + (unfillPersonnelHistory x2) + (Just (unfillRegulatoryHistory x3)) + (Just x4) + (map (review _FormText) (atMostList x5)) + (Just (unfillDeclaration x6)) + (fmap unfillWrittenSignature x7) + +-- | Fills in @Version'@ from the whole form. +fillVersion :: (AsReOCError e) => UnfilledVersion -> Either (NonEmpty e) Version +fillVersion = + toEither . fillVersionAt [] + +-- | Fills in @Version'@ at a path. +fillVersionAt :: (AsReOCError e) => [Step] -> UnfilledVersion -> Validation (NonEmpty e) Version +fillVersionAt p (Version' x1 x2) = + Version' + <$> required accepted (at p VersionMajorVersion) x1 + <*> required accepted (at p VersionMinorVersion) x2 + +-- | The unfilled form of a valid @Version'@. +unfillVersion :: Version -> UnfilledVersion +unfillVersion (Version' x1 x2) = + Version' + (Just x1) + (Just x2) + +-- | Fills in @FirstIssue'@ from the whole form. +fillFirstIssue :: (AsReOCError e) => UnfilledFirstIssue -> Either (NonEmpty e) FirstIssue +fillFirstIssue = + toEither . fillFirstIssueAt [] + +-- | Fills in @FirstIssue'@ at a path. +fillFirstIssueAt :: (AsReOCError e) => [Step] -> UnfilledFirstIssue -> Validation (NonEmpty e) FirstIssue +fillFirstIssueAt p (FirstIssue' x1 x2 x3 x4 x5) = + FirstIssue' + <$> fillVersionAt (at p FirstIssueVersion) x1 + <*> required accepted (at p FirstIssueIssueDate) x2 + <*> required (checked (preview _Text1) InvalidText1) (at p FirstIssueEffective) x3 + <*> required (checked (preview _Text1) InvalidText1) (at p FirstIssueParts) x4 + <*> required (checked (preview _Text1) InvalidText1) (at p FirstIssueDetails) x5 + +-- | The unfilled form of a valid @FirstIssue'@. +unfillFirstIssue :: FirstIssue -> UnfilledFirstIssue +unfillFirstIssue (FirstIssue' x1 x2 x3 x4 x5) = + FirstIssue' + (unfillVersion x1) + (Just x2) + (Just (review _Text1 x3)) + (Just (review _Text1 x4)) + (Just (review _Text1 x5)) + +-- | Fills in @Revision'@ from the whole form. +fillRevision :: (AsReOCError e) => UnfilledRevision -> Either (NonEmpty e) Revision +fillRevision = + toEither . fillRevisionAt [] + +-- | Fills in @Revision'@ at a path. +fillRevisionAt :: (AsReOCError e) => [Step] -> UnfilledRevision -> Validation (NonEmpty e) Revision +fillRevisionAt p (Revision' x1 x2 x3 x4 x5) = + Revision' + <$> required accepted (at p RevisionVersionIncrement) x1 + <*> required accepted (at p RevisionMonthsAfter) x2 + <*> required (checked (preview _Text1) InvalidText1) (at p RevisionEffective) x3 + <*> required (checked (preview _Text1) InvalidText1) (at p RevisionParts) x4 + <*> required (checked (preview _Text1) InvalidText1) (at p RevisionDetails) x5 + +-- | The unfilled form of a valid @Revision'@. +unfillRevision :: Revision -> UnfilledRevision +unfillRevision (Revision' x1 x2 x3 x4 x5) = + Revision' + (Just x1) + (Just x2) + (Just (review _Text1 x3)) + (Just (review _Text1 x4)) + (Just (review _Text1 x5)) + +-- | Fills in @Policies'@ from the whole form. +fillPolicies :: (AsReOCError e) => UnfilledPolicies -> Either (NonEmpty e) Policies +fillPolicies = + toEither . fillPoliciesAt [] + +-- | Fills in @Policies'@ at a path. +fillPoliciesAt :: (AsReOCError e) => [Step] -> UnfilledPolicies -> Validation (NonEmpty e) Policies +fillPoliciesAt p (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = + Policies' + <$> required (checked (preview _Positive) InvalidPositive) (at p PoliciesRecencyFlights) x1 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesRecencyDays) x2 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesRefresherMonths) x3 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesAlcoholHours) x4 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesRestHours) x5 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesDutyHours) x6 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesInspectionMonths) x7 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesInspectionHours) x8 + <*> required (checked (preview _Percentage) InvalidPercentage) (at p PoliciesBatteryReserve) x9 + <*> required accepted (at p PoliciesBackupFrequency) x10 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesIndependentReviewYears) x11 + <*> required (checked (preview _Positive) InvalidPositive) (at p PoliciesCheckingMonths) x12 + +-- | The unfilled form of a valid @Policies'@. +unfillPolicies :: Policies -> UnfilledPolicies +unfillPolicies (Policies' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12) = + Policies' + (Just (review _Positive x1)) + (Just (review _Positive x2)) + (Just (review _Positive x3)) + (Just (review _Positive x4)) + (Just (review _Positive x5)) + (Just (review _Positive x6)) + (Just (review _Positive x7)) + (Just (review _Positive x8)) + (Just (review _Percentage x9)) + (Just x10) + (Just (review _Positive x11)) + (Just (review _Positive x12)) + +-- | Fills in @RiskAssessment'@ from the whole form. +fillRiskAssessment :: (AsReOCError e) => UnfilledRiskAssessment -> Either (NonEmpty e) RiskAssessment +fillRiskAssessment = + toEither . fillRiskAssessmentAt [] + +-- | Fills in @RiskAssessment'@ at a path. +fillRiskAssessmentAt :: (AsReOCError e) => [Step] -> UnfilledRiskAssessment -> Validation (NonEmpty e) RiskAssessment +fillRiskAssessmentAt p (RiskAssessment' x1 x2) = + RiskAssessment' + <$> required accepted (at p RiskAssessmentRiskLikelihood) x1 + <*> required accepted (at p RiskAssessmentRiskConsequence) x2 + +-- | The unfilled form of a valid @RiskAssessment'@. +unfillRiskAssessment :: RiskAssessment -> UnfilledRiskAssessment +unfillRiskAssessment (RiskAssessment' x1 x2) = + RiskAssessment' + (Just x1) + (Just x2) + +-- | Fills in @Risk'@ from the whole form. +fillRisk :: (AsReOCError e) => UnfilledRisk -> Either (NonEmpty e) Risk +fillRisk = + toEither . fillRiskAt [] + +-- | Fills in @Risk'@ at a path. +fillRiskAt :: (AsReOCError e) => [Step] -> UnfilledRisk -> Validation (NonEmpty e) Risk +fillRiskAt p (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = + Risk' + <$> required (checked (preview _Text1) InvalidText1) (at p RiskHazard) x1 + <*> required (checked (preview _Text1) InvalidText1) (at p RiskRiskDescription) x2 + <*> required (checked (preview _Text1) InvalidText1) (at p RiskExistingControls) x3 + <*> fillRiskAssessmentAt (at p RiskInitialRisk) x4 + <*> required (checked (preview _Text1) InvalidText1) (at p RiskAdditionalControls) x5 + <*> fillRiskAssessmentAt (at p RiskResidualRisk) x6 + <*> required accepted (at p RiskRiskOwner) x7 + <*> required accepted (at p RiskDateEntered) x8 + <*> required (checked (preview _ReviewMonths) InvalidReviewMonths) (at p RiskReviewMonths) x9 + +-- | The unfilled form of a valid @Risk'@. +unfillRisk :: Risk -> UnfilledRisk +unfillRisk (Risk' x1 x2 x3 x4 x5 x6 x7 x8 x9) = + Risk' + (Just (review _Text1 x1)) + (Just (review _Text1 x2)) + (Just (review _Text1 x3)) + (unfillRiskAssessment x4) + (Just (review _Text1 x5)) + (unfillRiskAssessment x6) + (Just x7) + (Just x8) + (Just (review _ReviewMonths x9)) + +-- | Fills in @OperationsManual'@ from the whole form. +fillOperationsManual :: (AsReOCError e) => UnfilledOperationsManual -> Either (NonEmpty e) OperationsManual +fillOperationsManual = + toEither . fillOperationsManualAt [] + +-- | Fills in @OperationsManual'@ at a path. +fillOperationsManualAt :: (AsReOCError e) => [Step] -> UnfilledOperationsManual -> Validation (NonEmpty e) OperationsManual +fillOperationsManualAt p (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = + OperationsManual' + <$> fillFirstIssueAt (at p OperationsManualFirstIssue) x1 + <*> elements fillRevisionAt (at p OperationsManualRevisions) x2 + <*> nonEmptyElements (checked (preview _Text1) InvalidText1) (at p OperationsManualServices) x3 + <*> fillPoliciesAt (at p OperationsManualPolicies) x4 + <*> nonEmptyElements fillRiskAt (at p OperationsManualRiskRegister) x5 + <*> required accepted (at p OperationsManualCrew) x6 + <*> required accepted (at p OperationsManualPilots) x7 + +-- | The unfilled form of a valid @OperationsManual'@. +unfillOperationsManual :: OperationsManual -> UnfilledOperationsManual +unfillOperationsManual (OperationsManual' x1 x2 x3 x4 x5 x6 x7) = + OperationsManual' + (unfillFirstIssue x1) + (fmap unfillRevision x2) + (map (review _Text1) (toList x3)) + (unfillPolicies x4) + (map unfillRisk (toList x5)) + (Just x6) + (Just x7) + +-- | Fills in @CRINominee'@ from the whole form. +fillCRINominee :: (AsReOCError e) => UnfilledCRINominee -> Either (NonEmpty e) CRINominee +fillCRINominee = + toEither . fillCRINomineeAt [] + +-- | Fills in @CRINominee'@ at a path. +fillCRINomineeAt :: (AsReOCError e) => [Step] -> UnfilledCRINominee -> Validation (NonEmpty e) CRINominee +fillCRINomineeAt p = \case + CRIIsCEO -> pure CRIIsCEO + CRIIsCRP -> pure CRIIsCRP + CRIIsMC -> pure CRIIsMC + CRINominated x -> CRINominated <$> fillNomineeAt (at p CRINomineeCriNominated) x + +-- | The unfilled form of a valid @CRINominee'@. +unfillCRINominee :: CRINominee -> UnfilledCRINominee +unfillCRINominee = \case + CRIIsCEO -> CRIIsCEO + CRIIsCRP -> CRIIsCRP + CRIIsMC -> CRIIsMC + CRINominated x -> CRINominated (unfillNominee x) + +-- | Fills in @RePLHolding'@ from the whole form. +fillRePLHolding :: (AsReOCError e) => UnfilledRePLHolding -> Either (NonEmpty e) RePLHolding +fillRePLHolding = + toEither . fillRePLHoldingAt [] + +-- | Fills in @RePLHolding'@ at a path. +fillRePLHoldingAt :: (AsReOCError e) => [Step] -> UnfilledRePLHolding -> Validation (NonEmpty e) RePLHolding +fillRePLHoldingAt p = \case + HoldsRePLForEachType -> pure HoldsRePLForEachType + RePLHoldingIntent x -> RePLHoldingIntent <$> required (checked (preview _FormText) InvalidFormText) (at p RePLHoldingRePLHoldingIntent) x + +-- | The unfilled form of a valid @RePLHolding'@. +unfillRePLHolding :: RePLHolding -> UnfilledRePLHolding +unfillRePLHolding = \case + HoldsRePLForEachType -> HoldsRePLForEachType + RePLHoldingIntent x -> RePLHoldingIntent (Just (review _FormText x)) + +-- | Fills in @TeachingQualification'@ from the whole form. +fillTeachingQualification :: (AsReOCError e) => UnfilledTeachingQualification -> Either (NonEmpty e) TeachingQualification +fillTeachingQualification = + toEither . fillTeachingQualificationAt [] + +-- | Fills in @TeachingQualification'@ at a path. +fillTeachingQualificationAt :: (AsReOCError e) => [Step] -> UnfilledTeachingQualification -> Validation (NonEmpty e) TeachingQualification +fillTeachingQualificationAt p = \case + TeachingQualificationHeld x -> TeachingQualificationHeld <$> required (checked (preview _FormText) InvalidFormText) (at p TeachingQualificationTeachingQualificationHeld) x + TeachingQualificationIntent x -> TeachingQualificationIntent <$> required (checked (preview _FormText) InvalidFormText) (at p TeachingQualificationTeachingQualificationIntent) x + +-- | The unfilled form of a valid @TeachingQualification'@. +unfillTeachingQualification :: TeachingQualification -> UnfilledTeachingQualification +unfillTeachingQualification = \case + TeachingQualificationHeld x -> TeachingQualificationHeld (Just (review _FormText x)) + TeachingQualificationIntent x -> TeachingQualificationIntent (Just (review _FormText x)) + +-- | Fills in @OperationalExperience'@ from the whole form. +fillOperationalExperience :: (AsReOCError e) => UnfilledOperationalExperience -> Either (NonEmpty e) OperationalExperience +fillOperationalExperience = + toEither . fillOperationalExperienceAt [] + +-- | Fills in @OperationalExperience'@ at a path. +fillOperationalExperienceAt :: (AsReOCError e) => [Step] -> UnfilledOperationalExperience -> Validation (NonEmpty e) OperationalExperience +fillOperationalExperienceAt p = \case + HasOperationalExperience -> pure HasOperationalExperience + OperationalExperienceIntent x -> OperationalExperienceIntent <$> required (checked (preview _FormText) InvalidFormText) (at p OperationalExperienceOperationalExperienceIntent) x + OperationalExperienceNotApplicable -> pure OperationalExperienceNotApplicable + +-- | The unfilled form of a valid @OperationalExperience'@. +unfillOperationalExperience :: OperationalExperience -> UnfilledOperationalExperience +unfillOperationalExperience = \case + HasOperationalExperience -> HasOperationalExperience + OperationalExperienceIntent x -> OperationalExperienceIntent (Just (review _FormText x)) + OperationalExperienceNotApplicable -> OperationalExperienceNotApplicable + +-- | Fills in @TrainingCourse'@ from the whole form. +fillTrainingCourse :: (AsReOCError e) => UnfilledTrainingCourse -> Either (NonEmpty e) TrainingCourse +fillTrainingCourse = + toEither . fillTrainingCourseAt [] + +-- | Fills in @TrainingCourse'@ at a path. +fillTrainingCourseAt :: (AsReOCError e) => [Step] -> UnfilledTrainingCourse -> Validation (NonEmpty e) TrainingCourse +fillTrainingCourseAt p (TrainingCourse' x1 x2 x3) = + TrainingCourse' + <$> required accepted (at p TrainingCourseCourseKind) x1 + <*> fillOperatedTypeAt (at p TrainingCourseTrainingRPA) x2 + <*> nonEmptyElements accepted (at p TrainingCourseComplexities) x3 + +-- | The unfilled form of a valid @TrainingCourse'@. +unfillTrainingCourse :: TrainingCourse -> UnfilledTrainingCourse +unfillTrainingCourse (TrainingCourse' x1 x2 x3) = + TrainingCourse' + (Just x1) + (unfillOperatedType x2) + (toList x3) + +-- | Fills in @TrainingArrangements'@ from the whole form. +fillTrainingArrangements :: (AsReOCError e) => UnfilledTrainingArrangements -> Either (NonEmpty e) TrainingArrangements +fillTrainingArrangements = + toEither . fillTrainingArrangementsAt [] + +-- | Fills in @TrainingArrangements'@ at a path. +fillTrainingArrangementsAt :: (AsReOCError e) => [Step] -> UnfilledTrainingArrangements -> Validation (NonEmpty e) TrainingArrangements +fillTrainingArrangementsAt p (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = + TrainingArrangements' + <$> nonEmptyElements (checked (preview _Text1) InvalidText1) (at p TrainingArrangementsTheoryVenues) x1 + <*> nonEmptyElements (checked (preview _Text1) InvalidText1) (at p TrainingArrangementsPracticalAreas) x2 + <*> required (checked (preview _Positive) InvalidPositive) (at p TrainingArrangementsMaxStudentsPerCourse) x3 + <*> required (checked (preview _Positive) InvalidPositive) (at p TrainingArrangementsMaxStudentsPerInstructor) x4 + <*> required accepted (at p TrainingArrangementsTakeover) x5 + <*> required accepted (at p TrainingArrangementsTheory) x6 + <*> required accepted (at p TrainingArrangementsExam) x7 + <*> required (checked (preview _PassMark) InvalidPassMark) (at p TrainingArrangementsExamPassMark) x8 + <*> required accepted (at p TrainingArrangementsExaminer) x9 + <*> optional (checked (preview _Text1) InvalidText1) (at p TrainingArrangementsSimulator) x10 + +-- | The unfilled form of a valid @TrainingArrangements'@. +unfillTrainingArrangements :: TrainingArrangements -> UnfilledTrainingArrangements +unfillTrainingArrangements (TrainingArrangements' x1 x2 x3 x4 x5 x6 x7 x8 x9 x10) = + TrainingArrangements' + (map (review _Text1) (toList x1)) + (map (review _Text1) (toList x2)) + (Just (review _Positive x3)) + (Just (review _Positive x4)) + (Just x5) + (Just x6) + (Just x7) + (Just (review _PassMark x8)) + (Just x9) + (fmap (review _Text1) x10) + +-- | Fills in @TrainingMaterial'@ from the whole form. +fillTrainingMaterial :: (AsReOCError e) => UnfilledTrainingMaterial -> Either (NonEmpty e) TrainingMaterial +fillTrainingMaterial = + toEither . fillTrainingMaterialAt [] + +-- | Fills in @TrainingMaterial'@ at a path. +fillTrainingMaterialAt :: (AsReOCError e) => [Step] -> UnfilledTrainingMaterial -> Validation (NonEmpty e) TrainingMaterial +fillTrainingMaterialAt p (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = + TrainingMaterial' + <$> required fillCRINomineeAt (at p TrainingMaterialCriNominee) x1 + <*> required fillRePLHoldingAt (at p TrainingMaterialRePLHolding) x2 + <*> required fillTeachingQualificationAt (at p TrainingMaterialTeachingQualification) x3 + <*> required fillOperationalExperienceAt (at p TrainingMaterialOperationalExperience) x4 + <*> required fillOtherReOCRolesAt (at p TrainingMaterialCriOtherReOCRoles) x5 + <*> someElements fillTrainingCourseAt (at p TrainingMaterialTrainingCourses) x6 + <*> fillTrainingArrangementsAt (at p TrainingMaterialTrainingArrangements) x7 + +-- | The unfilled form of a valid @TrainingMaterial'@. +unfillTrainingMaterial :: TrainingMaterial -> UnfilledTrainingMaterial +unfillTrainingMaterial (TrainingMaterial' x1 x2 x3 x4 x5 x6 x7) = + TrainingMaterial' + (Just (unfillCRINominee x1)) + (Just (unfillRePLHolding x2)) + (Just (unfillTeachingQualification x3)) + (Just (unfillOperationalExperience x4)) + (Just (unfillOtherReOCRoles x5)) + (map unfillTrainingCourse (toList (someNonEmpty x6))) + (unfillTrainingArrangements x7) + +-- | Fills in @ReOC'@ from the whole form. +fillReOC :: (AsReOCError e) => UnfilledReOC -> Either (NonEmpty e) ReOC +fillReOC = + toEither . fillReOCAt [] + +-- | Fills in @ReOC'@ at a path. +fillReOCAt :: (AsReOCError e) => [Step] -> UnfilledReOC -> Validation (NonEmpty e) ReOC +fillReOCAt p (ReOC' x1 x2 x3 x4) = + ReOC' + <$> fillOperatorAt (at p ReOCOperator) x1 + <*> fillApplicationFormAt (at p ReOCApplicationForm) x2 + <*> fillOperationsManualAt (at p ReOCOperationsManual) x3 + <*> optional fillTrainingMaterialAt (at p ReOCMaybeTrainingMaterial) x4 + +-- | The unfilled form of a valid @ReOC'@. +unfillReOC :: ReOC -> UnfilledReOC +unfillReOC (ReOC' x1 x2 x3 x4) = + ReOC' + (unfillOperator x1) + (unfillApplicationForm x2) + (unfillOperationsManual x3) + (fmap unfillTrainingMaterial x4) diff --git a/src/ReOC/Help.hs b/src/ReOC/Help.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Help.hs @@ -0,0 +1,559 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The help text and label of each field of the form types. +module ReOC.Help ( + fieldHelp, + fieldLabel, + fieldOf, +) where + +import Data.Text (Text) +import ReOC.Data.Field (Field (..)) + +-- | The help text of a field: what to enter. +fieldHelp :: Field -> Text +fieldHelp = \case + PersonFullName -> "The person’s full name, as on their identification." + PersonArn -> "The person’s CASA aviation reference number (ARN)." + PersonPhoneNumber -> "The person’s Australian phone number." + PersonEmailAddress -> "The person’s email address." + AddressStreetAddress -> "The lines of the street address, such as unit and street; one or more." + AddressSuburb -> "The suburb or town." + AddressStateOrTerritory -> "The state or territory." + AddressPostcode -> "The four-digit postcode." + OperationalHeadquartersAtRegisteredOffice -> "The operational headquarters is at the registered office." + OperationalHeadquartersOperationalHeadquartersAddress -> "The operational headquarters is at another address." + CompanyCompanyName -> "The company’s name, without “Pty Ltd” (CASA Form 101-02, question 1)." + CompanyAbn -> "The company’s Australian business number (ABN)." + CompanyArn -> "The company’s CASA aviation reference number (ARN)." + CompanyRegisteredOffice -> "The address of the company’s registered office." + CompanyOperationalHeadquarters -> "Where the operational headquarters is: at the registered office, or at another address." + CompanyPhoneNumber -> "The phone number of the operational headquarters." + CompanyEmailAddress -> "The email address of the operational headquarters." + CompanyBusinessName -> "A registered business name that the company trades under, if any." + FlightTerminationNoFlightTerminationSystem -> "The RPA has no dedicated flight termination system." + FlightTerminationFlightTerminationSystem -> "A description of the RPA’s flight termination system, such as a parachute and how it is deployed." + EmergencyActionSituation -> "The emergency, such as loss of command link." + EmergencyActionResponse -> "What the RPA does in the emergency, and what the remote pilot must do." + EmergencyActionActionSteps -> "Further steps the remote pilot takes, one for each item; may be none." + RPATypeRpaMake -> "The manufacturer of the RPA, such as DJI." + RPATypeRpaModel -> "The model of the RPA, such as Matrice 350 RTK." + RPATypeShortName -> "A short name for the type, such as DJI M350 RTK, which must fit the make and model cell of question 27." + RPATypeCategory -> "The category of the RPA: aeroplane, helicopter, multirotor or powered-lift." + RPATypeMaximumGrossWeight -> "The maximum gross (take-off) weight in grams, from 1 g to 25 kg." + RPATypeUserManual -> "The title of the manufacturer’s manual that the RPA is operated in accordance with." + RPATypeTransponderCarriage -> "Whether the RPA is fitted with a transponder or ADS-B (out)." + RPATypeFlightTermination -> "Whether the RPA has a dedicated flight termination system." + RPATypeInspectionItems -> "What the periodic inspection of the RPA covers; one or more items." + RPATypeBeforeFlight -> "Requirements before flight that supplement the manufacturer’s instructions; may be none." + RPATypeBatteryWarnings -> "How the RPA warns of and responds to low battery, if it does." + RPATypeEmergencyActions -> "The emergency actions for the type; may be none." + EquipmentEquipmentDescription -> "What the equipment is, such as a remote controller." + EquipmentSerialNumber -> "The serial number of the equipment." + AircraftSerialNumber -> "The serial number of the RPA." + AircraftAssociatedEquipment -> "Equipment used with the RPA, such as cameras and remote controllers; may be none." + OperatedTypeRpaType -> "The type of RPA." + OperatedTypeAirframes -> "Each RPA of the type; one or more." + RePLOriginPplTheory -> "The initial RePL was obtained through private pilot licence theory." + RePLOriginRePLTrainingOrganisation -> "The name of the RePL training organisation where the initial RePL was obtained." + OtherReOCRolesNoOtherReOCRoles -> "The person holds no such position for another ReOC holder." + OtherReOCRolesOtherReOCRolesHeld -> "The positions held for other ReOC holders, and how the person will fulfil the duties of each." + NomineePerson -> "The person nominated." + NomineeOtherQualifications -> "Qualifications other than a RePL, such as licences and certificates; may be none." + NomineeAviationExperience -> "A summary of the person’s aviation experience, for the manual’s list of key personnel." + ChiefExecutiveNominee -> "The person nominated as CEO." + ChiefExecutiveDirectorStatus -> "Whether the CEO is the sole director, a director, or not a director of the company." + ChiefExecutiveManagementExperience -> "The CEO’s management experience (question 7), if given." + CRPNomineeCrpIsCEO -> "The CEO is also the chief remote pilot." + CRPNomineeCrpNominated -> "Another person is nominated as chief remote pilot." + ChiefPilotCrpNominee -> "Who is the chief remote pilot: the CEO, or another person (question 8)." + ChiefPilotRePLOrigin -> "How the chief remote pilot obtained their initial RePL (question 9)." + ChiefPilotRpaHistory -> "The chief remote pilot’s RPA history and experience, including total RPA flying time, RPA operated and relevant qualifications (question 10)." + ChiefPilotOtherReOCRoles -> "Whether the chief remote pilot is also chief remote pilot or chief RePL instructor for other ReOC holders (question 11)." + ChiefPilotRadio -> "The chief remote pilot’s qualification to use an aeronautical radio." + MCNomineeMcIsCEO -> "The CEO is also the maintenance controller." + MCNomineeMcIsCRP -> "The chief remote pilot is also the maintenance controller." + MCNomineeMcNominated -> "Another person is nominated as maintenance controller." + KeyPersonnelChiefExecutive -> "The chief executive officer (CEO)." + KeyPersonnelChiefPilot -> "The chief remote pilot (CRP)." + KeyPersonnelMcNominee -> "Who is the maintenance controller (MC)." + OperatorCompany -> "The company that applies for the ReOC." + OperatorKeyPersonnel -> "The key personnel." + OperatorFleet -> "The types of RPA operated, with each RPA of each type; one to eight types." + ContactPersonFullName -> "The contact person’s full name." + ContactPersonPosition -> "The contact person’s position in the company." + ContactPersonPhoneNumber -> "The contact person’s phone number." + ContactPersonEmailAddress -> "The contact person’s email address." + PrimaryContactApplicantIsPrimaryContact -> "The applicant is the primary contact (question 2)." + PrimaryContactPrimaryContactPerson -> "Another person is the primary contact (question 3)." + HistoryAnswerNoHistory -> "No." + HistoryAnswerHistoryDisclosed -> "Yes, with the details, including dates, actions, charges, convictions and imprisonment (question 23)." + PersonnelHistoryActionTaken -> "Whether any action has been taken, or is being taken, against the applicant or any nominated personnel, or they have been refused an aviation-related licence, certificate or authority (question 19)." + PersonnelHistoryTransportLicenceRefused -> "Whether the applicant or any nominated personnel has been refused, or had suspended, a transport-related licence or certificate (question 20)." + PersonnelHistoryCriminalConviction -> "Whether the applicant or any nominated personnel has a criminal conviction or finding of guilt less than ten years old (question 21)." + PersonnelHistorySuspensionPending -> "Whether suspension or cancellation action is pending on any aviation licence the applicant or any nominated personnel holds (question 22)." + RegulatoryActionReocSuspendedOrCancelled -> "Whether the applicant or any nominated personnel has had a ReOC, or equivalent, suspended or cancelled (question 25)." + RegulatoryActionTypeOfAction -> "The type of action taken (question 26)." + RegulatoryActionAuthorisationAction -> "The action taken against an authorisation, if any (question 26)." + RegulatoryActionActionDate -> "The date the action was taken (question 26)." + RegulatoryActionActionDetails -> "The details of the regulatory action (question 26)." + RegulatoryHistoryNoRegulatoryAction -> "No regulatory action by CASA or a foreign authority in the last ten years." + RegulatoryHistoryRegulatoryActionTaken -> "Regulatory action has been taken in the last ten years, with its details." + DeclarantFullName -> "The full name of the person making the declaration." + DeclarantRole -> "The capacity in which they make it, such as director." + DeclarationDeclaredByCEO -> "The CEO makes the declaration." + DeclarationDeclaredByResponsibleManager -> "The full name of the responsible manager who makes the declaration." + DeclarationDeclaredByAgent -> "The full name of the agent, under a power of attorney, who makes the declaration." + DeclarationDeclaredByOther -> "Another person makes the declaration, in the capacity given." + WrittenSignatureWrittenSignatureImage -> "The contents of a PNG image of the signature." + WrittenSignatureWrittenSignatureFile -> "The path of a PNG image of the signature, read when the documents are written." + ApplicationFormPrimaryContact -> "Who is the primary contact for the application (questions 2 and 3)." + ApplicationFormPersonnelHistory -> "The history of the applicant and nominated personnel (questions 19 to 23)." + ApplicationFormRegulatoryHistory -> "Regulatory action in the last ten years (questions 24 to 26)." + ApplicationFormProceduresLibrary -> "Whether a procedures library is submitted with the application (question 30, item 2)." + ApplicationFormOtherDocuments -> "Other documents submitted, one line each; at most six (question 30)." + ApplicationFormDeclaration -> "Who makes the declaration (questions 31 and 32)." + ApplicationFormSignature -> "The written signature of the declarant, if the form is to be signed." + VersionMajorVersion -> "The major version, such as 1 in version 1.0." + VersionMinorVersion -> "The minor version, such as 0 in version 1.0." + FirstIssueVersion -> "The version of the first issue, usually 1.0." + FirstIssueIssueDate -> "The month of the first issue." + FirstIssueEffective -> "When the first issue takes effect, such as on issue of the ReOC." + FirstIssueParts -> "The parts of the manual issued, usually all." + FirstIssueDetails -> "A description of the issue." + RevisionVersionIncrement -> "Whether the revision is a major or a minor revision." + RevisionMonthsAfter -> "The number of months after the entry before it." + RevisionEffective -> "When the revision takes effect." + RevisionParts -> "The parts of the manual revised." + RevisionDetails -> "A description of the revision." + PoliciesRecencyFlights -> "The number of flights a remote pilot must have made in the recency period." + PoliciesRecencyDays -> "The recency period, in days." + PoliciesRefresherMonths -> "The longest interval between refresher training, in months." + PoliciesAlcoholHours -> "The number of hours without alcohol before duty." + PoliciesRestHours -> "The number of consecutive hours of rest before duty." + PoliciesDutyHours -> "The longest duty period, in hours." + PoliciesInspectionMonths -> "The longest interval between periodic inspections, in months." + PoliciesInspectionHours -> "The longest interval between periodic inspections, in flight hours." + PoliciesBatteryReserve -> "The battery remaining, as a percentage, that each flight is planned to land with." + PoliciesBackupFrequency -> "The longest interval between backups of records." + PoliciesIndependentReviewYears -> "The longest interval between independent reviews, in years." + PoliciesCheckingMonths -> "The longest interval between checking events of a remote pilot, in months." + RiskAssessmentRiskLikelihood -> "The likelihood of the risk." + RiskAssessmentRiskConsequence -> "The consequence of the risk." + RiskHazard -> "The hazard." + RiskRiskDescription -> "What could happen because of the hazard." + RiskExistingControls -> "The controls already in place, with the manual sections that set them out." + RiskInitialRisk -> "The risk with the existing controls." + RiskAdditionalControls -> "The additional controls." + RiskResidualRisk -> "The risk with the additional controls." + RiskRiskOwner -> "The key position that owns the risk." + RiskDateEntered -> "The month the risk was entered in the register." + RiskReviewMonths -> "The number of months after entry that the risk is reviewed, at most 12." + OperationsManualFirstIssue -> "The first entry in the amendment record." + OperationsManualRevisions -> "Later entries in the amendment record, in order; may be none." + OperationsManualServices -> "The services the operator provides; one or more." + OperationsManualPolicies -> "The limits that the operator sets." + OperationsManualRiskRegister -> "The entries of the risk register; one or more." + OperationsManualCrew -> "Whether the operator conducts only solo operations, or multi-crew operations as well." + OperationsManualPilots -> "Whether the chief remote pilot is the operator’s only remote pilot." + CRINomineeCriIsCEO -> "The CEO is also the chief RePL instructor." + CRINomineeCriIsCRP -> "The chief remote pilot is also the chief RePL instructor." + CRINomineeCriIsMC -> "The maintenance controller is also the chief RePL instructor." + CRINomineeCriNominated -> "Another person is nominated as chief RePL instructor." + RePLHoldingHoldsRePLForEachType -> "The chief RePL instructor holds a RePL for each type of RPA used in training (question 14)." + RePLHoldingRePLHoldingIntent -> "How and when the chief RePL instructor will hold a RePL for each type (question 17)." + TeachingQualificationTeachingQualificationHeld -> "The details of the teaching qualification held, such as a Certificate IV in Training and Assessment (question 15)." + TeachingQualificationTeachingQualificationIntent -> "How and when the chief RePL instructor will obtain a teaching qualification (question 17)." + OperationalExperienceHasOperationalExperience -> "The chief RePL instructor has 20 hours of non-training operational experience for each category trained (question 16)." + OperationalExperienceOperationalExperienceIntent -> "How and when the chief RePL instructor will gain the experience (question 17)." + OperationalExperienceOperationalExperienceNotApplicable -> "The chief RePL instructor does not provide practical instruction (question 16)." + TrainingCourseCourseKind -> "The type of course: initial, upgrade in the same category, or upgrade to a different category." + TrainingCourseTrainingRPA -> "The type of RPA used in the course, with each RPA of that type." + TrainingCourseComplexities -> "The complexities of the course; one or more." + TrainingArrangementsTheoryVenues -> "Where theory training is conducted; one or more." + TrainingArrangementsPracticalAreas -> "Where practical training is conducted; one or more." + TrainingArrangementsMaxStudentsPerCourse -> "The most students in a course." + TrainingArrangementsMaxStudentsPerInstructor -> "The most students flying at once for each instructor." + TrainingArrangementsTakeover -> "How an instructor takes immediate control of a training RPA." + TrainingArrangementsTheory -> "How theory lessons are delivered." + TrainingArrangementsExam -> "How the supervised theory examination is sat." + TrainingArrangementsExamPassMark -> "The pass mark of the theory examination, as a percentage, at least 70." + TrainingArrangementsExaminer -> "Who conducts flight tests." + TrainingArrangementsSimulator -> "The simulator used in training, if one is used." + TrainingMaterialCriNominee -> "Who is the chief RePL instructor (question 13)." + TrainingMaterialRePLHolding -> "Whether the chief RePL instructor holds a RePL for each type of RPA used in training (question 14)." + TrainingMaterialTeachingQualification -> "The chief RePL instructor’s teaching qualification (question 15)." + TrainingMaterialOperationalExperience -> "The chief RePL instructor’s non-training operational experience (question 16)." + TrainingMaterialCriOtherReOCRoles -> "Whether the chief RePL instructor holds positions for other ReOC holders (question 18)." + TrainingMaterialTrainingCourses -> "The RePL training courses; one to nine." + TrainingMaterialTrainingArrangements -> "How RePL training is conducted." + ReOCOperator -> "The operator: the company, its key personnel and its RPA." + ReOCApplicationForm -> "The answers to the application form that are not part of the operator." + ReOCOperationsManual -> "The parts of the operations manual that are not part of the operator." + ReOCMaybeTrainingMaterial -> "RePL training, if it is applied for." + +-- | The label of a field, from its name. +fieldLabel :: Field -> Text +fieldLabel = \case + PersonFullName -> "full name" + PersonArn -> "ARN" + PersonPhoneNumber -> "phone number" + PersonEmailAddress -> "email address" + AddressStreetAddress -> "street address" + AddressSuburb -> "suburb" + AddressStateOrTerritory -> "state or territory" + AddressPostcode -> "postcode" + OperationalHeadquartersAtRegisteredOffice -> "at registered office" + OperationalHeadquartersOperationalHeadquartersAddress -> "operational headquarters address" + CompanyCompanyName -> "company name" + CompanyAbn -> "ABN" + CompanyArn -> "ARN" + CompanyRegisteredOffice -> "registered office" + CompanyOperationalHeadquarters -> "operational headquarters" + CompanyPhoneNumber -> "phone number" + CompanyEmailAddress -> "email address" + CompanyBusinessName -> "business name" + FlightTerminationNoFlightTerminationSystem -> "no flight termination system" + FlightTerminationFlightTerminationSystem -> "flight termination system" + EmergencyActionSituation -> "situation" + EmergencyActionResponse -> "response" + EmergencyActionActionSteps -> "action steps" + RPATypeRpaMake -> "RPA make" + RPATypeRpaModel -> "RPA model" + RPATypeShortName -> "short name" + RPATypeCategory -> "category" + RPATypeMaximumGrossWeight -> "maximum gross weight" + RPATypeUserManual -> "user manual" + RPATypeTransponderCarriage -> "transponder carriage" + RPATypeFlightTermination -> "flight termination" + RPATypeInspectionItems -> "inspection items" + RPATypeBeforeFlight -> "before flight" + RPATypeBatteryWarnings -> "battery warnings" + RPATypeEmergencyActions -> "emergency actions" + EquipmentEquipmentDescription -> "equipment description" + EquipmentSerialNumber -> "serial number" + AircraftSerialNumber -> "serial number" + AircraftAssociatedEquipment -> "associated equipment" + OperatedTypeRpaType -> "RPA type" + OperatedTypeAirframes -> "airframes" + RePLOriginPplTheory -> "PPL theory" + RePLOriginRePLTrainingOrganisation -> "RePL training organisation" + OtherReOCRolesNoOtherReOCRoles -> "no other ReOC roles" + OtherReOCRolesOtherReOCRolesHeld -> "other ReOC roles held" + NomineePerson -> "person" + NomineeOtherQualifications -> "other qualifications" + NomineeAviationExperience -> "aviation experience" + ChiefExecutiveNominee -> "nominee" + ChiefExecutiveDirectorStatus -> "director status" + ChiefExecutiveManagementExperience -> "management experience" + CRPNomineeCrpIsCEO -> "CRP is CEO" + CRPNomineeCrpNominated -> "CRP nominated" + ChiefPilotCrpNominee -> "CRP nominee" + ChiefPilotRePLOrigin -> "RePL origin" + ChiefPilotRpaHistory -> "RPA history" + ChiefPilotOtherReOCRoles -> "other ReOC roles" + ChiefPilotRadio -> "radio" + MCNomineeMcIsCEO -> "MC is CEO" + MCNomineeMcIsCRP -> "MC is CRP" + MCNomineeMcNominated -> "MC nominated" + KeyPersonnelChiefExecutive -> "chief executive" + KeyPersonnelChiefPilot -> "chief pilot" + KeyPersonnelMcNominee -> "MC nominee" + OperatorCompany -> "company" + OperatorKeyPersonnel -> "key personnel" + OperatorFleet -> "fleet" + ContactPersonFullName -> "full name" + ContactPersonPosition -> "position" + ContactPersonPhoneNumber -> "phone number" + ContactPersonEmailAddress -> "email address" + PrimaryContactApplicantIsPrimaryContact -> "applicant is primary contact" + PrimaryContactPrimaryContactPerson -> "primary contact person" + HistoryAnswerNoHistory -> "no history" + HistoryAnswerHistoryDisclosed -> "history disclosed" + PersonnelHistoryActionTaken -> "action taken" + PersonnelHistoryTransportLicenceRefused -> "transport licence refused" + PersonnelHistoryCriminalConviction -> "criminal conviction" + PersonnelHistorySuspensionPending -> "suspension pending" + RegulatoryActionReocSuspendedOrCancelled -> "ReOC suspended or cancelled" + RegulatoryActionTypeOfAction -> "type of action" + RegulatoryActionAuthorisationAction -> "authorisation action" + RegulatoryActionActionDate -> "action date" + RegulatoryActionActionDetails -> "action details" + RegulatoryHistoryNoRegulatoryAction -> "no regulatory action" + RegulatoryHistoryRegulatoryActionTaken -> "regulatory action taken" + DeclarantFullName -> "full name" + DeclarantRole -> "role" + DeclarationDeclaredByCEO -> "declared by CEO" + DeclarationDeclaredByResponsibleManager -> "declared by responsible manager" + DeclarationDeclaredByAgent -> "declared by agent" + DeclarationDeclaredByOther -> "declared by other" + WrittenSignatureWrittenSignatureImage -> "written signature image" + WrittenSignatureWrittenSignatureFile -> "written signature file" + ApplicationFormPrimaryContact -> "primary contact" + ApplicationFormPersonnelHistory -> "personnel history" + ApplicationFormRegulatoryHistory -> "regulatory history" + ApplicationFormProceduresLibrary -> "procedures library" + ApplicationFormOtherDocuments -> "other documents" + ApplicationFormDeclaration -> "declaration" + ApplicationFormSignature -> "signature" + VersionMajorVersion -> "major version" + VersionMinorVersion -> "minor version" + FirstIssueVersion -> "version" + FirstIssueIssueDate -> "issue date" + FirstIssueEffective -> "effective" + FirstIssueParts -> "parts" + FirstIssueDetails -> "details" + RevisionVersionIncrement -> "version increment" + RevisionMonthsAfter -> "months after" + RevisionEffective -> "effective" + RevisionParts -> "parts" + RevisionDetails -> "details" + PoliciesRecencyFlights -> "recency flights" + PoliciesRecencyDays -> "recency days" + PoliciesRefresherMonths -> "refresher months" + PoliciesAlcoholHours -> "alcohol hours" + PoliciesRestHours -> "rest hours" + PoliciesDutyHours -> "duty hours" + PoliciesInspectionMonths -> "inspection months" + PoliciesInspectionHours -> "inspection hours" + PoliciesBatteryReserve -> "battery reserve" + PoliciesBackupFrequency -> "backup frequency" + PoliciesIndependentReviewYears -> "independent review years" + PoliciesCheckingMonths -> "checking months" + RiskAssessmentRiskLikelihood -> "risk likelihood" + RiskAssessmentRiskConsequence -> "risk consequence" + RiskHazard -> "hazard" + RiskRiskDescription -> "risk description" + RiskExistingControls -> "existing controls" + RiskInitialRisk -> "initial risk" + RiskAdditionalControls -> "additional controls" + RiskResidualRisk -> "residual risk" + RiskRiskOwner -> "risk owner" + RiskDateEntered -> "date entered" + RiskReviewMonths -> "review months" + OperationsManualFirstIssue -> "first issue" + OperationsManualRevisions -> "revisions" + OperationsManualServices -> "services" + OperationsManualPolicies -> "policies" + OperationsManualRiskRegister -> "risk register" + OperationsManualCrew -> "crew" + OperationsManualPilots -> "pilots" + CRINomineeCriIsCEO -> "CRI is CEO" + CRINomineeCriIsCRP -> "CRI is CRP" + CRINomineeCriIsMC -> "CRI is MC" + CRINomineeCriNominated -> "CRI nominated" + RePLHoldingHoldsRePLForEachType -> "holds RePL for each type" + RePLHoldingRePLHoldingIntent -> "RePL holding intent" + TeachingQualificationTeachingQualificationHeld -> "teaching qualification held" + TeachingQualificationTeachingQualificationIntent -> "teaching qualification intent" + OperationalExperienceHasOperationalExperience -> "has operational experience" + OperationalExperienceOperationalExperienceIntent -> "operational experience intent" + OperationalExperienceOperationalExperienceNotApplicable -> "operational experience not applicable" + TrainingCourseCourseKind -> "course kind" + TrainingCourseTrainingRPA -> "training RPA" + TrainingCourseComplexities -> "complexities" + TrainingArrangementsTheoryVenues -> "theory venues" + TrainingArrangementsPracticalAreas -> "practical areas" + TrainingArrangementsMaxStudentsPerCourse -> "max students per course" + TrainingArrangementsMaxStudentsPerInstructor -> "max students per instructor" + TrainingArrangementsTakeover -> "takeover" + TrainingArrangementsTheory -> "theory" + TrainingArrangementsExam -> "exam" + TrainingArrangementsExamPassMark -> "exam pass mark" + TrainingArrangementsExaminer -> "examiner" + TrainingArrangementsSimulator -> "simulator" + TrainingMaterialCriNominee -> "CRI nominee" + TrainingMaterialRePLHolding -> "RePL holding" + TrainingMaterialTeachingQualification -> "teaching qualification" + TrainingMaterialOperationalExperience -> "operational experience" + TrainingMaterialCriOtherReOCRoles -> "CRI other ReOC roles" + TrainingMaterialTrainingCourses -> "training courses" + TrainingMaterialTrainingArrangements -> "training arrangements" + ReOCOperator -> "operator" + ReOCApplicationForm -> "application form" + ReOCOperationsManual -> "operations manual" + ReOCMaybeTrainingMaterial -> "maybe training material" + +-- | The data type of a field: the form type that it is a field or constructor of. +fieldOf :: Field -> Text +fieldOf = \case + PersonFullName -> "Person'" + PersonArn -> "Person'" + PersonPhoneNumber -> "Person'" + PersonEmailAddress -> "Person'" + AddressStreetAddress -> "Address'" + AddressSuburb -> "Address'" + AddressStateOrTerritory -> "Address'" + AddressPostcode -> "Address'" + OperationalHeadquartersAtRegisteredOffice -> "OperationalHeadquarters'" + OperationalHeadquartersOperationalHeadquartersAddress -> "OperationalHeadquarters'" + CompanyCompanyName -> "Company'" + CompanyAbn -> "Company'" + CompanyArn -> "Company'" + CompanyRegisteredOffice -> "Company'" + CompanyOperationalHeadquarters -> "Company'" + CompanyPhoneNumber -> "Company'" + CompanyEmailAddress -> "Company'" + CompanyBusinessName -> "Company'" + FlightTerminationNoFlightTerminationSystem -> "FlightTermination'" + FlightTerminationFlightTerminationSystem -> "FlightTermination'" + EmergencyActionSituation -> "EmergencyAction'" + EmergencyActionResponse -> "EmergencyAction'" + EmergencyActionActionSteps -> "EmergencyAction'" + RPATypeRpaMake -> "RPAType'" + RPATypeRpaModel -> "RPAType'" + RPATypeShortName -> "RPAType'" + RPATypeCategory -> "RPAType'" + RPATypeMaximumGrossWeight -> "RPAType'" + RPATypeUserManual -> "RPAType'" + RPATypeTransponderCarriage -> "RPAType'" + RPATypeFlightTermination -> "RPAType'" + RPATypeInspectionItems -> "RPAType'" + RPATypeBeforeFlight -> "RPAType'" + RPATypeBatteryWarnings -> "RPAType'" + RPATypeEmergencyActions -> "RPAType'" + EquipmentEquipmentDescription -> "Equipment'" + EquipmentSerialNumber -> "Equipment'" + AircraftSerialNumber -> "Aircraft'" + AircraftAssociatedEquipment -> "Aircraft'" + OperatedTypeRpaType -> "OperatedType'" + OperatedTypeAirframes -> "OperatedType'" + RePLOriginPplTheory -> "RePLOrigin'" + RePLOriginRePLTrainingOrganisation -> "RePLOrigin'" + OtherReOCRolesNoOtherReOCRoles -> "OtherReOCRoles'" + OtherReOCRolesOtherReOCRolesHeld -> "OtherReOCRoles'" + NomineePerson -> "Nominee'" + NomineeOtherQualifications -> "Nominee'" + NomineeAviationExperience -> "Nominee'" + ChiefExecutiveNominee -> "ChiefExecutive'" + ChiefExecutiveDirectorStatus -> "ChiefExecutive'" + ChiefExecutiveManagementExperience -> "ChiefExecutive'" + CRPNomineeCrpIsCEO -> "CRPNominee'" + CRPNomineeCrpNominated -> "CRPNominee'" + ChiefPilotCrpNominee -> "ChiefPilot'" + ChiefPilotRePLOrigin -> "ChiefPilot'" + ChiefPilotRpaHistory -> "ChiefPilot'" + ChiefPilotOtherReOCRoles -> "ChiefPilot'" + ChiefPilotRadio -> "ChiefPilot'" + MCNomineeMcIsCEO -> "MCNominee'" + MCNomineeMcIsCRP -> "MCNominee'" + MCNomineeMcNominated -> "MCNominee'" + KeyPersonnelChiefExecutive -> "KeyPersonnel'" + KeyPersonnelChiefPilot -> "KeyPersonnel'" + KeyPersonnelMcNominee -> "KeyPersonnel'" + OperatorCompany -> "Operator'" + OperatorKeyPersonnel -> "Operator'" + OperatorFleet -> "Operator'" + ContactPersonFullName -> "ContactPerson'" + ContactPersonPosition -> "ContactPerson'" + ContactPersonPhoneNumber -> "ContactPerson'" + ContactPersonEmailAddress -> "ContactPerson'" + PrimaryContactApplicantIsPrimaryContact -> "PrimaryContact'" + PrimaryContactPrimaryContactPerson -> "PrimaryContact'" + HistoryAnswerNoHistory -> "HistoryAnswer'" + HistoryAnswerHistoryDisclosed -> "HistoryAnswer'" + PersonnelHistoryActionTaken -> "PersonnelHistory'" + PersonnelHistoryTransportLicenceRefused -> "PersonnelHistory'" + PersonnelHistoryCriminalConviction -> "PersonnelHistory'" + PersonnelHistorySuspensionPending -> "PersonnelHistory'" + RegulatoryActionReocSuspendedOrCancelled -> "RegulatoryAction'" + RegulatoryActionTypeOfAction -> "RegulatoryAction'" + RegulatoryActionAuthorisationAction -> "RegulatoryAction'" + RegulatoryActionActionDate -> "RegulatoryAction'" + RegulatoryActionActionDetails -> "RegulatoryAction'" + RegulatoryHistoryNoRegulatoryAction -> "RegulatoryHistory'" + RegulatoryHistoryRegulatoryActionTaken -> "RegulatoryHistory'" + DeclarantFullName -> "Declarant'" + DeclarantRole -> "Declarant'" + DeclarationDeclaredByCEO -> "Declaration'" + DeclarationDeclaredByResponsibleManager -> "Declaration'" + DeclarationDeclaredByAgent -> "Declaration'" + DeclarationDeclaredByOther -> "Declaration'" + WrittenSignatureWrittenSignatureImage -> "WrittenSignature'" + WrittenSignatureWrittenSignatureFile -> "WrittenSignature'" + ApplicationFormPrimaryContact -> "ApplicationForm'" + ApplicationFormPersonnelHistory -> "ApplicationForm'" + ApplicationFormRegulatoryHistory -> "ApplicationForm'" + ApplicationFormProceduresLibrary -> "ApplicationForm'" + ApplicationFormOtherDocuments -> "ApplicationForm'" + ApplicationFormDeclaration -> "ApplicationForm'" + ApplicationFormSignature -> "ApplicationForm'" + VersionMajorVersion -> "Version'" + VersionMinorVersion -> "Version'" + FirstIssueVersion -> "FirstIssue'" + FirstIssueIssueDate -> "FirstIssue'" + FirstIssueEffective -> "FirstIssue'" + FirstIssueParts -> "FirstIssue'" + FirstIssueDetails -> "FirstIssue'" + RevisionVersionIncrement -> "Revision'" + RevisionMonthsAfter -> "Revision'" + RevisionEffective -> "Revision'" + RevisionParts -> "Revision'" + RevisionDetails -> "Revision'" + PoliciesRecencyFlights -> "Policies'" + PoliciesRecencyDays -> "Policies'" + PoliciesRefresherMonths -> "Policies'" + PoliciesAlcoholHours -> "Policies'" + PoliciesRestHours -> "Policies'" + PoliciesDutyHours -> "Policies'" + PoliciesInspectionMonths -> "Policies'" + PoliciesInspectionHours -> "Policies'" + PoliciesBatteryReserve -> "Policies'" + PoliciesBackupFrequency -> "Policies'" + PoliciesIndependentReviewYears -> "Policies'" + PoliciesCheckingMonths -> "Policies'" + RiskAssessmentRiskLikelihood -> "RiskAssessment'" + RiskAssessmentRiskConsequence -> "RiskAssessment'" + RiskHazard -> "Risk'" + RiskRiskDescription -> "Risk'" + RiskExistingControls -> "Risk'" + RiskInitialRisk -> "Risk'" + RiskAdditionalControls -> "Risk'" + RiskResidualRisk -> "Risk'" + RiskRiskOwner -> "Risk'" + RiskDateEntered -> "Risk'" + RiskReviewMonths -> "Risk'" + OperationsManualFirstIssue -> "OperationsManual'" + OperationsManualRevisions -> "OperationsManual'" + OperationsManualServices -> "OperationsManual'" + OperationsManualPolicies -> "OperationsManual'" + OperationsManualRiskRegister -> "OperationsManual'" + OperationsManualCrew -> "OperationsManual'" + OperationsManualPilots -> "OperationsManual'" + CRINomineeCriIsCEO -> "CRINominee'" + CRINomineeCriIsCRP -> "CRINominee'" + CRINomineeCriIsMC -> "CRINominee'" + CRINomineeCriNominated -> "CRINominee'" + RePLHoldingHoldsRePLForEachType -> "RePLHolding'" + RePLHoldingRePLHoldingIntent -> "RePLHolding'" + TeachingQualificationTeachingQualificationHeld -> "TeachingQualification'" + TeachingQualificationTeachingQualificationIntent -> "TeachingQualification'" + OperationalExperienceHasOperationalExperience -> "OperationalExperience'" + OperationalExperienceOperationalExperienceIntent -> "OperationalExperience'" + OperationalExperienceOperationalExperienceNotApplicable -> "OperationalExperience'" + TrainingCourseCourseKind -> "TrainingCourse'" + TrainingCourseTrainingRPA -> "TrainingCourse'" + TrainingCourseComplexities -> "TrainingCourse'" + TrainingArrangementsTheoryVenues -> "TrainingArrangements'" + TrainingArrangementsPracticalAreas -> "TrainingArrangements'" + TrainingArrangementsMaxStudentsPerCourse -> "TrainingArrangements'" + TrainingArrangementsMaxStudentsPerInstructor -> "TrainingArrangements'" + TrainingArrangementsTakeover -> "TrainingArrangements'" + TrainingArrangementsTheory -> "TrainingArrangements'" + TrainingArrangementsExam -> "TrainingArrangements'" + TrainingArrangementsExamPassMark -> "TrainingArrangements'" + TrainingArrangementsExaminer -> "TrainingArrangements'" + TrainingArrangementsSimulator -> "TrainingArrangements'" + TrainingMaterialCriNominee -> "TrainingMaterial'" + TrainingMaterialRePLHolding -> "TrainingMaterial'" + TrainingMaterialTeachingQualification -> "TrainingMaterial'" + TrainingMaterialOperationalExperience -> "TrainingMaterial'" + TrainingMaterialCriOtherReOCRoles -> "TrainingMaterial'" + TrainingMaterialTrainingCourses -> "TrainingMaterial'" + TrainingMaterialTrainingArrangements -> "TrainingMaterial'" + ReOCOperator -> "ReOC'" + ReOCApplicationForm -> "ReOC'" + ReOCOperationsManual -> "ReOC'" + ReOCMaybeTrainingMaterial -> "ReOC'" diff --git a/src/ReOC/Input.hs b/src/ReOC/Input.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Input.hs @@ -0,0 +1,126 @@ +{-# LANGUAGE ConstraintKinds #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE TypeApplications #-} +{-# OPTIONS_GHC -Wall #-} + +{- | What filling in an unfilled form is built from: the errors it can give, +and how each kind of field is checked. + +The errors are given in any type @e@ that has the names of the three kinds of +error, 'Unfilled', 'Invalid' and 'TooMany' ('AsReOCError'); 'ReOCError' is +one. Each error holds the path of its field, from the whole form, so that the +same field in different places (a person's name as CEO, or as chief remote +pilot) is told apart, and the help text of the field is at hand +('ReOC.Help.fieldHelp'). +-} +module ReOC.Input ( + AsReOCError, + Fill, + at, + accepted, + checked, + required, + optional, + elements, + nonEmptyElements, + someElements, + atMostElements, + unfilledAt, +) where + +import Control.Lens (preview, review) +import Data.Functor.Identity (Identity) +import Data.List.NonEmpty (NonEmpty (..)) +import qualified Data.List.NonEmpty as NonEmpty +import Data.Maybe (fromMaybe) +import Data.Proxy (Proxy (..)) +import Data.Tagged (Tagged) +import Data.Validation (Validation (..)) +import GHC.TypeNats (KnownNat, natVal) +import Numeric.Natural (Natural) +import ReOC.Model + +{- | A type that the three kinds of error can be built in: an error type of +the caller's choice, such as 'ReOCError'. +-} +type AsReOCError e = + ( UnfilledLike Tagged Identity e e + , InvalidLike Tagged Identity e e + , TooManyLike Tagged Identity e e + ) + +-- | The result of filling in: the valid value, or every error. +type Fill e a = + Validation (NonEmpty e) a + +-- | The path to a field of the data type at a path. +at :: [Step] -> Field -> [Step] +at p f = + p <> [StepField f] + +-- | An error at a path. +failAt :: e -> Fill e a +failAt e = + Failure (e :| []) + +-- | A field that has not been filled in, at its path. +unfilledAt :: (AsReOCError e) => [Step] -> Fill e a +unfilledAt p = + failAt (review unfilled (Unfilled p)) + +-- | A value that is accepted as it is entered (an enumeration, a date, a number of any size). +accepted :: [Step] -> a -> Fill e a +accepted _ = + Success + +{- | A value that is parsed and checked (by its smart constructor, such as +@preview _Text1@, or a parser that also accepts spaces, such as 'parseABN'), +with the kind of invalid value it is when it is not accepted. +-} +checked :: (AsReOCError e) => (r -> Maybe a) -> (r -> InvalidValue) -> [Step] -> r -> Fill e a +checked parse invalidAs q r = + maybe (failAt (review invalid (Invalid q (invalidAs r)))) Success (parse r) + +-- | A field that must be filled in. +required :: (AsReOCError e) => ([Step] -> a -> Fill e b) -> [Step] -> Maybe a -> Fill e b +required f q = + maybe (unfilledAt q) (f q) + +-- | A field that may be left empty. +optional :: ([Step] -> a -> Fill e b) -> [Step] -> Maybe a -> Fill e (Maybe b) +optional f q = + traverse (f q) + +-- | The elements of a list field, each at its index. +elements :: ([Step] -> a -> Fill e b) -> [Step] -> [a] -> Fill e [b] +elements f q xs = + traverse (\(i, x) -> f (q <> [StepIndex i]) x) (zip [0 :: Natural ..] xs) + +-- | A list field that must have at least one element. +nonEmptyElements :: (AsReOCError e) => ([Step] -> a -> Fill e b) -> [Step] -> [a] -> Fill e (NonEmpty b) +nonEmptyElements f q xs = + case NonEmpty.nonEmpty xs of + Nothing -> unfilledAt q + Just _ -> NonEmpty.fromList <$> elements f q xs + +-- | A list field with one to @n@ elements. +someElements :: forall n e a b. (AsReOCError e, KnownNat n) => ([Step] -> a -> Fill e b) -> [Step] -> [a] -> Fill e (Some n b) +someElements f q xs = + let most = natVal (Proxy :: Proxy n) + in case NonEmpty.nonEmpty xs of + Nothing -> unfilledAt q + Just _ + | fromIntegral (length xs) > most -> failAt (review tooMany (TooMany q most (fromIntegral (length xs)))) + | otherwise -> + (\ys -> fromMaybe (error "someElements: checked length") (NonEmpty.nonEmpty ys >>= preview (_Some @n))) + <$> elements f q xs + +-- | A list field with at most @n@ elements. +atMostElements :: forall n e a b. (AsReOCError e, KnownNat n) => ([Step] -> a -> Fill e b) -> [Step] -> [a] -> Fill e (AtMost n b) +atMostElements f q xs = + let most = natVal (Proxy :: Proxy n) + in if fromIntegral (length xs) > most + then failAt (review tooMany (TooMany q most (fromIntegral (length xs)))) + else fromMaybe (error "atMostElements: checked length") . preview (_AtMost @n) <$> elements f q xs diff --git a/src/ReOC/Model.hs b/src/ReOC/Model.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Model.hs @@ -0,0 +1,1020 @@ +{-# OPTIONS_GHC -Wall #-} + +{- | Every data type, name and primitive type of the package. + +Re-exporting every module of names and of data types here means that a name declared in two +modules, or a constructor declared twice, fails to compile. +-} +module ReOC.Model ( + module ReOC.Data.Address, + module ReOC.Data.Aircraft, + module ReOC.Data.ApplicationForm, + module ReOC.Data.AustralianState, + module ReOC.Data.BackupInterval, + module ReOC.Data.CRINominee, + module ReOC.Data.CRPNominee, + module ReOC.Data.ChiefExecutive, + module ReOC.Data.ChiefPilot, + module ReOC.Data.Company, + module ReOC.Data.Complexity, + module ReOC.Data.Consequence, + module ReOC.Data.ContactPerson, + module ReOC.Data.CourseType, + module ReOC.Data.Crewing, + module ReOC.Data.Declarant, + module ReOC.Data.Declaration, + module ReOC.Data.Directorship, + module ReOC.Data.EmergencyAction, + module ReOC.Data.Equipment, + module ReOC.Data.ExamDelivery, + module ReOC.Data.Field, + module ReOC.Data.FirstIssue, + module ReOC.Data.FlightTermination, + module ReOC.Data.FlightTestExaminer, + module ReOC.Data.HistoryAnswer, + module ReOC.Data.InstructorTakeover, + module ReOC.Data.Invalid, + module ReOC.Data.InvalidValue, + module ReOC.Data.KeyPersonnel, + module ReOC.Data.KeyPosition, + module ReOC.Data.Likelihood, + module ReOC.Data.MCNominee, + module ReOC.Data.Nominee, + module ReOC.Data.OperatedType, + module ReOC.Data.OperationalExperience, + module ReOC.Data.OperationalHeadquarters, + module ReOC.Data.OperationsManual, + module ReOC.Data.Operator, + module ReOC.Data.OtherReOCRoles, + module ReOC.Data.Person, + module ReOC.Data.PersonnelHistory, + module ReOC.Data.Policies, + module ReOC.Data.PrimaryContact, + module ReOC.Data.RPACategory, + module ReOC.Data.RPAType, + module ReOC.Data.RadioQualification, + module ReOC.Data.ReOC, + module ReOC.Data.ReOCError, + module ReOC.Data.RePLHolding, + module ReOC.Data.RePLOrigin, + module ReOC.Data.RegulatoryAction, + module ReOC.Data.RegulatoryHistory, + module ReOC.Data.RemotePilots, + module ReOC.Data.Revision, + module ReOC.Data.Risk, + module ReOC.Data.RiskAssessment, + module ReOC.Data.RiskLevel, + module ReOC.Data.Step, + module ReOC.Data.TeachingQualification, + module ReOC.Data.TheoryDelivery, + module ReOC.Data.TooMany, + module ReOC.Data.TrainingArrangements, + module ReOC.Data.TrainingCourse, + module ReOC.Data.TrainingMaterial, + module ReOC.Data.Transponder, + module ReOC.Data.Unfilled, + module ReOC.Data.Version, + module ReOC.Data.VersionChange, + module ReOC.Data.WrittenSignature, + module ReOC.Name.Abn, + module ReOC.Name.ActionDate, + module ReOC.Name.ActionDetails, + module ReOC.Name.ActionSteps, + module ReOC.Name.ActionTaken, + module ReOC.Name.AdditionalControls, + module ReOC.Name.AddressPostcode, + module ReOC.Name.AddressStateOrTerritory, + module ReOC.Name.AddressStreetAddress, + module ReOC.Name.AddressSuburb, + module ReOC.Name.Aeroplane, + module ReOC.Name.AircraftAssociatedEquipment, + module ReOC.Name.AircraftSerialNumber, + module ReOC.Name.Airframes, + module ReOC.Name.AlcoholHours, + module ReOC.Name.ApplicantIsPrimaryContact, + module ReOC.Name.ApplicationForm, + module ReOC.Name.ApplicationFormDeclaration, + module ReOC.Name.ApplicationFormOtherDocuments, + module ReOC.Name.ApplicationFormPersonnelHistory, + module ReOC.Name.ApplicationFormPrimaryContact, + module ReOC.Name.ApplicationFormProceduresLibrary, + module ReOC.Name.ApplicationFormRegulatoryHistory, + module ReOC.Name.ApplicationFormSignature, + module ReOC.Name.Arn, + module ReOC.Name.AssociatedEquipment, + module ReOC.Name.AtRegisteredOffice, + module ReOC.Name.AustralianCapitalTerritory, + module ReOC.Name.AuthorisationAction, + module ReOC.Name.AutomatedAndManual, + module ReOC.Name.AutomatedOnly, + module ReOC.Name.AviationExperience, + module ReOC.Name.BackupFrequency, + module ReOC.Name.BatteryReserve, + module ReOC.Name.BatteryWarnings, + module ReOC.Name.BeforeFlight, + module ReOC.Name.BlendedTheory, + module ReOC.Name.BusinessName, + module ReOC.Name.Catastrophic, + module ReOC.Name.Category, + module ReOC.Name.CheckingMonths, + module ReOC.Name.ChiefExecutive, + module ReOC.Name.ChiefExecutiveDirectorStatus, + module ReOC.Name.ChiefExecutiveManagementExperience, + module ReOC.Name.ChiefExecutiveNominee, + module ReOC.Name.ChiefExecutiveOfficer, + module ReOC.Name.ChiefPilot, + module ReOC.Name.ChiefPilotCrpNominee, + module ReOC.Name.ChiefPilotOtherReOCRoles, + module ReOC.Name.ChiefPilotRadio, + module ReOC.Name.ChiefPilotRePLOrigin, + module ReOC.Name.ChiefPilotRpaHistory, + module ReOC.Name.ChiefRemotePilot, + module ReOC.Name.ClassroomTheory, + module ReOC.Name.Company, + module ReOC.Name.CompanyAbn, + module ReOC.Name.CompanyArn, + module ReOC.Name.CompanyBusinessName, + module ReOC.Name.CompanyCompanyName, + module ReOC.Name.CompanyEmailAddress, + module ReOC.Name.CompanyName, + module ReOC.Name.CompanyOperationalHeadquarters, + module ReOC.Name.CompanyPhoneNumber, + module ReOC.Name.CompanyRegisteredOffice, + module ReOC.Name.Complexities, + module ReOC.Name.ComputerExamination, + module ReOC.Name.ContactPersonEmailAddress, + module ReOC.Name.ContactPersonFullName, + module ReOC.Name.ContactPersonPhoneNumber, + module ReOC.Name.ContactPersonPosition, + module ReOC.Name.CourseKind, + module ReOC.Name.Crew, + module ReOC.Name.CriConductsFlightTests, + module ReOC.Name.CriIsCEO, + module ReOC.Name.CriIsCRP, + module ReOC.Name.CriIsMC, + module ReOC.Name.CriNominated, + module ReOC.Name.CriNominee, + module ReOC.Name.CriNomineeCriIsCEO, + module ReOC.Name.CriNomineeCriIsCRP, + module ReOC.Name.CriNomineeCriIsMC, + module ReOC.Name.CriNomineeCriNominated, + module ReOC.Name.CriOtherReOCRoles, + module ReOC.Name.CriminalConviction, + module ReOC.Name.CrpIsCEO, + module ReOC.Name.CrpIsOnlyRemotePilot, + module ReOC.Name.CrpNominated, + module ReOC.Name.CrpNominee, + module ReOC.Name.CrpNomineeCrpIsCEO, + module ReOC.Name.CrpNomineeCrpNominated, + module ReOC.Name.Daily, + module ReOC.Name.DateEntered, + module ReOC.Name.DeclarantFullName, + module ReOC.Name.DeclarantRole, + module ReOC.Name.Declaration, + module ReOC.Name.DeclarationDeclaredByAgent, + module ReOC.Name.DeclarationDeclaredByCEO, + module ReOC.Name.DeclarationDeclaredByOther, + module ReOC.Name.DeclarationDeclaredByResponsibleManager, + module ReOC.Name.DeclaredByAgent, + module ReOC.Name.DeclaredByCEO, + module ReOC.Name.DeclaredByOther, + module ReOC.Name.DeclaredByResponsibleManager, + module ReOC.Name.Details, + module ReOC.Name.Director, + module ReOC.Name.DirectorStatus, + module ReOC.Name.DualControllerLink, + module ReOC.Name.DutyHours, + module ReOC.Name.Effective, + module ReOC.Name.EmailAddress, + module ReOC.Name.EmergencyActionActionSteps, + module ReOC.Name.EmergencyActionResponse, + module ReOC.Name.EmergencyActionSituation, + module ReOC.Name.EmergencyActions, + module ReOC.Name.EquipmentDescription, + module ReOC.Name.EquipmentEquipmentDescription, + module ReOC.Name.EquipmentSerialNumber, + module ReOC.Name.Exam, + module ReOC.Name.ExamPassMark, + module ReOC.Name.Examiner, + module ReOC.Name.ExistingControls, + module ReOC.Name.ExtremelyImprobable, + module ReOC.Name.FirstIssue, + module ReOC.Name.FirstIssueDetails, + module ReOC.Name.FirstIssueEffective, + module ReOC.Name.FirstIssueIssueDate, + module ReOC.Name.FirstIssueParts, + module ReOC.Name.FirstIssueVersion, + module ReOC.Name.Fleet, + module ReOC.Name.FlightCrewLicence, + module ReOC.Name.FlightTermination, + module ReOC.Name.FlightTerminationFlightTerminationSystem, + module ReOC.Name.FlightTerminationNoFlightTerminationSystem, + module ReOC.Name.FlightTerminationSystem, + module ReOC.Name.Frequent, + module ReOC.Name.FullName, + module ReOC.Name.GivenElements, + module ReOC.Name.HasOperationalExperience, + module ReOC.Name.Hazard, + module ReOC.Name.Hazardous, + module ReOC.Name.Helicopter, + module ReOC.Name.High, + module ReOC.Name.HistoryAnswerHistoryDisclosed, + module ReOC.Name.HistoryAnswerNoHistory, + module ReOC.Name.HistoryDisclosed, + module ReOC.Name.HoldsRePLForEachType, + module ReOC.Name.Improbable, + module ReOC.Name.IndependentExaminerWhereAvailable, + module ReOC.Name.IndependentReviewYears, + module ReOC.Name.InitialCourse, + module ReOC.Name.InitialRisk, + module ReOC.Name.InspectionHours, + module ReOC.Name.InspectionItems, + module ReOC.Name.InspectionMonths, + module ReOC.Name.InvalidABN, + module ReOC.Name.InvalidARN, + module ReOC.Name.InvalidEmailAddress, + module ReOC.Name.InvalidFormText, + module ReOC.Name.InvalidGrossWeight, + module ReOC.Name.InvalidPassMark, + module ReOC.Name.InvalidPercentage, + module ReOC.Name.InvalidPhoneNumber, + module ReOC.Name.InvalidPositive, + module ReOC.Name.InvalidPostcode, + module ReOC.Name.InvalidReviewMonths, + module ReOC.Name.InvalidText1, + module ReOC.Name.IssueDate, + module ReOC.Name.KeyPersonnel, + module ReOC.Name.KeyPersonnelChiefExecutive, + module ReOC.Name.KeyPersonnelChiefPilot, + module ReOC.Name.KeyPersonnelMcNominee, + module ReOC.Name.Low, + module ReOC.Name.MaintenanceController, + module ReOC.Name.MajorRevision, + module ReOC.Name.MajorVersion, + module ReOC.Name.ManagementExperience, + module ReOC.Name.MaxStudentsPerCourse, + module ReOC.Name.MaxStudentsPerInstructor, + module ReOC.Name.MaximumGrossWeight, + module ReOC.Name.MaybeTrainingMaterial, + module ReOC.Name.McIsCEO, + module ReOC.Name.McIsCRP, + module ReOC.Name.McNominated, + module ReOC.Name.McNominee, + module ReOC.Name.McNomineeMcIsCEO, + module ReOC.Name.McNomineeMcIsCRP, + module ReOC.Name.McNomineeMcNominated, + module ReOC.Name.Medium, + module ReOC.Name.Minor, + module ReOC.Name.MinorRevision, + module ReOC.Name.MinorVersion, + module ReOC.Name.Moderate, + module ReOC.Name.Monthly, + module ReOC.Name.MonthsAfter, + module ReOC.Name.MostElements, + module ReOC.Name.Multirotor, + module ReOC.Name.Negligible, + module ReOC.Name.NewSouthWales, + module ReOC.Name.NoFlightTerminationSystem, + module ReOC.Name.NoHistory, + module ReOC.Name.NoOtherReOCRoles, + module ReOC.Name.NoRadioQualification, + module ReOC.Name.NoRegulatoryAction, + module ReOC.Name.NoTransponder, + module ReOC.Name.Nominee, + module ReOC.Name.NomineeAviationExperience, + module ReOC.Name.NomineeOtherQualifications, + module ReOC.Name.NomineePerson, + module ReOC.Name.NorthernTerritory, + module ReOC.Name.NotADirector, + module ReOC.Name.Occasional, + module ReOC.Name.OnlineTheory, + module ReOC.Name.OperatedTypeAirframes, + module ReOC.Name.OperatedTypeRpaType, + module ReOC.Name.OperationalExperience, + module ReOC.Name.OperationalExperienceHasOperationalExperience, + module ReOC.Name.OperationalExperienceIntent, + module ReOC.Name.OperationalExperienceNotApplicable, + module ReOC.Name.OperationalExperienceOperationalExperienceIntent, + module ReOC.Name.OperationalExperienceOperationalExperienceNotApplicable, + module ReOC.Name.OperationalHeadquarters, + module ReOC.Name.OperationalHeadquartersAddress, + module ReOC.Name.OperationalHeadquartersAtRegisteredOffice, + module ReOC.Name.OperationalHeadquartersOperationalHeadquartersAddress, + module ReOC.Name.OperationsManual, + module ReOC.Name.OperationsManualCrew, + module ReOC.Name.OperationsManualFirstIssue, + module ReOC.Name.OperationsManualPilots, + module ReOC.Name.OperationsManualPolicies, + module ReOC.Name.OperationsManualRevisions, + module ReOC.Name.OperationsManualRiskRegister, + module ReOC.Name.OperationsManualServices, + module ReOC.Name.Operator, + module ReOC.Name.OperatorCompany, + module ReOC.Name.OperatorFleet, + module ReOC.Name.OperatorKeyPersonnel, + module ReOC.Name.OtherDocuments, + module ReOC.Name.OtherQualifications, + module ReOC.Name.OtherReOCRoles, + module ReOC.Name.OtherReOCRolesHeld, + module ReOC.Name.OtherReOCRolesNoOtherReOCRoles, + module ReOC.Name.OtherReOCRolesOtherReOCRolesHeld, + module ReOC.Name.OtherRemotePilots, + module ReOC.Name.PaperExamination, + module ReOC.Name.Parts, + module ReOC.Name.Path, + module ReOC.Name.Person, + module ReOC.Name.PersonArn, + module ReOC.Name.PersonEmailAddress, + module ReOC.Name.PersonFullName, + module ReOC.Name.PersonPhoneNumber, + module ReOC.Name.PersonnelHistory, + module ReOC.Name.PersonnelHistoryActionTaken, + module ReOC.Name.PersonnelHistoryCriminalConviction, + module ReOC.Name.PersonnelHistorySuspensionPending, + module ReOC.Name.PersonnelHistoryTransportLicenceRefused, + module ReOC.Name.PhoneNumber, + module ReOC.Name.Pilots, + module ReOC.Name.Policies, + module ReOC.Name.PoliciesAlcoholHours, + module ReOC.Name.PoliciesBackupFrequency, + module ReOC.Name.PoliciesBatteryReserve, + module ReOC.Name.PoliciesCheckingMonths, + module ReOC.Name.PoliciesDutyHours, + module ReOC.Name.PoliciesIndependentReviewYears, + module ReOC.Name.PoliciesInspectionHours, + module ReOC.Name.PoliciesInspectionMonths, + module ReOC.Name.PoliciesRecencyDays, + module ReOC.Name.PoliciesRecencyFlights, + module ReOC.Name.PoliciesRefresherMonths, + module ReOC.Name.PoliciesRestHours, + module ReOC.Name.Position, + module ReOC.Name.Postcode, + module ReOC.Name.PoweredLift, + module ReOC.Name.PplTheory, + module ReOC.Name.PracticalAreas, + module ReOC.Name.PrimaryContact, + module ReOC.Name.PrimaryContactApplicantIsPrimaryContact, + module ReOC.Name.PrimaryContactPerson, + module ReOC.Name.PrimaryContactPrimaryContactPerson, + module ReOC.Name.ProceduresLibrary, + module ReOC.Name.Queensland, + module ReOC.Name.Radio, + module ReOC.Name.RadioOperatorCertificate, + module ReOC.Name.ReOCApplicationForm, + module ReOC.Name.ReOCMaybeTrainingMaterial, + module ReOC.Name.ReOCOperationsManual, + module ReOC.Name.ReOCOperator, + module ReOC.Name.RePLHolding, + module ReOC.Name.RePLHoldingHoldsRePLForEachType, + module ReOC.Name.RePLHoldingIntent, + module ReOC.Name.RePLHoldingRePLHoldingIntent, + module ReOC.Name.RePLOrigin, + module ReOC.Name.RePLOriginPplTheory, + module ReOC.Name.RePLOriginRePLTrainingOrganisation, + module ReOC.Name.RePLTrainingOrganisation, + module ReOC.Name.RecencyDays, + module ReOC.Name.RecencyFlights, + module ReOC.Name.RefresherMonths, + module ReOC.Name.RegisteredOffice, + module ReOC.Name.RegulatoryActionActionDate, + module ReOC.Name.RegulatoryActionActionDetails, + module ReOC.Name.RegulatoryActionAuthorisationAction, + module ReOC.Name.RegulatoryActionReocSuspendedOrCancelled, + module ReOC.Name.RegulatoryActionTaken, + module ReOC.Name.RegulatoryActionTypeOfAction, + module ReOC.Name.RegulatoryHistory, + module ReOC.Name.RegulatoryHistoryNoRegulatoryAction, + module ReOC.Name.RegulatoryHistoryRegulatoryActionTaken, + module ReOC.Name.Remote, + module ReOC.Name.ReocSuspendedOrCancelled, + module ReOC.Name.ResidualRisk, + module ReOC.Name.Response, + module ReOC.Name.RestHours, + module ReOC.Name.ReviewMonths, + module ReOC.Name.RevisionDetails, + module ReOC.Name.RevisionEffective, + module ReOC.Name.RevisionMonthsAfter, + module ReOC.Name.RevisionParts, + module ReOC.Name.RevisionVersionIncrement, + module ReOC.Name.Revisions, + module ReOC.Name.RiskAdditionalControls, + module ReOC.Name.RiskAssessmentRiskConsequence, + module ReOC.Name.RiskAssessmentRiskLikelihood, + module ReOC.Name.RiskConsequence, + module ReOC.Name.RiskDateEntered, + module ReOC.Name.RiskDescription, + module ReOC.Name.RiskExistingControls, + module ReOC.Name.RiskHazard, + module ReOC.Name.RiskInitialRisk, + module ReOC.Name.RiskLikelihood, + module ReOC.Name.RiskOwner, + module ReOC.Name.RiskRegister, + module ReOC.Name.RiskResidualRisk, + module ReOC.Name.RiskReviewMonths, + module ReOC.Name.RiskRiskDescription, + module ReOC.Name.RiskRiskOwner, + module ReOC.Name.Role, + module ReOC.Name.RpaHistory, + module ReOC.Name.RpaMake, + module ReOC.Name.RpaModel, + module ReOC.Name.RpaType, + module ReOC.Name.RpaTypeBatteryWarnings, + module ReOC.Name.RpaTypeBeforeFlight, + module ReOC.Name.RpaTypeCategory, + module ReOC.Name.RpaTypeEmergencyActions, + module ReOC.Name.RpaTypeFlightTermination, + module ReOC.Name.RpaTypeInspectionItems, + module ReOC.Name.RpaTypeMaximumGrossWeight, + module ReOC.Name.RpaTypeRpaMake, + module ReOC.Name.RpaTypeRpaModel, + module ReOC.Name.RpaTypeShortName, + module ReOC.Name.RpaTypeTransponderCarriage, + module ReOC.Name.RpaTypeUserManual, + module ReOC.Name.SerialNumber, + module ReOC.Name.Services, + module ReOC.Name.SharedController, + module ReOC.Name.ShortName, + module ReOC.Name.Signature, + module ReOC.Name.Simulator, + module ReOC.Name.Situation, + module ReOC.Name.SoleDirector, + module ReOC.Name.SoloAndMultiCrewOperations, + module ReOC.Name.SoloOperationsOnly, + module ReOC.Name.SouthAustralia, + module ReOC.Name.StateOrTerritory, + module ReOC.Name.StepIndex, + module ReOC.Name.StreetAddress, + module ReOC.Name.Suburb, + module ReOC.Name.SuspensionPending, + module ReOC.Name.Takeover, + module ReOC.Name.Tasmania, + module ReOC.Name.TeachingQualification, + module ReOC.Name.TeachingQualificationHeld, + module ReOC.Name.TeachingQualificationIntent, + module ReOC.Name.TeachingQualificationTeachingQualificationHeld, + module ReOC.Name.TeachingQualificationTeachingQualificationIntent, + module ReOC.Name.Theory, + module ReOC.Name.TheoryVenues, + module ReOC.Name.TrainingArrangements, + module ReOC.Name.TrainingArrangementsExam, + module ReOC.Name.TrainingArrangementsExamPassMark, + module ReOC.Name.TrainingArrangementsExaminer, + module ReOC.Name.TrainingArrangementsMaxStudentsPerCourse, + module ReOC.Name.TrainingArrangementsMaxStudentsPerInstructor, + module ReOC.Name.TrainingArrangementsPracticalAreas, + module ReOC.Name.TrainingArrangementsSimulator, + module ReOC.Name.TrainingArrangementsTakeover, + module ReOC.Name.TrainingArrangementsTheory, + module ReOC.Name.TrainingArrangementsTheoryVenues, + module ReOC.Name.TrainingCourseComplexities, + module ReOC.Name.TrainingCourseCourseKind, + module ReOC.Name.TrainingCourseTrainingRPA, + module ReOC.Name.TrainingCourses, + module ReOC.Name.TrainingMaterialCriNominee, + module ReOC.Name.TrainingMaterialCriOtherReOCRoles, + module ReOC.Name.TrainingMaterialOperationalExperience, + module ReOC.Name.TrainingMaterialRePLHolding, + module ReOC.Name.TrainingMaterialTeachingQualification, + module ReOC.Name.TrainingMaterialTrainingArrangements, + module ReOC.Name.TrainingMaterialTrainingCourses, + module ReOC.Name.TrainingRPA, + module ReOC.Name.TransponderCarriage, + module ReOC.Name.TransponderFitted, + module ReOC.Name.TransportLicenceRefused, + module ReOC.Name.TypeOfAction, + module ReOC.Name.UpgradeDifferentCategory, + module ReOC.Name.UpgradeSameCategory, + module ReOC.Name.UserManual, + module ReOC.Name.Version, + module ReOC.Name.VersionIncrement, + module ReOC.Name.VersionMajorVersion, + module ReOC.Name.VersionMinorVersion, + module ReOC.Name.Victoria, + module ReOC.Name.Weekly, + module ReOC.Name.WesternAustralia, + module ReOC.Name.WrittenSignatureFile, + module ReOC.Name.WrittenSignatureImage, + module ReOC.Name.WrittenSignatureWrittenSignatureFile, + module ReOC.Name.WrittenSignatureWrittenSignatureImage, + module ReOC.Primitive.ABN, + module ReOC.Primitive.ARN, + module ReOC.Primitive.AtMost, + module ReOC.Primitive.EmailAddress, + module ReOC.Primitive.FormFont, + module ReOC.Primitive.FormText, + module ReOC.Primitive.GrossWeight, + module ReOC.Primitive.PassMark, + module ReOC.Primitive.Percentage, + module ReOC.Primitive.PhoneNumber, + module ReOC.Primitive.Positive, + module ReOC.Primitive.Postcode, + module ReOC.Primitive.ReviewMonths, + module ReOC.Primitive.Some, + module ReOC.Primitive.Text1, +) where + +import ReOC.Data.Address +import ReOC.Data.Aircraft +import ReOC.Data.ApplicationForm +import ReOC.Data.AustralianState +import ReOC.Data.BackupInterval +import ReOC.Data.CRINominee +import ReOC.Data.CRPNominee +import ReOC.Data.ChiefExecutive +import ReOC.Data.ChiefPilot +import ReOC.Data.Company +import ReOC.Data.Complexity +import ReOC.Data.Consequence +import ReOC.Data.ContactPerson +import ReOC.Data.CourseType +import ReOC.Data.Crewing +import ReOC.Data.Declarant +import ReOC.Data.Declaration +import ReOC.Data.Directorship +import ReOC.Data.EmergencyAction +import ReOC.Data.Equipment +import ReOC.Data.ExamDelivery +import ReOC.Data.Field +import ReOC.Data.FirstIssue +import ReOC.Data.FlightTermination +import ReOC.Data.FlightTestExaminer +import ReOC.Data.HistoryAnswer +import ReOC.Data.InstructorTakeover +import ReOC.Data.Invalid +import ReOC.Data.InvalidValue +import ReOC.Data.KeyPersonnel +import ReOC.Data.KeyPosition +import ReOC.Data.Likelihood +import ReOC.Data.MCNominee +import ReOC.Data.Nominee +import ReOC.Data.OperatedType +import ReOC.Data.OperationalExperience +import ReOC.Data.OperationalHeadquarters +import ReOC.Data.OperationsManual +import ReOC.Data.Operator +import ReOC.Data.OtherReOCRoles +import ReOC.Data.Person +import ReOC.Data.PersonnelHistory +import ReOC.Data.Policies +import ReOC.Data.PrimaryContact +import ReOC.Data.RPACategory +import ReOC.Data.RPAType +import ReOC.Data.RadioQualification +import ReOC.Data.ReOC +import ReOC.Data.ReOCError +import ReOC.Data.RePLHolding +import ReOC.Data.RePLOrigin +import ReOC.Data.RegulatoryAction +import ReOC.Data.RegulatoryHistory +import ReOC.Data.RemotePilots +import ReOC.Data.Revision +import ReOC.Data.Risk +import ReOC.Data.RiskAssessment +import ReOC.Data.RiskLevel +import ReOC.Data.Step +import ReOC.Data.TeachingQualification +import ReOC.Data.TheoryDelivery +import ReOC.Data.TooMany +import ReOC.Data.TrainingArrangements +import ReOC.Data.TrainingCourse +import ReOC.Data.TrainingMaterial +import ReOC.Data.Transponder +import ReOC.Data.Unfilled +import ReOC.Data.Version +import ReOC.Data.VersionChange +import ReOC.Data.WrittenSignature +import ReOC.Name.Abn +import ReOC.Name.ActionDate +import ReOC.Name.ActionDetails +import ReOC.Name.ActionSteps +import ReOC.Name.ActionTaken +import ReOC.Name.AdditionalControls +import ReOC.Name.AddressPostcode +import ReOC.Name.AddressStateOrTerritory +import ReOC.Name.AddressStreetAddress +import ReOC.Name.AddressSuburb +import ReOC.Name.Aeroplane +import ReOC.Name.AircraftAssociatedEquipment +import ReOC.Name.AircraftSerialNumber +import ReOC.Name.Airframes +import ReOC.Name.AlcoholHours +import ReOC.Name.ApplicantIsPrimaryContact +import ReOC.Name.ApplicationForm +import ReOC.Name.ApplicationFormDeclaration +import ReOC.Name.ApplicationFormOtherDocuments +import ReOC.Name.ApplicationFormPersonnelHistory +import ReOC.Name.ApplicationFormPrimaryContact +import ReOC.Name.ApplicationFormProceduresLibrary +import ReOC.Name.ApplicationFormRegulatoryHistory +import ReOC.Name.ApplicationFormSignature +import ReOC.Name.Arn +import ReOC.Name.AssociatedEquipment +import ReOC.Name.AtRegisteredOffice +import ReOC.Name.AustralianCapitalTerritory +import ReOC.Name.AuthorisationAction +import ReOC.Name.AutomatedAndManual +import ReOC.Name.AutomatedOnly +import ReOC.Name.AviationExperience +import ReOC.Name.BackupFrequency +import ReOC.Name.BatteryReserve +import ReOC.Name.BatteryWarnings +import ReOC.Name.BeforeFlight +import ReOC.Name.BlendedTheory +import ReOC.Name.BusinessName +import ReOC.Name.Catastrophic +import ReOC.Name.Category +import ReOC.Name.CheckingMonths +import ReOC.Name.ChiefExecutive +import ReOC.Name.ChiefExecutiveDirectorStatus +import ReOC.Name.ChiefExecutiveManagementExperience +import ReOC.Name.ChiefExecutiveNominee +import ReOC.Name.ChiefExecutiveOfficer +import ReOC.Name.ChiefPilot +import ReOC.Name.ChiefPilotCrpNominee +import ReOC.Name.ChiefPilotOtherReOCRoles +import ReOC.Name.ChiefPilotRadio +import ReOC.Name.ChiefPilotRePLOrigin +import ReOC.Name.ChiefPilotRpaHistory +import ReOC.Name.ChiefRemotePilot +import ReOC.Name.ClassroomTheory +import ReOC.Name.Company +import ReOC.Name.CompanyAbn +import ReOC.Name.CompanyArn +import ReOC.Name.CompanyBusinessName +import ReOC.Name.CompanyCompanyName +import ReOC.Name.CompanyEmailAddress +import ReOC.Name.CompanyName +import ReOC.Name.CompanyOperationalHeadquarters +import ReOC.Name.CompanyPhoneNumber +import ReOC.Name.CompanyRegisteredOffice +import ReOC.Name.Complexities +import ReOC.Name.ComputerExamination +import ReOC.Name.ContactPersonEmailAddress +import ReOC.Name.ContactPersonFullName +import ReOC.Name.ContactPersonPhoneNumber +import ReOC.Name.ContactPersonPosition +import ReOC.Name.CourseKind +import ReOC.Name.Crew +import ReOC.Name.CriConductsFlightTests +import ReOC.Name.CriIsCEO +import ReOC.Name.CriIsCRP +import ReOC.Name.CriIsMC +import ReOC.Name.CriNominated +import ReOC.Name.CriNominee +import ReOC.Name.CriNomineeCriIsCEO +import ReOC.Name.CriNomineeCriIsCRP +import ReOC.Name.CriNomineeCriIsMC +import ReOC.Name.CriNomineeCriNominated +import ReOC.Name.CriOtherReOCRoles +import ReOC.Name.CriminalConviction +import ReOC.Name.CrpIsCEO +import ReOC.Name.CrpIsOnlyRemotePilot +import ReOC.Name.CrpNominated +import ReOC.Name.CrpNominee +import ReOC.Name.CrpNomineeCrpIsCEO +import ReOC.Name.CrpNomineeCrpNominated +import ReOC.Name.Daily +import ReOC.Name.DateEntered +import ReOC.Name.DeclarantFullName +import ReOC.Name.DeclarantRole +import ReOC.Name.Declaration +import ReOC.Name.DeclarationDeclaredByAgent +import ReOC.Name.DeclarationDeclaredByCEO +import ReOC.Name.DeclarationDeclaredByOther +import ReOC.Name.DeclarationDeclaredByResponsibleManager +import ReOC.Name.DeclaredByAgent +import ReOC.Name.DeclaredByCEO +import ReOC.Name.DeclaredByOther +import ReOC.Name.DeclaredByResponsibleManager +import ReOC.Name.Details +import ReOC.Name.Director +import ReOC.Name.DirectorStatus +import ReOC.Name.DualControllerLink +import ReOC.Name.DutyHours +import ReOC.Name.Effective +import ReOC.Name.EmailAddress +import ReOC.Name.EmergencyActionActionSteps +import ReOC.Name.EmergencyActionResponse +import ReOC.Name.EmergencyActionSituation +import ReOC.Name.EmergencyActions +import ReOC.Name.EquipmentDescription +import ReOC.Name.EquipmentEquipmentDescription +import ReOC.Name.EquipmentSerialNumber +import ReOC.Name.Exam +import ReOC.Name.ExamPassMark +import ReOC.Name.Examiner +import ReOC.Name.ExistingControls +import ReOC.Name.ExtremelyImprobable +import ReOC.Name.FirstIssue +import ReOC.Name.FirstIssueDetails +import ReOC.Name.FirstIssueEffective +import ReOC.Name.FirstIssueIssueDate +import ReOC.Name.FirstIssueParts +import ReOC.Name.FirstIssueVersion +import ReOC.Name.Fleet +import ReOC.Name.FlightCrewLicence +import ReOC.Name.FlightTermination +import ReOC.Name.FlightTerminationFlightTerminationSystem +import ReOC.Name.FlightTerminationNoFlightTerminationSystem +import ReOC.Name.FlightTerminationSystem +import ReOC.Name.Frequent +import ReOC.Name.FullName +import ReOC.Name.GivenElements +import ReOC.Name.HasOperationalExperience +import ReOC.Name.Hazard +import ReOC.Name.Hazardous +import ReOC.Name.Helicopter +import ReOC.Name.High +import ReOC.Name.HistoryAnswerHistoryDisclosed +import ReOC.Name.HistoryAnswerNoHistory +import ReOC.Name.HistoryDisclosed +import ReOC.Name.HoldsRePLForEachType +import ReOC.Name.Improbable +import ReOC.Name.IndependentExaminerWhereAvailable +import ReOC.Name.IndependentReviewYears +import ReOC.Name.InitialCourse +import ReOC.Name.InitialRisk +import ReOC.Name.InspectionHours +import ReOC.Name.InspectionItems +import ReOC.Name.InspectionMonths +import ReOC.Name.InvalidABN +import ReOC.Name.InvalidARN +import ReOC.Name.InvalidEmailAddress +import ReOC.Name.InvalidFormText +import ReOC.Name.InvalidGrossWeight +import ReOC.Name.InvalidPassMark +import ReOC.Name.InvalidPercentage +import ReOC.Name.InvalidPhoneNumber +import ReOC.Name.InvalidPositive +import ReOC.Name.InvalidPostcode +import ReOC.Name.InvalidReviewMonths +import ReOC.Name.InvalidText1 +import ReOC.Name.IssueDate +import ReOC.Name.KeyPersonnel +import ReOC.Name.KeyPersonnelChiefExecutive +import ReOC.Name.KeyPersonnelChiefPilot +import ReOC.Name.KeyPersonnelMcNominee +import ReOC.Name.Low +import ReOC.Name.MaintenanceController +import ReOC.Name.MajorRevision +import ReOC.Name.MajorVersion +import ReOC.Name.ManagementExperience +import ReOC.Name.MaxStudentsPerCourse +import ReOC.Name.MaxStudentsPerInstructor +import ReOC.Name.MaximumGrossWeight +import ReOC.Name.MaybeTrainingMaterial +import ReOC.Name.McIsCEO +import ReOC.Name.McIsCRP +import ReOC.Name.McNominated +import ReOC.Name.McNominee +import ReOC.Name.McNomineeMcIsCEO +import ReOC.Name.McNomineeMcIsCRP +import ReOC.Name.McNomineeMcNominated +import ReOC.Name.Medium +import ReOC.Name.Minor +import ReOC.Name.MinorRevision +import ReOC.Name.MinorVersion +import ReOC.Name.Moderate +import ReOC.Name.Monthly +import ReOC.Name.MonthsAfter +import ReOC.Name.MostElements +import ReOC.Name.Multirotor +import ReOC.Name.Negligible +import ReOC.Name.NewSouthWales +import ReOC.Name.NoFlightTerminationSystem +import ReOC.Name.NoHistory +import ReOC.Name.NoOtherReOCRoles +import ReOC.Name.NoRadioQualification +import ReOC.Name.NoRegulatoryAction +import ReOC.Name.NoTransponder +import ReOC.Name.Nominee +import ReOC.Name.NomineeAviationExperience +import ReOC.Name.NomineeOtherQualifications +import ReOC.Name.NomineePerson +import ReOC.Name.NorthernTerritory +import ReOC.Name.NotADirector +import ReOC.Name.Occasional +import ReOC.Name.OnlineTheory +import ReOC.Name.OperatedTypeAirframes +import ReOC.Name.OperatedTypeRpaType +import ReOC.Name.OperationalExperience +import ReOC.Name.OperationalExperienceHasOperationalExperience +import ReOC.Name.OperationalExperienceIntent +import ReOC.Name.OperationalExperienceNotApplicable +import ReOC.Name.OperationalExperienceOperationalExperienceIntent +import ReOC.Name.OperationalExperienceOperationalExperienceNotApplicable +import ReOC.Name.OperationalHeadquarters +import ReOC.Name.OperationalHeadquartersAddress +import ReOC.Name.OperationalHeadquartersAtRegisteredOffice +import ReOC.Name.OperationalHeadquartersOperationalHeadquartersAddress +import ReOC.Name.OperationsManual +import ReOC.Name.OperationsManualCrew +import ReOC.Name.OperationsManualFirstIssue +import ReOC.Name.OperationsManualPilots +import ReOC.Name.OperationsManualPolicies +import ReOC.Name.OperationsManualRevisions +import ReOC.Name.OperationsManualRiskRegister +import ReOC.Name.OperationsManualServices +import ReOC.Name.Operator +import ReOC.Name.OperatorCompany +import ReOC.Name.OperatorFleet +import ReOC.Name.OperatorKeyPersonnel +import ReOC.Name.OtherDocuments +import ReOC.Name.OtherQualifications +import ReOC.Name.OtherReOCRoles +import ReOC.Name.OtherReOCRolesHeld +import ReOC.Name.OtherReOCRolesNoOtherReOCRoles +import ReOC.Name.OtherReOCRolesOtherReOCRolesHeld +import ReOC.Name.OtherRemotePilots +import ReOC.Name.PaperExamination +import ReOC.Name.Parts +import ReOC.Name.Path +import ReOC.Name.Person +import ReOC.Name.PersonArn +import ReOC.Name.PersonEmailAddress +import ReOC.Name.PersonFullName +import ReOC.Name.PersonPhoneNumber +import ReOC.Name.PersonnelHistory +import ReOC.Name.PersonnelHistoryActionTaken +import ReOC.Name.PersonnelHistoryCriminalConviction +import ReOC.Name.PersonnelHistorySuspensionPending +import ReOC.Name.PersonnelHistoryTransportLicenceRefused +import ReOC.Name.PhoneNumber +import ReOC.Name.Pilots +import ReOC.Name.Policies +import ReOC.Name.PoliciesAlcoholHours +import ReOC.Name.PoliciesBackupFrequency +import ReOC.Name.PoliciesBatteryReserve +import ReOC.Name.PoliciesCheckingMonths +import ReOC.Name.PoliciesDutyHours +import ReOC.Name.PoliciesIndependentReviewYears +import ReOC.Name.PoliciesInspectionHours +import ReOC.Name.PoliciesInspectionMonths +import ReOC.Name.PoliciesRecencyDays +import ReOC.Name.PoliciesRecencyFlights +import ReOC.Name.PoliciesRefresherMonths +import ReOC.Name.PoliciesRestHours +import ReOC.Name.Position +import ReOC.Name.Postcode +import ReOC.Name.PoweredLift +import ReOC.Name.PplTheory +import ReOC.Name.PracticalAreas +import ReOC.Name.PrimaryContact +import ReOC.Name.PrimaryContactApplicantIsPrimaryContact +import ReOC.Name.PrimaryContactPerson +import ReOC.Name.PrimaryContactPrimaryContactPerson +import ReOC.Name.ProceduresLibrary +import ReOC.Name.Queensland +import ReOC.Name.Radio +import ReOC.Name.RadioOperatorCertificate +import ReOC.Name.ReOCApplicationForm +import ReOC.Name.ReOCMaybeTrainingMaterial +import ReOC.Name.ReOCOperationsManual +import ReOC.Name.ReOCOperator +import ReOC.Name.RePLHolding +import ReOC.Name.RePLHoldingHoldsRePLForEachType +import ReOC.Name.RePLHoldingIntent +import ReOC.Name.RePLHoldingRePLHoldingIntent +import ReOC.Name.RePLOrigin +import ReOC.Name.RePLOriginPplTheory +import ReOC.Name.RePLOriginRePLTrainingOrganisation +import ReOC.Name.RePLTrainingOrganisation +import ReOC.Name.RecencyDays +import ReOC.Name.RecencyFlights +import ReOC.Name.RefresherMonths +import ReOC.Name.RegisteredOffice +import ReOC.Name.RegulatoryActionActionDate +import ReOC.Name.RegulatoryActionActionDetails +import ReOC.Name.RegulatoryActionAuthorisationAction +import ReOC.Name.RegulatoryActionReocSuspendedOrCancelled +import ReOC.Name.RegulatoryActionTaken +import ReOC.Name.RegulatoryActionTypeOfAction +import ReOC.Name.RegulatoryHistory +import ReOC.Name.RegulatoryHistoryNoRegulatoryAction +import ReOC.Name.RegulatoryHistoryRegulatoryActionTaken +import ReOC.Name.Remote +import ReOC.Name.ReocSuspendedOrCancelled +import ReOC.Name.ResidualRisk +import ReOC.Name.Response +import ReOC.Name.RestHours +import ReOC.Name.ReviewMonths +import ReOC.Name.RevisionDetails +import ReOC.Name.RevisionEffective +import ReOC.Name.RevisionMonthsAfter +import ReOC.Name.RevisionParts +import ReOC.Name.RevisionVersionIncrement +import ReOC.Name.Revisions +import ReOC.Name.RiskAdditionalControls +import ReOC.Name.RiskAssessmentRiskConsequence +import ReOC.Name.RiskAssessmentRiskLikelihood +import ReOC.Name.RiskConsequence +import ReOC.Name.RiskDateEntered +import ReOC.Name.RiskDescription +import ReOC.Name.RiskExistingControls +import ReOC.Name.RiskHazard +import ReOC.Name.RiskInitialRisk +import ReOC.Name.RiskLikelihood +import ReOC.Name.RiskOwner +import ReOC.Name.RiskRegister +import ReOC.Name.RiskResidualRisk +import ReOC.Name.RiskReviewMonths +import ReOC.Name.RiskRiskDescription +import ReOC.Name.RiskRiskOwner +import ReOC.Name.Role +import ReOC.Name.RpaHistory +import ReOC.Name.RpaMake +import ReOC.Name.RpaModel +import ReOC.Name.RpaType +import ReOC.Name.RpaTypeBatteryWarnings +import ReOC.Name.RpaTypeBeforeFlight +import ReOC.Name.RpaTypeCategory +import ReOC.Name.RpaTypeEmergencyActions +import ReOC.Name.RpaTypeFlightTermination +import ReOC.Name.RpaTypeInspectionItems +import ReOC.Name.RpaTypeMaximumGrossWeight +import ReOC.Name.RpaTypeRpaMake +import ReOC.Name.RpaTypeRpaModel +import ReOC.Name.RpaTypeShortName +import ReOC.Name.RpaTypeTransponderCarriage +import ReOC.Name.RpaTypeUserManual +import ReOC.Name.SerialNumber +import ReOC.Name.Services +import ReOC.Name.SharedController +import ReOC.Name.ShortName +import ReOC.Name.Signature +import ReOC.Name.Simulator +import ReOC.Name.Situation +import ReOC.Name.SoleDirector +import ReOC.Name.SoloAndMultiCrewOperations +import ReOC.Name.SoloOperationsOnly +import ReOC.Name.SouthAustralia +import ReOC.Name.StateOrTerritory +import ReOC.Name.StepIndex +import ReOC.Name.StreetAddress +import ReOC.Name.Suburb +import ReOC.Name.SuspensionPending +import ReOC.Name.Takeover +import ReOC.Name.Tasmania +import ReOC.Name.TeachingQualification +import ReOC.Name.TeachingQualificationHeld +import ReOC.Name.TeachingQualificationIntent +import ReOC.Name.TeachingQualificationTeachingQualificationHeld +import ReOC.Name.TeachingQualificationTeachingQualificationIntent +import ReOC.Name.Theory +import ReOC.Name.TheoryVenues +import ReOC.Name.TrainingArrangements +import ReOC.Name.TrainingArrangementsExam +import ReOC.Name.TrainingArrangementsExamPassMark +import ReOC.Name.TrainingArrangementsExaminer +import ReOC.Name.TrainingArrangementsMaxStudentsPerCourse +import ReOC.Name.TrainingArrangementsMaxStudentsPerInstructor +import ReOC.Name.TrainingArrangementsPracticalAreas +import ReOC.Name.TrainingArrangementsSimulator +import ReOC.Name.TrainingArrangementsTakeover +import ReOC.Name.TrainingArrangementsTheory +import ReOC.Name.TrainingArrangementsTheoryVenues +import ReOC.Name.TrainingCourseComplexities +import ReOC.Name.TrainingCourseCourseKind +import ReOC.Name.TrainingCourseTrainingRPA +import ReOC.Name.TrainingCourses +import ReOC.Name.TrainingMaterialCriNominee +import ReOC.Name.TrainingMaterialCriOtherReOCRoles +import ReOC.Name.TrainingMaterialOperationalExperience +import ReOC.Name.TrainingMaterialRePLHolding +import ReOC.Name.TrainingMaterialTeachingQualification +import ReOC.Name.TrainingMaterialTrainingArrangements +import ReOC.Name.TrainingMaterialTrainingCourses +import ReOC.Name.TrainingRPA +import ReOC.Name.TransponderCarriage +import ReOC.Name.TransponderFitted +import ReOC.Name.TransportLicenceRefused +import ReOC.Name.TypeOfAction +import ReOC.Name.UpgradeDifferentCategory +import ReOC.Name.UpgradeSameCategory +import ReOC.Name.UserManual +import ReOC.Name.Version +import ReOC.Name.VersionIncrement +import ReOC.Name.VersionMajorVersion +import ReOC.Name.VersionMinorVersion +import ReOC.Name.Victoria +import ReOC.Name.Weekly +import ReOC.Name.WesternAustralia +import ReOC.Name.WrittenSignatureFile +import ReOC.Name.WrittenSignatureImage +import ReOC.Name.WrittenSignatureWrittenSignatureFile +import ReOC.Name.WrittenSignatureWrittenSignatureImage +import ReOC.Primitive.ABN +import ReOC.Primitive.ARN +import ReOC.Primitive.AtMost +import ReOC.Primitive.EmailAddress +import ReOC.Primitive.FormFont +import ReOC.Primitive.FormText +import ReOC.Primitive.GrossWeight +import ReOC.Primitive.PassMark +import ReOC.Primitive.Percentage +import ReOC.Primitive.PhoneNumber +import ReOC.Primitive.Positive +import ReOC.Primitive.Postcode +import ReOC.Primitive.ReviewMonths +import ReOC.Primitive.Some +import ReOC.Primitive.Text1 diff --git a/src/ReOC/Name/Abn.hs b/src/ReOC/Name/Abn.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Abn.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @abn@, whose target is a type parameter. It names a field or constructor of @Company'@. +module ReOC.Name.Abn ( + AbnLike (..), +) where + +import Control.Lens (Optic) + +class AbnLike p f x x' a a' | x -> a where + abn :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ActionDate.hs b/src/ReOC/Name/ActionDate.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ActionDate.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @actionDate@, whose target is a type parameter. It names a field or constructor of @RegulatoryAction'@. +module ReOC.Name.ActionDate ( + ActionDateLike (..), +) where + +import Control.Lens (Optic) + +class ActionDateLike p f x x' a a' | x -> a where + actionDate :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ActionDetails.hs b/src/ReOC/Name/ActionDetails.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ActionDetails.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @actionDetails@, whose target is a type parameter. It names a field or constructor of @RegulatoryAction'@. +module ReOC.Name.ActionDetails ( + ActionDetailsLike (..), +) where + +import Control.Lens (Optic) + +class ActionDetailsLike p f x x' a a' | x -> a where + actionDetails :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ActionSteps.hs b/src/ReOC/Name/ActionSteps.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ActionSteps.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @actionSteps@, whose target is a type parameter. It names a field or constructor of @EmergencyAction'@. +module ReOC.Name.ActionSteps ( + ActionStepsLike (..), +) where + +import Control.Lens (Optic) + +class ActionStepsLike p f x x' a a' | x -> a where + actionSteps :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ActionTaken.hs b/src/ReOC/Name/ActionTaken.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ActionTaken.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @actionTaken@, whose target is a type parameter. It names a field or constructor of @PersonnelHistory'@. +module ReOC.Name.ActionTaken ( + ActionTakenLike (..), +) where + +import Control.Lens (Optic) + +class ActionTakenLike p f x x' a a' | x -> a where + actionTaken :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/AdditionalControls.hs b/src/ReOC/Name/AdditionalControls.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AdditionalControls.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @additionalControls@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.AdditionalControls ( + AdditionalControlsLike (..), +) where + +import Control.Lens (Optic) + +class AdditionalControlsLike p f x x' a a' | x -> a where + additionalControls :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/AddressPostcode.hs b/src/ReOC/Name/AddressPostcode.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AddressPostcode.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @addressPostcode@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.AddressPostcode ( + AddressPostcodeLike (..), +) where + +import Control.Lens (Optic) + +class AddressPostcodeLike p f x x' where + addressPostcode :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AddressPostcodeLike p f () x' where + addressPostcode = id diff --git a/src/ReOC/Name/AddressStateOrTerritory.hs b/src/ReOC/Name/AddressStateOrTerritory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AddressStateOrTerritory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @addressStateOrTerritory@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.AddressStateOrTerritory ( + AddressStateOrTerritoryLike (..), +) where + +import Control.Lens (Optic) + +class AddressStateOrTerritoryLike p f x x' where + addressStateOrTerritory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AddressStateOrTerritoryLike p f () x' where + addressStateOrTerritory = id diff --git a/src/ReOC/Name/AddressStreetAddress.hs b/src/ReOC/Name/AddressStreetAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AddressStreetAddress.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @addressStreetAddress@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.AddressStreetAddress ( + AddressStreetAddressLike (..), +) where + +import Control.Lens (Optic) + +class AddressStreetAddressLike p f x x' where + addressStreetAddress :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AddressStreetAddressLike p f () x' where + addressStreetAddress = id diff --git a/src/ReOC/Name/AddressSuburb.hs b/src/ReOC/Name/AddressSuburb.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AddressSuburb.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @addressSuburb@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.AddressSuburb ( + AddressSuburbLike (..), +) where + +import Control.Lens (Optic) + +class AddressSuburbLike p f x x' where + addressSuburb :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AddressSuburbLike p f () x' where + addressSuburb = id diff --git a/src/ReOC/Name/Aeroplane.hs b/src/ReOC/Name/Aeroplane.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Aeroplane.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @aeroplane@, which targets @()@. It names a field or constructor of @RPACategory@. +module ReOC.Name.Aeroplane ( + AeroplaneLike (..), +) where + +import Control.Lens (Optic) + +class AeroplaneLike p f x x' where + aeroplane :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AeroplaneLike p f () x' where + aeroplane = id diff --git a/src/ReOC/Name/AircraftAssociatedEquipment.hs b/src/ReOC/Name/AircraftAssociatedEquipment.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AircraftAssociatedEquipment.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @aircraftAssociatedEquipment@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.AircraftAssociatedEquipment ( + AircraftAssociatedEquipmentLike (..), +) where + +import Control.Lens (Optic) + +class AircraftAssociatedEquipmentLike p f x x' where + aircraftAssociatedEquipment :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AircraftAssociatedEquipmentLike p f () x' where + aircraftAssociatedEquipment = id diff --git a/src/ReOC/Name/AircraftSerialNumber.hs b/src/ReOC/Name/AircraftSerialNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AircraftSerialNumber.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @aircraftSerialNumber@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.AircraftSerialNumber ( + AircraftSerialNumberLike (..), +) where + +import Control.Lens (Optic) + +class AircraftSerialNumberLike p f x x' where + aircraftSerialNumber :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AircraftSerialNumberLike p f () x' where + aircraftSerialNumber = id diff --git a/src/ReOC/Name/Airframes.hs b/src/ReOC/Name/Airframes.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Airframes.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @airframes@, whose target is a type parameter. It names a field or constructor of @OperatedType'@. +module ReOC.Name.Airframes ( + AirframesLike (..), +) where + +import Control.Lens (Optic) + +class AirframesLike p f x x' a a' | x -> a where + airframes :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/AlcoholHours.hs b/src/ReOC/Name/AlcoholHours.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AlcoholHours.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @alcoholHours@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.AlcoholHours ( + AlcoholHoursLike (..), +) where + +import Control.Lens (Optic) + +class AlcoholHoursLike p f x x' a a' | x -> a where + alcoholHours :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ApplicantIsPrimaryContact.hs b/src/ReOC/Name/ApplicantIsPrimaryContact.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicantIsPrimaryContact.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicantIsPrimaryContact@, which targets @()@. It names a field or constructor of @PrimaryContact'@. +module ReOC.Name.ApplicantIsPrimaryContact ( + ApplicantIsPrimaryContactLike (..), +) where + +import Control.Lens (Optic) + +class ApplicantIsPrimaryContactLike p f x x' where + applicantIsPrimaryContact :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ApplicantIsPrimaryContactLike p f () x' where + applicantIsPrimaryContact = id diff --git a/src/ReOC/Name/ApplicationForm.hs b/src/ReOC/Name/ApplicationForm.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicationForm.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicationForm@, whose target is a type parameter. It names a field or constructor of @ReOC'@. +module ReOC.Name.ApplicationForm ( + ApplicationFormLike (..), +) where + +import Control.Lens (Optic) + +class ApplicationFormLike p f x x' a a' | x -> a where + applicationForm :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ApplicationFormDeclaration.hs b/src/ReOC/Name/ApplicationFormDeclaration.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicationFormDeclaration.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicationFormDeclaration@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ApplicationFormDeclaration ( + ApplicationFormDeclarationLike (..), +) where + +import Control.Lens (Optic) + +class ApplicationFormDeclarationLike p f x x' where + applicationFormDeclaration :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ApplicationFormDeclarationLike p f () x' where + applicationFormDeclaration = id diff --git a/src/ReOC/Name/ApplicationFormOtherDocuments.hs b/src/ReOC/Name/ApplicationFormOtherDocuments.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicationFormOtherDocuments.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicationFormOtherDocuments@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ApplicationFormOtherDocuments ( + ApplicationFormOtherDocumentsLike (..), +) where + +import Control.Lens (Optic) + +class ApplicationFormOtherDocumentsLike p f x x' where + applicationFormOtherDocuments :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ApplicationFormOtherDocumentsLike p f () x' where + applicationFormOtherDocuments = id diff --git a/src/ReOC/Name/ApplicationFormPersonnelHistory.hs b/src/ReOC/Name/ApplicationFormPersonnelHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicationFormPersonnelHistory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicationFormPersonnelHistory@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ApplicationFormPersonnelHistory ( + ApplicationFormPersonnelHistoryLike (..), +) where + +import Control.Lens (Optic) + +class ApplicationFormPersonnelHistoryLike p f x x' where + applicationFormPersonnelHistory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ApplicationFormPersonnelHistoryLike p f () x' where + applicationFormPersonnelHistory = id diff --git a/src/ReOC/Name/ApplicationFormPrimaryContact.hs b/src/ReOC/Name/ApplicationFormPrimaryContact.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicationFormPrimaryContact.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicationFormPrimaryContact@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ApplicationFormPrimaryContact ( + ApplicationFormPrimaryContactLike (..), +) where + +import Control.Lens (Optic) + +class ApplicationFormPrimaryContactLike p f x x' where + applicationFormPrimaryContact :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ApplicationFormPrimaryContactLike p f () x' where + applicationFormPrimaryContact = id diff --git a/src/ReOC/Name/ApplicationFormProceduresLibrary.hs b/src/ReOC/Name/ApplicationFormProceduresLibrary.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicationFormProceduresLibrary.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicationFormProceduresLibrary@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ApplicationFormProceduresLibrary ( + ApplicationFormProceduresLibraryLike (..), +) where + +import Control.Lens (Optic) + +class ApplicationFormProceduresLibraryLike p f x x' where + applicationFormProceduresLibrary :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ApplicationFormProceduresLibraryLike p f () x' where + applicationFormProceduresLibrary = id diff --git a/src/ReOC/Name/ApplicationFormRegulatoryHistory.hs b/src/ReOC/Name/ApplicationFormRegulatoryHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicationFormRegulatoryHistory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicationFormRegulatoryHistory@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ApplicationFormRegulatoryHistory ( + ApplicationFormRegulatoryHistoryLike (..), +) where + +import Control.Lens (Optic) + +class ApplicationFormRegulatoryHistoryLike p f x x' where + applicationFormRegulatoryHistory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ApplicationFormRegulatoryHistoryLike p f () x' where + applicationFormRegulatoryHistory = id diff --git a/src/ReOC/Name/ApplicationFormSignature.hs b/src/ReOC/Name/ApplicationFormSignature.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ApplicationFormSignature.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @applicationFormSignature@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ApplicationFormSignature ( + ApplicationFormSignatureLike (..), +) where + +import Control.Lens (Optic) + +class ApplicationFormSignatureLike p f x x' where + applicationFormSignature :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ApplicationFormSignatureLike p f () x' where + applicationFormSignature = id diff --git a/src/ReOC/Name/Arn.hs b/src/ReOC/Name/Arn.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Arn.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @arn@, whose target is a type parameter. It names a field or constructor of @Person'@, @Company'@. +module ReOC.Name.Arn ( + ArnLike (..), +) where + +import Control.Lens (Optic) + +class ArnLike p f x x' a a' | x -> a where + arn :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/AssociatedEquipment.hs b/src/ReOC/Name/AssociatedEquipment.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AssociatedEquipment.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @associatedEquipment@, whose target is a type parameter. It names a field or constructor of @Aircraft'@. +module ReOC.Name.AssociatedEquipment ( + AssociatedEquipmentLike (..), +) where + +import Control.Lens (Optic) + +class AssociatedEquipmentLike p f x x' a a' | x -> a where + associatedEquipment :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/AtRegisteredOffice.hs b/src/ReOC/Name/AtRegisteredOffice.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AtRegisteredOffice.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @atRegisteredOffice@, which targets @()@. It names a field or constructor of @OperationalHeadquarters'@. +module ReOC.Name.AtRegisteredOffice ( + AtRegisteredOfficeLike (..), +) where + +import Control.Lens (Optic) + +class AtRegisteredOfficeLike p f x x' where + atRegisteredOffice :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AtRegisteredOfficeLike p f () x' where + atRegisteredOffice = id diff --git a/src/ReOC/Name/AustralianCapitalTerritory.hs b/src/ReOC/Name/AustralianCapitalTerritory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AustralianCapitalTerritory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @australianCapitalTerritory@, which targets @()@. It names a field or constructor of @AustralianState@. +module ReOC.Name.AustralianCapitalTerritory ( + AustralianCapitalTerritoryLike (..), +) where + +import Control.Lens (Optic) + +class AustralianCapitalTerritoryLike p f x x' where + australianCapitalTerritory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AustralianCapitalTerritoryLike p f () x' where + australianCapitalTerritory = id diff --git a/src/ReOC/Name/AuthorisationAction.hs b/src/ReOC/Name/AuthorisationAction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AuthorisationAction.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @authorisationAction@, whose target is a type parameter. It names a field or constructor of @RegulatoryAction'@. +module ReOC.Name.AuthorisationAction ( + AuthorisationActionLike (..), +) where + +import Control.Lens (Optic) + +class AuthorisationActionLike p f x x' a a' | x -> a where + authorisationAction :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/AutomatedAndManual.hs b/src/ReOC/Name/AutomatedAndManual.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AutomatedAndManual.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @automatedAndManual@, which targets @()@. It names a field or constructor of @Complexity@. +module ReOC.Name.AutomatedAndManual ( + AutomatedAndManualLike (..), +) where + +import Control.Lens (Optic) + +class AutomatedAndManualLike p f x x' where + automatedAndManual :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AutomatedAndManualLike p f () x' where + automatedAndManual = id diff --git a/src/ReOC/Name/AutomatedOnly.hs b/src/ReOC/Name/AutomatedOnly.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AutomatedOnly.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @automatedOnly@, which targets @()@. It names a field or constructor of @Complexity@. +module ReOC.Name.AutomatedOnly ( + AutomatedOnlyLike (..), +) where + +import Control.Lens (Optic) + +class AutomatedOnlyLike p f x x' where + automatedOnly :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => AutomatedOnlyLike p f () x' where + automatedOnly = id diff --git a/src/ReOC/Name/AviationExperience.hs b/src/ReOC/Name/AviationExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/AviationExperience.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @aviationExperience@, whose target is a type parameter. It names a field or constructor of @Nominee'@. +module ReOC.Name.AviationExperience ( + AviationExperienceLike (..), +) where + +import Control.Lens (Optic) + +class AviationExperienceLike p f x x' a a' | x -> a where + aviationExperience :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/BackupFrequency.hs b/src/ReOC/Name/BackupFrequency.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/BackupFrequency.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @backupFrequency@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.BackupFrequency ( + BackupFrequencyLike (..), +) where + +import Control.Lens (Optic) + +class BackupFrequencyLike p f x x' a a' | x -> a where + backupFrequency :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/BatteryReserve.hs b/src/ReOC/Name/BatteryReserve.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/BatteryReserve.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @batteryReserve@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.BatteryReserve ( + BatteryReserveLike (..), +) where + +import Control.Lens (Optic) + +class BatteryReserveLike p f x x' a a' | x -> a where + batteryReserve :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/BatteryWarnings.hs b/src/ReOC/Name/BatteryWarnings.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/BatteryWarnings.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @batteryWarnings@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.BatteryWarnings ( + BatteryWarningsLike (..), +) where + +import Control.Lens (Optic) + +class BatteryWarningsLike p f x x' a a' | x -> a where + batteryWarnings :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/BeforeFlight.hs b/src/ReOC/Name/BeforeFlight.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/BeforeFlight.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @beforeFlight@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.BeforeFlight ( + BeforeFlightLike (..), +) where + +import Control.Lens (Optic) + +class BeforeFlightLike p f x x' a a' | x -> a where + beforeFlight :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/BlendedTheory.hs b/src/ReOC/Name/BlendedTheory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/BlendedTheory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @blendedTheory@, which targets @()@. It names a field or constructor of @TheoryDelivery@. +module ReOC.Name.BlendedTheory ( + BlendedTheoryLike (..), +) where + +import Control.Lens (Optic) + +class BlendedTheoryLike p f x x' where + blendedTheory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => BlendedTheoryLike p f () x' where + blendedTheory = id diff --git a/src/ReOC/Name/BusinessName.hs b/src/ReOC/Name/BusinessName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/BusinessName.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @businessName@, whose target is a type parameter. It names a field or constructor of @Company'@. +module ReOC.Name.BusinessName ( + BusinessNameLike (..), +) where + +import Control.Lens (Optic) + +class BusinessNameLike p f x x' a a' | x -> a where + businessName :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Catastrophic.hs b/src/ReOC/Name/Catastrophic.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Catastrophic.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @catastrophic@, which targets @()@. It names a field or constructor of @Consequence@. +module ReOC.Name.Catastrophic ( + CatastrophicLike (..), +) where + +import Control.Lens (Optic) + +class CatastrophicLike p f x x' where + catastrophic :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CatastrophicLike p f () x' where + catastrophic = id diff --git a/src/ReOC/Name/Category.hs b/src/ReOC/Name/Category.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Category.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @category@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.Category ( + CategoryLike (..), +) where + +import Control.Lens (Optic) + +class CategoryLike p f x x' a a' | x -> a where + category :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CheckingMonths.hs b/src/ReOC/Name/CheckingMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CheckingMonths.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @checkingMonths@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.CheckingMonths ( + CheckingMonthsLike (..), +) where + +import Control.Lens (Optic) + +class CheckingMonthsLike p f x x' a a' | x -> a where + checkingMonths :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ChiefExecutive.hs b/src/ReOC/Name/ChiefExecutive.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefExecutive.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefExecutive@, whose target is a type parameter. It names a field or constructor of @KeyPersonnel'@. +module ReOC.Name.ChiefExecutive ( + ChiefExecutiveLike (..), +) where + +import Control.Lens (Optic) + +class ChiefExecutiveLike p f x x' a a' | x -> a where + chiefExecutive :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ChiefExecutiveDirectorStatus.hs b/src/ReOC/Name/ChiefExecutiveDirectorStatus.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefExecutiveDirectorStatus.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefExecutiveDirectorStatus@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ChiefExecutiveDirectorStatus ( + ChiefExecutiveDirectorStatusLike (..), +) where + +import Control.Lens (Optic) + +class ChiefExecutiveDirectorStatusLike p f x x' where + chiefExecutiveDirectorStatus :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefExecutiveDirectorStatusLike p f () x' where + chiefExecutiveDirectorStatus = id diff --git a/src/ReOC/Name/ChiefExecutiveManagementExperience.hs b/src/ReOC/Name/ChiefExecutiveManagementExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefExecutiveManagementExperience.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefExecutiveManagementExperience@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ChiefExecutiveManagementExperience ( + ChiefExecutiveManagementExperienceLike (..), +) where + +import Control.Lens (Optic) + +class ChiefExecutiveManagementExperienceLike p f x x' where + chiefExecutiveManagementExperience :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefExecutiveManagementExperienceLike p f () x' where + chiefExecutiveManagementExperience = id diff --git a/src/ReOC/Name/ChiefExecutiveNominee.hs b/src/ReOC/Name/ChiefExecutiveNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefExecutiveNominee.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefExecutiveNominee@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ChiefExecutiveNominee ( + ChiefExecutiveNomineeLike (..), +) where + +import Control.Lens (Optic) + +class ChiefExecutiveNomineeLike p f x x' where + chiefExecutiveNominee :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefExecutiveNomineeLike p f () x' where + chiefExecutiveNominee = id diff --git a/src/ReOC/Name/ChiefExecutiveOfficer.hs b/src/ReOC/Name/ChiefExecutiveOfficer.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefExecutiveOfficer.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefExecutiveOfficer@, which targets @()@. It names a field or constructor of @KeyPosition@. +module ReOC.Name.ChiefExecutiveOfficer ( + ChiefExecutiveOfficerLike (..), +) where + +import Control.Lens (Optic) + +class ChiefExecutiveOfficerLike p f x x' where + chiefExecutiveOfficer :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefExecutiveOfficerLike p f () x' where + chiefExecutiveOfficer = id diff --git a/src/ReOC/Name/ChiefPilot.hs b/src/ReOC/Name/ChiefPilot.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefPilot.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefPilot@, whose target is a type parameter. It names a field or constructor of @KeyPersonnel'@. +module ReOC.Name.ChiefPilot ( + ChiefPilotLike (..), +) where + +import Control.Lens (Optic) + +class ChiefPilotLike p f x x' a a' | x -> a where + chiefPilot :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ChiefPilotCrpNominee.hs b/src/ReOC/Name/ChiefPilotCrpNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefPilotCrpNominee.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefPilotCrpNominee@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ChiefPilotCrpNominee ( + ChiefPilotCrpNomineeLike (..), +) where + +import Control.Lens (Optic) + +class ChiefPilotCrpNomineeLike p f x x' where + chiefPilotCrpNominee :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefPilotCrpNomineeLike p f () x' where + chiefPilotCrpNominee = id diff --git a/src/ReOC/Name/ChiefPilotOtherReOCRoles.hs b/src/ReOC/Name/ChiefPilotOtherReOCRoles.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefPilotOtherReOCRoles.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefPilotOtherReOCRoles@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ChiefPilotOtherReOCRoles ( + ChiefPilotOtherReOCRolesLike (..), +) where + +import Control.Lens (Optic) + +class ChiefPilotOtherReOCRolesLike p f x x' where + chiefPilotOtherReOCRoles :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefPilotOtherReOCRolesLike p f () x' where + chiefPilotOtherReOCRoles = id diff --git a/src/ReOC/Name/ChiefPilotRadio.hs b/src/ReOC/Name/ChiefPilotRadio.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefPilotRadio.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefPilotRadio@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ChiefPilotRadio ( + ChiefPilotRadioLike (..), +) where + +import Control.Lens (Optic) + +class ChiefPilotRadioLike p f x x' where + chiefPilotRadio :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefPilotRadioLike p f () x' where + chiefPilotRadio = id diff --git a/src/ReOC/Name/ChiefPilotRePLOrigin.hs b/src/ReOC/Name/ChiefPilotRePLOrigin.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefPilotRePLOrigin.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefPilotRePLOrigin@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ChiefPilotRePLOrigin ( + ChiefPilotRePLOriginLike (..), +) where + +import Control.Lens (Optic) + +class ChiefPilotRePLOriginLike p f x x' where + chiefPilotRePLOrigin :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefPilotRePLOriginLike p f () x' where + chiefPilotRePLOrigin = id diff --git a/src/ReOC/Name/ChiefPilotRpaHistory.hs b/src/ReOC/Name/ChiefPilotRpaHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefPilotRpaHistory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefPilotRpaHistory@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ChiefPilotRpaHistory ( + ChiefPilotRpaHistoryLike (..), +) where + +import Control.Lens (Optic) + +class ChiefPilotRpaHistoryLike p f x x' where + chiefPilotRpaHistory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefPilotRpaHistoryLike p f () x' where + chiefPilotRpaHistory = id diff --git a/src/ReOC/Name/ChiefRemotePilot.hs b/src/ReOC/Name/ChiefRemotePilot.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ChiefRemotePilot.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @chiefRemotePilot@, which targets @()@. It names a field or constructor of @KeyPosition@. +module ReOC.Name.ChiefRemotePilot ( + ChiefRemotePilotLike (..), +) where + +import Control.Lens (Optic) + +class ChiefRemotePilotLike p f x x' where + chiefRemotePilot :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ChiefRemotePilotLike p f () x' where + chiefRemotePilot = id diff --git a/src/ReOC/Name/ClassroomTheory.hs b/src/ReOC/Name/ClassroomTheory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ClassroomTheory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @classroomTheory@, which targets @()@. It names a field or constructor of @TheoryDelivery@. +module ReOC.Name.ClassroomTheory ( + ClassroomTheoryLike (..), +) where + +import Control.Lens (Optic) + +class ClassroomTheoryLike p f x x' where + classroomTheory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ClassroomTheoryLike p f () x' where + classroomTheory = id diff --git a/src/ReOC/Name/Company.hs b/src/ReOC/Name/Company.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Company.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @company@, whose target is a type parameter. It names a field or constructor of @Operator'@. +module ReOC.Name.Company ( + CompanyLike (..), +) where + +import Control.Lens (Optic) + +class CompanyLike p f x x' a a' | x -> a where + company :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CompanyAbn.hs b/src/ReOC/Name/CompanyAbn.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyAbn.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyAbn@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CompanyAbn ( + CompanyAbnLike (..), +) where + +import Control.Lens (Optic) + +class CompanyAbnLike p f x x' where + companyAbn :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CompanyAbnLike p f () x' where + companyAbn = id diff --git a/src/ReOC/Name/CompanyArn.hs b/src/ReOC/Name/CompanyArn.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyArn.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyArn@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CompanyArn ( + CompanyArnLike (..), +) where + +import Control.Lens (Optic) + +class CompanyArnLike p f x x' where + companyArn :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CompanyArnLike p f () x' where + companyArn = id diff --git a/src/ReOC/Name/CompanyBusinessName.hs b/src/ReOC/Name/CompanyBusinessName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyBusinessName.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyBusinessName@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CompanyBusinessName ( + CompanyBusinessNameLike (..), +) where + +import Control.Lens (Optic) + +class CompanyBusinessNameLike p f x x' where + companyBusinessName :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CompanyBusinessNameLike p f () x' where + companyBusinessName = id diff --git a/src/ReOC/Name/CompanyCompanyName.hs b/src/ReOC/Name/CompanyCompanyName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyCompanyName.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyCompanyName@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CompanyCompanyName ( + CompanyCompanyNameLike (..), +) where + +import Control.Lens (Optic) + +class CompanyCompanyNameLike p f x x' where + companyCompanyName :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CompanyCompanyNameLike p f () x' where + companyCompanyName = id diff --git a/src/ReOC/Name/CompanyEmailAddress.hs b/src/ReOC/Name/CompanyEmailAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyEmailAddress.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyEmailAddress@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CompanyEmailAddress ( + CompanyEmailAddressLike (..), +) where + +import Control.Lens (Optic) + +class CompanyEmailAddressLike p f x x' where + companyEmailAddress :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CompanyEmailAddressLike p f () x' where + companyEmailAddress = id diff --git a/src/ReOC/Name/CompanyName.hs b/src/ReOC/Name/CompanyName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyName.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyName@, whose target is a type parameter. It names a field or constructor of @Company'@. +module ReOC.Name.CompanyName ( + CompanyNameLike (..), +) where + +import Control.Lens (Optic) + +class CompanyNameLike p f x x' a a' | x -> a where + companyName :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CompanyOperationalHeadquarters.hs b/src/ReOC/Name/CompanyOperationalHeadquarters.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyOperationalHeadquarters.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyOperationalHeadquarters@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CompanyOperationalHeadquarters ( + CompanyOperationalHeadquartersLike (..), +) where + +import Control.Lens (Optic) + +class CompanyOperationalHeadquartersLike p f x x' where + companyOperationalHeadquarters :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CompanyOperationalHeadquartersLike p f () x' where + companyOperationalHeadquarters = id diff --git a/src/ReOC/Name/CompanyPhoneNumber.hs b/src/ReOC/Name/CompanyPhoneNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyPhoneNumber.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyPhoneNumber@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CompanyPhoneNumber ( + CompanyPhoneNumberLike (..), +) where + +import Control.Lens (Optic) + +class CompanyPhoneNumberLike p f x x' where + companyPhoneNumber :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CompanyPhoneNumberLike p f () x' where + companyPhoneNumber = id diff --git a/src/ReOC/Name/CompanyRegisteredOffice.hs b/src/ReOC/Name/CompanyRegisteredOffice.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CompanyRegisteredOffice.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @companyRegisteredOffice@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CompanyRegisteredOffice ( + CompanyRegisteredOfficeLike (..), +) where + +import Control.Lens (Optic) + +class CompanyRegisteredOfficeLike p f x x' where + companyRegisteredOffice :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CompanyRegisteredOfficeLike p f () x' where + companyRegisteredOffice = id diff --git a/src/ReOC/Name/Complexities.hs b/src/ReOC/Name/Complexities.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Complexities.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @complexities@, whose target is a type parameter. It names a field or constructor of @TrainingCourse'@. +module ReOC.Name.Complexities ( + ComplexitiesLike (..), +) where + +import Control.Lens (Optic) + +class ComplexitiesLike p f x x' a a' | x -> a where + complexities :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ComputerExamination.hs b/src/ReOC/Name/ComputerExamination.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ComputerExamination.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @computerExamination@, which targets @()@. It names a field or constructor of @ExamDelivery@. +module ReOC.Name.ComputerExamination ( + ComputerExaminationLike (..), +) where + +import Control.Lens (Optic) + +class ComputerExaminationLike p f x x' where + computerExamination :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ComputerExaminationLike p f () x' where + computerExamination = id diff --git a/src/ReOC/Name/ContactPersonEmailAddress.hs b/src/ReOC/Name/ContactPersonEmailAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ContactPersonEmailAddress.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @contactPersonEmailAddress@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ContactPersonEmailAddress ( + ContactPersonEmailAddressLike (..), +) where + +import Control.Lens (Optic) + +class ContactPersonEmailAddressLike p f x x' where + contactPersonEmailAddress :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ContactPersonEmailAddressLike p f () x' where + contactPersonEmailAddress = id diff --git a/src/ReOC/Name/ContactPersonFullName.hs b/src/ReOC/Name/ContactPersonFullName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ContactPersonFullName.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @contactPersonFullName@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ContactPersonFullName ( + ContactPersonFullNameLike (..), +) where + +import Control.Lens (Optic) + +class ContactPersonFullNameLike p f x x' where + contactPersonFullName :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ContactPersonFullNameLike p f () x' where + contactPersonFullName = id diff --git a/src/ReOC/Name/ContactPersonPhoneNumber.hs b/src/ReOC/Name/ContactPersonPhoneNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ContactPersonPhoneNumber.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @contactPersonPhoneNumber@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ContactPersonPhoneNumber ( + ContactPersonPhoneNumberLike (..), +) where + +import Control.Lens (Optic) + +class ContactPersonPhoneNumberLike p f x x' where + contactPersonPhoneNumber :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ContactPersonPhoneNumberLike p f () x' where + contactPersonPhoneNumber = id diff --git a/src/ReOC/Name/ContactPersonPosition.hs b/src/ReOC/Name/ContactPersonPosition.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ContactPersonPosition.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @contactPersonPosition@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ContactPersonPosition ( + ContactPersonPositionLike (..), +) where + +import Control.Lens (Optic) + +class ContactPersonPositionLike p f x x' where + contactPersonPosition :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ContactPersonPositionLike p f () x' where + contactPersonPosition = id diff --git a/src/ReOC/Name/CourseKind.hs b/src/ReOC/Name/CourseKind.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CourseKind.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @courseKind@, whose target is a type parameter. It names a field or constructor of @TrainingCourse'@. +module ReOC.Name.CourseKind ( + CourseKindLike (..), +) where + +import Control.Lens (Optic) + +class CourseKindLike p f x x' a a' | x -> a where + courseKind :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Crew.hs b/src/ReOC/Name/Crew.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Crew.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @crew@, whose target is a type parameter. It names a field or constructor of @OperationsManual'@. +module ReOC.Name.Crew ( + CrewLike (..), +) where + +import Control.Lens (Optic) + +class CrewLike p f x x' a a' | x -> a where + crew :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CriConductsFlightTests.hs b/src/ReOC/Name/CriConductsFlightTests.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriConductsFlightTests.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criConductsFlightTests@, which targets @()@. It names a field or constructor of @FlightTestExaminer@. +module ReOC.Name.CriConductsFlightTests ( + CriConductsFlightTestsLike (..), +) where + +import Control.Lens (Optic) + +class CriConductsFlightTestsLike p f x x' where + criConductsFlightTests :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CriConductsFlightTestsLike p f () x' where + criConductsFlightTests = id diff --git a/src/ReOC/Name/CriIsCEO.hs b/src/ReOC/Name/CriIsCEO.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriIsCEO.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criIsCEO@, which targets @()@. It names a field or constructor of @CRINominee'@. +module ReOC.Name.CriIsCEO ( + CriIsCEOLike (..), +) where + +import Control.Lens (Optic) + +class CriIsCEOLike p f x x' where + criIsCEO :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CriIsCEOLike p f () x' where + criIsCEO = id diff --git a/src/ReOC/Name/CriIsCRP.hs b/src/ReOC/Name/CriIsCRP.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriIsCRP.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criIsCRP@, which targets @()@. It names a field or constructor of @CRINominee'@. +module ReOC.Name.CriIsCRP ( + CriIsCRPLike (..), +) where + +import Control.Lens (Optic) + +class CriIsCRPLike p f x x' where + criIsCRP :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CriIsCRPLike p f () x' where + criIsCRP = id diff --git a/src/ReOC/Name/CriIsMC.hs b/src/ReOC/Name/CriIsMC.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriIsMC.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criIsMC@, which targets @()@. It names a field or constructor of @CRINominee'@. +module ReOC.Name.CriIsMC ( + CriIsMCLike (..), +) where + +import Control.Lens (Optic) + +class CriIsMCLike p f x x' where + criIsMC :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CriIsMCLike p f () x' where + criIsMC = id diff --git a/src/ReOC/Name/CriNominated.hs b/src/ReOC/Name/CriNominated.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriNominated.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criNominated@, whose target is a type parameter. It names a field or constructor of @CRINominee'@. +module ReOC.Name.CriNominated ( + CriNominatedLike (..), +) where + +import Control.Lens (Optic) + +class CriNominatedLike p f x x' a a' | x -> a where + criNominated :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CriNominee.hs b/src/ReOC/Name/CriNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriNominee.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criNominee@, whose target is a type parameter. It names a field or constructor of @TrainingMaterial'@. +module ReOC.Name.CriNominee ( + CriNomineeLike (..), +) where + +import Control.Lens (Optic) + +class CriNomineeLike p f x x' a a' | x -> a where + criNominee :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CriNomineeCriIsCEO.hs b/src/ReOC/Name/CriNomineeCriIsCEO.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriNomineeCriIsCEO.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criNomineeCriIsCEO@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CriNomineeCriIsCEO ( + CriNomineeCriIsCEOLike (..), +) where + +import Control.Lens (Optic) + +class CriNomineeCriIsCEOLike p f x x' where + criNomineeCriIsCEO :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CriNomineeCriIsCEOLike p f () x' where + criNomineeCriIsCEO = id diff --git a/src/ReOC/Name/CriNomineeCriIsCRP.hs b/src/ReOC/Name/CriNomineeCriIsCRP.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriNomineeCriIsCRP.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criNomineeCriIsCRP@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CriNomineeCriIsCRP ( + CriNomineeCriIsCRPLike (..), +) where + +import Control.Lens (Optic) + +class CriNomineeCriIsCRPLike p f x x' where + criNomineeCriIsCRP :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CriNomineeCriIsCRPLike p f () x' where + criNomineeCriIsCRP = id diff --git a/src/ReOC/Name/CriNomineeCriIsMC.hs b/src/ReOC/Name/CriNomineeCriIsMC.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriNomineeCriIsMC.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criNomineeCriIsMC@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CriNomineeCriIsMC ( + CriNomineeCriIsMCLike (..), +) where + +import Control.Lens (Optic) + +class CriNomineeCriIsMCLike p f x x' where + criNomineeCriIsMC :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CriNomineeCriIsMCLike p f () x' where + criNomineeCriIsMC = id diff --git a/src/ReOC/Name/CriNomineeCriNominated.hs b/src/ReOC/Name/CriNomineeCriNominated.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriNomineeCriNominated.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criNomineeCriNominated@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CriNomineeCriNominated ( + CriNomineeCriNominatedLike (..), +) where + +import Control.Lens (Optic) + +class CriNomineeCriNominatedLike p f x x' where + criNomineeCriNominated :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CriNomineeCriNominatedLike p f () x' where + criNomineeCriNominated = id diff --git a/src/ReOC/Name/CriOtherReOCRoles.hs b/src/ReOC/Name/CriOtherReOCRoles.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriOtherReOCRoles.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criOtherReOCRoles@, whose target is a type parameter. It names a field or constructor of @TrainingMaterial'@. +module ReOC.Name.CriOtherReOCRoles ( + CriOtherReOCRolesLike (..), +) where + +import Control.Lens (Optic) + +class CriOtherReOCRolesLike p f x x' a a' | x -> a where + criOtherReOCRoles :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CriminalConviction.hs b/src/ReOC/Name/CriminalConviction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CriminalConviction.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @criminalConviction@, whose target is a type parameter. It names a field or constructor of @PersonnelHistory'@. +module ReOC.Name.CriminalConviction ( + CriminalConvictionLike (..), +) where + +import Control.Lens (Optic) + +class CriminalConvictionLike p f x x' a a' | x -> a where + criminalConviction :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CrpIsCEO.hs b/src/ReOC/Name/CrpIsCEO.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CrpIsCEO.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @crpIsCEO@, which targets @()@. It names a field or constructor of @CRPNominee'@. +module ReOC.Name.CrpIsCEO ( + CrpIsCEOLike (..), +) where + +import Control.Lens (Optic) + +class CrpIsCEOLike p f x x' where + crpIsCEO :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CrpIsCEOLike p f () x' where + crpIsCEO = id diff --git a/src/ReOC/Name/CrpIsOnlyRemotePilot.hs b/src/ReOC/Name/CrpIsOnlyRemotePilot.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CrpIsOnlyRemotePilot.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @crpIsOnlyRemotePilot@, which targets @()@. It names a field or constructor of @RemotePilots@. +module ReOC.Name.CrpIsOnlyRemotePilot ( + CrpIsOnlyRemotePilotLike (..), +) where + +import Control.Lens (Optic) + +class CrpIsOnlyRemotePilotLike p f x x' where + crpIsOnlyRemotePilot :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CrpIsOnlyRemotePilotLike p f () x' where + crpIsOnlyRemotePilot = id diff --git a/src/ReOC/Name/CrpNominated.hs b/src/ReOC/Name/CrpNominated.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CrpNominated.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @crpNominated@, whose target is a type parameter. It names a field or constructor of @CRPNominee'@. +module ReOC.Name.CrpNominated ( + CrpNominatedLike (..), +) where + +import Control.Lens (Optic) + +class CrpNominatedLike p f x x' a a' | x -> a where + crpNominated :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CrpNominee.hs b/src/ReOC/Name/CrpNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CrpNominee.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @crpNominee@, whose target is a type parameter. It names a field or constructor of @ChiefPilot'@. +module ReOC.Name.CrpNominee ( + CrpNomineeLike (..), +) where + +import Control.Lens (Optic) + +class CrpNomineeLike p f x x' a a' | x -> a where + crpNominee :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/CrpNomineeCrpIsCEO.hs b/src/ReOC/Name/CrpNomineeCrpIsCEO.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CrpNomineeCrpIsCEO.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @crpNomineeCrpIsCEO@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CrpNomineeCrpIsCEO ( + CrpNomineeCrpIsCEOLike (..), +) where + +import Control.Lens (Optic) + +class CrpNomineeCrpIsCEOLike p f x x' where + crpNomineeCrpIsCEO :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CrpNomineeCrpIsCEOLike p f () x' where + crpNomineeCrpIsCEO = id diff --git a/src/ReOC/Name/CrpNomineeCrpNominated.hs b/src/ReOC/Name/CrpNomineeCrpNominated.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/CrpNomineeCrpNominated.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @crpNomineeCrpNominated@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.CrpNomineeCrpNominated ( + CrpNomineeCrpNominatedLike (..), +) where + +import Control.Lens (Optic) + +class CrpNomineeCrpNominatedLike p f x x' where + crpNomineeCrpNominated :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => CrpNomineeCrpNominatedLike p f () x' where + crpNomineeCrpNominated = id diff --git a/src/ReOC/Name/Daily.hs b/src/ReOC/Name/Daily.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Daily.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @daily@, which targets @()@. It names a field or constructor of @BackupInterval@. +module ReOC.Name.Daily ( + DailyLike (..), +) where + +import Control.Lens (Optic) + +class DailyLike p f x x' where + daily :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DailyLike p f () x' where + daily = id diff --git a/src/ReOC/Name/DateEntered.hs b/src/ReOC/Name/DateEntered.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DateEntered.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @dateEntered@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.DateEntered ( + DateEnteredLike (..), +) where + +import Control.Lens (Optic) + +class DateEnteredLike p f x x' a a' | x -> a where + dateEntered :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/DeclarantFullName.hs b/src/ReOC/Name/DeclarantFullName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclarantFullName.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declarantFullName@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.DeclarantFullName ( + DeclarantFullNameLike (..), +) where + +import Control.Lens (Optic) + +class DeclarantFullNameLike p f x x' where + declarantFullName :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DeclarantFullNameLike p f () x' where + declarantFullName = id diff --git a/src/ReOC/Name/DeclarantRole.hs b/src/ReOC/Name/DeclarantRole.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclarantRole.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declarantRole@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.DeclarantRole ( + DeclarantRoleLike (..), +) where + +import Control.Lens (Optic) + +class DeclarantRoleLike p f x x' where + declarantRole :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DeclarantRoleLike p f () x' where + declarantRole = id diff --git a/src/ReOC/Name/Declaration.hs b/src/ReOC/Name/Declaration.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Declaration.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declaration@, whose target is a type parameter. It names a field or constructor of @ApplicationForm'@. +module ReOC.Name.Declaration ( + DeclarationLike (..), +) where + +import Control.Lens (Optic) + +class DeclarationLike p f x x' a a' | x -> a where + declaration :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/DeclarationDeclaredByAgent.hs b/src/ReOC/Name/DeclarationDeclaredByAgent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclarationDeclaredByAgent.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declarationDeclaredByAgent@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.DeclarationDeclaredByAgent ( + DeclarationDeclaredByAgentLike (..), +) where + +import Control.Lens (Optic) + +class DeclarationDeclaredByAgentLike p f x x' where + declarationDeclaredByAgent :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DeclarationDeclaredByAgentLike p f () x' where + declarationDeclaredByAgent = id diff --git a/src/ReOC/Name/DeclarationDeclaredByCEO.hs b/src/ReOC/Name/DeclarationDeclaredByCEO.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclarationDeclaredByCEO.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declarationDeclaredByCEO@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.DeclarationDeclaredByCEO ( + DeclarationDeclaredByCEOLike (..), +) where + +import Control.Lens (Optic) + +class DeclarationDeclaredByCEOLike p f x x' where + declarationDeclaredByCEO :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DeclarationDeclaredByCEOLike p f () x' where + declarationDeclaredByCEO = id diff --git a/src/ReOC/Name/DeclarationDeclaredByOther.hs b/src/ReOC/Name/DeclarationDeclaredByOther.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclarationDeclaredByOther.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declarationDeclaredByOther@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.DeclarationDeclaredByOther ( + DeclarationDeclaredByOtherLike (..), +) where + +import Control.Lens (Optic) + +class DeclarationDeclaredByOtherLike p f x x' where + declarationDeclaredByOther :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DeclarationDeclaredByOtherLike p f () x' where + declarationDeclaredByOther = id diff --git a/src/ReOC/Name/DeclarationDeclaredByResponsibleManager.hs b/src/ReOC/Name/DeclarationDeclaredByResponsibleManager.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclarationDeclaredByResponsibleManager.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declarationDeclaredByResponsibleManager@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.DeclarationDeclaredByResponsibleManager ( + DeclarationDeclaredByResponsibleManagerLike (..), +) where + +import Control.Lens (Optic) + +class DeclarationDeclaredByResponsibleManagerLike p f x x' where + declarationDeclaredByResponsibleManager :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DeclarationDeclaredByResponsibleManagerLike p f () x' where + declarationDeclaredByResponsibleManager = id diff --git a/src/ReOC/Name/DeclaredByAgent.hs b/src/ReOC/Name/DeclaredByAgent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclaredByAgent.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declaredByAgent@, whose target is a type parameter. It names a field or constructor of @Declaration'@. +module ReOC.Name.DeclaredByAgent ( + DeclaredByAgentLike (..), +) where + +import Control.Lens (Optic) + +class DeclaredByAgentLike p f x x' a a' | x -> a where + declaredByAgent :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/DeclaredByCEO.hs b/src/ReOC/Name/DeclaredByCEO.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclaredByCEO.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declaredByCEO@, which targets @()@. It names a field or constructor of @Declaration'@. +module ReOC.Name.DeclaredByCEO ( + DeclaredByCEOLike (..), +) where + +import Control.Lens (Optic) + +class DeclaredByCEOLike p f x x' where + declaredByCEO :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DeclaredByCEOLike p f () x' where + declaredByCEO = id diff --git a/src/ReOC/Name/DeclaredByOther.hs b/src/ReOC/Name/DeclaredByOther.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclaredByOther.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declaredByOther@, whose target is a type parameter. It names a field or constructor of @Declaration'@. +module ReOC.Name.DeclaredByOther ( + DeclaredByOtherLike (..), +) where + +import Control.Lens (Optic) + +class DeclaredByOtherLike p f x x' a a' | x -> a where + declaredByOther :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/DeclaredByResponsibleManager.hs b/src/ReOC/Name/DeclaredByResponsibleManager.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DeclaredByResponsibleManager.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @declaredByResponsibleManager@, whose target is a type parameter. It names a field or constructor of @Declaration'@. +module ReOC.Name.DeclaredByResponsibleManager ( + DeclaredByResponsibleManagerLike (..), +) where + +import Control.Lens (Optic) + +class DeclaredByResponsibleManagerLike p f x x' a a' | x -> a where + declaredByResponsibleManager :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Details.hs b/src/ReOC/Name/Details.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Details.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @details@, whose target is a type parameter. It names a field or constructor of @FirstIssue'@, @Revision'@. +module ReOC.Name.Details ( + DetailsLike (..), +) where + +import Control.Lens (Optic) + +class DetailsLike p f x x' a a' | x -> a where + details :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Director.hs b/src/ReOC/Name/Director.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Director.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @director@, which targets @()@. It names a field or constructor of @Directorship@. +module ReOC.Name.Director ( + DirectorLike (..), +) where + +import Control.Lens (Optic) + +class DirectorLike p f x x' where + director :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DirectorLike p f () x' where + director = id diff --git a/src/ReOC/Name/DirectorStatus.hs b/src/ReOC/Name/DirectorStatus.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DirectorStatus.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @directorStatus@, whose target is a type parameter. It names a field or constructor of @ChiefExecutive'@. +module ReOC.Name.DirectorStatus ( + DirectorStatusLike (..), +) where + +import Control.Lens (Optic) + +class DirectorStatusLike p f x x' a a' | x -> a where + directorStatus :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/DualControllerLink.hs b/src/ReOC/Name/DualControllerLink.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DualControllerLink.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @dualControllerLink@, which targets @()@. It names a field or constructor of @InstructorTakeover@. +module ReOC.Name.DualControllerLink ( + DualControllerLinkLike (..), +) where + +import Control.Lens (Optic) + +class DualControllerLinkLike p f x x' where + dualControllerLink :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => DualControllerLinkLike p f () x' where + dualControllerLink = id diff --git a/src/ReOC/Name/DutyHours.hs b/src/ReOC/Name/DutyHours.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/DutyHours.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @dutyHours@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.DutyHours ( + DutyHoursLike (..), +) where + +import Control.Lens (Optic) + +class DutyHoursLike p f x x' a a' | x -> a where + dutyHours :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Effective.hs b/src/ReOC/Name/Effective.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Effective.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @effective@, whose target is a type parameter. It names a field or constructor of @FirstIssue'@, @Revision'@. +module ReOC.Name.Effective ( + EffectiveLike (..), +) where + +import Control.Lens (Optic) + +class EffectiveLike p f x x' a a' | x -> a where + effective :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/EmailAddress.hs b/src/ReOC/Name/EmailAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/EmailAddress.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @emailAddress@, whose target is a type parameter. It names a field or constructor of @Person'@, @Company'@, @ContactPerson'@. +module ReOC.Name.EmailAddress ( + EmailAddressLike (..), +) where + +import Control.Lens (Optic) + +class EmailAddressLike p f x x' a a' | x -> a where + emailAddress :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/EmergencyActionActionSteps.hs b/src/ReOC/Name/EmergencyActionActionSteps.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/EmergencyActionActionSteps.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @emergencyActionActionSteps@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.EmergencyActionActionSteps ( + EmergencyActionActionStepsLike (..), +) where + +import Control.Lens (Optic) + +class EmergencyActionActionStepsLike p f x x' where + emergencyActionActionSteps :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => EmergencyActionActionStepsLike p f () x' where + emergencyActionActionSteps = id diff --git a/src/ReOC/Name/EmergencyActionResponse.hs b/src/ReOC/Name/EmergencyActionResponse.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/EmergencyActionResponse.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @emergencyActionResponse@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.EmergencyActionResponse ( + EmergencyActionResponseLike (..), +) where + +import Control.Lens (Optic) + +class EmergencyActionResponseLike p f x x' where + emergencyActionResponse :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => EmergencyActionResponseLike p f () x' where + emergencyActionResponse = id diff --git a/src/ReOC/Name/EmergencyActionSituation.hs b/src/ReOC/Name/EmergencyActionSituation.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/EmergencyActionSituation.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @emergencyActionSituation@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.EmergencyActionSituation ( + EmergencyActionSituationLike (..), +) where + +import Control.Lens (Optic) + +class EmergencyActionSituationLike p f x x' where + emergencyActionSituation :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => EmergencyActionSituationLike p f () x' where + emergencyActionSituation = id diff --git a/src/ReOC/Name/EmergencyActions.hs b/src/ReOC/Name/EmergencyActions.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/EmergencyActions.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @emergencyActions@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.EmergencyActions ( + EmergencyActionsLike (..), +) where + +import Control.Lens (Optic) + +class EmergencyActionsLike p f x x' a a' | x -> a where + emergencyActions :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/EquipmentDescription.hs b/src/ReOC/Name/EquipmentDescription.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/EquipmentDescription.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @equipmentDescription@, whose target is a type parameter. It names a field or constructor of @Equipment'@. +module ReOC.Name.EquipmentDescription ( + EquipmentDescriptionLike (..), +) where + +import Control.Lens (Optic) + +class EquipmentDescriptionLike p f x x' a a' | x -> a where + equipmentDescription :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/EquipmentEquipmentDescription.hs b/src/ReOC/Name/EquipmentEquipmentDescription.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/EquipmentEquipmentDescription.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @equipmentEquipmentDescription@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.EquipmentEquipmentDescription ( + EquipmentEquipmentDescriptionLike (..), +) where + +import Control.Lens (Optic) + +class EquipmentEquipmentDescriptionLike p f x x' where + equipmentEquipmentDescription :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => EquipmentEquipmentDescriptionLike p f () x' where + equipmentEquipmentDescription = id diff --git a/src/ReOC/Name/EquipmentSerialNumber.hs b/src/ReOC/Name/EquipmentSerialNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/EquipmentSerialNumber.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @equipmentSerialNumber@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.EquipmentSerialNumber ( + EquipmentSerialNumberLike (..), +) where + +import Control.Lens (Optic) + +class EquipmentSerialNumberLike p f x x' where + equipmentSerialNumber :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => EquipmentSerialNumberLike p f () x' where + equipmentSerialNumber = id diff --git a/src/ReOC/Name/Exam.hs b/src/ReOC/Name/Exam.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Exam.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @exam@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.Exam ( + ExamLike (..), +) where + +import Control.Lens (Optic) + +class ExamLike p f x x' a a' | x -> a where + exam :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ExamPassMark.hs b/src/ReOC/Name/ExamPassMark.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ExamPassMark.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @examPassMark@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.ExamPassMark ( + ExamPassMarkLike (..), +) where + +import Control.Lens (Optic) + +class ExamPassMarkLike p f x x' a a' | x -> a where + examPassMark :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Examiner.hs b/src/ReOC/Name/Examiner.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Examiner.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @examiner@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.Examiner ( + ExaminerLike (..), +) where + +import Control.Lens (Optic) + +class ExaminerLike p f x x' a a' | x -> a where + examiner :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ExistingControls.hs b/src/ReOC/Name/ExistingControls.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ExistingControls.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @existingControls@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.ExistingControls ( + ExistingControlsLike (..), +) where + +import Control.Lens (Optic) + +class ExistingControlsLike p f x x' a a' | x -> a where + existingControls :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ExtremelyImprobable.hs b/src/ReOC/Name/ExtremelyImprobable.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ExtremelyImprobable.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @extremelyImprobable@, which targets @()@. It names a field or constructor of @Likelihood@. +module ReOC.Name.ExtremelyImprobable ( + ExtremelyImprobableLike (..), +) where + +import Control.Lens (Optic) + +class ExtremelyImprobableLike p f x x' where + extremelyImprobable :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ExtremelyImprobableLike p f () x' where + extremelyImprobable = id diff --git a/src/ReOC/Name/FirstIssue.hs b/src/ReOC/Name/FirstIssue.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FirstIssue.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @firstIssue@, whose target is a type parameter. It names a field or constructor of @OperationsManual'@. +module ReOC.Name.FirstIssue ( + FirstIssueLike (..), +) where + +import Control.Lens (Optic) + +class FirstIssueLike p f x x' a a' | x -> a where + firstIssue :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/FirstIssueDetails.hs b/src/ReOC/Name/FirstIssueDetails.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FirstIssueDetails.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @firstIssueDetails@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.FirstIssueDetails ( + FirstIssueDetailsLike (..), +) where + +import Control.Lens (Optic) + +class FirstIssueDetailsLike p f x x' where + firstIssueDetails :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FirstIssueDetailsLike p f () x' where + firstIssueDetails = id diff --git a/src/ReOC/Name/FirstIssueEffective.hs b/src/ReOC/Name/FirstIssueEffective.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FirstIssueEffective.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @firstIssueEffective@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.FirstIssueEffective ( + FirstIssueEffectiveLike (..), +) where + +import Control.Lens (Optic) + +class FirstIssueEffectiveLike p f x x' where + firstIssueEffective :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FirstIssueEffectiveLike p f () x' where + firstIssueEffective = id diff --git a/src/ReOC/Name/FirstIssueIssueDate.hs b/src/ReOC/Name/FirstIssueIssueDate.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FirstIssueIssueDate.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @firstIssueIssueDate@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.FirstIssueIssueDate ( + FirstIssueIssueDateLike (..), +) where + +import Control.Lens (Optic) + +class FirstIssueIssueDateLike p f x x' where + firstIssueIssueDate :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FirstIssueIssueDateLike p f () x' where + firstIssueIssueDate = id diff --git a/src/ReOC/Name/FirstIssueParts.hs b/src/ReOC/Name/FirstIssueParts.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FirstIssueParts.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @firstIssueParts@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.FirstIssueParts ( + FirstIssuePartsLike (..), +) where + +import Control.Lens (Optic) + +class FirstIssuePartsLike p f x x' where + firstIssueParts :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FirstIssuePartsLike p f () x' where + firstIssueParts = id diff --git a/src/ReOC/Name/FirstIssueVersion.hs b/src/ReOC/Name/FirstIssueVersion.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FirstIssueVersion.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @firstIssueVersion@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.FirstIssueVersion ( + FirstIssueVersionLike (..), +) where + +import Control.Lens (Optic) + +class FirstIssueVersionLike p f x x' where + firstIssueVersion :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FirstIssueVersionLike p f () x' where + firstIssueVersion = id diff --git a/src/ReOC/Name/Fleet.hs b/src/ReOC/Name/Fleet.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Fleet.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @fleet@, whose target is a type parameter. It names a field or constructor of @Operator'@. +module ReOC.Name.Fleet ( + FleetLike (..), +) where + +import Control.Lens (Optic) + +class FleetLike p f x x' a a' | x -> a where + fleet :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/FlightCrewLicence.hs b/src/ReOC/Name/FlightCrewLicence.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FlightCrewLicence.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @flightCrewLicence@, which targets @()@. It names a field or constructor of @RadioQualification@. +module ReOC.Name.FlightCrewLicence ( + FlightCrewLicenceLike (..), +) where + +import Control.Lens (Optic) + +class FlightCrewLicenceLike p f x x' where + flightCrewLicence :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FlightCrewLicenceLike p f () x' where + flightCrewLicence = id diff --git a/src/ReOC/Name/FlightTermination.hs b/src/ReOC/Name/FlightTermination.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FlightTermination.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @flightTermination@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.FlightTermination ( + FlightTerminationLike (..), +) where + +import Control.Lens (Optic) + +class FlightTerminationLike p f x x' a a' | x -> a where + flightTermination :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/FlightTerminationFlightTerminationSystem.hs b/src/ReOC/Name/FlightTerminationFlightTerminationSystem.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FlightTerminationFlightTerminationSystem.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @flightTerminationFlightTerminationSystem@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.FlightTerminationFlightTerminationSystem ( + FlightTerminationFlightTerminationSystemLike (..), +) where + +import Control.Lens (Optic) + +class FlightTerminationFlightTerminationSystemLike p f x x' where + flightTerminationFlightTerminationSystem :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FlightTerminationFlightTerminationSystemLike p f () x' where + flightTerminationFlightTerminationSystem = id diff --git a/src/ReOC/Name/FlightTerminationNoFlightTerminationSystem.hs b/src/ReOC/Name/FlightTerminationNoFlightTerminationSystem.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FlightTerminationNoFlightTerminationSystem.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @flightTerminationNoFlightTerminationSystem@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.FlightTerminationNoFlightTerminationSystem ( + FlightTerminationNoFlightTerminationSystemLike (..), +) where + +import Control.Lens (Optic) + +class FlightTerminationNoFlightTerminationSystemLike p f x x' where + flightTerminationNoFlightTerminationSystem :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FlightTerminationNoFlightTerminationSystemLike p f () x' where + flightTerminationNoFlightTerminationSystem = id diff --git a/src/ReOC/Name/FlightTerminationSystem.hs b/src/ReOC/Name/FlightTerminationSystem.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FlightTerminationSystem.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @flightTerminationSystem@, whose target is a type parameter. It names a field or constructor of @FlightTermination'@. +module ReOC.Name.FlightTerminationSystem ( + FlightTerminationSystemLike (..), +) where + +import Control.Lens (Optic) + +class FlightTerminationSystemLike p f x x' a a' | x -> a where + flightTerminationSystem :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Frequent.hs b/src/ReOC/Name/Frequent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Frequent.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @frequent@, which targets @()@. It names a field or constructor of @Likelihood@. +module ReOC.Name.Frequent ( + FrequentLike (..), +) where + +import Control.Lens (Optic) + +class FrequentLike p f x x' where + frequent :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => FrequentLike p f () x' where + frequent = id diff --git a/src/ReOC/Name/FullName.hs b/src/ReOC/Name/FullName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/FullName.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @fullName@, whose target is a type parameter. It names a field or constructor of @Person'@, @ContactPerson'@, @Declarant'@. +module ReOC.Name.FullName ( + FullNameLike (..), +) where + +import Control.Lens (Optic) + +class FullNameLike p f x x' a a' | x -> a where + fullName :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/GivenElements.hs b/src/ReOC/Name/GivenElements.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/GivenElements.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @givenElements@, which targets @Natural@. It names a field or constructor of @TooMany@. +module ReOC.Name.GivenElements ( + GivenElementsLike (..), +) where + +import Control.Lens (Optic) +import Numeric.Natural (Natural) + +class GivenElementsLike p f x x' where + givenElements :: + Optic p f x x' Natural Natural + +-- | Identity +instance (x' ~ Natural) => GivenElementsLike p f Natural x' where + givenElements = id diff --git a/src/ReOC/Name/HasOperationalExperience.hs b/src/ReOC/Name/HasOperationalExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/HasOperationalExperience.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @hasOperationalExperience@, which targets @()@. It names a field or constructor of @OperationalExperience'@. +module ReOC.Name.HasOperationalExperience ( + HasOperationalExperienceLike (..), +) where + +import Control.Lens (Optic) + +class HasOperationalExperienceLike p f x x' where + hasOperationalExperience :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => HasOperationalExperienceLike p f () x' where + hasOperationalExperience = id diff --git a/src/ReOC/Name/Hazard.hs b/src/ReOC/Name/Hazard.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Hazard.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @hazard@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.Hazard ( + HazardLike (..), +) where + +import Control.Lens (Optic) + +class HazardLike p f x x' a a' | x -> a where + hazard :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Hazardous.hs b/src/ReOC/Name/Hazardous.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Hazardous.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @hazardous@, which targets @()@. It names a field or constructor of @Consequence@. +module ReOC.Name.Hazardous ( + HazardousLike (..), +) where + +import Control.Lens (Optic) + +class HazardousLike p f x x' where + hazardous :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => HazardousLike p f () x' where + hazardous = id diff --git a/src/ReOC/Name/Helicopter.hs b/src/ReOC/Name/Helicopter.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Helicopter.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @helicopter@, which targets @()@. It names a field or constructor of @RPACategory@. +module ReOC.Name.Helicopter ( + HelicopterLike (..), +) where + +import Control.Lens (Optic) + +class HelicopterLike p f x x' where + helicopter :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => HelicopterLike p f () x' where + helicopter = id diff --git a/src/ReOC/Name/High.hs b/src/ReOC/Name/High.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/High.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @high@, which targets @()@. It names a field or constructor of @RiskLevel@. +module ReOC.Name.High ( + HighLike (..), +) where + +import Control.Lens (Optic) + +class HighLike p f x x' where + high :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => HighLike p f () x' where + high = id diff --git a/src/ReOC/Name/HistoryAnswerHistoryDisclosed.hs b/src/ReOC/Name/HistoryAnswerHistoryDisclosed.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/HistoryAnswerHistoryDisclosed.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @historyAnswerHistoryDisclosed@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.HistoryAnswerHistoryDisclosed ( + HistoryAnswerHistoryDisclosedLike (..), +) where + +import Control.Lens (Optic) + +class HistoryAnswerHistoryDisclosedLike p f x x' where + historyAnswerHistoryDisclosed :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => HistoryAnswerHistoryDisclosedLike p f () x' where + historyAnswerHistoryDisclosed = id diff --git a/src/ReOC/Name/HistoryAnswerNoHistory.hs b/src/ReOC/Name/HistoryAnswerNoHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/HistoryAnswerNoHistory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @historyAnswerNoHistory@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.HistoryAnswerNoHistory ( + HistoryAnswerNoHistoryLike (..), +) where + +import Control.Lens (Optic) + +class HistoryAnswerNoHistoryLike p f x x' where + historyAnswerNoHistory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => HistoryAnswerNoHistoryLike p f () x' where + historyAnswerNoHistory = id diff --git a/src/ReOC/Name/HistoryDisclosed.hs b/src/ReOC/Name/HistoryDisclosed.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/HistoryDisclosed.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @historyDisclosed@, whose target is a type parameter. It names a field or constructor of @HistoryAnswer'@. +module ReOC.Name.HistoryDisclosed ( + HistoryDisclosedLike (..), +) where + +import Control.Lens (Optic) + +class HistoryDisclosedLike p f x x' a a' | x -> a where + historyDisclosed :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/HoldsRePLForEachType.hs b/src/ReOC/Name/HoldsRePLForEachType.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/HoldsRePLForEachType.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @holdsRePLForEachType@, which targets @()@. It names a field or constructor of @RePLHolding'@. +module ReOC.Name.HoldsRePLForEachType ( + HoldsRePLForEachTypeLike (..), +) where + +import Control.Lens (Optic) + +class HoldsRePLForEachTypeLike p f x x' where + holdsRePLForEachType :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => HoldsRePLForEachTypeLike p f () x' where + holdsRePLForEachType = id diff --git a/src/ReOC/Name/Improbable.hs b/src/ReOC/Name/Improbable.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Improbable.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @improbable@, which targets @()@. It names a field or constructor of @Likelihood@. +module ReOC.Name.Improbable ( + ImprobableLike (..), +) where + +import Control.Lens (Optic) + +class ImprobableLike p f x x' where + improbable :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ImprobableLike p f () x' where + improbable = id diff --git a/src/ReOC/Name/IndependentExaminerWhereAvailable.hs b/src/ReOC/Name/IndependentExaminerWhereAvailable.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/IndependentExaminerWhereAvailable.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @independentExaminerWhereAvailable@, which targets @()@. It names a field or constructor of @FlightTestExaminer@. +module ReOC.Name.IndependentExaminerWhereAvailable ( + IndependentExaminerWhereAvailableLike (..), +) where + +import Control.Lens (Optic) + +class IndependentExaminerWhereAvailableLike p f x x' where + independentExaminerWhereAvailable :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => IndependentExaminerWhereAvailableLike p f () x' where + independentExaminerWhereAvailable = id diff --git a/src/ReOC/Name/IndependentReviewYears.hs b/src/ReOC/Name/IndependentReviewYears.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/IndependentReviewYears.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @independentReviewYears@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.IndependentReviewYears ( + IndependentReviewYearsLike (..), +) where + +import Control.Lens (Optic) + +class IndependentReviewYearsLike p f x x' a a' | x -> a where + independentReviewYears :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/InitialCourse.hs b/src/ReOC/Name/InitialCourse.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InitialCourse.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @initialCourse@, which targets @()@. It names a field or constructor of @CourseType@. +module ReOC.Name.InitialCourse ( + InitialCourseLike (..), +) where + +import Control.Lens (Optic) + +class InitialCourseLike p f x x' where + initialCourse :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => InitialCourseLike p f () x' where + initialCourse = id diff --git a/src/ReOC/Name/InitialRisk.hs b/src/ReOC/Name/InitialRisk.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InitialRisk.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @initialRisk@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.InitialRisk ( + InitialRiskLike (..), +) where + +import Control.Lens (Optic) + +class InitialRiskLike p f x x' a a' | x -> a where + initialRisk :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/InspectionHours.hs b/src/ReOC/Name/InspectionHours.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InspectionHours.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @inspectionHours@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.InspectionHours ( + InspectionHoursLike (..), +) where + +import Control.Lens (Optic) + +class InspectionHoursLike p f x x' a a' | x -> a where + inspectionHours :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/InspectionItems.hs b/src/ReOC/Name/InspectionItems.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InspectionItems.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @inspectionItems@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.InspectionItems ( + InspectionItemsLike (..), +) where + +import Control.Lens (Optic) + +class InspectionItemsLike p f x x' a a' | x -> a where + inspectionItems :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/InspectionMonths.hs b/src/ReOC/Name/InspectionMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InspectionMonths.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @inspectionMonths@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.InspectionMonths ( + InspectionMonthsLike (..), +) where + +import Control.Lens (Optic) + +class InspectionMonthsLike p f x x' a a' | x -> a where + inspectionMonths :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/InvalidABN.hs b/src/ReOC/Name/InvalidABN.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidABN.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidABN@, which targets @Text@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidABN ( + InvalidABNLike (..), +) where + +import Control.Lens (Optic) +import Data.Text (Text) + +class InvalidABNLike p f x x' where + invalidABN :: + Optic p f x x' Text Text + +-- | Identity +instance (x' ~ Text) => InvalidABNLike p f Text x' where + invalidABN = id diff --git a/src/ReOC/Name/InvalidARN.hs b/src/ReOC/Name/InvalidARN.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidARN.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidARN@, which targets @Text@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidARN ( + InvalidARNLike (..), +) where + +import Control.Lens (Optic) +import Data.Text (Text) + +class InvalidARNLike p f x x' where + invalidARN :: + Optic p f x x' Text Text + +-- | Identity +instance (x' ~ Text) => InvalidARNLike p f Text x' where + invalidARN = id diff --git a/src/ReOC/Name/InvalidEmailAddress.hs b/src/ReOC/Name/InvalidEmailAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidEmailAddress.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidEmailAddress@, which targets @Text@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidEmailAddress ( + InvalidEmailAddressLike (..), +) where + +import Control.Lens (Optic) +import Data.Text (Text) + +class InvalidEmailAddressLike p f x x' where + invalidEmailAddress :: + Optic p f x x' Text Text + +-- | Identity +instance (x' ~ Text) => InvalidEmailAddressLike p f Text x' where + invalidEmailAddress = id diff --git a/src/ReOC/Name/InvalidFormText.hs b/src/ReOC/Name/InvalidFormText.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidFormText.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidFormText@, which targets @Text@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidFormText ( + InvalidFormTextLike (..), +) where + +import Control.Lens (Optic) +import Data.Text (Text) + +class InvalidFormTextLike p f x x' where + invalidFormText :: + Optic p f x x' Text Text + +-- | Identity +instance (x' ~ Text) => InvalidFormTextLike p f Text x' where + invalidFormText = id diff --git a/src/ReOC/Name/InvalidGrossWeight.hs b/src/ReOC/Name/InvalidGrossWeight.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidGrossWeight.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidGrossWeight@, which targets @Natural@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidGrossWeight ( + InvalidGrossWeightLike (..), +) where + +import Control.Lens (Optic) +import Numeric.Natural (Natural) + +class InvalidGrossWeightLike p f x x' where + invalidGrossWeight :: + Optic p f x x' Natural Natural + +-- | Identity +instance (x' ~ Natural) => InvalidGrossWeightLike p f Natural x' where + invalidGrossWeight = id diff --git a/src/ReOC/Name/InvalidPassMark.hs b/src/ReOC/Name/InvalidPassMark.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidPassMark.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidPassMark@, which targets @Natural@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidPassMark ( + InvalidPassMarkLike (..), +) where + +import Control.Lens (Optic) +import Numeric.Natural (Natural) + +class InvalidPassMarkLike p f x x' where + invalidPassMark :: + Optic p f x x' Natural Natural + +-- | Identity +instance (x' ~ Natural) => InvalidPassMarkLike p f Natural x' where + invalidPassMark = id diff --git a/src/ReOC/Name/InvalidPercentage.hs b/src/ReOC/Name/InvalidPercentage.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidPercentage.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidPercentage@, which targets @Natural@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidPercentage ( + InvalidPercentageLike (..), +) where + +import Control.Lens (Optic) +import Numeric.Natural (Natural) + +class InvalidPercentageLike p f x x' where + invalidPercentage :: + Optic p f x x' Natural Natural + +-- | Identity +instance (x' ~ Natural) => InvalidPercentageLike p f Natural x' where + invalidPercentage = id diff --git a/src/ReOC/Name/InvalidPhoneNumber.hs b/src/ReOC/Name/InvalidPhoneNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidPhoneNumber.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidPhoneNumber@, which targets @Text@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidPhoneNumber ( + InvalidPhoneNumberLike (..), +) where + +import Control.Lens (Optic) +import Data.Text (Text) + +class InvalidPhoneNumberLike p f x x' where + invalidPhoneNumber :: + Optic p f x x' Text Text + +-- | Identity +instance (x' ~ Text) => InvalidPhoneNumberLike p f Text x' where + invalidPhoneNumber = id diff --git a/src/ReOC/Name/InvalidPositive.hs b/src/ReOC/Name/InvalidPositive.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidPositive.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidPositive@, which targets @Natural@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidPositive ( + InvalidPositiveLike (..), +) where + +import Control.Lens (Optic) +import Numeric.Natural (Natural) + +class InvalidPositiveLike p f x x' where + invalidPositive :: + Optic p f x x' Natural Natural + +-- | Identity +instance (x' ~ Natural) => InvalidPositiveLike p f Natural x' where + invalidPositive = id diff --git a/src/ReOC/Name/InvalidPostcode.hs b/src/ReOC/Name/InvalidPostcode.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidPostcode.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidPostcode@, which targets @Text@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidPostcode ( + InvalidPostcodeLike (..), +) where + +import Control.Lens (Optic) +import Data.Text (Text) + +class InvalidPostcodeLike p f x x' where + invalidPostcode :: + Optic p f x x' Text Text + +-- | Identity +instance (x' ~ Text) => InvalidPostcodeLike p f Text x' where + invalidPostcode = id diff --git a/src/ReOC/Name/InvalidReviewMonths.hs b/src/ReOC/Name/InvalidReviewMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidReviewMonths.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidReviewMonths@, which targets @Natural@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidReviewMonths ( + InvalidReviewMonthsLike (..), +) where + +import Control.Lens (Optic) +import Numeric.Natural (Natural) + +class InvalidReviewMonthsLike p f x x' where + invalidReviewMonths :: + Optic p f x x' Natural Natural + +-- | Identity +instance (x' ~ Natural) => InvalidReviewMonthsLike p f Natural x' where + invalidReviewMonths = id diff --git a/src/ReOC/Name/InvalidText1.hs b/src/ReOC/Name/InvalidText1.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/InvalidText1.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @invalidText1@, which targets @Text@. It names a field or constructor of @InvalidValue@. +module ReOC.Name.InvalidText1 ( + InvalidText1Like (..), +) where + +import Control.Lens (Optic) +import Data.Text (Text) + +class InvalidText1Like p f x x' where + invalidText1 :: + Optic p f x x' Text Text + +-- | Identity +instance (x' ~ Text) => InvalidText1Like p f Text x' where + invalidText1 = id diff --git a/src/ReOC/Name/IssueDate.hs b/src/ReOC/Name/IssueDate.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/IssueDate.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @issueDate@, whose target is a type parameter. It names a field or constructor of @FirstIssue'@. +module ReOC.Name.IssueDate ( + IssueDateLike (..), +) where + +import Control.Lens (Optic) + +class IssueDateLike p f x x' a a' | x -> a where + issueDate :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/KeyPersonnel.hs b/src/ReOC/Name/KeyPersonnel.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/KeyPersonnel.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @keyPersonnel@, whose target is a type parameter. It names a field or constructor of @Operator'@. +module ReOC.Name.KeyPersonnel ( + KeyPersonnelLike (..), +) where + +import Control.Lens (Optic) + +class KeyPersonnelLike p f x x' a a' | x -> a where + keyPersonnel :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/KeyPersonnelChiefExecutive.hs b/src/ReOC/Name/KeyPersonnelChiefExecutive.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/KeyPersonnelChiefExecutive.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @keyPersonnelChiefExecutive@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.KeyPersonnelChiefExecutive ( + KeyPersonnelChiefExecutiveLike (..), +) where + +import Control.Lens (Optic) + +class KeyPersonnelChiefExecutiveLike p f x x' where + keyPersonnelChiefExecutive :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => KeyPersonnelChiefExecutiveLike p f () x' where + keyPersonnelChiefExecutive = id diff --git a/src/ReOC/Name/KeyPersonnelChiefPilot.hs b/src/ReOC/Name/KeyPersonnelChiefPilot.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/KeyPersonnelChiefPilot.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @keyPersonnelChiefPilot@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.KeyPersonnelChiefPilot ( + KeyPersonnelChiefPilotLike (..), +) where + +import Control.Lens (Optic) + +class KeyPersonnelChiefPilotLike p f x x' where + keyPersonnelChiefPilot :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => KeyPersonnelChiefPilotLike p f () x' where + keyPersonnelChiefPilot = id diff --git a/src/ReOC/Name/KeyPersonnelMcNominee.hs b/src/ReOC/Name/KeyPersonnelMcNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/KeyPersonnelMcNominee.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @keyPersonnelMcNominee@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.KeyPersonnelMcNominee ( + KeyPersonnelMcNomineeLike (..), +) where + +import Control.Lens (Optic) + +class KeyPersonnelMcNomineeLike p f x x' where + keyPersonnelMcNominee :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => KeyPersonnelMcNomineeLike p f () x' where + keyPersonnelMcNominee = id diff --git a/src/ReOC/Name/Low.hs b/src/ReOC/Name/Low.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Low.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @low@, which targets @()@. It names a field or constructor of @RiskLevel@. +module ReOC.Name.Low ( + LowLike (..), +) where + +import Control.Lens (Optic) + +class LowLike p f x x' where + low :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => LowLike p f () x' where + low = id diff --git a/src/ReOC/Name/MaintenanceController.hs b/src/ReOC/Name/MaintenanceController.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MaintenanceController.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @maintenanceController@, which targets @()@. It names a field or constructor of @KeyPosition@. +module ReOC.Name.MaintenanceController ( + MaintenanceControllerLike (..), +) where + +import Control.Lens (Optic) + +class MaintenanceControllerLike p f x x' where + maintenanceController :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => MaintenanceControllerLike p f () x' where + maintenanceController = id diff --git a/src/ReOC/Name/MajorRevision.hs b/src/ReOC/Name/MajorRevision.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MajorRevision.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @majorRevision@, which targets @()@. It names a field or constructor of @VersionChange@. +module ReOC.Name.MajorRevision ( + MajorRevisionLike (..), +) where + +import Control.Lens (Optic) + +class MajorRevisionLike p f x x' where + majorRevision :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => MajorRevisionLike p f () x' where + majorRevision = id diff --git a/src/ReOC/Name/MajorVersion.hs b/src/ReOC/Name/MajorVersion.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MajorVersion.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @majorVersion@, whose target is a type parameter. It names a field or constructor of @Version'@. +module ReOC.Name.MajorVersion ( + MajorVersionLike (..), +) where + +import Control.Lens (Optic) + +class MajorVersionLike p f x x' a a' | x -> a where + majorVersion :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ManagementExperience.hs b/src/ReOC/Name/ManagementExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ManagementExperience.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @managementExperience@, whose target is a type parameter. It names a field or constructor of @ChiefExecutive'@. +module ReOC.Name.ManagementExperience ( + ManagementExperienceLike (..), +) where + +import Control.Lens (Optic) + +class ManagementExperienceLike p f x x' a a' | x -> a where + managementExperience :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/MaxStudentsPerCourse.hs b/src/ReOC/Name/MaxStudentsPerCourse.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MaxStudentsPerCourse.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @maxStudentsPerCourse@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.MaxStudentsPerCourse ( + MaxStudentsPerCourseLike (..), +) where + +import Control.Lens (Optic) + +class MaxStudentsPerCourseLike p f x x' a a' | x -> a where + maxStudentsPerCourse :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/MaxStudentsPerInstructor.hs b/src/ReOC/Name/MaxStudentsPerInstructor.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MaxStudentsPerInstructor.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @maxStudentsPerInstructor@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.MaxStudentsPerInstructor ( + MaxStudentsPerInstructorLike (..), +) where + +import Control.Lens (Optic) + +class MaxStudentsPerInstructorLike p f x x' a a' | x -> a where + maxStudentsPerInstructor :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/MaximumGrossWeight.hs b/src/ReOC/Name/MaximumGrossWeight.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MaximumGrossWeight.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @maximumGrossWeight@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.MaximumGrossWeight ( + MaximumGrossWeightLike (..), +) where + +import Control.Lens (Optic) + +class MaximumGrossWeightLike p f x x' a a' | x -> a where + maximumGrossWeight :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/MaybeTrainingMaterial.hs b/src/ReOC/Name/MaybeTrainingMaterial.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MaybeTrainingMaterial.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @maybeTrainingMaterial@, whose target is a type parameter. It names a field or constructor of @ReOC'@. +module ReOC.Name.MaybeTrainingMaterial ( + MaybeTrainingMaterialLike (..), +) where + +import Control.Lens (Optic) + +class MaybeTrainingMaterialLike p f x x' a a' | x -> a where + maybeTrainingMaterial :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/McIsCEO.hs b/src/ReOC/Name/McIsCEO.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/McIsCEO.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @mcIsCEO@, which targets @()@. It names a field or constructor of @MCNominee'@. +module ReOC.Name.McIsCEO ( + McIsCEOLike (..), +) where + +import Control.Lens (Optic) + +class McIsCEOLike p f x x' where + mcIsCEO :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => McIsCEOLike p f () x' where + mcIsCEO = id diff --git a/src/ReOC/Name/McIsCRP.hs b/src/ReOC/Name/McIsCRP.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/McIsCRP.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @mcIsCRP@, which targets @()@. It names a field or constructor of @MCNominee'@. +module ReOC.Name.McIsCRP ( + McIsCRPLike (..), +) where + +import Control.Lens (Optic) + +class McIsCRPLike p f x x' where + mcIsCRP :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => McIsCRPLike p f () x' where + mcIsCRP = id diff --git a/src/ReOC/Name/McNominated.hs b/src/ReOC/Name/McNominated.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/McNominated.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @mcNominated@, whose target is a type parameter. It names a field or constructor of @MCNominee'@. +module ReOC.Name.McNominated ( + McNominatedLike (..), +) where + +import Control.Lens (Optic) + +class McNominatedLike p f x x' a a' | x -> a where + mcNominated :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/McNominee.hs b/src/ReOC/Name/McNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/McNominee.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @mcNominee@, whose target is a type parameter. It names a field or constructor of @KeyPersonnel'@. +module ReOC.Name.McNominee ( + McNomineeLike (..), +) where + +import Control.Lens (Optic) + +class McNomineeLike p f x x' a a' | x -> a where + mcNominee :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/McNomineeMcIsCEO.hs b/src/ReOC/Name/McNomineeMcIsCEO.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/McNomineeMcIsCEO.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @mcNomineeMcIsCEO@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.McNomineeMcIsCEO ( + McNomineeMcIsCEOLike (..), +) where + +import Control.Lens (Optic) + +class McNomineeMcIsCEOLike p f x x' where + mcNomineeMcIsCEO :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => McNomineeMcIsCEOLike p f () x' where + mcNomineeMcIsCEO = id diff --git a/src/ReOC/Name/McNomineeMcIsCRP.hs b/src/ReOC/Name/McNomineeMcIsCRP.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/McNomineeMcIsCRP.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @mcNomineeMcIsCRP@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.McNomineeMcIsCRP ( + McNomineeMcIsCRPLike (..), +) where + +import Control.Lens (Optic) + +class McNomineeMcIsCRPLike p f x x' where + mcNomineeMcIsCRP :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => McNomineeMcIsCRPLike p f () x' where + mcNomineeMcIsCRP = id diff --git a/src/ReOC/Name/McNomineeMcNominated.hs b/src/ReOC/Name/McNomineeMcNominated.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/McNomineeMcNominated.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @mcNomineeMcNominated@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.McNomineeMcNominated ( + McNomineeMcNominatedLike (..), +) where + +import Control.Lens (Optic) + +class McNomineeMcNominatedLike p f x x' where + mcNomineeMcNominated :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => McNomineeMcNominatedLike p f () x' where + mcNomineeMcNominated = id diff --git a/src/ReOC/Name/Medium.hs b/src/ReOC/Name/Medium.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Medium.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @medium@, which targets @()@. It names a field or constructor of @RiskLevel@. +module ReOC.Name.Medium ( + MediumLike (..), +) where + +import Control.Lens (Optic) + +class MediumLike p f x x' where + medium :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => MediumLike p f () x' where + medium = id diff --git a/src/ReOC/Name/Minor.hs b/src/ReOC/Name/Minor.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Minor.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @minor@, which targets @()@. It names a field or constructor of @Consequence@. +module ReOC.Name.Minor ( + MinorLike (..), +) where + +import Control.Lens (Optic) + +class MinorLike p f x x' where + minor :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => MinorLike p f () x' where + minor = id diff --git a/src/ReOC/Name/MinorRevision.hs b/src/ReOC/Name/MinorRevision.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MinorRevision.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @minorRevision@, which targets @()@. It names a field or constructor of @VersionChange@. +module ReOC.Name.MinorRevision ( + MinorRevisionLike (..), +) where + +import Control.Lens (Optic) + +class MinorRevisionLike p f x x' where + minorRevision :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => MinorRevisionLike p f () x' where + minorRevision = id diff --git a/src/ReOC/Name/MinorVersion.hs b/src/ReOC/Name/MinorVersion.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MinorVersion.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @minorVersion@, whose target is a type parameter. It names a field or constructor of @Version'@. +module ReOC.Name.MinorVersion ( + MinorVersionLike (..), +) where + +import Control.Lens (Optic) + +class MinorVersionLike p f x x' a a' | x -> a where + minorVersion :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Moderate.hs b/src/ReOC/Name/Moderate.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Moderate.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @moderate@, which targets @()@. It names a field or constructor of @Consequence@. +module ReOC.Name.Moderate ( + ModerateLike (..), +) where + +import Control.Lens (Optic) + +class ModerateLike p f x x' where + moderate :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ModerateLike p f () x' where + moderate = id diff --git a/src/ReOC/Name/Monthly.hs b/src/ReOC/Name/Monthly.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Monthly.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @monthly@, which targets @()@. It names a field or constructor of @BackupInterval@. +module ReOC.Name.Monthly ( + MonthlyLike (..), +) where + +import Control.Lens (Optic) + +class MonthlyLike p f x x' where + monthly :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => MonthlyLike p f () x' where + monthly = id diff --git a/src/ReOC/Name/MonthsAfter.hs b/src/ReOC/Name/MonthsAfter.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MonthsAfter.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @monthsAfter@, whose target is a type parameter. It names a field or constructor of @Revision'@. +module ReOC.Name.MonthsAfter ( + MonthsAfterLike (..), +) where + +import Control.Lens (Optic) + +class MonthsAfterLike p f x x' a a' | x -> a where + monthsAfter :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/MostElements.hs b/src/ReOC/Name/MostElements.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/MostElements.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @mostElements@, which targets @Natural@. It names a field or constructor of @TooMany@. +module ReOC.Name.MostElements ( + MostElementsLike (..), +) where + +import Control.Lens (Optic) +import Numeric.Natural (Natural) + +class MostElementsLike p f x x' where + mostElements :: + Optic p f x x' Natural Natural + +-- | Identity +instance (x' ~ Natural) => MostElementsLike p f Natural x' where + mostElements = id diff --git a/src/ReOC/Name/Multirotor.hs b/src/ReOC/Name/Multirotor.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Multirotor.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @multirotor@, which targets @()@. It names a field or constructor of @RPACategory@. +module ReOC.Name.Multirotor ( + MultirotorLike (..), +) where + +import Control.Lens (Optic) + +class MultirotorLike p f x x' where + multirotor :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => MultirotorLike p f () x' where + multirotor = id diff --git a/src/ReOC/Name/Negligible.hs b/src/ReOC/Name/Negligible.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Negligible.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @negligible@, which targets @()@. It names a field or constructor of @Consequence@. +module ReOC.Name.Negligible ( + NegligibleLike (..), +) where + +import Control.Lens (Optic) + +class NegligibleLike p f x x' where + negligible :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NegligibleLike p f () x' where + negligible = id diff --git a/src/ReOC/Name/NewSouthWales.hs b/src/ReOC/Name/NewSouthWales.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NewSouthWales.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @newSouthWales@, which targets @()@. It names a field or constructor of @AustralianState@. +module ReOC.Name.NewSouthWales ( + NewSouthWalesLike (..), +) where + +import Control.Lens (Optic) + +class NewSouthWalesLike p f x x' where + newSouthWales :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NewSouthWalesLike p f () x' where + newSouthWales = id diff --git a/src/ReOC/Name/NoFlightTerminationSystem.hs b/src/ReOC/Name/NoFlightTerminationSystem.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NoFlightTerminationSystem.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @noFlightTerminationSystem@, which targets @()@. It names a field or constructor of @FlightTermination'@. +module ReOC.Name.NoFlightTerminationSystem ( + NoFlightTerminationSystemLike (..), +) where + +import Control.Lens (Optic) + +class NoFlightTerminationSystemLike p f x x' where + noFlightTerminationSystem :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NoFlightTerminationSystemLike p f () x' where + noFlightTerminationSystem = id diff --git a/src/ReOC/Name/NoHistory.hs b/src/ReOC/Name/NoHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NoHistory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @noHistory@, which targets @()@. It names a field or constructor of @HistoryAnswer'@. +module ReOC.Name.NoHistory ( + NoHistoryLike (..), +) where + +import Control.Lens (Optic) + +class NoHistoryLike p f x x' where + noHistory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NoHistoryLike p f () x' where + noHistory = id diff --git a/src/ReOC/Name/NoOtherReOCRoles.hs b/src/ReOC/Name/NoOtherReOCRoles.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NoOtherReOCRoles.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @noOtherReOCRoles@, which targets @()@. It names a field or constructor of @OtherReOCRoles'@. +module ReOC.Name.NoOtherReOCRoles ( + NoOtherReOCRolesLike (..), +) where + +import Control.Lens (Optic) + +class NoOtherReOCRolesLike p f x x' where + noOtherReOCRoles :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NoOtherReOCRolesLike p f () x' where + noOtherReOCRoles = id diff --git a/src/ReOC/Name/NoRadioQualification.hs b/src/ReOC/Name/NoRadioQualification.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NoRadioQualification.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @noRadioQualification@, which targets @()@. It names a field or constructor of @RadioQualification@. +module ReOC.Name.NoRadioQualification ( + NoRadioQualificationLike (..), +) where + +import Control.Lens (Optic) + +class NoRadioQualificationLike p f x x' where + noRadioQualification :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NoRadioQualificationLike p f () x' where + noRadioQualification = id diff --git a/src/ReOC/Name/NoRegulatoryAction.hs b/src/ReOC/Name/NoRegulatoryAction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NoRegulatoryAction.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @noRegulatoryAction@, which targets @()@. It names a field or constructor of @RegulatoryHistory'@. +module ReOC.Name.NoRegulatoryAction ( + NoRegulatoryActionLike (..), +) where + +import Control.Lens (Optic) + +class NoRegulatoryActionLike p f x x' where + noRegulatoryAction :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NoRegulatoryActionLike p f () x' where + noRegulatoryAction = id diff --git a/src/ReOC/Name/NoTransponder.hs b/src/ReOC/Name/NoTransponder.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NoTransponder.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @noTransponder@, which targets @()@. It names a field or constructor of @Transponder@. +module ReOC.Name.NoTransponder ( + NoTransponderLike (..), +) where + +import Control.Lens (Optic) + +class NoTransponderLike p f x x' where + noTransponder :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NoTransponderLike p f () x' where + noTransponder = id diff --git a/src/ReOC/Name/Nominee.hs b/src/ReOC/Name/Nominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Nominee.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @nominee@, whose target is a type parameter. It names a field or constructor of @ChiefExecutive'@. +module ReOC.Name.Nominee ( + NomineeLike (..), +) where + +import Control.Lens (Optic) + +class NomineeLike p f x x' a a' | x -> a where + nominee :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/NomineeAviationExperience.hs b/src/ReOC/Name/NomineeAviationExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NomineeAviationExperience.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @nomineeAviationExperience@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.NomineeAviationExperience ( + NomineeAviationExperienceLike (..), +) where + +import Control.Lens (Optic) + +class NomineeAviationExperienceLike p f x x' where + nomineeAviationExperience :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NomineeAviationExperienceLike p f () x' where + nomineeAviationExperience = id diff --git a/src/ReOC/Name/NomineeOtherQualifications.hs b/src/ReOC/Name/NomineeOtherQualifications.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NomineeOtherQualifications.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @nomineeOtherQualifications@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.NomineeOtherQualifications ( + NomineeOtherQualificationsLike (..), +) where + +import Control.Lens (Optic) + +class NomineeOtherQualificationsLike p f x x' where + nomineeOtherQualifications :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NomineeOtherQualificationsLike p f () x' where + nomineeOtherQualifications = id diff --git a/src/ReOC/Name/NomineePerson.hs b/src/ReOC/Name/NomineePerson.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NomineePerson.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @nomineePerson@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.NomineePerson ( + NomineePersonLike (..), +) where + +import Control.Lens (Optic) + +class NomineePersonLike p f x x' where + nomineePerson :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NomineePersonLike p f () x' where + nomineePerson = id diff --git a/src/ReOC/Name/NorthernTerritory.hs b/src/ReOC/Name/NorthernTerritory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NorthernTerritory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @northernTerritory@, which targets @()@. It names a field or constructor of @AustralianState@. +module ReOC.Name.NorthernTerritory ( + NorthernTerritoryLike (..), +) where + +import Control.Lens (Optic) + +class NorthernTerritoryLike p f x x' where + northernTerritory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NorthernTerritoryLike p f () x' where + northernTerritory = id diff --git a/src/ReOC/Name/NotADirector.hs b/src/ReOC/Name/NotADirector.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/NotADirector.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @notADirector@, which targets @()@. It names a field or constructor of @Directorship@. +module ReOC.Name.NotADirector ( + NotADirectorLike (..), +) where + +import Control.Lens (Optic) + +class NotADirectorLike p f x x' where + notADirector :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => NotADirectorLike p f () x' where + notADirector = id diff --git a/src/ReOC/Name/Occasional.hs b/src/ReOC/Name/Occasional.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Occasional.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @occasional@, which targets @()@. It names a field or constructor of @Likelihood@. +module ReOC.Name.Occasional ( + OccasionalLike (..), +) where + +import Control.Lens (Optic) + +class OccasionalLike p f x x' where + occasional :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OccasionalLike p f () x' where + occasional = id diff --git a/src/ReOC/Name/OnlineTheory.hs b/src/ReOC/Name/OnlineTheory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OnlineTheory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @onlineTheory@, which targets @()@. It names a field or constructor of @TheoryDelivery@. +module ReOC.Name.OnlineTheory ( + OnlineTheoryLike (..), +) where + +import Control.Lens (Optic) + +class OnlineTheoryLike p f x x' where + onlineTheory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OnlineTheoryLike p f () x' where + onlineTheory = id diff --git a/src/ReOC/Name/OperatedTypeAirframes.hs b/src/ReOC/Name/OperatedTypeAirframes.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperatedTypeAirframes.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operatedTypeAirframes@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperatedTypeAirframes ( + OperatedTypeAirframesLike (..), +) where + +import Control.Lens (Optic) + +class OperatedTypeAirframesLike p f x x' where + operatedTypeAirframes :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperatedTypeAirframesLike p f () x' where + operatedTypeAirframes = id diff --git a/src/ReOC/Name/OperatedTypeRpaType.hs b/src/ReOC/Name/OperatedTypeRpaType.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperatedTypeRpaType.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operatedTypeRpaType@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperatedTypeRpaType ( + OperatedTypeRpaTypeLike (..), +) where + +import Control.Lens (Optic) + +class OperatedTypeRpaTypeLike p f x x' where + operatedTypeRpaType :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperatedTypeRpaTypeLike p f () x' where + operatedTypeRpaType = id diff --git a/src/ReOC/Name/OperationalExperience.hs b/src/ReOC/Name/OperationalExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalExperience.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalExperience@, whose target is a type parameter. It names a field or constructor of @TrainingMaterial'@. +module ReOC.Name.OperationalExperience ( + OperationalExperienceLike (..), +) where + +import Control.Lens (Optic) + +class OperationalExperienceLike p f x x' a a' | x -> a where + operationalExperience :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OperationalExperienceHasOperationalExperience.hs b/src/ReOC/Name/OperationalExperienceHasOperationalExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalExperienceHasOperationalExperience.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalExperienceHasOperationalExperience@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationalExperienceHasOperationalExperience ( + OperationalExperienceHasOperationalExperienceLike (..), +) where + +import Control.Lens (Optic) + +class OperationalExperienceHasOperationalExperienceLike p f x x' where + operationalExperienceHasOperationalExperience :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationalExperienceHasOperationalExperienceLike p f () x' where + operationalExperienceHasOperationalExperience = id diff --git a/src/ReOC/Name/OperationalExperienceIntent.hs b/src/ReOC/Name/OperationalExperienceIntent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalExperienceIntent.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalExperienceIntent@, whose target is a type parameter. It names a field or constructor of @OperationalExperience'@. +module ReOC.Name.OperationalExperienceIntent ( + OperationalExperienceIntentLike (..), +) where + +import Control.Lens (Optic) + +class OperationalExperienceIntentLike p f x x' a a' | x -> a where + operationalExperienceIntent :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OperationalExperienceNotApplicable.hs b/src/ReOC/Name/OperationalExperienceNotApplicable.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalExperienceNotApplicable.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalExperienceNotApplicable@, which targets @()@. It names a field or constructor of @OperationalExperience'@. +module ReOC.Name.OperationalExperienceNotApplicable ( + OperationalExperienceNotApplicableLike (..), +) where + +import Control.Lens (Optic) + +class OperationalExperienceNotApplicableLike p f x x' where + operationalExperienceNotApplicable :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationalExperienceNotApplicableLike p f () x' where + operationalExperienceNotApplicable = id diff --git a/src/ReOC/Name/OperationalExperienceOperationalExperienceIntent.hs b/src/ReOC/Name/OperationalExperienceOperationalExperienceIntent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalExperienceOperationalExperienceIntent.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalExperienceOperationalExperienceIntent@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationalExperienceOperationalExperienceIntent ( + OperationalExperienceOperationalExperienceIntentLike (..), +) where + +import Control.Lens (Optic) + +class OperationalExperienceOperationalExperienceIntentLike p f x x' where + operationalExperienceOperationalExperienceIntent :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationalExperienceOperationalExperienceIntentLike p f () x' where + operationalExperienceOperationalExperienceIntent = id diff --git a/src/ReOC/Name/OperationalExperienceOperationalExperienceNotApplicable.hs b/src/ReOC/Name/OperationalExperienceOperationalExperienceNotApplicable.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalExperienceOperationalExperienceNotApplicable.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalExperienceOperationalExperienceNotApplicable@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationalExperienceOperationalExperienceNotApplicable ( + OperationalExperienceOperationalExperienceNotApplicableLike (..), +) where + +import Control.Lens (Optic) + +class OperationalExperienceOperationalExperienceNotApplicableLike p f x x' where + operationalExperienceOperationalExperienceNotApplicable :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationalExperienceOperationalExperienceNotApplicableLike p f () x' where + operationalExperienceOperationalExperienceNotApplicable = id diff --git a/src/ReOC/Name/OperationalHeadquarters.hs b/src/ReOC/Name/OperationalHeadquarters.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalHeadquarters.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalHeadquarters@, whose target is a type parameter. It names a field or constructor of @Company'@. +module ReOC.Name.OperationalHeadquarters ( + OperationalHeadquartersLike (..), +) where + +import Control.Lens (Optic) + +class OperationalHeadquartersLike p f x x' a a' | x -> a where + operationalHeadquarters :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OperationalHeadquartersAddress.hs b/src/ReOC/Name/OperationalHeadquartersAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalHeadquartersAddress.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalHeadquartersAddress@, whose target is a type parameter. It names a field or constructor of @OperationalHeadquarters'@. +module ReOC.Name.OperationalHeadquartersAddress ( + OperationalHeadquartersAddressLike (..), +) where + +import Control.Lens (Optic) + +class OperationalHeadquartersAddressLike p f x x' a a' | x -> a where + operationalHeadquartersAddress :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OperationalHeadquartersAtRegisteredOffice.hs b/src/ReOC/Name/OperationalHeadquartersAtRegisteredOffice.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalHeadquartersAtRegisteredOffice.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalHeadquartersAtRegisteredOffice@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationalHeadquartersAtRegisteredOffice ( + OperationalHeadquartersAtRegisteredOfficeLike (..), +) where + +import Control.Lens (Optic) + +class OperationalHeadquartersAtRegisteredOfficeLike p f x x' where + operationalHeadquartersAtRegisteredOffice :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationalHeadquartersAtRegisteredOfficeLike p f () x' where + operationalHeadquartersAtRegisteredOffice = id diff --git a/src/ReOC/Name/OperationalHeadquartersOperationalHeadquartersAddress.hs b/src/ReOC/Name/OperationalHeadquartersOperationalHeadquartersAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationalHeadquartersOperationalHeadquartersAddress.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationalHeadquartersOperationalHeadquartersAddress@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationalHeadquartersOperationalHeadquartersAddress ( + OperationalHeadquartersOperationalHeadquartersAddressLike (..), +) where + +import Control.Lens (Optic) + +class OperationalHeadquartersOperationalHeadquartersAddressLike p f x x' where + operationalHeadquartersOperationalHeadquartersAddress :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationalHeadquartersOperationalHeadquartersAddressLike p f () x' where + operationalHeadquartersOperationalHeadquartersAddress = id diff --git a/src/ReOC/Name/OperationsManual.hs b/src/ReOC/Name/OperationsManual.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationsManual.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationsManual@, whose target is a type parameter. It names a field or constructor of @ReOC'@. +module ReOC.Name.OperationsManual ( + OperationsManualLike (..), +) where + +import Control.Lens (Optic) + +class OperationsManualLike p f x x' a a' | x -> a where + operationsManual :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OperationsManualCrew.hs b/src/ReOC/Name/OperationsManualCrew.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationsManualCrew.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationsManualCrew@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationsManualCrew ( + OperationsManualCrewLike (..), +) where + +import Control.Lens (Optic) + +class OperationsManualCrewLike p f x x' where + operationsManualCrew :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationsManualCrewLike p f () x' where + operationsManualCrew = id diff --git a/src/ReOC/Name/OperationsManualFirstIssue.hs b/src/ReOC/Name/OperationsManualFirstIssue.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationsManualFirstIssue.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationsManualFirstIssue@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationsManualFirstIssue ( + OperationsManualFirstIssueLike (..), +) where + +import Control.Lens (Optic) + +class OperationsManualFirstIssueLike p f x x' where + operationsManualFirstIssue :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationsManualFirstIssueLike p f () x' where + operationsManualFirstIssue = id diff --git a/src/ReOC/Name/OperationsManualPilots.hs b/src/ReOC/Name/OperationsManualPilots.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationsManualPilots.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationsManualPilots@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationsManualPilots ( + OperationsManualPilotsLike (..), +) where + +import Control.Lens (Optic) + +class OperationsManualPilotsLike p f x x' where + operationsManualPilots :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationsManualPilotsLike p f () x' where + operationsManualPilots = id diff --git a/src/ReOC/Name/OperationsManualPolicies.hs b/src/ReOC/Name/OperationsManualPolicies.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationsManualPolicies.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationsManualPolicies@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationsManualPolicies ( + OperationsManualPoliciesLike (..), +) where + +import Control.Lens (Optic) + +class OperationsManualPoliciesLike p f x x' where + operationsManualPolicies :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationsManualPoliciesLike p f () x' where + operationsManualPolicies = id diff --git a/src/ReOC/Name/OperationsManualRevisions.hs b/src/ReOC/Name/OperationsManualRevisions.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationsManualRevisions.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationsManualRevisions@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationsManualRevisions ( + OperationsManualRevisionsLike (..), +) where + +import Control.Lens (Optic) + +class OperationsManualRevisionsLike p f x x' where + operationsManualRevisions :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationsManualRevisionsLike p f () x' where + operationsManualRevisions = id diff --git a/src/ReOC/Name/OperationsManualRiskRegister.hs b/src/ReOC/Name/OperationsManualRiskRegister.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationsManualRiskRegister.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationsManualRiskRegister@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationsManualRiskRegister ( + OperationsManualRiskRegisterLike (..), +) where + +import Control.Lens (Optic) + +class OperationsManualRiskRegisterLike p f x x' where + operationsManualRiskRegister :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationsManualRiskRegisterLike p f () x' where + operationsManualRiskRegister = id diff --git a/src/ReOC/Name/OperationsManualServices.hs b/src/ReOC/Name/OperationsManualServices.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperationsManualServices.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operationsManualServices@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperationsManualServices ( + OperationsManualServicesLike (..), +) where + +import Control.Lens (Optic) + +class OperationsManualServicesLike p f x x' where + operationsManualServices :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperationsManualServicesLike p f () x' where + operationsManualServices = id diff --git a/src/ReOC/Name/Operator.hs b/src/ReOC/Name/Operator.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Operator.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operator@, whose target is a type parameter. It names a field or constructor of @ReOC'@. +module ReOC.Name.Operator ( + OperatorLike (..), +) where + +import Control.Lens (Optic) + +class OperatorLike p f x x' a a' | x -> a where + operator :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OperatorCompany.hs b/src/ReOC/Name/OperatorCompany.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperatorCompany.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operatorCompany@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperatorCompany ( + OperatorCompanyLike (..), +) where + +import Control.Lens (Optic) + +class OperatorCompanyLike p f x x' where + operatorCompany :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperatorCompanyLike p f () x' where + operatorCompany = id diff --git a/src/ReOC/Name/OperatorFleet.hs b/src/ReOC/Name/OperatorFleet.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperatorFleet.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operatorFleet@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperatorFleet ( + OperatorFleetLike (..), +) where + +import Control.Lens (Optic) + +class OperatorFleetLike p f x x' where + operatorFleet :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperatorFleetLike p f () x' where + operatorFleet = id diff --git a/src/ReOC/Name/OperatorKeyPersonnel.hs b/src/ReOC/Name/OperatorKeyPersonnel.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OperatorKeyPersonnel.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @operatorKeyPersonnel@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OperatorKeyPersonnel ( + OperatorKeyPersonnelLike (..), +) where + +import Control.Lens (Optic) + +class OperatorKeyPersonnelLike p f x x' where + operatorKeyPersonnel :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OperatorKeyPersonnelLike p f () x' where + operatorKeyPersonnel = id diff --git a/src/ReOC/Name/OtherDocuments.hs b/src/ReOC/Name/OtherDocuments.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OtherDocuments.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @otherDocuments@, whose target is a type parameter. It names a field or constructor of @ApplicationForm'@. +module ReOC.Name.OtherDocuments ( + OtherDocumentsLike (..), +) where + +import Control.Lens (Optic) + +class OtherDocumentsLike p f x x' a a' | x -> a where + otherDocuments :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OtherQualifications.hs b/src/ReOC/Name/OtherQualifications.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OtherQualifications.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @otherQualifications@, whose target is a type parameter. It names a field or constructor of @Nominee'@. +module ReOC.Name.OtherQualifications ( + OtherQualificationsLike (..), +) where + +import Control.Lens (Optic) + +class OtherQualificationsLike p f x x' a a' | x -> a where + otherQualifications :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OtherReOCRoles.hs b/src/ReOC/Name/OtherReOCRoles.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OtherReOCRoles.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @otherReOCRoles@, whose target is a type parameter. It names a field or constructor of @ChiefPilot'@. +module ReOC.Name.OtherReOCRoles ( + OtherReOCRolesLike (..), +) where + +import Control.Lens (Optic) + +class OtherReOCRolesLike p f x x' a a' | x -> a where + otherReOCRoles :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OtherReOCRolesHeld.hs b/src/ReOC/Name/OtherReOCRolesHeld.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OtherReOCRolesHeld.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @otherReOCRolesHeld@, whose target is a type parameter. It names a field or constructor of @OtherReOCRoles'@. +module ReOC.Name.OtherReOCRolesHeld ( + OtherReOCRolesHeldLike (..), +) where + +import Control.Lens (Optic) + +class OtherReOCRolesHeldLike p f x x' a a' | x -> a where + otherReOCRolesHeld :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/OtherReOCRolesNoOtherReOCRoles.hs b/src/ReOC/Name/OtherReOCRolesNoOtherReOCRoles.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OtherReOCRolesNoOtherReOCRoles.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @otherReOCRolesNoOtherReOCRoles@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OtherReOCRolesNoOtherReOCRoles ( + OtherReOCRolesNoOtherReOCRolesLike (..), +) where + +import Control.Lens (Optic) + +class OtherReOCRolesNoOtherReOCRolesLike p f x x' where + otherReOCRolesNoOtherReOCRoles :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OtherReOCRolesNoOtherReOCRolesLike p f () x' where + otherReOCRolesNoOtherReOCRoles = id diff --git a/src/ReOC/Name/OtherReOCRolesOtherReOCRolesHeld.hs b/src/ReOC/Name/OtherReOCRolesOtherReOCRolesHeld.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OtherReOCRolesOtherReOCRolesHeld.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @otherReOCRolesOtherReOCRolesHeld@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.OtherReOCRolesOtherReOCRolesHeld ( + OtherReOCRolesOtherReOCRolesHeldLike (..), +) where + +import Control.Lens (Optic) + +class OtherReOCRolesOtherReOCRolesHeldLike p f x x' where + otherReOCRolesOtherReOCRolesHeld :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OtherReOCRolesOtherReOCRolesHeldLike p f () x' where + otherReOCRolesOtherReOCRolesHeld = id diff --git a/src/ReOC/Name/OtherRemotePilots.hs b/src/ReOC/Name/OtherRemotePilots.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/OtherRemotePilots.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @otherRemotePilots@, which targets @()@. It names a field or constructor of @RemotePilots@. +module ReOC.Name.OtherRemotePilots ( + OtherRemotePilotsLike (..), +) where + +import Control.Lens (Optic) + +class OtherRemotePilotsLike p f x x' where + otherRemotePilots :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => OtherRemotePilotsLike p f () x' where + otherRemotePilots = id diff --git a/src/ReOC/Name/PaperExamination.hs b/src/ReOC/Name/PaperExamination.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PaperExamination.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @paperExamination@, which targets @()@. It names a field or constructor of @ExamDelivery@. +module ReOC.Name.PaperExamination ( + PaperExaminationLike (..), +) where + +import Control.Lens (Optic) + +class PaperExaminationLike p f x x' where + paperExamination :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PaperExaminationLike p f () x' where + paperExamination = id diff --git a/src/ReOC/Name/Parts.hs b/src/ReOC/Name/Parts.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Parts.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @parts@, whose target is a type parameter. It names a field or constructor of @FirstIssue'@, @Revision'@. +module ReOC.Name.Parts ( + PartsLike (..), +) where + +import Control.Lens (Optic) + +class PartsLike p f x x' a a' | x -> a where + parts :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Path.hs b/src/ReOC/Name/Path.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Path.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @path@, which targets @[Step]@. It names a field or constructor of @Unfilled@, @Invalid@, @TooMany@. +module ReOC.Name.Path ( + PathLike (..), +) where + +import Control.Lens (Optic) +import ReOC.Data.Step (Step) + +class PathLike p f x x' where + path :: + Optic p f x x' [Step] [Step] + +-- | Identity +instance (x' ~ [Step]) => PathLike p f [Step] x' where + path = id diff --git a/src/ReOC/Name/Person.hs b/src/ReOC/Name/Person.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Person.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @person@, whose target is a type parameter. It names a field or constructor of @Nominee'@. +module ReOC.Name.Person ( + PersonLike (..), +) where + +import Control.Lens (Optic) + +class PersonLike p f x x' a a' | x -> a where + person :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/PersonArn.hs b/src/ReOC/Name/PersonArn.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonArn.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personArn@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PersonArn ( + PersonArnLike (..), +) where + +import Control.Lens (Optic) + +class PersonArnLike p f x x' where + personArn :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PersonArnLike p f () x' where + personArn = id diff --git a/src/ReOC/Name/PersonEmailAddress.hs b/src/ReOC/Name/PersonEmailAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonEmailAddress.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personEmailAddress@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PersonEmailAddress ( + PersonEmailAddressLike (..), +) where + +import Control.Lens (Optic) + +class PersonEmailAddressLike p f x x' where + personEmailAddress :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PersonEmailAddressLike p f () x' where + personEmailAddress = id diff --git a/src/ReOC/Name/PersonFullName.hs b/src/ReOC/Name/PersonFullName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonFullName.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personFullName@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PersonFullName ( + PersonFullNameLike (..), +) where + +import Control.Lens (Optic) + +class PersonFullNameLike p f x x' where + personFullName :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PersonFullNameLike p f () x' where + personFullName = id diff --git a/src/ReOC/Name/PersonPhoneNumber.hs b/src/ReOC/Name/PersonPhoneNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonPhoneNumber.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personPhoneNumber@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PersonPhoneNumber ( + PersonPhoneNumberLike (..), +) where + +import Control.Lens (Optic) + +class PersonPhoneNumberLike p f x x' where + personPhoneNumber :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PersonPhoneNumberLike p f () x' where + personPhoneNumber = id diff --git a/src/ReOC/Name/PersonnelHistory.hs b/src/ReOC/Name/PersonnelHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonnelHistory.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personnelHistory@, whose target is a type parameter. It names a field or constructor of @ApplicationForm'@. +module ReOC.Name.PersonnelHistory ( + PersonnelHistoryLike (..), +) where + +import Control.Lens (Optic) + +class PersonnelHistoryLike p f x x' a a' | x -> a where + personnelHistory :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/PersonnelHistoryActionTaken.hs b/src/ReOC/Name/PersonnelHistoryActionTaken.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonnelHistoryActionTaken.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personnelHistoryActionTaken@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PersonnelHistoryActionTaken ( + PersonnelHistoryActionTakenLike (..), +) where + +import Control.Lens (Optic) + +class PersonnelHistoryActionTakenLike p f x x' where + personnelHistoryActionTaken :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PersonnelHistoryActionTakenLike p f () x' where + personnelHistoryActionTaken = id diff --git a/src/ReOC/Name/PersonnelHistoryCriminalConviction.hs b/src/ReOC/Name/PersonnelHistoryCriminalConviction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonnelHistoryCriminalConviction.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personnelHistoryCriminalConviction@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PersonnelHistoryCriminalConviction ( + PersonnelHistoryCriminalConvictionLike (..), +) where + +import Control.Lens (Optic) + +class PersonnelHistoryCriminalConvictionLike p f x x' where + personnelHistoryCriminalConviction :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PersonnelHistoryCriminalConvictionLike p f () x' where + personnelHistoryCriminalConviction = id diff --git a/src/ReOC/Name/PersonnelHistorySuspensionPending.hs b/src/ReOC/Name/PersonnelHistorySuspensionPending.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonnelHistorySuspensionPending.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personnelHistorySuspensionPending@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PersonnelHistorySuspensionPending ( + PersonnelHistorySuspensionPendingLike (..), +) where + +import Control.Lens (Optic) + +class PersonnelHistorySuspensionPendingLike p f x x' where + personnelHistorySuspensionPending :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PersonnelHistorySuspensionPendingLike p f () x' where + personnelHistorySuspensionPending = id diff --git a/src/ReOC/Name/PersonnelHistoryTransportLicenceRefused.hs b/src/ReOC/Name/PersonnelHistoryTransportLicenceRefused.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PersonnelHistoryTransportLicenceRefused.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @personnelHistoryTransportLicenceRefused@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PersonnelHistoryTransportLicenceRefused ( + PersonnelHistoryTransportLicenceRefusedLike (..), +) where + +import Control.Lens (Optic) + +class PersonnelHistoryTransportLicenceRefusedLike p f x x' where + personnelHistoryTransportLicenceRefused :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PersonnelHistoryTransportLicenceRefusedLike p f () x' where + personnelHistoryTransportLicenceRefused = id diff --git a/src/ReOC/Name/PhoneNumber.hs b/src/ReOC/Name/PhoneNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PhoneNumber.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @phoneNumber@, whose target is a type parameter. It names a field or constructor of @Person'@, @Company'@, @ContactPerson'@. +module ReOC.Name.PhoneNumber ( + PhoneNumberLike (..), +) where + +import Control.Lens (Optic) + +class PhoneNumberLike p f x x' a a' | x -> a where + phoneNumber :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Pilots.hs b/src/ReOC/Name/Pilots.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Pilots.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @pilots@, whose target is a type parameter. It names a field or constructor of @OperationsManual'@. +module ReOC.Name.Pilots ( + PilotsLike (..), +) where + +import Control.Lens (Optic) + +class PilotsLike p f x x' a a' | x -> a where + pilots :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Policies.hs b/src/ReOC/Name/Policies.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Policies.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policies@, whose target is a type parameter. It names a field or constructor of @OperationsManual'@. +module ReOC.Name.Policies ( + PoliciesLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesLike p f x x' a a' | x -> a where + policies :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/PoliciesAlcoholHours.hs b/src/ReOC/Name/PoliciesAlcoholHours.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesAlcoholHours.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesAlcoholHours@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesAlcoholHours ( + PoliciesAlcoholHoursLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesAlcoholHoursLike p f x x' where + policiesAlcoholHours :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesAlcoholHoursLike p f () x' where + policiesAlcoholHours = id diff --git a/src/ReOC/Name/PoliciesBackupFrequency.hs b/src/ReOC/Name/PoliciesBackupFrequency.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesBackupFrequency.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesBackupFrequency@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesBackupFrequency ( + PoliciesBackupFrequencyLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesBackupFrequencyLike p f x x' where + policiesBackupFrequency :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesBackupFrequencyLike p f () x' where + policiesBackupFrequency = id diff --git a/src/ReOC/Name/PoliciesBatteryReserve.hs b/src/ReOC/Name/PoliciesBatteryReserve.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesBatteryReserve.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesBatteryReserve@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesBatteryReserve ( + PoliciesBatteryReserveLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesBatteryReserveLike p f x x' where + policiesBatteryReserve :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesBatteryReserveLike p f () x' where + policiesBatteryReserve = id diff --git a/src/ReOC/Name/PoliciesCheckingMonths.hs b/src/ReOC/Name/PoliciesCheckingMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesCheckingMonths.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesCheckingMonths@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesCheckingMonths ( + PoliciesCheckingMonthsLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesCheckingMonthsLike p f x x' where + policiesCheckingMonths :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesCheckingMonthsLike p f () x' where + policiesCheckingMonths = id diff --git a/src/ReOC/Name/PoliciesDutyHours.hs b/src/ReOC/Name/PoliciesDutyHours.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesDutyHours.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesDutyHours@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesDutyHours ( + PoliciesDutyHoursLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesDutyHoursLike p f x x' where + policiesDutyHours :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesDutyHoursLike p f () x' where + policiesDutyHours = id diff --git a/src/ReOC/Name/PoliciesIndependentReviewYears.hs b/src/ReOC/Name/PoliciesIndependentReviewYears.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesIndependentReviewYears.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesIndependentReviewYears@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesIndependentReviewYears ( + PoliciesIndependentReviewYearsLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesIndependentReviewYearsLike p f x x' where + policiesIndependentReviewYears :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesIndependentReviewYearsLike p f () x' where + policiesIndependentReviewYears = id diff --git a/src/ReOC/Name/PoliciesInspectionHours.hs b/src/ReOC/Name/PoliciesInspectionHours.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesInspectionHours.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesInspectionHours@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesInspectionHours ( + PoliciesInspectionHoursLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesInspectionHoursLike p f x x' where + policiesInspectionHours :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesInspectionHoursLike p f () x' where + policiesInspectionHours = id diff --git a/src/ReOC/Name/PoliciesInspectionMonths.hs b/src/ReOC/Name/PoliciesInspectionMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesInspectionMonths.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesInspectionMonths@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesInspectionMonths ( + PoliciesInspectionMonthsLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesInspectionMonthsLike p f x x' where + policiesInspectionMonths :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesInspectionMonthsLike p f () x' where + policiesInspectionMonths = id diff --git a/src/ReOC/Name/PoliciesRecencyDays.hs b/src/ReOC/Name/PoliciesRecencyDays.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesRecencyDays.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesRecencyDays@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesRecencyDays ( + PoliciesRecencyDaysLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesRecencyDaysLike p f x x' where + policiesRecencyDays :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesRecencyDaysLike p f () x' where + policiesRecencyDays = id diff --git a/src/ReOC/Name/PoliciesRecencyFlights.hs b/src/ReOC/Name/PoliciesRecencyFlights.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesRecencyFlights.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesRecencyFlights@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesRecencyFlights ( + PoliciesRecencyFlightsLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesRecencyFlightsLike p f x x' where + policiesRecencyFlights :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesRecencyFlightsLike p f () x' where + policiesRecencyFlights = id diff --git a/src/ReOC/Name/PoliciesRefresherMonths.hs b/src/ReOC/Name/PoliciesRefresherMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesRefresherMonths.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesRefresherMonths@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesRefresherMonths ( + PoliciesRefresherMonthsLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesRefresherMonthsLike p f x x' where + policiesRefresherMonths :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesRefresherMonthsLike p f () x' where + policiesRefresherMonths = id diff --git a/src/ReOC/Name/PoliciesRestHours.hs b/src/ReOC/Name/PoliciesRestHours.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoliciesRestHours.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @policiesRestHours@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PoliciesRestHours ( + PoliciesRestHoursLike (..), +) where + +import Control.Lens (Optic) + +class PoliciesRestHoursLike p f x x' where + policiesRestHours :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoliciesRestHoursLike p f () x' where + policiesRestHours = id diff --git a/src/ReOC/Name/Position.hs b/src/ReOC/Name/Position.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Position.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @position@, whose target is a type parameter. It names a field or constructor of @ContactPerson'@. +module ReOC.Name.Position ( + PositionLike (..), +) where + +import Control.Lens (Optic) + +class PositionLike p f x x' a a' | x -> a where + position :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Postcode.hs b/src/ReOC/Name/Postcode.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Postcode.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @postcode@, whose target is a type parameter. It names a field or constructor of @Address'@. +module ReOC.Name.Postcode ( + PostcodeLike (..), +) where + +import Control.Lens (Optic) + +class PostcodeLike p f x x' a a' | x -> a where + postcode :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/PoweredLift.hs b/src/ReOC/Name/PoweredLift.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PoweredLift.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @poweredLift@, which targets @()@. It names a field or constructor of @RPACategory@. +module ReOC.Name.PoweredLift ( + PoweredLiftLike (..), +) where + +import Control.Lens (Optic) + +class PoweredLiftLike p f x x' where + poweredLift :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PoweredLiftLike p f () x' where + poweredLift = id diff --git a/src/ReOC/Name/PplTheory.hs b/src/ReOC/Name/PplTheory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PplTheory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @pplTheory@, which targets @()@. It names a field or constructor of @RePLOrigin'@. +module ReOC.Name.PplTheory ( + PplTheoryLike (..), +) where + +import Control.Lens (Optic) + +class PplTheoryLike p f x x' where + pplTheory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PplTheoryLike p f () x' where + pplTheory = id diff --git a/src/ReOC/Name/PracticalAreas.hs b/src/ReOC/Name/PracticalAreas.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PracticalAreas.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @practicalAreas@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.PracticalAreas ( + PracticalAreasLike (..), +) where + +import Control.Lens (Optic) + +class PracticalAreasLike p f x x' a a' | x -> a where + practicalAreas :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/PrimaryContact.hs b/src/ReOC/Name/PrimaryContact.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PrimaryContact.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @primaryContact@, whose target is a type parameter. It names a field or constructor of @ApplicationForm'@. +module ReOC.Name.PrimaryContact ( + PrimaryContactLike (..), +) where + +import Control.Lens (Optic) + +class PrimaryContactLike p f x x' a a' | x -> a where + primaryContact :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/PrimaryContactApplicantIsPrimaryContact.hs b/src/ReOC/Name/PrimaryContactApplicantIsPrimaryContact.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PrimaryContactApplicantIsPrimaryContact.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @primaryContactApplicantIsPrimaryContact@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PrimaryContactApplicantIsPrimaryContact ( + PrimaryContactApplicantIsPrimaryContactLike (..), +) where + +import Control.Lens (Optic) + +class PrimaryContactApplicantIsPrimaryContactLike p f x x' where + primaryContactApplicantIsPrimaryContact :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PrimaryContactApplicantIsPrimaryContactLike p f () x' where + primaryContactApplicantIsPrimaryContact = id diff --git a/src/ReOC/Name/PrimaryContactPerson.hs b/src/ReOC/Name/PrimaryContactPerson.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PrimaryContactPerson.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @primaryContactPerson@, whose target is a type parameter. It names a field or constructor of @PrimaryContact'@. +module ReOC.Name.PrimaryContactPerson ( + PrimaryContactPersonLike (..), +) where + +import Control.Lens (Optic) + +class PrimaryContactPersonLike p f x x' a a' | x -> a where + primaryContactPerson :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/PrimaryContactPrimaryContactPerson.hs b/src/ReOC/Name/PrimaryContactPrimaryContactPerson.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/PrimaryContactPrimaryContactPerson.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @primaryContactPrimaryContactPerson@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.PrimaryContactPrimaryContactPerson ( + PrimaryContactPrimaryContactPersonLike (..), +) where + +import Control.Lens (Optic) + +class PrimaryContactPrimaryContactPersonLike p f x x' where + primaryContactPrimaryContactPerson :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => PrimaryContactPrimaryContactPersonLike p f () x' where + primaryContactPrimaryContactPerson = id diff --git a/src/ReOC/Name/ProceduresLibrary.hs b/src/ReOC/Name/ProceduresLibrary.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ProceduresLibrary.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @proceduresLibrary@, whose target is a type parameter. It names a field or constructor of @ApplicationForm'@. +module ReOC.Name.ProceduresLibrary ( + ProceduresLibraryLike (..), +) where + +import Control.Lens (Optic) + +class ProceduresLibraryLike p f x x' a a' | x -> a where + proceduresLibrary :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Queensland.hs b/src/ReOC/Name/Queensland.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Queensland.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @queensland@, which targets @()@. It names a field or constructor of @AustralianState@. +module ReOC.Name.Queensland ( + QueenslandLike (..), +) where + +import Control.Lens (Optic) + +class QueenslandLike p f x x' where + queensland :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => QueenslandLike p f () x' where + queensland = id diff --git a/src/ReOC/Name/Radio.hs b/src/ReOC/Name/Radio.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Radio.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @radio@, whose target is a type parameter. It names a field or constructor of @ChiefPilot'@. +module ReOC.Name.Radio ( + RadioLike (..), +) where + +import Control.Lens (Optic) + +class RadioLike p f x x' a a' | x -> a where + radio :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RadioOperatorCertificate.hs b/src/ReOC/Name/RadioOperatorCertificate.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RadioOperatorCertificate.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @radioOperatorCertificate@, which targets @()@. It names a field or constructor of @RadioQualification@. +module ReOC.Name.RadioOperatorCertificate ( + RadioOperatorCertificateLike (..), +) where + +import Control.Lens (Optic) + +class RadioOperatorCertificateLike p f x x' where + radioOperatorCertificate :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RadioOperatorCertificateLike p f () x' where + radioOperatorCertificate = id diff --git a/src/ReOC/Name/ReOCApplicationForm.hs b/src/ReOC/Name/ReOCApplicationForm.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ReOCApplicationForm.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @reOCApplicationForm@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ReOCApplicationForm ( + ReOCApplicationFormLike (..), +) where + +import Control.Lens (Optic) + +class ReOCApplicationFormLike p f x x' where + reOCApplicationForm :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ReOCApplicationFormLike p f () x' where + reOCApplicationForm = id diff --git a/src/ReOC/Name/ReOCMaybeTrainingMaterial.hs b/src/ReOC/Name/ReOCMaybeTrainingMaterial.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ReOCMaybeTrainingMaterial.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @reOCMaybeTrainingMaterial@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ReOCMaybeTrainingMaterial ( + ReOCMaybeTrainingMaterialLike (..), +) where + +import Control.Lens (Optic) + +class ReOCMaybeTrainingMaterialLike p f x x' where + reOCMaybeTrainingMaterial :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ReOCMaybeTrainingMaterialLike p f () x' where + reOCMaybeTrainingMaterial = id diff --git a/src/ReOC/Name/ReOCOperationsManual.hs b/src/ReOC/Name/ReOCOperationsManual.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ReOCOperationsManual.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @reOCOperationsManual@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ReOCOperationsManual ( + ReOCOperationsManualLike (..), +) where + +import Control.Lens (Optic) + +class ReOCOperationsManualLike p f x x' where + reOCOperationsManual :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ReOCOperationsManualLike p f () x' where + reOCOperationsManual = id diff --git a/src/ReOC/Name/ReOCOperator.hs b/src/ReOC/Name/ReOCOperator.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ReOCOperator.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @reOCOperator@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.ReOCOperator ( + ReOCOperatorLike (..), +) where + +import Control.Lens (Optic) + +class ReOCOperatorLike p f x x' where + reOCOperator :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => ReOCOperatorLike p f () x' where + reOCOperator = id diff --git a/src/ReOC/Name/RePLHolding.hs b/src/ReOC/Name/RePLHolding.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RePLHolding.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rePLHolding@, whose target is a type parameter. It names a field or constructor of @TrainingMaterial'@. +module ReOC.Name.RePLHolding ( + RePLHoldingLike (..), +) where + +import Control.Lens (Optic) + +class RePLHoldingLike p f x x' a a' | x -> a where + rePLHolding :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RePLHoldingHoldsRePLForEachType.hs b/src/ReOC/Name/RePLHoldingHoldsRePLForEachType.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RePLHoldingHoldsRePLForEachType.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rePLHoldingHoldsRePLForEachType@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RePLHoldingHoldsRePLForEachType ( + RePLHoldingHoldsRePLForEachTypeLike (..), +) where + +import Control.Lens (Optic) + +class RePLHoldingHoldsRePLForEachTypeLike p f x x' where + rePLHoldingHoldsRePLForEachType :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RePLHoldingHoldsRePLForEachTypeLike p f () x' where + rePLHoldingHoldsRePLForEachType = id diff --git a/src/ReOC/Name/RePLHoldingIntent.hs b/src/ReOC/Name/RePLHoldingIntent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RePLHoldingIntent.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rePLHoldingIntent@, whose target is a type parameter. It names a field or constructor of @RePLHolding'@. +module ReOC.Name.RePLHoldingIntent ( + RePLHoldingIntentLike (..), +) where + +import Control.Lens (Optic) + +class RePLHoldingIntentLike p f x x' a a' | x -> a where + rePLHoldingIntent :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RePLHoldingRePLHoldingIntent.hs b/src/ReOC/Name/RePLHoldingRePLHoldingIntent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RePLHoldingRePLHoldingIntent.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rePLHoldingRePLHoldingIntent@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RePLHoldingRePLHoldingIntent ( + RePLHoldingRePLHoldingIntentLike (..), +) where + +import Control.Lens (Optic) + +class RePLHoldingRePLHoldingIntentLike p f x x' where + rePLHoldingRePLHoldingIntent :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RePLHoldingRePLHoldingIntentLike p f () x' where + rePLHoldingRePLHoldingIntent = id diff --git a/src/ReOC/Name/RePLOrigin.hs b/src/ReOC/Name/RePLOrigin.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RePLOrigin.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rePLOrigin@, whose target is a type parameter. It names a field or constructor of @ChiefPilot'@. +module ReOC.Name.RePLOrigin ( + RePLOriginLike (..), +) where + +import Control.Lens (Optic) + +class RePLOriginLike p f x x' a a' | x -> a where + rePLOrigin :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RePLOriginPplTheory.hs b/src/ReOC/Name/RePLOriginPplTheory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RePLOriginPplTheory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rePLOriginPplTheory@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RePLOriginPplTheory ( + RePLOriginPplTheoryLike (..), +) where + +import Control.Lens (Optic) + +class RePLOriginPplTheoryLike p f x x' where + rePLOriginPplTheory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RePLOriginPplTheoryLike p f () x' where + rePLOriginPplTheory = id diff --git a/src/ReOC/Name/RePLOriginRePLTrainingOrganisation.hs b/src/ReOC/Name/RePLOriginRePLTrainingOrganisation.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RePLOriginRePLTrainingOrganisation.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rePLOriginRePLTrainingOrganisation@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RePLOriginRePLTrainingOrganisation ( + RePLOriginRePLTrainingOrganisationLike (..), +) where + +import Control.Lens (Optic) + +class RePLOriginRePLTrainingOrganisationLike p f x x' where + rePLOriginRePLTrainingOrganisation :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RePLOriginRePLTrainingOrganisationLike p f () x' where + rePLOriginRePLTrainingOrganisation = id diff --git a/src/ReOC/Name/RePLTrainingOrganisation.hs b/src/ReOC/Name/RePLTrainingOrganisation.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RePLTrainingOrganisation.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rePLTrainingOrganisation@, whose target is a type parameter. It names a field or constructor of @RePLOrigin'@. +module ReOC.Name.RePLTrainingOrganisation ( + RePLTrainingOrganisationLike (..), +) where + +import Control.Lens (Optic) + +class RePLTrainingOrganisationLike p f x x' a a' | x -> a where + rePLTrainingOrganisation :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RecencyDays.hs b/src/ReOC/Name/RecencyDays.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RecencyDays.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @recencyDays@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.RecencyDays ( + RecencyDaysLike (..), +) where + +import Control.Lens (Optic) + +class RecencyDaysLike p f x x' a a' | x -> a where + recencyDays :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RecencyFlights.hs b/src/ReOC/Name/RecencyFlights.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RecencyFlights.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @recencyFlights@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.RecencyFlights ( + RecencyFlightsLike (..), +) where + +import Control.Lens (Optic) + +class RecencyFlightsLike p f x x' a a' | x -> a where + recencyFlights :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RefresherMonths.hs b/src/ReOC/Name/RefresherMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RefresherMonths.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @refresherMonths@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.RefresherMonths ( + RefresherMonthsLike (..), +) where + +import Control.Lens (Optic) + +class RefresherMonthsLike p f x x' a a' | x -> a where + refresherMonths :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RegisteredOffice.hs b/src/ReOC/Name/RegisteredOffice.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegisteredOffice.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @registeredOffice@, whose target is a type parameter. It names a field or constructor of @Company'@. +module ReOC.Name.RegisteredOffice ( + RegisteredOfficeLike (..), +) where + +import Control.Lens (Optic) + +class RegisteredOfficeLike p f x x' a a' | x -> a where + registeredOffice :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RegulatoryActionActionDate.hs b/src/ReOC/Name/RegulatoryActionActionDate.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryActionActionDate.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryActionActionDate@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RegulatoryActionActionDate ( + RegulatoryActionActionDateLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryActionActionDateLike p f x x' where + regulatoryActionActionDate :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RegulatoryActionActionDateLike p f () x' where + regulatoryActionActionDate = id diff --git a/src/ReOC/Name/RegulatoryActionActionDetails.hs b/src/ReOC/Name/RegulatoryActionActionDetails.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryActionActionDetails.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryActionActionDetails@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RegulatoryActionActionDetails ( + RegulatoryActionActionDetailsLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryActionActionDetailsLike p f x x' where + regulatoryActionActionDetails :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RegulatoryActionActionDetailsLike p f () x' where + regulatoryActionActionDetails = id diff --git a/src/ReOC/Name/RegulatoryActionAuthorisationAction.hs b/src/ReOC/Name/RegulatoryActionAuthorisationAction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryActionAuthorisationAction.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryActionAuthorisationAction@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RegulatoryActionAuthorisationAction ( + RegulatoryActionAuthorisationActionLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryActionAuthorisationActionLike p f x x' where + regulatoryActionAuthorisationAction :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RegulatoryActionAuthorisationActionLike p f () x' where + regulatoryActionAuthorisationAction = id diff --git a/src/ReOC/Name/RegulatoryActionReocSuspendedOrCancelled.hs b/src/ReOC/Name/RegulatoryActionReocSuspendedOrCancelled.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryActionReocSuspendedOrCancelled.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryActionReocSuspendedOrCancelled@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RegulatoryActionReocSuspendedOrCancelled ( + RegulatoryActionReocSuspendedOrCancelledLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryActionReocSuspendedOrCancelledLike p f x x' where + regulatoryActionReocSuspendedOrCancelled :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RegulatoryActionReocSuspendedOrCancelledLike p f () x' where + regulatoryActionReocSuspendedOrCancelled = id diff --git a/src/ReOC/Name/RegulatoryActionTaken.hs b/src/ReOC/Name/RegulatoryActionTaken.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryActionTaken.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryActionTaken@, whose target is a type parameter. It names a field or constructor of @RegulatoryHistory'@. +module ReOC.Name.RegulatoryActionTaken ( + RegulatoryActionTakenLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryActionTakenLike p f x x' a a' | x -> a where + regulatoryActionTaken :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RegulatoryActionTypeOfAction.hs b/src/ReOC/Name/RegulatoryActionTypeOfAction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryActionTypeOfAction.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryActionTypeOfAction@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RegulatoryActionTypeOfAction ( + RegulatoryActionTypeOfActionLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryActionTypeOfActionLike p f x x' where + regulatoryActionTypeOfAction :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RegulatoryActionTypeOfActionLike p f () x' where + regulatoryActionTypeOfAction = id diff --git a/src/ReOC/Name/RegulatoryHistory.hs b/src/ReOC/Name/RegulatoryHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryHistory.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryHistory@, whose target is a type parameter. It names a field or constructor of @ApplicationForm'@. +module ReOC.Name.RegulatoryHistory ( + RegulatoryHistoryLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryHistoryLike p f x x' a a' | x -> a where + regulatoryHistory :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RegulatoryHistoryNoRegulatoryAction.hs b/src/ReOC/Name/RegulatoryHistoryNoRegulatoryAction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryHistoryNoRegulatoryAction.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryHistoryNoRegulatoryAction@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RegulatoryHistoryNoRegulatoryAction ( + RegulatoryHistoryNoRegulatoryActionLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryHistoryNoRegulatoryActionLike p f x x' where + regulatoryHistoryNoRegulatoryAction :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RegulatoryHistoryNoRegulatoryActionLike p f () x' where + regulatoryHistoryNoRegulatoryAction = id diff --git a/src/ReOC/Name/RegulatoryHistoryRegulatoryActionTaken.hs b/src/ReOC/Name/RegulatoryHistoryRegulatoryActionTaken.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RegulatoryHistoryRegulatoryActionTaken.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @regulatoryHistoryRegulatoryActionTaken@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RegulatoryHistoryRegulatoryActionTaken ( + RegulatoryHistoryRegulatoryActionTakenLike (..), +) where + +import Control.Lens (Optic) + +class RegulatoryHistoryRegulatoryActionTakenLike p f x x' where + regulatoryHistoryRegulatoryActionTaken :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RegulatoryHistoryRegulatoryActionTakenLike p f () x' where + regulatoryHistoryRegulatoryActionTaken = id diff --git a/src/ReOC/Name/Remote.hs b/src/ReOC/Name/Remote.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Remote.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @remote@, which targets @()@. It names a field or constructor of @Likelihood@. +module ReOC.Name.Remote ( + RemoteLike (..), +) where + +import Control.Lens (Optic) + +class RemoteLike p f x x' where + remote :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RemoteLike p f () x' where + remote = id diff --git a/src/ReOC/Name/ReocSuspendedOrCancelled.hs b/src/ReOC/Name/ReocSuspendedOrCancelled.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ReocSuspendedOrCancelled.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @reocSuspendedOrCancelled@, whose target is a type parameter. It names a field or constructor of @RegulatoryAction'@. +module ReOC.Name.ReocSuspendedOrCancelled ( + ReocSuspendedOrCancelledLike (..), +) where + +import Control.Lens (Optic) + +class ReocSuspendedOrCancelledLike p f x x' a a' | x -> a where + reocSuspendedOrCancelled :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ResidualRisk.hs b/src/ReOC/Name/ResidualRisk.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ResidualRisk.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @residualRisk@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.ResidualRisk ( + ResidualRiskLike (..), +) where + +import Control.Lens (Optic) + +class ResidualRiskLike p f x x' a a' | x -> a where + residualRisk :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Response.hs b/src/ReOC/Name/Response.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Response.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @response@, whose target is a type parameter. It names a field or constructor of @EmergencyAction'@. +module ReOC.Name.Response ( + ResponseLike (..), +) where + +import Control.Lens (Optic) + +class ResponseLike p f x x' a a' | x -> a where + response :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RestHours.hs b/src/ReOC/Name/RestHours.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RestHours.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @restHours@, whose target is a type parameter. It names a field or constructor of @Policies'@. +module ReOC.Name.RestHours ( + RestHoursLike (..), +) where + +import Control.Lens (Optic) + +class RestHoursLike p f x x' a a' | x -> a where + restHours :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/ReviewMonths.hs b/src/ReOC/Name/ReviewMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ReviewMonths.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @reviewMonths@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.ReviewMonths ( + ReviewMonthsLike (..), +) where + +import Control.Lens (Optic) + +class ReviewMonthsLike p f x x' a a' | x -> a where + reviewMonths :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RevisionDetails.hs b/src/ReOC/Name/RevisionDetails.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RevisionDetails.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @revisionDetails@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RevisionDetails ( + RevisionDetailsLike (..), +) where + +import Control.Lens (Optic) + +class RevisionDetailsLike p f x x' where + revisionDetails :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RevisionDetailsLike p f () x' where + revisionDetails = id diff --git a/src/ReOC/Name/RevisionEffective.hs b/src/ReOC/Name/RevisionEffective.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RevisionEffective.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @revisionEffective@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RevisionEffective ( + RevisionEffectiveLike (..), +) where + +import Control.Lens (Optic) + +class RevisionEffectiveLike p f x x' where + revisionEffective :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RevisionEffectiveLike p f () x' where + revisionEffective = id diff --git a/src/ReOC/Name/RevisionMonthsAfter.hs b/src/ReOC/Name/RevisionMonthsAfter.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RevisionMonthsAfter.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @revisionMonthsAfter@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RevisionMonthsAfter ( + RevisionMonthsAfterLike (..), +) where + +import Control.Lens (Optic) + +class RevisionMonthsAfterLike p f x x' where + revisionMonthsAfter :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RevisionMonthsAfterLike p f () x' where + revisionMonthsAfter = id diff --git a/src/ReOC/Name/RevisionParts.hs b/src/ReOC/Name/RevisionParts.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RevisionParts.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @revisionParts@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RevisionParts ( + RevisionPartsLike (..), +) where + +import Control.Lens (Optic) + +class RevisionPartsLike p f x x' where + revisionParts :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RevisionPartsLike p f () x' where + revisionParts = id diff --git a/src/ReOC/Name/RevisionVersionIncrement.hs b/src/ReOC/Name/RevisionVersionIncrement.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RevisionVersionIncrement.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @revisionVersionIncrement@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RevisionVersionIncrement ( + RevisionVersionIncrementLike (..), +) where + +import Control.Lens (Optic) + +class RevisionVersionIncrementLike p f x x' where + revisionVersionIncrement :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RevisionVersionIncrementLike p f () x' where + revisionVersionIncrement = id diff --git a/src/ReOC/Name/Revisions.hs b/src/ReOC/Name/Revisions.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Revisions.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @revisions@, whose target is a type parameter. It names a field or constructor of @OperationsManual'@. +module ReOC.Name.Revisions ( + RevisionsLike (..), +) where + +import Control.Lens (Optic) + +class RevisionsLike p f x x' a a' | x -> a where + revisions :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RiskAdditionalControls.hs b/src/ReOC/Name/RiskAdditionalControls.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskAdditionalControls.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskAdditionalControls@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskAdditionalControls ( + RiskAdditionalControlsLike (..), +) where + +import Control.Lens (Optic) + +class RiskAdditionalControlsLike p f x x' where + riskAdditionalControls :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskAdditionalControlsLike p f () x' where + riskAdditionalControls = id diff --git a/src/ReOC/Name/RiskAssessmentRiskConsequence.hs b/src/ReOC/Name/RiskAssessmentRiskConsequence.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskAssessmentRiskConsequence.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskAssessmentRiskConsequence@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskAssessmentRiskConsequence ( + RiskAssessmentRiskConsequenceLike (..), +) where + +import Control.Lens (Optic) + +class RiskAssessmentRiskConsequenceLike p f x x' where + riskAssessmentRiskConsequence :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskAssessmentRiskConsequenceLike p f () x' where + riskAssessmentRiskConsequence = id diff --git a/src/ReOC/Name/RiskAssessmentRiskLikelihood.hs b/src/ReOC/Name/RiskAssessmentRiskLikelihood.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskAssessmentRiskLikelihood.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskAssessmentRiskLikelihood@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskAssessmentRiskLikelihood ( + RiskAssessmentRiskLikelihoodLike (..), +) where + +import Control.Lens (Optic) + +class RiskAssessmentRiskLikelihoodLike p f x x' where + riskAssessmentRiskLikelihood :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskAssessmentRiskLikelihoodLike p f () x' where + riskAssessmentRiskLikelihood = id diff --git a/src/ReOC/Name/RiskConsequence.hs b/src/ReOC/Name/RiskConsequence.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskConsequence.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskConsequence@, whose target is a type parameter. It names a field or constructor of @RiskAssessment'@. +module ReOC.Name.RiskConsequence ( + RiskConsequenceLike (..), +) where + +import Control.Lens (Optic) + +class RiskConsequenceLike p f x x' a a' | x -> a where + riskConsequence :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RiskDateEntered.hs b/src/ReOC/Name/RiskDateEntered.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskDateEntered.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskDateEntered@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskDateEntered ( + RiskDateEnteredLike (..), +) where + +import Control.Lens (Optic) + +class RiskDateEnteredLike p f x x' where + riskDateEntered :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskDateEnteredLike p f () x' where + riskDateEntered = id diff --git a/src/ReOC/Name/RiskDescription.hs b/src/ReOC/Name/RiskDescription.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskDescription.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskDescription@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.RiskDescription ( + RiskDescriptionLike (..), +) where + +import Control.Lens (Optic) + +class RiskDescriptionLike p f x x' a a' | x -> a where + riskDescription :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RiskExistingControls.hs b/src/ReOC/Name/RiskExistingControls.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskExistingControls.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskExistingControls@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskExistingControls ( + RiskExistingControlsLike (..), +) where + +import Control.Lens (Optic) + +class RiskExistingControlsLike p f x x' where + riskExistingControls :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskExistingControlsLike p f () x' where + riskExistingControls = id diff --git a/src/ReOC/Name/RiskHazard.hs b/src/ReOC/Name/RiskHazard.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskHazard.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskHazard@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskHazard ( + RiskHazardLike (..), +) where + +import Control.Lens (Optic) + +class RiskHazardLike p f x x' where + riskHazard :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskHazardLike p f () x' where + riskHazard = id diff --git a/src/ReOC/Name/RiskInitialRisk.hs b/src/ReOC/Name/RiskInitialRisk.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskInitialRisk.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskInitialRisk@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskInitialRisk ( + RiskInitialRiskLike (..), +) where + +import Control.Lens (Optic) + +class RiskInitialRiskLike p f x x' where + riskInitialRisk :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskInitialRiskLike p f () x' where + riskInitialRisk = id diff --git a/src/ReOC/Name/RiskLikelihood.hs b/src/ReOC/Name/RiskLikelihood.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskLikelihood.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskLikelihood@, whose target is a type parameter. It names a field or constructor of @RiskAssessment'@. +module ReOC.Name.RiskLikelihood ( + RiskLikelihoodLike (..), +) where + +import Control.Lens (Optic) + +class RiskLikelihoodLike p f x x' a a' | x -> a where + riskLikelihood :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RiskOwner.hs b/src/ReOC/Name/RiskOwner.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskOwner.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskOwner@, whose target is a type parameter. It names a field or constructor of @Risk'@. +module ReOC.Name.RiskOwner ( + RiskOwnerLike (..), +) where + +import Control.Lens (Optic) + +class RiskOwnerLike p f x x' a a' | x -> a where + riskOwner :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RiskRegister.hs b/src/ReOC/Name/RiskRegister.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskRegister.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskRegister@, whose target is a type parameter. It names a field or constructor of @OperationsManual'@. +module ReOC.Name.RiskRegister ( + RiskRegisterLike (..), +) where + +import Control.Lens (Optic) + +class RiskRegisterLike p f x x' a a' | x -> a where + riskRegister :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RiskResidualRisk.hs b/src/ReOC/Name/RiskResidualRisk.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskResidualRisk.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskResidualRisk@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskResidualRisk ( + RiskResidualRiskLike (..), +) where + +import Control.Lens (Optic) + +class RiskResidualRiskLike p f x x' where + riskResidualRisk :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskResidualRiskLike p f () x' where + riskResidualRisk = id diff --git a/src/ReOC/Name/RiskReviewMonths.hs b/src/ReOC/Name/RiskReviewMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskReviewMonths.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskReviewMonths@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskReviewMonths ( + RiskReviewMonthsLike (..), +) where + +import Control.Lens (Optic) + +class RiskReviewMonthsLike p f x x' where + riskReviewMonths :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskReviewMonthsLike p f () x' where + riskReviewMonths = id diff --git a/src/ReOC/Name/RiskRiskDescription.hs b/src/ReOC/Name/RiskRiskDescription.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskRiskDescription.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskRiskDescription@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskRiskDescription ( + RiskRiskDescriptionLike (..), +) where + +import Control.Lens (Optic) + +class RiskRiskDescriptionLike p f x x' where + riskRiskDescription :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskRiskDescriptionLike p f () x' where + riskRiskDescription = id diff --git a/src/ReOC/Name/RiskRiskOwner.hs b/src/ReOC/Name/RiskRiskOwner.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RiskRiskOwner.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @riskRiskOwner@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RiskRiskOwner ( + RiskRiskOwnerLike (..), +) where + +import Control.Lens (Optic) + +class RiskRiskOwnerLike p f x x' where + riskRiskOwner :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RiskRiskOwnerLike p f () x' where + riskRiskOwner = id diff --git a/src/ReOC/Name/Role.hs b/src/ReOC/Name/Role.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Role.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @role@, whose target is a type parameter. It names a field or constructor of @Declarant'@. +module ReOC.Name.Role ( + RoleLike (..), +) where + +import Control.Lens (Optic) + +class RoleLike p f x x' a a' | x -> a where + role :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RpaHistory.hs b/src/ReOC/Name/RpaHistory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaHistory.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaHistory@, whose target is a type parameter. It names a field or constructor of @ChiefPilot'@. +module ReOC.Name.RpaHistory ( + RpaHistoryLike (..), +) where + +import Control.Lens (Optic) + +class RpaHistoryLike p f x x' a a' | x -> a where + rpaHistory :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RpaMake.hs b/src/ReOC/Name/RpaMake.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaMake.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaMake@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.RpaMake ( + RpaMakeLike (..), +) where + +import Control.Lens (Optic) + +class RpaMakeLike p f x x' a a' | x -> a where + rpaMake :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RpaModel.hs b/src/ReOC/Name/RpaModel.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaModel.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaModel@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.RpaModel ( + RpaModelLike (..), +) where + +import Control.Lens (Optic) + +class RpaModelLike p f x x' a a' | x -> a where + rpaModel :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RpaType.hs b/src/ReOC/Name/RpaType.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaType.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaType@, whose target is a type parameter. It names a field or constructor of @OperatedType'@. +module ReOC.Name.RpaType ( + RpaTypeLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeLike p f x x' a a' | x -> a where + rpaType :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/RpaTypeBatteryWarnings.hs b/src/ReOC/Name/RpaTypeBatteryWarnings.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeBatteryWarnings.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeBatteryWarnings@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeBatteryWarnings ( + RpaTypeBatteryWarningsLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeBatteryWarningsLike p f x x' where + rpaTypeBatteryWarnings :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeBatteryWarningsLike p f () x' where + rpaTypeBatteryWarnings = id diff --git a/src/ReOC/Name/RpaTypeBeforeFlight.hs b/src/ReOC/Name/RpaTypeBeforeFlight.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeBeforeFlight.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeBeforeFlight@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeBeforeFlight ( + RpaTypeBeforeFlightLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeBeforeFlightLike p f x x' where + rpaTypeBeforeFlight :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeBeforeFlightLike p f () x' where + rpaTypeBeforeFlight = id diff --git a/src/ReOC/Name/RpaTypeCategory.hs b/src/ReOC/Name/RpaTypeCategory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeCategory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeCategory@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeCategory ( + RpaTypeCategoryLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeCategoryLike p f x x' where + rpaTypeCategory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeCategoryLike p f () x' where + rpaTypeCategory = id diff --git a/src/ReOC/Name/RpaTypeEmergencyActions.hs b/src/ReOC/Name/RpaTypeEmergencyActions.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeEmergencyActions.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeEmergencyActions@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeEmergencyActions ( + RpaTypeEmergencyActionsLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeEmergencyActionsLike p f x x' where + rpaTypeEmergencyActions :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeEmergencyActionsLike p f () x' where + rpaTypeEmergencyActions = id diff --git a/src/ReOC/Name/RpaTypeFlightTermination.hs b/src/ReOC/Name/RpaTypeFlightTermination.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeFlightTermination.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeFlightTermination@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeFlightTermination ( + RpaTypeFlightTerminationLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeFlightTerminationLike p f x x' where + rpaTypeFlightTermination :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeFlightTerminationLike p f () x' where + rpaTypeFlightTermination = id diff --git a/src/ReOC/Name/RpaTypeInspectionItems.hs b/src/ReOC/Name/RpaTypeInspectionItems.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeInspectionItems.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeInspectionItems@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeInspectionItems ( + RpaTypeInspectionItemsLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeInspectionItemsLike p f x x' where + rpaTypeInspectionItems :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeInspectionItemsLike p f () x' where + rpaTypeInspectionItems = id diff --git a/src/ReOC/Name/RpaTypeMaximumGrossWeight.hs b/src/ReOC/Name/RpaTypeMaximumGrossWeight.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeMaximumGrossWeight.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeMaximumGrossWeight@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeMaximumGrossWeight ( + RpaTypeMaximumGrossWeightLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeMaximumGrossWeightLike p f x x' where + rpaTypeMaximumGrossWeight :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeMaximumGrossWeightLike p f () x' where + rpaTypeMaximumGrossWeight = id diff --git a/src/ReOC/Name/RpaTypeRpaMake.hs b/src/ReOC/Name/RpaTypeRpaMake.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeRpaMake.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeRpaMake@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeRpaMake ( + RpaTypeRpaMakeLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeRpaMakeLike p f x x' where + rpaTypeRpaMake :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeRpaMakeLike p f () x' where + rpaTypeRpaMake = id diff --git a/src/ReOC/Name/RpaTypeRpaModel.hs b/src/ReOC/Name/RpaTypeRpaModel.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeRpaModel.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeRpaModel@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeRpaModel ( + RpaTypeRpaModelLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeRpaModelLike p f x x' where + rpaTypeRpaModel :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeRpaModelLike p f () x' where + rpaTypeRpaModel = id diff --git a/src/ReOC/Name/RpaTypeShortName.hs b/src/ReOC/Name/RpaTypeShortName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeShortName.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeShortName@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeShortName ( + RpaTypeShortNameLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeShortNameLike p f x x' where + rpaTypeShortName :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeShortNameLike p f () x' where + rpaTypeShortName = id diff --git a/src/ReOC/Name/RpaTypeTransponderCarriage.hs b/src/ReOC/Name/RpaTypeTransponderCarriage.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeTransponderCarriage.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeTransponderCarriage@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeTransponderCarriage ( + RpaTypeTransponderCarriageLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeTransponderCarriageLike p f x x' where + rpaTypeTransponderCarriage :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeTransponderCarriageLike p f () x' where + rpaTypeTransponderCarriage = id diff --git a/src/ReOC/Name/RpaTypeUserManual.hs b/src/ReOC/Name/RpaTypeUserManual.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/RpaTypeUserManual.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @rpaTypeUserManual@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.RpaTypeUserManual ( + RpaTypeUserManualLike (..), +) where + +import Control.Lens (Optic) + +class RpaTypeUserManualLike p f x x' where + rpaTypeUserManual :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => RpaTypeUserManualLike p f () x' where + rpaTypeUserManual = id diff --git a/src/ReOC/Name/SerialNumber.hs b/src/ReOC/Name/SerialNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/SerialNumber.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @serialNumber@, whose target is a type parameter. It names a field or constructor of @Equipment'@, @Aircraft'@. +module ReOC.Name.SerialNumber ( + SerialNumberLike (..), +) where + +import Control.Lens (Optic) + +class SerialNumberLike p f x x' a a' | x -> a where + serialNumber :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Services.hs b/src/ReOC/Name/Services.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Services.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @services@, whose target is a type parameter. It names a field or constructor of @OperationsManual'@. +module ReOC.Name.Services ( + ServicesLike (..), +) where + +import Control.Lens (Optic) + +class ServicesLike p f x x' a a' | x -> a where + services :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/SharedController.hs b/src/ReOC/Name/SharedController.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/SharedController.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @sharedController@, which targets @()@. It names a field or constructor of @InstructorTakeover@. +module ReOC.Name.SharedController ( + SharedControllerLike (..), +) where + +import Control.Lens (Optic) + +class SharedControllerLike p f x x' where + sharedController :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => SharedControllerLike p f () x' where + sharedController = id diff --git a/src/ReOC/Name/ShortName.hs b/src/ReOC/Name/ShortName.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/ShortName.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @shortName@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.ShortName ( + ShortNameLike (..), +) where + +import Control.Lens (Optic) + +class ShortNameLike p f x x' a a' | x -> a where + shortName :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Signature.hs b/src/ReOC/Name/Signature.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Signature.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @signature@, whose target is a type parameter. It names a field or constructor of @ApplicationForm'@. +module ReOC.Name.Signature ( + SignatureLike (..), +) where + +import Control.Lens (Optic) + +class SignatureLike p f x x' a a' | x -> a where + signature :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Simulator.hs b/src/ReOC/Name/Simulator.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Simulator.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @simulator@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.Simulator ( + SimulatorLike (..), +) where + +import Control.Lens (Optic) + +class SimulatorLike p f x x' a a' | x -> a where + simulator :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Situation.hs b/src/ReOC/Name/Situation.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Situation.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @situation@, whose target is a type parameter. It names a field or constructor of @EmergencyAction'@. +module ReOC.Name.Situation ( + SituationLike (..), +) where + +import Control.Lens (Optic) + +class SituationLike p f x x' a a' | x -> a where + situation :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/SoleDirector.hs b/src/ReOC/Name/SoleDirector.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/SoleDirector.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @soleDirector@, which targets @()@. It names a field or constructor of @Directorship@. +module ReOC.Name.SoleDirector ( + SoleDirectorLike (..), +) where + +import Control.Lens (Optic) + +class SoleDirectorLike p f x x' where + soleDirector :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => SoleDirectorLike p f () x' where + soleDirector = id diff --git a/src/ReOC/Name/SoloAndMultiCrewOperations.hs b/src/ReOC/Name/SoloAndMultiCrewOperations.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/SoloAndMultiCrewOperations.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @soloAndMultiCrewOperations@, which targets @()@. It names a field or constructor of @Crewing@. +module ReOC.Name.SoloAndMultiCrewOperations ( + SoloAndMultiCrewOperationsLike (..), +) where + +import Control.Lens (Optic) + +class SoloAndMultiCrewOperationsLike p f x x' where + soloAndMultiCrewOperations :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => SoloAndMultiCrewOperationsLike p f () x' where + soloAndMultiCrewOperations = id diff --git a/src/ReOC/Name/SoloOperationsOnly.hs b/src/ReOC/Name/SoloOperationsOnly.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/SoloOperationsOnly.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @soloOperationsOnly@, which targets @()@. It names a field or constructor of @Crewing@. +module ReOC.Name.SoloOperationsOnly ( + SoloOperationsOnlyLike (..), +) where + +import Control.Lens (Optic) + +class SoloOperationsOnlyLike p f x x' where + soloOperationsOnly :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => SoloOperationsOnlyLike p f () x' where + soloOperationsOnly = id diff --git a/src/ReOC/Name/SouthAustralia.hs b/src/ReOC/Name/SouthAustralia.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/SouthAustralia.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @southAustralia@, which targets @()@. It names a field or constructor of @AustralianState@. +module ReOC.Name.SouthAustralia ( + SouthAustraliaLike (..), +) where + +import Control.Lens (Optic) + +class SouthAustraliaLike p f x x' where + southAustralia :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => SouthAustraliaLike p f () x' where + southAustralia = id diff --git a/src/ReOC/Name/StateOrTerritory.hs b/src/ReOC/Name/StateOrTerritory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/StateOrTerritory.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @stateOrTerritory@, whose target is a type parameter. It names a field or constructor of @Address'@. +module ReOC.Name.StateOrTerritory ( + StateOrTerritoryLike (..), +) where + +import Control.Lens (Optic) + +class StateOrTerritoryLike p f x x' a a' | x -> a where + stateOrTerritory :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/StepIndex.hs b/src/ReOC/Name/StepIndex.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/StepIndex.hs @@ -0,0 +1,20 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @stepIndex@, which targets @Natural@. It names a field or constructor of @Step@. +module ReOC.Name.StepIndex ( + StepIndexLike (..), +) where + +import Control.Lens (Optic) +import Numeric.Natural (Natural) + +class StepIndexLike p f x x' where + stepIndex :: + Optic p f x x' Natural Natural + +-- | Identity +instance (x' ~ Natural) => StepIndexLike p f Natural x' where + stepIndex = id diff --git a/src/ReOC/Name/StreetAddress.hs b/src/ReOC/Name/StreetAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/StreetAddress.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @streetAddress@, whose target is a type parameter. It names a field or constructor of @Address'@. +module ReOC.Name.StreetAddress ( + StreetAddressLike (..), +) where + +import Control.Lens (Optic) + +class StreetAddressLike p f x x' a a' | x -> a where + streetAddress :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Suburb.hs b/src/ReOC/Name/Suburb.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Suburb.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @suburb@, whose target is a type parameter. It names a field or constructor of @Address'@. +module ReOC.Name.Suburb ( + SuburbLike (..), +) where + +import Control.Lens (Optic) + +class SuburbLike p f x x' a a' | x -> a where + suburb :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/SuspensionPending.hs b/src/ReOC/Name/SuspensionPending.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/SuspensionPending.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @suspensionPending@, whose target is a type parameter. It names a field or constructor of @PersonnelHistory'@. +module ReOC.Name.SuspensionPending ( + SuspensionPendingLike (..), +) where + +import Control.Lens (Optic) + +class SuspensionPendingLike p f x x' a a' | x -> a where + suspensionPending :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Takeover.hs b/src/ReOC/Name/Takeover.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Takeover.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @takeover@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.Takeover ( + TakeoverLike (..), +) where + +import Control.Lens (Optic) + +class TakeoverLike p f x x' a a' | x -> a where + takeover :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Tasmania.hs b/src/ReOC/Name/Tasmania.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Tasmania.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @tasmania@, which targets @()@. It names a field or constructor of @AustralianState@. +module ReOC.Name.Tasmania ( + TasmaniaLike (..), +) where + +import Control.Lens (Optic) + +class TasmaniaLike p f x x' where + tasmania :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TasmaniaLike p f () x' where + tasmania = id diff --git a/src/ReOC/Name/TeachingQualification.hs b/src/ReOC/Name/TeachingQualification.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TeachingQualification.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @teachingQualification@, whose target is a type parameter. It names a field or constructor of @TrainingMaterial'@. +module ReOC.Name.TeachingQualification ( + TeachingQualificationLike (..), +) where + +import Control.Lens (Optic) + +class TeachingQualificationLike p f x x' a a' | x -> a where + teachingQualification :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TeachingQualificationHeld.hs b/src/ReOC/Name/TeachingQualificationHeld.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TeachingQualificationHeld.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @teachingQualificationHeld@, whose target is a type parameter. It names a field or constructor of @TeachingQualification'@. +module ReOC.Name.TeachingQualificationHeld ( + TeachingQualificationHeldLike (..), +) where + +import Control.Lens (Optic) + +class TeachingQualificationHeldLike p f x x' a a' | x -> a where + teachingQualificationHeld :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TeachingQualificationIntent.hs b/src/ReOC/Name/TeachingQualificationIntent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TeachingQualificationIntent.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @teachingQualificationIntent@, whose target is a type parameter. It names a field or constructor of @TeachingQualification'@. +module ReOC.Name.TeachingQualificationIntent ( + TeachingQualificationIntentLike (..), +) where + +import Control.Lens (Optic) + +class TeachingQualificationIntentLike p f x x' a a' | x -> a where + teachingQualificationIntent :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TeachingQualificationTeachingQualificationHeld.hs b/src/ReOC/Name/TeachingQualificationTeachingQualificationHeld.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TeachingQualificationTeachingQualificationHeld.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @teachingQualificationTeachingQualificationHeld@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TeachingQualificationTeachingQualificationHeld ( + TeachingQualificationTeachingQualificationHeldLike (..), +) where + +import Control.Lens (Optic) + +class TeachingQualificationTeachingQualificationHeldLike p f x x' where + teachingQualificationTeachingQualificationHeld :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TeachingQualificationTeachingQualificationHeldLike p f () x' where + teachingQualificationTeachingQualificationHeld = id diff --git a/src/ReOC/Name/TeachingQualificationTeachingQualificationIntent.hs b/src/ReOC/Name/TeachingQualificationTeachingQualificationIntent.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TeachingQualificationTeachingQualificationIntent.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @teachingQualificationTeachingQualificationIntent@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TeachingQualificationTeachingQualificationIntent ( + TeachingQualificationTeachingQualificationIntentLike (..), +) where + +import Control.Lens (Optic) + +class TeachingQualificationTeachingQualificationIntentLike p f x x' where + teachingQualificationTeachingQualificationIntent :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TeachingQualificationTeachingQualificationIntentLike p f () x' where + teachingQualificationTeachingQualificationIntent = id diff --git a/src/ReOC/Name/Theory.hs b/src/ReOC/Name/Theory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Theory.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @theory@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.Theory ( + TheoryLike (..), +) where + +import Control.Lens (Optic) + +class TheoryLike p f x x' a a' | x -> a where + theory :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TheoryVenues.hs b/src/ReOC/Name/TheoryVenues.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TheoryVenues.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @theoryVenues@, whose target is a type parameter. It names a field or constructor of @TrainingArrangements'@. +module ReOC.Name.TheoryVenues ( + TheoryVenuesLike (..), +) where + +import Control.Lens (Optic) + +class TheoryVenuesLike p f x x' a a' | x -> a where + theoryVenues :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TrainingArrangements.hs b/src/ReOC/Name/TrainingArrangements.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangements.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangements@, whose target is a type parameter. It names a field or constructor of @TrainingMaterial'@. +module ReOC.Name.TrainingArrangements ( + TrainingArrangementsLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsLike p f x x' a a' | x -> a where + trainingArrangements :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TrainingArrangementsExam.hs b/src/ReOC/Name/TrainingArrangementsExam.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsExam.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsExam@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsExam ( + TrainingArrangementsExamLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsExamLike p f x x' where + trainingArrangementsExam :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsExamLike p f () x' where + trainingArrangementsExam = id diff --git a/src/ReOC/Name/TrainingArrangementsExamPassMark.hs b/src/ReOC/Name/TrainingArrangementsExamPassMark.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsExamPassMark.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsExamPassMark@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsExamPassMark ( + TrainingArrangementsExamPassMarkLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsExamPassMarkLike p f x x' where + trainingArrangementsExamPassMark :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsExamPassMarkLike p f () x' where + trainingArrangementsExamPassMark = id diff --git a/src/ReOC/Name/TrainingArrangementsExaminer.hs b/src/ReOC/Name/TrainingArrangementsExaminer.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsExaminer.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsExaminer@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsExaminer ( + TrainingArrangementsExaminerLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsExaminerLike p f x x' where + trainingArrangementsExaminer :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsExaminerLike p f () x' where + trainingArrangementsExaminer = id diff --git a/src/ReOC/Name/TrainingArrangementsMaxStudentsPerCourse.hs b/src/ReOC/Name/TrainingArrangementsMaxStudentsPerCourse.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsMaxStudentsPerCourse.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsMaxStudentsPerCourse@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsMaxStudentsPerCourse ( + TrainingArrangementsMaxStudentsPerCourseLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsMaxStudentsPerCourseLike p f x x' where + trainingArrangementsMaxStudentsPerCourse :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsMaxStudentsPerCourseLike p f () x' where + trainingArrangementsMaxStudentsPerCourse = id diff --git a/src/ReOC/Name/TrainingArrangementsMaxStudentsPerInstructor.hs b/src/ReOC/Name/TrainingArrangementsMaxStudentsPerInstructor.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsMaxStudentsPerInstructor.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsMaxStudentsPerInstructor@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsMaxStudentsPerInstructor ( + TrainingArrangementsMaxStudentsPerInstructorLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsMaxStudentsPerInstructorLike p f x x' where + trainingArrangementsMaxStudentsPerInstructor :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsMaxStudentsPerInstructorLike p f () x' where + trainingArrangementsMaxStudentsPerInstructor = id diff --git a/src/ReOC/Name/TrainingArrangementsPracticalAreas.hs b/src/ReOC/Name/TrainingArrangementsPracticalAreas.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsPracticalAreas.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsPracticalAreas@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsPracticalAreas ( + TrainingArrangementsPracticalAreasLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsPracticalAreasLike p f x x' where + trainingArrangementsPracticalAreas :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsPracticalAreasLike p f () x' where + trainingArrangementsPracticalAreas = id diff --git a/src/ReOC/Name/TrainingArrangementsSimulator.hs b/src/ReOC/Name/TrainingArrangementsSimulator.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsSimulator.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsSimulator@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsSimulator ( + TrainingArrangementsSimulatorLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsSimulatorLike p f x x' where + trainingArrangementsSimulator :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsSimulatorLike p f () x' where + trainingArrangementsSimulator = id diff --git a/src/ReOC/Name/TrainingArrangementsTakeover.hs b/src/ReOC/Name/TrainingArrangementsTakeover.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsTakeover.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsTakeover@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsTakeover ( + TrainingArrangementsTakeoverLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsTakeoverLike p f x x' where + trainingArrangementsTakeover :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsTakeoverLike p f () x' where + trainingArrangementsTakeover = id diff --git a/src/ReOC/Name/TrainingArrangementsTheory.hs b/src/ReOC/Name/TrainingArrangementsTheory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsTheory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsTheory@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsTheory ( + TrainingArrangementsTheoryLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsTheoryLike p f x x' where + trainingArrangementsTheory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsTheoryLike p f () x' where + trainingArrangementsTheory = id diff --git a/src/ReOC/Name/TrainingArrangementsTheoryVenues.hs b/src/ReOC/Name/TrainingArrangementsTheoryVenues.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingArrangementsTheoryVenues.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingArrangementsTheoryVenues@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingArrangementsTheoryVenues ( + TrainingArrangementsTheoryVenuesLike (..), +) where + +import Control.Lens (Optic) + +class TrainingArrangementsTheoryVenuesLike p f x x' where + trainingArrangementsTheoryVenues :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingArrangementsTheoryVenuesLike p f () x' where + trainingArrangementsTheoryVenues = id diff --git a/src/ReOC/Name/TrainingCourseComplexities.hs b/src/ReOC/Name/TrainingCourseComplexities.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingCourseComplexities.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingCourseComplexities@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingCourseComplexities ( + TrainingCourseComplexitiesLike (..), +) where + +import Control.Lens (Optic) + +class TrainingCourseComplexitiesLike p f x x' where + trainingCourseComplexities :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingCourseComplexitiesLike p f () x' where + trainingCourseComplexities = id diff --git a/src/ReOC/Name/TrainingCourseCourseKind.hs b/src/ReOC/Name/TrainingCourseCourseKind.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingCourseCourseKind.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingCourseCourseKind@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingCourseCourseKind ( + TrainingCourseCourseKindLike (..), +) where + +import Control.Lens (Optic) + +class TrainingCourseCourseKindLike p f x x' where + trainingCourseCourseKind :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingCourseCourseKindLike p f () x' where + trainingCourseCourseKind = id diff --git a/src/ReOC/Name/TrainingCourseTrainingRPA.hs b/src/ReOC/Name/TrainingCourseTrainingRPA.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingCourseTrainingRPA.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingCourseTrainingRPA@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingCourseTrainingRPA ( + TrainingCourseTrainingRPALike (..), +) where + +import Control.Lens (Optic) + +class TrainingCourseTrainingRPALike p f x x' where + trainingCourseTrainingRPA :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingCourseTrainingRPALike p f () x' where + trainingCourseTrainingRPA = id diff --git a/src/ReOC/Name/TrainingCourses.hs b/src/ReOC/Name/TrainingCourses.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingCourses.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingCourses@, whose target is a type parameter. It names a field or constructor of @TrainingMaterial'@. +module ReOC.Name.TrainingCourses ( + TrainingCoursesLike (..), +) where + +import Control.Lens (Optic) + +class TrainingCoursesLike p f x x' a a' | x -> a where + trainingCourses :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TrainingMaterialCriNominee.hs b/src/ReOC/Name/TrainingMaterialCriNominee.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingMaterialCriNominee.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingMaterialCriNominee@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingMaterialCriNominee ( + TrainingMaterialCriNomineeLike (..), +) where + +import Control.Lens (Optic) + +class TrainingMaterialCriNomineeLike p f x x' where + trainingMaterialCriNominee :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingMaterialCriNomineeLike p f () x' where + trainingMaterialCriNominee = id diff --git a/src/ReOC/Name/TrainingMaterialCriOtherReOCRoles.hs b/src/ReOC/Name/TrainingMaterialCriOtherReOCRoles.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingMaterialCriOtherReOCRoles.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingMaterialCriOtherReOCRoles@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingMaterialCriOtherReOCRoles ( + TrainingMaterialCriOtherReOCRolesLike (..), +) where + +import Control.Lens (Optic) + +class TrainingMaterialCriOtherReOCRolesLike p f x x' where + trainingMaterialCriOtherReOCRoles :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingMaterialCriOtherReOCRolesLike p f () x' where + trainingMaterialCriOtherReOCRoles = id diff --git a/src/ReOC/Name/TrainingMaterialOperationalExperience.hs b/src/ReOC/Name/TrainingMaterialOperationalExperience.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingMaterialOperationalExperience.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingMaterialOperationalExperience@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingMaterialOperationalExperience ( + TrainingMaterialOperationalExperienceLike (..), +) where + +import Control.Lens (Optic) + +class TrainingMaterialOperationalExperienceLike p f x x' where + trainingMaterialOperationalExperience :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingMaterialOperationalExperienceLike p f () x' where + trainingMaterialOperationalExperience = id diff --git a/src/ReOC/Name/TrainingMaterialRePLHolding.hs b/src/ReOC/Name/TrainingMaterialRePLHolding.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingMaterialRePLHolding.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingMaterialRePLHolding@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingMaterialRePLHolding ( + TrainingMaterialRePLHoldingLike (..), +) where + +import Control.Lens (Optic) + +class TrainingMaterialRePLHoldingLike p f x x' where + trainingMaterialRePLHolding :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingMaterialRePLHoldingLike p f () x' where + trainingMaterialRePLHolding = id diff --git a/src/ReOC/Name/TrainingMaterialTeachingQualification.hs b/src/ReOC/Name/TrainingMaterialTeachingQualification.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingMaterialTeachingQualification.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingMaterialTeachingQualification@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingMaterialTeachingQualification ( + TrainingMaterialTeachingQualificationLike (..), +) where + +import Control.Lens (Optic) + +class TrainingMaterialTeachingQualificationLike p f x x' where + trainingMaterialTeachingQualification :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingMaterialTeachingQualificationLike p f () x' where + trainingMaterialTeachingQualification = id diff --git a/src/ReOC/Name/TrainingMaterialTrainingArrangements.hs b/src/ReOC/Name/TrainingMaterialTrainingArrangements.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingMaterialTrainingArrangements.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingMaterialTrainingArrangements@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingMaterialTrainingArrangements ( + TrainingMaterialTrainingArrangementsLike (..), +) where + +import Control.Lens (Optic) + +class TrainingMaterialTrainingArrangementsLike p f x x' where + trainingMaterialTrainingArrangements :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingMaterialTrainingArrangementsLike p f () x' where + trainingMaterialTrainingArrangements = id diff --git a/src/ReOC/Name/TrainingMaterialTrainingCourses.hs b/src/ReOC/Name/TrainingMaterialTrainingCourses.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingMaterialTrainingCourses.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingMaterialTrainingCourses@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.TrainingMaterialTrainingCourses ( + TrainingMaterialTrainingCoursesLike (..), +) where + +import Control.Lens (Optic) + +class TrainingMaterialTrainingCoursesLike p f x x' where + trainingMaterialTrainingCourses :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TrainingMaterialTrainingCoursesLike p f () x' where + trainingMaterialTrainingCourses = id diff --git a/src/ReOC/Name/TrainingRPA.hs b/src/ReOC/Name/TrainingRPA.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TrainingRPA.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @trainingRPA@, whose target is a type parameter. It names a field or constructor of @TrainingCourse'@. +module ReOC.Name.TrainingRPA ( + TrainingRPALike (..), +) where + +import Control.Lens (Optic) + +class TrainingRPALike p f x x' a a' | x -> a where + trainingRPA :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TransponderCarriage.hs b/src/ReOC/Name/TransponderCarriage.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TransponderCarriage.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @transponderCarriage@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.TransponderCarriage ( + TransponderCarriageLike (..), +) where + +import Control.Lens (Optic) + +class TransponderCarriageLike p f x x' a a' | x -> a where + transponderCarriage :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TransponderFitted.hs b/src/ReOC/Name/TransponderFitted.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TransponderFitted.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @transponderFitted@, which targets @()@. It names a field or constructor of @Transponder@. +module ReOC.Name.TransponderFitted ( + TransponderFittedLike (..), +) where + +import Control.Lens (Optic) + +class TransponderFittedLike p f x x' where + transponderFitted :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => TransponderFittedLike p f () x' where + transponderFitted = id diff --git a/src/ReOC/Name/TransportLicenceRefused.hs b/src/ReOC/Name/TransportLicenceRefused.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TransportLicenceRefused.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @transportLicenceRefused@, whose target is a type parameter. It names a field or constructor of @PersonnelHistory'@. +module ReOC.Name.TransportLicenceRefused ( + TransportLicenceRefusedLike (..), +) where + +import Control.Lens (Optic) + +class TransportLicenceRefusedLike p f x x' a a' | x -> a where + transportLicenceRefused :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/TypeOfAction.hs b/src/ReOC/Name/TypeOfAction.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/TypeOfAction.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @typeOfAction@, whose target is a type parameter. It names a field or constructor of @RegulatoryAction'@. +module ReOC.Name.TypeOfAction ( + TypeOfActionLike (..), +) where + +import Control.Lens (Optic) + +class TypeOfActionLike p f x x' a a' | x -> a where + typeOfAction :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/UpgradeDifferentCategory.hs b/src/ReOC/Name/UpgradeDifferentCategory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/UpgradeDifferentCategory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @upgradeDifferentCategory@, which targets @()@. It names a field or constructor of @CourseType@. +module ReOC.Name.UpgradeDifferentCategory ( + UpgradeDifferentCategoryLike (..), +) where + +import Control.Lens (Optic) + +class UpgradeDifferentCategoryLike p f x x' where + upgradeDifferentCategory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => UpgradeDifferentCategoryLike p f () x' where + upgradeDifferentCategory = id diff --git a/src/ReOC/Name/UpgradeSameCategory.hs b/src/ReOC/Name/UpgradeSameCategory.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/UpgradeSameCategory.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @upgradeSameCategory@, which targets @()@. It names a field or constructor of @CourseType@. +module ReOC.Name.UpgradeSameCategory ( + UpgradeSameCategoryLike (..), +) where + +import Control.Lens (Optic) + +class UpgradeSameCategoryLike p f x x' where + upgradeSameCategory :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => UpgradeSameCategoryLike p f () x' where + upgradeSameCategory = id diff --git a/src/ReOC/Name/UserManual.hs b/src/ReOC/Name/UserManual.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/UserManual.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @userManual@, whose target is a type parameter. It names a field or constructor of @RPAType'@. +module ReOC.Name.UserManual ( + UserManualLike (..), +) where + +import Control.Lens (Optic) + +class UserManualLike p f x x' a a' | x -> a where + userManual :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/Version.hs b/src/ReOC/Name/Version.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Version.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @version@, whose target is a type parameter. It names a field or constructor of @FirstIssue'@. +module ReOC.Name.Version ( + VersionLike (..), +) where + +import Control.Lens (Optic) + +class VersionLike p f x x' a a' | x -> a where + version :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/VersionIncrement.hs b/src/ReOC/Name/VersionIncrement.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/VersionIncrement.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @versionIncrement@, whose target is a type parameter. It names a field or constructor of @Revision'@. +module ReOC.Name.VersionIncrement ( + VersionIncrementLike (..), +) where + +import Control.Lens (Optic) + +class VersionIncrementLike p f x x' a a' | x -> a where + versionIncrement :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/VersionMajorVersion.hs b/src/ReOC/Name/VersionMajorVersion.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/VersionMajorVersion.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @versionMajorVersion@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.VersionMajorVersion ( + VersionMajorVersionLike (..), +) where + +import Control.Lens (Optic) + +class VersionMajorVersionLike p f x x' where + versionMajorVersion :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => VersionMajorVersionLike p f () x' where + versionMajorVersion = id diff --git a/src/ReOC/Name/VersionMinorVersion.hs b/src/ReOC/Name/VersionMinorVersion.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/VersionMinorVersion.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @versionMinorVersion@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.VersionMinorVersion ( + VersionMinorVersionLike (..), +) where + +import Control.Lens (Optic) + +class VersionMinorVersionLike p f x x' where + versionMinorVersion :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => VersionMinorVersionLike p f () x' where + versionMinorVersion = id diff --git a/src/ReOC/Name/Victoria.hs b/src/ReOC/Name/Victoria.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Victoria.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @victoria@, which targets @()@. It names a field or constructor of @AustralianState@. +module ReOC.Name.Victoria ( + VictoriaLike (..), +) where + +import Control.Lens (Optic) + +class VictoriaLike p f x x' where + victoria :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => VictoriaLike p f () x' where + victoria = id diff --git a/src/ReOC/Name/Weekly.hs b/src/ReOC/Name/Weekly.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/Weekly.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @weekly@, which targets @()@. It names a field or constructor of @BackupInterval@. +module ReOC.Name.Weekly ( + WeeklyLike (..), +) where + +import Control.Lens (Optic) + +class WeeklyLike p f x x' where + weekly :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => WeeklyLike p f () x' where + weekly = id diff --git a/src/ReOC/Name/WesternAustralia.hs b/src/ReOC/Name/WesternAustralia.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/WesternAustralia.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @westernAustralia@, which targets @()@. It names a field or constructor of @AustralianState@. +module ReOC.Name.WesternAustralia ( + WesternAustraliaLike (..), +) where + +import Control.Lens (Optic) + +class WesternAustraliaLike p f x x' where + westernAustralia :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => WesternAustraliaLike p f () x' where + westernAustralia = id diff --git a/src/ReOC/Name/WrittenSignatureFile.hs b/src/ReOC/Name/WrittenSignatureFile.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/WrittenSignatureFile.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @writtenSignatureFile@, whose target is a type parameter. It names a field or constructor of @WrittenSignature'@. +module ReOC.Name.WrittenSignatureFile ( + WrittenSignatureFileLike (..), +) where + +import Control.Lens (Optic) + +class WrittenSignatureFileLike p f x x' a a' | x -> a where + writtenSignatureFile :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/WrittenSignatureImage.hs b/src/ReOC/Name/WrittenSignatureImage.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/WrittenSignatureImage.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE FunctionalDependencies #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @writtenSignatureImage@, whose target is a type parameter. It names a field or constructor of @WrittenSignature'@. +module ReOC.Name.WrittenSignatureImage ( + WrittenSignatureImageLike (..), +) where + +import Control.Lens (Optic) + +class WrittenSignatureImageLike p f x x' a a' | x -> a where + writtenSignatureImage :: + Optic p f x x' a a' diff --git a/src/ReOC/Name/WrittenSignatureWrittenSignatureFile.hs b/src/ReOC/Name/WrittenSignatureWrittenSignatureFile.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/WrittenSignatureWrittenSignatureFile.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @writtenSignatureWrittenSignatureFile@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.WrittenSignatureWrittenSignatureFile ( + WrittenSignatureWrittenSignatureFileLike (..), +) where + +import Control.Lens (Optic) + +class WrittenSignatureWrittenSignatureFileLike p f x x' where + writtenSignatureWrittenSignatureFile :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => WrittenSignatureWrittenSignatureFileLike p f () x' where + writtenSignatureWrittenSignatureFile = id diff --git a/src/ReOC/Name/WrittenSignatureWrittenSignatureImage.hs b/src/ReOC/Name/WrittenSignatureWrittenSignatureImage.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Name/WrittenSignatureWrittenSignatureImage.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The name @writtenSignatureWrittenSignatureImage@, which targets @()@. It names a field or constructor of @Field@. +module ReOC.Name.WrittenSignatureWrittenSignatureImage ( + WrittenSignatureWrittenSignatureImageLike (..), +) where + +import Control.Lens (Optic) + +class WrittenSignatureWrittenSignatureImageLike p f x x' where + writtenSignatureWrittenSignatureImage :: + Optic p f x x' () () + +-- | Identity +instance (x' ~ ()) => WrittenSignatureWrittenSignatureImageLike p f () x' where + writtenSignatureWrittenSignatureImage = id diff --git a/src/ReOC/Personnel.hs b/src/ReOC/Personnel.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Personnel.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The holders of the key positions of a ReOC. A position held by the holder +of another position refers to that position ('CRPIsCEO', 'MCIsCRP', ...), so +each holder is found by following those references. +-} +module ReOC.Personnel ( + nominatedCEO, + nominatedCRP, + nominatedMC, + nominatedCRI, + keyPositions, + holders, + soleHolder, +) where + +import Control.Lens (cloneLens, view) +import Data.List (nub) +import Data.Text (Text) +import ReOC.Model + +-- | The nominated CEO. +nominatedCEO :: KeyPersonnel -> Nominee +nominatedCEO = + view (cloneLens (chiefExecutive . nominee)) + +-- | The nominated chief remote pilot. +nominatedCRP :: KeyPersonnel -> Nominee +nominatedCRP k = + case view (cloneLens (chiefPilot . crpNominee)) k of + CRPIsCEO -> nominatedCEO k + CRPNominated n -> n + +-- | The nominated maintenance controller. +nominatedMC :: KeyPersonnel -> Nominee +nominatedMC k = + case view (cloneLens mcNominee) k of + MCIsCEO -> nominatedCEO k + MCIsCRP -> nominatedCRP k + MCNominated n -> n + +-- | The nominated chief RePL instructor. +nominatedCRI :: KeyPersonnel -> TrainingMaterial -> Nominee +nominatedCRI k t = + case view (cloneLens criNominee) t of + CRIIsCEO -> nominatedCEO k + CRIIsCRP -> nominatedCRP k + CRIIsMC -> nominatedMC k + CRINominated n -> n + +{- | The key positions of a ReOC, in the order CEO, chief remote pilot, +maintenance controller and chief RePL instructor (if RePL training is +conducted): each with its abbreviation, its title and its holder. +-} +keyPositions :: ReOC -> [(Text, Text, Nominee)] +keyPositions r = + let k = view (cloneLens (operator . keyPersonnel)) r + in [ ("CEO", "chief executive officer", nominatedCEO k) + , ("CRP", "chief remote pilot", nominatedCRP k) + , ("MC", "maintenance controller", nominatedMC k) + ] + <> maybe [] (\t -> [("CRI", "chief RePL instructor", nominatedCRI k t)]) (view (cloneLens maybeTrainingMaterial) r) + +-- | Each holder of a key position, once, with the abbreviations of the positions they hold. +holders :: ReOC -> [(Nominee, [Text])] +holders r = + let ps = keyPositions r + in [(n, [a | (a, _, m) <- ps, m == n]) | n <- nub [m | (_, _, m) <- ps]] + +-- | The holder of every key position, if one person holds them all. +soleHolder :: ReOC -> Maybe Nominee +soleHolder r = + case holders r of + [(n, _)] -> Just n + _ -> Nothing diff --git a/src/ReOC/Primitive/ABN.hs b/src/ReOC/Primitive/ABN.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/ABN.hs @@ -0,0 +1,101 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | An Australian Business Number: 11 digits whose check digits are correct. + +The constructor is not exported (see "ReOC.Primitive.Text1"). An @ABN@ is +built with the prism '_ABN' from its 11 digits, with 'parseABN', which also +accepts spaces, or with 'abnLiteral'. +-} +module ReOC.Primitive.ABN ( + ABN, + _ABN, + parseABN, + abnText, + abnFormatted, + abnLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Data.Char (digitToInt, isDigit, isSpace) +import Data.Text (Text) +import qualified Data.Text as Text +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) + +{- $setup +>>> :set -XOverloadedStrings +>>> import Control.Lens ((^?)) +-} + +-- | An Australian Business Number. +newtype ABN + = ABN Text + deriving (Eq, Ord, Show, Lift) + +{- | An ABN from its 11 digits, with no spaces. The check digits must be +correct. + +>>> "51824753556" ^? _ABN +Just (ABN "51824753556") + +>>> "51824753557" ^? _ABN +Nothing + +>>> "51 824 753 556" ^? _ABN +Nothing +-} +_ABN :: Prism' Text ABN +_ABN = + prism' + abnText + ( \t -> + let ds = Text.unpack t + in if length ds == 11 && all isDigit ds && checksum (map digitToInt ds) + then Just (ABN t) + else Nothing + ) + where + checksum ds = + case ds of + d : rest -> sum (zipWith (*) weights ((d - 1) : rest)) `mod` 89 == 0 + [] -> False + weights = + [10, 1, 3, 5, 7, 9, 11, 13, 15, 17, 19] + +{- | An ABN from text that may have spaces between the digits. + +>>> parseABN "51 824 753 556" +Just (ABN "51824753556") +-} +parseABN :: Text -> Maybe ABN +parseABN = + preview _ABN . Text.filter (not . isSpace) + +-- | The 11 digits of an ABN. +abnText :: ABN -> Text +abnText (ABN t) = + t + +{- | An ABN as it is usually written, with spaces. + +>>> abnFormatted <$> parseABN "51824753556" +Just "51 824 753 556" +-} +abnFormatted :: ABN -> Text +abnFormatted (ABN t) = + let (a, r1) = Text.splitAt 2 t + (b, r2) = Text.splitAt 3 r1 + (c, d) = Text.splitAt 3 r2 + in Text.unwords [a, b, c, d] + +{- | An @ABN@ literal, checked when the program is compiled. Spaces are +allowed: + +> $$(abnLiteral "51 824 753 556") +-} +abnLiteral :: String -> Code Q ABN +abnLiteral s = + maybe + (Code (fail ("abnLiteral: not an ABN: " <> show s))) + liftTyped + (parseABN (Text.pack s)) diff --git a/src/ReOC/Primitive/ARN.hs b/src/ReOC/Primitive/ARN.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/ARN.hs @@ -0,0 +1,60 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | A CASA Aviation Reference Number: one or more digits. + +The constructor is not exported (see "ReOC.Primitive.Text1"). An @ARN@ is +built with the prism '_ARN' or with 'arnLiteral'. +-} +module ReOC.Primitive.ARN ( + ARN, + _ARN, + arnText, + arnLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Data.Char (isDigit) +import Data.Text (Text) +import qualified Data.Text as Text +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) + +{- $setup +>>> :set -XOverloadedStrings +>>> import Control.Lens ((^?)) +-} + +-- | An Aviation Reference Number. +newtype ARN + = ARN Text + deriving (Eq, Ord, Show, Lift) + +{- | An ARN from its digits. + +>>> "9990102" ^? _ARN +Just (ARN "9990102") + +>>> "ARN 9990102" ^? _ARN +Nothing +-} +_ARN :: Prism' Text ARN +_ARN = + prism' + arnText + (\t -> if not (Text.null t) && Text.all isDigit t then Just (ARN t) else Nothing) + +-- | The digits of an ARN. +arnText :: ARN -> Text +arnText (ARN t) = + t + +{- | An @ARN@ literal, checked when the program is compiled: + +> $$(arnLiteral "9990102") +-} +arnLiteral :: String -> Code Q ARN +arnLiteral s = + maybe + (Code (fail ("arnLiteral: not an ARN: " <> show s))) + liftTyped + (preview _ARN (Text.pack s)) diff --git a/src/ReOC/Primitive/AtMost.hs b/src/ReOC/Primitive/AtMost.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/AtMost.hs @@ -0,0 +1,59 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveTraversable #-} +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# OPTIONS_GHC -Wall #-} + +{- | From 0 to @n@ values: as many as a part of a document has room for, such +as the lines of a box of CASA Form 101-02. + +The constructor is not exported (see "ReOC.Primitive.Text1"). @AtMost@ is +built with the prism '_AtMost' or, for no values, with 'atMostNone'. It is +'Traversable', so that its values can be changed without changing how many +there are. +-} +module ReOC.Primitive.AtMost ( + AtMost, + _AtMost, + atMostList, + atMostNone, +) where + +import Control.Lens (Prism', prism') +import Data.Proxy (Proxy (..)) +import GHC.TypeNats (KnownNat, Nat, natVal) + +{- $setup +>>> :set -XDataKinds +>>> :set -XTypeApplications +>>> import Control.Lens ((^?)) +-} + +-- | From 0 to @n@ values. +newtype AtMost (n :: Nat) a + = AtMost [a] + deriving (Eq, Ord, Show, Functor, Foldable, Traversable) + +{- | From 0 to @n@ values. + +>>> "ab" ^? _AtMost @2 +Just (AtMost "ab") + +>>> "abc" ^? _AtMost @2 +Nothing +-} +_AtMost :: forall n a. (KnownNat n) => Prism' [a] (AtMost n a) +_AtMost = + prism' + atMostList + (\xs -> if fromIntegral (length xs) <= natVal (Proxy :: Proxy n) then Just (AtMost xs) else Nothing) + +-- | The values. +atMostList :: AtMost n a -> [a] +atMostList (AtMost xs) = + xs + +-- | No values. +atMostNone :: AtMost n a +atMostNone = + AtMost [] diff --git a/src/ReOC/Primitive/EmailAddress.hs b/src/ReOC/Primitive/EmailAddress.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/EmailAddress.hs @@ -0,0 +1,87 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveLift #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE TypeApplications #-} +{-# OPTIONS_GHC -Wall #-} + +{- | An email address: a local part, one \@ and a domain with at least one +dot, with no white space, that fits one line of a box of CASA Form 101-02. + +The constructor is not exported (see "ReOC.Primitive.Text1"). An +@EmailAddress@ is built with the prism '_EmailAddress' or with +'emailAddressLiteral'. +-} +module ReOC.Primitive.EmailAddress ( + EmailAddress, + _EmailAddress, + emailAddressText, + emailAddressLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Data.Char (isSpace) +import Data.Maybe (isJust) +import Data.Text (Text) +import qualified Data.Text as Text +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) +import ReOC.Primitive.FormText (FormFont (..), _FormText) + +{- $setup +>>> :set -XOverloadedStrings +>>> import Control.Lens ((^?)) +>>> import qualified Data.Text as Text +-} + +-- | An email address. +newtype EmailAddress + = EmailAddress Text + deriving (Eq, Ord, Show, Lift) + +{- | An email address. + +>>> "ops@example.com" ^? _EmailAddress +Just (EmailAddress "ops@example.com") + +>>> "casa@localhost" ^? _EmailAddress +Nothing + +>>> "a@b@c.net" ^? _EmailAddress +Nothing + +>>> (Text.replicate 60 "w" <> "@example.net") ^? _EmailAddress +Nothing +-} +_EmailAddress :: Prism' Text EmailAddress +_EmailAddress = + prism' + emailAddressText + ( \t -> + case Text.splitOn "@" t of + [local, domain] + | not (Text.null local) + , valid domain + , not (Text.any isSpace t) + , isJust (preview (_FormText @'Narrow @212 @1) t) -> + Just (EmailAddress t) + _ -> Nothing + ) + where + valid domain = + let parts = Text.splitOn "." domain + in length parts >= 2 && not (any Text.null parts) + +-- | The text of an email address. +emailAddressText :: EmailAddress -> Text +emailAddressText (EmailAddress t) = + t + +{- | An @EmailAddress@ literal, checked when the program is compiled: + +> $$(emailAddressLiteral "ops@example.com") +-} +emailAddressLiteral :: String -> Code Q EmailAddress +emailAddressLiteral s = + maybe + (Code (fail ("emailAddressLiteral: not an email address: " <> show s))) + liftTyped + (preview _EmailAddress (Text.pack s)) diff --git a/src/ReOC/Primitive/FormFont.hs b/src/ReOC/Primitive/FormFont.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/FormFont.hs @@ -0,0 +1,475 @@ +{-# OPTIONS_GHC -Wall #-} + +{- | The widths of the characters of the fonts of the text fields of CASA +Form 101-02, in thousandths of the font size. Generated from the widths in +the form; a character without a width cannot be shown by the form. + +The fields of the form use Helvetica Light Condensed, Helvetica Roman and +Roboto Condensed (each with the Mac OS Roman encoding). 'narrowWidth' is the +greater of the widths of the two condensed fonts, and 'wideWidth' the +greatest of all three. +-} +module ReOC.Primitive.FormFont ( + narrowWidth, + wideWidth, +) where + +-- | The width of a character in the condensed fonts of the form. +narrowWidth :: Char -> Maybe Int +narrowWidth c = + case fromEnum c of + 32 -> Just 229 + 33 -> Just 246 + 34 -> Just 320 + 35 -> Just 548 + 36 -> Just 494 + 37 -> Just 778 + 38 -> Just 611 + 39 -> Just 198 + 40 -> Just 314 + 41 -> Just 318 + 42 -> Just 431 + 43 -> Just 497 + 44 -> Just 222 + 45 -> Just 333 + 46 -> Just 263 + 47 -> Just 371 + 48 -> Just 494 + 49 -> Just 494 + 50 -> Just 494 + 51 -> Just 494 + 52 -> Just 494 + 53 -> Just 494 + 54 -> Just 494 + 55 -> Just 494 + 56 -> Just 494 + 57 -> Just 494 + 58 -> Just 233 + 59 -> Just 222 + 60 -> Just 446 + 61 -> Just 479 + 62 -> Just 460 + 63 -> Just 422 + 64 -> Just 800 + 65 -> Just 576 + 66 -> Just 545 + 67 -> Just 567 + 68 -> Just 571 + 69 -> Just 497 + 70 -> Just 480 + 71 -> Just 591 + 72 -> Just 620 + 73 -> Just 250 + 74 -> Just 483 + 75 -> Just 545 + 76 -> Just 475 + 77 -> Just 755 + 78 -> Just 619 + 79 -> Just 601 + 80 -> Just 554 + 81 -> Just 601 + 82 -> Just 531 + 83 -> Just 518 + 84 -> Just 521 + 85 -> Just 562 + 86 -> Just 560 + 87 -> Just 762 + 88 -> Just 551 + 89 -> Just 524 + 90 -> Just 522 + 91 -> Just 278 + 92 -> Just 369 + 93 -> Just 278 + 94 -> Just 444 + 95 -> Just 500 + 96 -> Just 333 + 97 -> Just 479 + 98 -> Just 493 + 99 -> Just 462 + 100 -> Just 496 + 101 -> Just 468 + 102 -> Just 316 + 103 -> Just 493 + 104 -> Just 483 + 105 -> Just 229 + 106 -> Just 224 + 107 -> Just 451 + 108 -> Just 229 + 109 -> Just 752 + 110 -> Just 484 + 111 -> Just 502 + 112 -> Just 493 + 113 -> Just 500 + 114 -> Just 304 + 115 -> Just 456 + 116 -> Just 295 + 117 -> Just 483 + 118 -> Just 428 + 119 -> Just 650 + 120 -> Just 439 + 121 -> Just 417 + 122 -> Just 439 + 123 -> Just 351 + 124 -> Just 244 + 125 -> Just 351 + 126 -> Just 589 + 127 -> Just 500 + 160 -> Just 500 + 161 -> Just 231 + 162 -> Just 479 + 163 -> Just 511 + 165 -> Just 463 + 167 -> Just 537 + 168 -> Just 418 + 169 -> Just 800 + 170 -> Just 396 + 171 -> Just 500 + 172 -> Just 487 + 174 -> Just 800 + 175 -> Just 414 + 176 -> Just 400 + 177 -> Just 470 + 180 -> Just 333 + 181 -> Just 499 + 182 -> Just 564 + 183 -> Just 243 + 184 -> Just 333 + 186 -> Just 403 + 187 -> Just 500 + 191 -> Just 421 + 192 -> Just 576 + 193 -> Just 576 + 194 -> Just 576 + 195 -> Just 576 + 196 -> Just 576 + 197 -> Just 576 + 198 -> Just 812 + 199 -> Just 567 + 200 -> Just 497 + 201 -> Just 497 + 202 -> Just 497 + 203 -> Just 497 + 204 -> Just 250 + 205 -> Just 250 + 206 -> Just 250 + 207 -> Just 250 + 209 -> Just 619 + 210 -> Just 601 + 211 -> Just 601 + 212 -> Just 601 + 213 -> Just 601 + 214 -> Just 601 + 216 -> Just 601 + 217 -> Just 562 + 218 -> Just 562 + 219 -> Just 562 + 220 -> Just 562 + 223 -> Just 522 + 224 -> Just 479 + 225 -> Just 479 + 226 -> Just 479 + 227 -> Just 479 + 228 -> Just 479 + 229 -> Just 479 + 230 -> Just 728 + 231 -> Just 462 + 232 -> Just 468 + 233 -> Just 468 + 234 -> Just 468 + 235 -> Just 468 + 236 -> Just 235 + 237 -> Just 235 + 238 -> Just 235 + 239 -> Just 235 + 241 -> Just 484 + 242 -> Just 502 + 243 -> Just 502 + 244 -> Just 502 + 245 -> Just 502 + 246 -> Just 502 + 247 -> Just 500 + 248 -> Just 499 + 249 -> Just 483 + 250 -> Just 483 + 251 -> Just 483 + 252 -> Just 483 + 255 -> Just 417 + 305 -> Just 235 + 338 -> Just 827 + 339 -> Just 777 + 376 -> Just 524 + 402 -> Just 444 + 710 -> Just 428 + 711 -> Just 404 + 728 -> Just 427 + 729 -> Just 333 + 730 -> Just 334 + 731 -> Just 333 + 732 -> Just 427 + 733 -> Just 333 + 937 -> Just 500 + 960 -> Just 500 + 8211 -> Just 572 + 8212 -> Just 1000 + 8216 -> Just 194 + 8217 -> Just 194 + 8218 -> Just 222 + 8220 -> Just 334 + 8221 -> Just 337 + 8222 -> Just 330 + 8224 -> Just 483 + 8225 -> Just 500 + 8226 -> Just 606 + 8230 -> Just 1000 + 8240 -> Just 1000 + 8249 -> Just 333 + 8250 -> Just 333 + 8260 -> Just 403 + 8364 -> Just 494 + 8482 -> Just 722 + 8706 -> Just 500 + 8710 -> Just 500 + 8719 -> Just 500 + 8721 -> Just 500 + 8730 -> Just 500 + 8734 -> Just 500 + 8747 -> Just 500 + 8776 -> Just 500 + 8800 -> Just 500 + 8804 -> Just 500 + 8805 -> Just 500 + 9674 -> Just 500 + 63743 -> Just 500 + 64257 -> Just 490 + 64258 -> Just 504 + _ -> Nothing + +-- | The width of a character in any font of the form. +wideWidth :: Char -> Maybe Int +wideWidth c = + case fromEnum c of + 32 -> Just 278 + 33 -> Just 278 + 34 -> Just 355 + 35 -> Just 556 + 36 -> Just 556 + 37 -> Just 889 + 38 -> Just 667 + 39 -> Just 198 + 40 -> Just 333 + 41 -> Just 333 + 42 -> Just 431 + 43 -> Just 584 + 44 -> Just 278 + 45 -> Just 333 + 46 -> Just 278 + 47 -> Just 371 + 48 -> Just 556 + 49 -> Just 556 + 50 -> Just 556 + 51 -> Just 556 + 52 -> Just 556 + 53 -> Just 556 + 54 -> Just 556 + 55 -> Just 556 + 56 -> Just 556 + 57 -> Just 556 + 58 -> Just 278 + 59 -> Just 278 + 60 -> Just 584 + 61 -> Just 584 + 62 -> Just 584 + 63 -> Just 556 + 64 -> Just 1015 + 65 -> Just 667 + 66 -> Just 667 + 67 -> Just 722 + 68 -> Just 722 + 69 -> Just 667 + 70 -> Just 611 + 71 -> Just 778 + 72 -> Just 722 + 73 -> Just 278 + 74 -> Just 500 + 75 -> Just 667 + 76 -> Just 556 + 77 -> Just 833 + 78 -> Just 722 + 79 -> Just 778 + 80 -> Just 667 + 81 -> Just 778 + 82 -> Just 722 + 83 -> Just 667 + 84 -> Just 611 + 85 -> Just 722 + 86 -> Just 667 + 87 -> Just 944 + 88 -> Just 667 + 89 -> Just 667 + 90 -> Just 611 + 91 -> Just 278 + 92 -> Just 369 + 93 -> Just 278 + 94 -> Just 469 + 95 -> Just 556 + 96 -> Just 333 + 97 -> Just 556 + 98 -> Just 556 + 99 -> Just 500 + 100 -> Just 556 + 101 -> Just 556 + 102 -> Just 316 + 103 -> Just 556 + 104 -> Just 556 + 105 -> Just 229 + 106 -> Just 224 + 107 -> Just 500 + 108 -> Just 229 + 109 -> Just 833 + 110 -> Just 556 + 111 -> Just 556 + 112 -> Just 556 + 113 -> Just 556 + 114 -> Just 333 + 115 -> Just 500 + 116 -> Just 295 + 117 -> Just 556 + 118 -> Just 500 + 119 -> Just 722 + 120 -> Just 500 + 121 -> Just 500 + 122 -> Just 500 + 123 -> Just 351 + 124 -> Just 260 + 125 -> Just 351 + 126 -> Just 589 + 127 -> Just 500 + 160 -> Just 500 + 161 -> Just 333 + 162 -> Just 556 + 163 -> Just 556 + 165 -> Just 556 + 167 -> Just 556 + 168 -> Just 418 + 169 -> Just 800 + 170 -> Just 396 + 171 -> Just 556 + 172 -> Just 584 + 174 -> Just 800 + 175 -> Just 414 + 176 -> Just 400 + 177 -> Just 584 + 180 -> Just 333 + 181 -> Just 578 + 182 -> Just 564 + 183 -> Just 278 + 184 -> Just 333 + 186 -> Just 403 + 187 -> Just 556 + 191 -> Just 611 + 192 -> Just 667 + 193 -> Just 667 + 194 -> Just 667 + 195 -> Just 667 + 196 -> Just 667 + 197 -> Just 667 + 198 -> Just 1000 + 199 -> Just 722 + 200 -> Just 667 + 201 -> Just 667 + 202 -> Just 667 + 203 -> Just 667 + 204 -> Just 278 + 205 -> Just 278 + 206 -> Just 278 + 207 -> Just 278 + 209 -> Just 722 + 210 -> Just 778 + 211 -> Just 778 + 212 -> Just 778 + 213 -> Just 778 + 214 -> Just 778 + 216 -> Just 778 + 217 -> Just 722 + 218 -> Just 722 + 219 -> Just 722 + 220 -> Just 722 + 223 -> Just 611 + 224 -> Just 556 + 225 -> Just 556 + 226 -> Just 556 + 227 -> Just 556 + 228 -> Just 556 + 229 -> Just 556 + 230 -> Just 889 + 231 -> Just 500 + 232 -> Just 556 + 233 -> Just 556 + 234 -> Just 556 + 235 -> Just 556 + 236 -> Just 278 + 237 -> Just 278 + 238 -> Just 278 + 239 -> Just 278 + 241 -> Just 556 + 242 -> Just 556 + 243 -> Just 556 + 244 -> Just 556 + 245 -> Just 556 + 246 -> Just 556 + 247 -> Just 584 + 248 -> Just 611 + 249 -> Just 556 + 250 -> Just 556 + 251 -> Just 556 + 252 -> Just 556 + 255 -> Just 500 + 305 -> Just 278 + 338 -> Just 1000 + 339 -> Just 944 + 376 -> Just 667 + 402 -> Just 556 + 710 -> Just 428 + 711 -> Just 404 + 728 -> Just 427 + 729 -> Just 333 + 730 -> Just 334 + 731 -> Just 333 + 732 -> Just 427 + 733 -> Just 333 + 937 -> Just 500 + 960 -> Just 500 + 8211 -> Just 572 + 8212 -> Just 1000 + 8216 -> Just 222 + 8217 -> Just 222 + 8218 -> Just 222 + 8220 -> Just 334 + 8221 -> Just 337 + 8222 -> Just 333 + 8224 -> Just 556 + 8225 -> Just 556 + 8226 -> Just 606 + 8230 -> Just 1000 + 8240 -> Just 1000 + 8249 -> Just 333 + 8250 -> Just 333 + 8260 -> Just 403 + 8364 -> Just 556 + 8482 -> Just 1000 + 8706 -> Just 500 + 8710 -> Just 500 + 8719 -> Just 500 + 8721 -> Just 500 + 8730 -> Just 500 + 8734 -> Just 500 + 8747 -> Just 500 + 8776 -> Just 500 + 8800 -> Just 500 + 8804 -> Just 500 + 8805 -> Just 500 + 9674 -> Just 500 + 63743 -> Just 500 + 64257 -> Just 500 + 64258 -> Just 504 + _ -> Nothing diff --git a/src/ReOC/Primitive/FormText.hs b/src/ReOC/Primitive/FormText.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/FormText.hs @@ -0,0 +1,186 @@ +{-# LANGUAGE AllowAmbiguousTypes #-} +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveLift #-} +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE TypeApplications #-} +{-# OPTIONS_GHC -Wall #-} + +{- | Text that fits a text box of CASA Form 101-02. + +A box of the form has a fixed font size (10 pt) and a fixed size, and the +form cuts off text that does not fit. @FormText font width lines@ is text +that is not blank, that the form's fonts can show, and that, wrapped at +@width@ points in @font@, takes at most @lines@ lines. A one-line box holds +no line breaks. + +The constructor is not exported (see "ReOC.Primitive.Text1"). A @FormText@ +is built with the prism '_FormText' or with 'formTextLiteral'. +-} +module ReOC.Primitive.FormText ( + FormFont (..), + KnownFormFont (..), + FormText, + FormLine, + FormLines, + WideLine, + _FormText, + formTextText, + formTextText1, + formTextLiteral, + textWidth, + textLines, +) where + +import Control.Lens (Prism', preview, prism') +import Data.Char (isControl) +import Data.Maybe (fromMaybe, isJust) +import Data.Proxy (Proxy (..)) +import Data.Text (Text) +import qualified Data.Text as Text +import GHC.TypeNats (KnownNat, Nat, natVal) +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) +import ReOC.Primitive.FormFont (narrowWidth, wideWidth) +import ReOC.Primitive.Text1 (Text1, text1Text, _Text1) + +{- $setup +>>> :set -XDataKinds +>>> :set -XOverloadedStrings +>>> :set -XTypeApplications +>>> import Control.Lens ((^?)) +-} + +-- | The fonts of the text boxes of the form, by their widest characters. +data FormFont + = -- | Helvetica Light Condensed or Roboto Condensed: most boxes. + Narrow + | -- | Helvetica Roman as well: questions 9 and 17. + Wide + deriving (Eq, Ord, Show) + +-- | A font, known from its type. +class KnownFormFont (f :: FormFont) where + formFontVal :: FormFont + +instance KnownFormFont 'Narrow where + formFontVal = Narrow + +instance KnownFormFont 'Wide where + formFontVal = Wide + +-- | Text that fits a box of the form: @width@ points wide and @lines@ lines high. +newtype FormText (f :: FormFont) (width :: Nat) (lines :: Nat) + = FormText Text1 + deriving (Eq, Ord, Show, Lift) + +-- | Text that fits one line of a full-width box of the form, such as a name. +type FormLine = FormText 'Narrow 212 1 + +-- | Text that fits @n@ lines of a full-width box of the form. +type FormLines n = FormText 'Narrow 212 n + +-- | Text that fits one line of a full-width box of the form in Helvetica Roman. +type WideLine = FormText 'Wide 212 1 + +-- The width of a character, in thousandths of a point at 10 pt. +characterWidth :: FormFont -> Char -> Maybe Int +characterWidth font c = + if isControl c + then Nothing + else case font of + Narrow -> narrowWidth c + Wide -> wideWidth c + +{- | The width of text in a font at 10 pt, in points, if the font can show it. + +>>> textWidth Narrow "Banksia Point" +Just 54.16 +-} +textWidth :: FormFont -> Text -> Maybe Double +textWidth font t = + (\ws -> fromIntegral (sum ws) / 100) <$> traverse (characterWidth font) (Text.unpack t) + +{- | The number of lines that text takes when the form wraps it at a width, +in points: each line break starts a line, lines break at spaces, and a word +wider than a line breaks between its characters. Characters that the font +cannot show have the width of the widest character. + +>>> textLines Narrow 50 "one two three four five six" +3 +-} +textLines :: FormFont -> Double -> Text -> Int +textLines font width = + sum . map paragraph . Text.splitOn "\n" + where + w c = + fromIntegral (fromMaybe 1015 (characterWidth font c)) / 100 :: Double + space = + w ' ' + paragraph p = + case Text.splitOn " " p of + [] -> 1 + first : rest -> + let (n0, x0) = word (1, 0) first + in fst (foldl next (n0, x0) rest) + next (n, x) wd = + let ww = sum (map w (Text.unpack wd)) + in if x + space + ww <= width + then (n, x + space + ww) + else word (n + 1, 0) wd + -- places a word at the start of a line, breaking it between characters if it is too wide + word :: (Int, Double) -> Text -> (Int, Double) + word (n, _) wd = + foldl + (\(k, x) c -> if x + w c <= width || x == 0 then (k, x + w c) else (k + 1, w c)) + (n, 0) + (Text.unpack wd) + +{- | Text that fits a box of the form. + +>>> "Mei-Ling Hartley" ^? _FormText @'Narrow @212 @1 +Just (FormText (Text1 "Mei-Ling Hartley")) + +>>> "first line\nsecond line" ^? _FormText @'Narrow @212 @1 +Nothing + +>>> "a long name that does not fit a narrow box" ^? _FormText @'Narrow @60 @1 +Nothing + +>>> "日本" ^? _FormText @'Narrow @212 @1 +Nothing +-} +_FormText :: forall f width lines. (KnownFormFont f, KnownNat width, KnownNat lines) => Prism' Text (FormText f width lines) +_FormText = + prism' + formTextText + ( \t -> + let font = formFontVal @f + maxLines = fromIntegral (natVal (Proxy :: Proxy lines)) + width = fromIntegral (natVal (Proxy :: Proxy width)) + shown c = isJust (characterWidth font c) || (c == '\n' && maxLines > 1) + in if Text.all shown t && textLines font width t <= maxLines + then FormText <$> preview _Text1 t + else Nothing + ) + +-- | The text of a @FormText@. +formTextText :: FormText f width lines -> Text +formTextText (FormText t) = + text1Text t + +-- | The text of a @FormText@, which is not blank. +formTextText1 :: FormText f width lines -> Text1 +formTextText1 (FormText t) = + t + +{- | A @FormText@ literal, checked when the program is compiled: + +> $$(formTextLiteral "Mei-Ling Hartley") :: FormLine +-} +formTextLiteral :: forall f width lines. (KnownFormFont f, KnownNat width, KnownNat lines) => String -> Code Q (FormText f width lines) +formTextLiteral s = + maybe + (Code (fail ("formTextLiteral: does not fit the box of the form, or has a character that the form cannot show: " <> show s))) + liftTyped + (preview (_FormText @f @width @lines) (Text.pack s)) diff --git a/src/ReOC/Primitive/GrossWeight.hs b/src/ReOC/Primitive/GrossWeight.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/GrossWeight.hs @@ -0,0 +1,61 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The maximum gross weight of a type of RPA, in grams: more than 0 g and not +more than 25 kg. + +The operations manual is written for RPA of not more than 25 kg; heavier +RPA have requirements (and RePL training a safety case) that it does not +cover. The constructor is not exported (see "ReOC.Primitive.Text1"). A +@GrossWeight@ is built with the prism '_GrossWeight' or with +'grossWeightLiteral'. +-} +module ReOC.Primitive.GrossWeight ( + GrossWeight, + _GrossWeight, + grossWeightGrams, + grossWeightLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) +import Numeric.Natural (Natural) + +{- $setup +>>> import Control.Lens ((^?)) +-} + +-- | A maximum gross weight, in grams, from 1 g to 25 kg. +newtype GrossWeight + = GrossWeight Natural + deriving (Eq, Ord, Show, Lift) + +{- | A maximum gross weight, in grams, from 1 g to 25 kg. + +>>> (1999 :: Natural) ^? _GrossWeight +Just (GrossWeight 1999) + +>>> (25001 :: Natural) ^? _GrossWeight +Nothing +-} +_GrossWeight :: Prism' Natural GrossWeight +_GrossWeight = + prism' + grossWeightGrams + (\n -> if n >= 1 && n <= 25000 then Just (GrossWeight n) else Nothing) + +-- | The weight, in grams. +grossWeightGrams :: GrossWeight -> Natural +grossWeightGrams (GrossWeight n) = + n + +{- | A @GrossWeight@ literal, in grams, checked when the program is compiled: + +> $$(grossWeightLiteral 1999) +-} +grossWeightLiteral :: Natural -> Code Q GrossWeight +grossWeightLiteral n = + maybe + (Code (fail ("grossWeightLiteral: not from 1 g to 25 kg: " <> show n))) + liftTyped + (preview _GrossWeight n) diff --git a/src/ReOC/Primitive/PassMark.hs b/src/ReOC/Primitive/PassMark.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/PassMark.hs @@ -0,0 +1,61 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The pass mark of a theory examination of RePL training: a whole +percentage from 70 to 100. The least pass mark of 70% is taken from general +knowledge of the Part 101 MOS, which is not among the sources of this package, +and must be checked against it. + +The constructor is not exported (see "ReOC.Primitive.Text1"). A +@PassMark@ is built with the prism '_PassMark' or with +'passMarkLiteral'. +-} +module ReOC.Primitive.PassMark ( + PassMark, + _PassMark, + passMarkNatural, + passMarkLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) +import Numeric.Natural (Natural) + +{- $setup +>>> import Control.Lens ((^?)) +-} + +-- | A pass mark, from 70% to 100%. +newtype PassMark + = PassMark Natural + deriving (Eq, Ord, Show, Lift) + +{- | A pass mark, from 70% to 100%. + +>>> (80 :: Natural) ^? _PassMark +Just (PassMark 80) + +>>> (69 :: Natural) ^? _PassMark +Nothing +-} +_PassMark :: Prism' Natural PassMark +_PassMark = + prism' + passMarkNatural + (\n -> if n >= 70 && n <= 100 then Just (PassMark n) else Nothing) + +-- | The percentage. +passMarkNatural :: PassMark -> Natural +passMarkNatural (PassMark n) = + n + +{- | A @PassMark@ literal, checked when the program is compiled: + +> $$(passMarkLiteral 80) +-} +passMarkLiteral :: Natural -> Code Q PassMark +passMarkLiteral n = + maybe + (Code (fail ("passMarkLiteral: not from 70 to 100: " <> show n))) + liftTyped + (preview _PassMark n) diff --git a/src/ReOC/Primitive/Percentage.hs b/src/ReOC/Primitive/Percentage.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/Percentage.hs @@ -0,0 +1,58 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | A whole percentage, from 0 to 100. + +The constructor is not exported (see "ReOC.Primitive.Text1"). A +@Percentage@ is built with the prism '_Percentage' or with +'percentageLiteral'. +-} +module ReOC.Primitive.Percentage ( + Percentage, + _Percentage, + percentageNatural, + percentageLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) +import Numeric.Natural (Natural) + +{- $setup +>>> import Control.Lens ((^?)) +-} + +-- | A whole percentage, from 0 to 100. +newtype Percentage + = Percentage Natural + deriving (Eq, Ord, Show, Lift) + +{- | A whole percentage, from 0 to 100. + +>>> (30 :: Natural) ^? _Percentage +Just (Percentage 30) + +>>> (101 :: Natural) ^? _Percentage +Nothing +-} +_Percentage :: Prism' Natural Percentage +_Percentage = + prism' + percentageNatural + (\n -> if n <= 100 then Just (Percentage n) else Nothing) + +-- | The number of a @Percentage@. +percentageNatural :: Percentage -> Natural +percentageNatural (Percentage n) = + n + +{- | A @Percentage@ literal, checked when the program is compiled: + +> $$(percentageLiteral 30) +-} +percentageLiteral :: Natural -> Code Q Percentage +percentageLiteral n = + maybe + (Code (fail ("percentageLiteral: more than 100: " <> show n))) + liftTyped + (preview _Percentage n) diff --git a/src/ReOC/Primitive/PhoneNumber.hs b/src/ReOC/Primitive/PhoneNumber.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/PhoneNumber.hs @@ -0,0 +1,102 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | An Australian phone number: 10 digits, starting with 0 (a mobile or +landline number with its area code), or with 13 or 18 (a 1300 or 1800 +number). + +The constructor is not exported (see "ReOC.Primitive.Text1"). A +@PhoneNumber@ is built with the prism '_PhoneNumber' from its digits, with +'parsePhoneNumber', which also accepts spaces, or with 'phoneNumberLiteral'. +-} +module ReOC.Primitive.PhoneNumber ( + PhoneNumber, + _PhoneNumber, + parsePhoneNumber, + phoneNumberText, + phoneNumberFormatted, + phoneNumberLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Data.Char (isDigit, isSpace) +import Data.Text (Text) +import qualified Data.Text as Text +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) + +{- $setup +>>> :set -XOverloadedStrings +>>> import Control.Lens ((^?)) +-} + +-- | An Australian phone number. +newtype PhoneNumber + = PhoneNumber Text + deriving (Eq, Ord, Show, Lift) + +{- | A phone number from its 10 digits, with no spaces. + +>>> "0491570156" ^? _PhoneNumber +Just (PhoneNumber "0491570156") + +>>> "491570156" ^? _PhoneNumber +Nothing +-} +_PhoneNumber :: Prism' Text PhoneNumber +_PhoneNumber = + prism' + phoneNumberText + ( \t -> + let ds = Text.unpack t + in if length ds == 10 && all isDigit ds && (take 1 ds == "0" || take 2 ds `elem` ["13", "18"]) + then Just (PhoneNumber t) + else Nothing + ) + +{- | A phone number from text that may have spaces between the digits. + +>>> parsePhoneNumber "0491 570 156" +Just (PhoneNumber "0491570156") +-} +parsePhoneNumber :: Text -> Maybe PhoneNumber +parsePhoneNumber = + preview _PhoneNumber . Text.filter (not . isSpace) + +-- | The 10 digits of a phone number. +phoneNumberText :: PhoneNumber -> Text +phoneNumberText (PhoneNumber t) = + t + +{- | A phone number as it is usually written, with spaces: a mobile or a 1300 +or 1800 number in groups of 4, 3 and 3 digits, and a landline as its area +code and two groups of 4 digits. + +>>> phoneNumberFormatted <$> parsePhoneNumber "0491570156" +Just "0491 570 156" + +>>> phoneNumberFormatted <$> parsePhoneNumber "0732101234" +Just "07 3210 1234" +-} +phoneNumberFormatted :: PhoneNumber -> Text +phoneNumberFormatted (PhoneNumber t) = + let groups ns s = + case ns of + [] -> [s] + n : rest -> let (a, b) = Text.splitAt n s in a : groups rest b + in Text.unwords + ( if Text.take 2 t `elem` map Text.pack ["02", "03", "07", "08"] + then groups [2, 4] t + else groups [4, 3] t + ) + +{- | A @PhoneNumber@ literal, checked when the program is compiled. Spaces +are allowed: + +> $$(phoneNumberLiteral "0491 570 156") +-} +phoneNumberLiteral :: String -> Code Q PhoneNumber +phoneNumberLiteral s = + maybe + (Code (fail ("phoneNumberLiteral: not an Australian phone number: " <> show s))) + liftTyped + (parsePhoneNumber (Text.pack s)) diff --git a/src/ReOC/Primitive/Positive.hs b/src/ReOC/Primitive/Positive.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/Positive.hs @@ -0,0 +1,57 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | A whole number greater than zero. + +The constructor is not exported (see "ReOC.Primitive.Text1"). A @Positive@ +is built with the prism '_Positive' or with 'positiveLiteral'. +-} +module ReOC.Primitive.Positive ( + Positive, + _Positive, + positiveNatural, + positiveLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) +import Numeric.Natural (Natural) + +{- $setup +>>> import Control.Lens ((^?)) +-} + +-- | A whole number greater than zero. +newtype Positive + = Positive Natural + deriving (Eq, Ord, Show, Lift) + +{- | A whole number greater than zero. + +>>> (3 :: Natural) ^? _Positive +Just (Positive 3) + +>>> (0 :: Natural) ^? _Positive +Nothing +-} +_Positive :: Prism' Natural Positive +_Positive = + prism' + positiveNatural + (\n -> if n > 0 then Just (Positive n) else Nothing) + +-- | The number of a @Positive@. +positiveNatural :: Positive -> Natural +positiveNatural (Positive n) = + n + +{- | A @Positive@ literal, checked when the program is compiled: + +> $$(positiveLiteral 90) +-} +positiveLiteral :: Natural -> Code Q Positive +positiveLiteral n = + maybe + (Code (fail "positiveLiteral: 0 is not positive")) + liftTyped + (preview _Positive n) diff --git a/src/ReOC/Primitive/Postcode.hs b/src/ReOC/Primitive/Postcode.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/Postcode.hs @@ -0,0 +1,60 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | An Australian postcode: 4 digits. + +The constructor is not exported (see "ReOC.Primitive.Text1"). A @Postcode@ +is built with the prism '_Postcode' or with 'postcodeLiteral'. +-} +module ReOC.Primitive.Postcode ( + Postcode, + _Postcode, + postcodeText, + postcodeLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Data.Char (isDigit) +import Data.Text (Text) +import qualified Data.Text as Text +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) + +{- $setup +>>> :set -XOverloadedStrings +>>> import Control.Lens ((^?)) +-} + +-- | An Australian postcode. +newtype Postcode + = Postcode Text + deriving (Eq, Ord, Show, Lift) + +{- | A postcode from its 4 digits. + +>>> "4000" ^? _Postcode +Just (Postcode "4000") + +>>> "400" ^? _Postcode +Nothing +-} +_Postcode :: Prism' Text Postcode +_Postcode = + prism' + postcodeText + (\t -> if Text.length t == 4 && Text.all isDigit t then Just (Postcode t) else Nothing) + +-- | The 4 digits of a postcode. +postcodeText :: Postcode -> Text +postcodeText (Postcode t) = + t + +{- | A @Postcode@ literal, checked when the program is compiled: + +> $$(postcodeLiteral "4000") +-} +postcodeLiteral :: String -> Code Q Postcode +postcodeLiteral s = + maybe + (Code (fail ("postcodeLiteral: not a postcode: " <> show s))) + liftTyped + (preview _Postcode (Text.pack s)) diff --git a/src/ReOC/Primitive/ReviewMonths.hs b/src/ReOC/Primitive/ReviewMonths.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/ReviewMonths.hs @@ -0,0 +1,60 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | A number of months from 1 to 12: the time from when an entry of the risk +register is made to when it is due for review. The manual requires the +register to be reviewed at least annually. + +The constructor is not exported (see "ReOC.Primitive.Text1"). A +@ReviewMonths@ is built with the prism '_ReviewMonths' or with +'reviewMonthsLiteral'. +-} +module ReOC.Primitive.ReviewMonths ( + ReviewMonths, + _ReviewMonths, + reviewMonthsNatural, + reviewMonthsLiteral, +) where + +import Control.Lens (Prism', preview, prism') +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) +import Numeric.Natural (Natural) + +{- $setup +>>> import Control.Lens ((^?)) +-} + +-- | A number of months from 1 to 12. +newtype ReviewMonths + = ReviewMonths Natural + deriving (Eq, Ord, Show, Lift) + +{- | A number of months from 1 to 12. + +>>> (12 :: Natural) ^? _ReviewMonths +Just (ReviewMonths 12) + +>>> (13 :: Natural) ^? _ReviewMonths +Nothing +-} +_ReviewMonths :: Prism' Natural ReviewMonths +_ReviewMonths = + prism' + reviewMonthsNatural + (\n -> if n >= 1 && n <= 12 then Just (ReviewMonths n) else Nothing) + +-- | The number of months. +reviewMonthsNatural :: ReviewMonths -> Natural +reviewMonthsNatural (ReviewMonths n) = + n + +{- | A @ReviewMonths@ literal, checked when the program is compiled: + +> $$(reviewMonthsLiteral 12) +-} +reviewMonthsLiteral :: Natural -> Code Q ReviewMonths +reviewMonthsLiteral n = + maybe + (Code (fail ("reviewMonthsLiteral: not from 1 to 12: " <> show n))) + liftTyped + (preview _ReviewMonths n) diff --git a/src/ReOC/Primitive/Some.hs b/src/ReOC/Primitive/Some.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/Some.hs @@ -0,0 +1,63 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveTraversable #-} +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE TypeOperators #-} +{-# OPTIONS_GHC -Wall #-} +-- someOne has a constraint (1 <= n) that its body does not use, by design. +{-# OPTIONS_GHC -Wno-redundant-constraints #-} + +{- | From 1 to @n@ values: as many as a part of a document has room for, such +as the rows of a table of CASA Form 101-02. + +The constructor is not exported (see "ReOC.Primitive.Text1"). @Some@ is +built with the prism '_Some' or, for one value, with 'someOne'. It is +'Traversable', so that its values can be changed without changing how many +there are. +-} +module ReOC.Primitive.Some ( + Some, + _Some, + someNonEmpty, + someOne, +) where + +import Control.Lens (Prism', prism') +import Data.List.NonEmpty (NonEmpty (..)) +import Data.Proxy (Proxy (..)) +import GHC.TypeNats (KnownNat, Nat, natVal, type (<=)) + +{- $setup +>>> :set -XDataKinds +>>> :set -XTypeApplications +>>> import Control.Lens ((^?)) +-} + +-- | From 1 to @n@ values. +newtype Some (n :: Nat) a + = Some (NonEmpty a) + deriving (Eq, Ord, Show, Functor, Foldable, Traversable) + +{- | From 1 to @n@ values. + +>>> ('a' :| "bc") ^? _Some @3 +Just (Some ('a' :| "bc")) + +>>> ('a' :| "bcd") ^? _Some @3 +Nothing +-} +_Some :: forall n a. (KnownNat n) => Prism' (NonEmpty a) (Some n a) +_Some = + prism' + someNonEmpty + (\xs -> if fromIntegral (length xs) <= natVal (Proxy :: Proxy n) then Just (Some xs) else Nothing) + +-- | The values. +someNonEmpty :: Some n a -> NonEmpty a +someNonEmpty (Some xs) = + xs + +-- | One value. +someOne :: (1 <= n) => a -> Some n a +someOne x = + Some (x :| []) diff --git a/src/ReOC/Primitive/Text1.hs b/src/ReOC/Primitive/Text1.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Primitive/Text1.hs @@ -0,0 +1,78 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +{- | Text that is not blank (it has at least one character that is not white +space), every character of which XML can hold: no control characters other +than tab, line feed and carriage return, and neither U+FFFE nor U+FFFF. The +documents are XML, so text with any other character would make them invalid. + +Like every primitive type, @Text1@ is outside the classy optics recipe: its +constructor is not exported, so that every value keeps its invariant. It is +built with the prism '_Text1' or, for a literal, with 'text1Literal', which is +checked when the program is compiled. +-} +module ReOC.Primitive.Text1 ( + Text1, + _Text1, + text1Text, + text1Literal, + xmlCharacter, +) where + +import Control.Lens (Prism', preview, prism') +import Data.Char (isSpace) +import Data.Text (Text) +import qualified Data.Text as Text +import Language.Haskell.TH.Syntax (Code (..), Lift, Q, liftTyped) + +{- $setup +>>> :set -XOverloadedStrings +>>> import Control.Lens ((^?)) +-} + +-- | Text that is not blank, and that XML can hold. +newtype Text1 + = Text1 Text + deriving (Eq, Ord, Show, Lift) + +{- | Text that is not blank, and that XML can hold. + +>>> "Banksia Point" ^? _Text1 +Just (Text1 "Banksia Point") + +>>> " \t" ^? _Text1 +Nothing + +>>> "Bad\x01name" ^? _Text1 +Nothing +-} +_Text1 :: Prism' Text Text1 +_Text1 = + prism' + text1Text + (\t -> if Text.any (not . isSpace) t && Text.all xmlCharacter t then Just (Text1 t) else Nothing) + +{- | Whether XML 1.0 can hold a character. + +>>> map xmlCharacter "a\t\x01\xFFFE" +[True,True,False,False] +-} +xmlCharacter :: Char -> Bool +xmlCharacter c = + c == '\t' || c == '\n' || c == '\r' || (c >= '\x20' && c <= '\xD7FF') || (c >= '\xE000' && c <= '\xFFFD') || c >= '\x10000' + +-- | The text of a @Text1@. +text1Text :: Text1 -> Text +text1Text (Text1 t) = + t + +{- | A @Text1@ literal, checked when the program is compiled: + +> $$(text1Literal "Banksia Point Aerial Media") +-} +text1Literal :: String -> Code Q Text1 +text1Literal s = + maybe + (Code (fail ("text1Literal: blank, or a character that XML cannot hold: " <> show s))) + liftTyped + (preview _Text1 (Text.pack s)) diff --git a/src/ReOC/Render/ApplicationForm.hs b/src/ReOC/Render/ApplicationForm.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/ApplicationForm.hs @@ -0,0 +1,318 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | CASA Form 101-02, RPA Operator's Certificate (ReOC) - initial issue / +variation / renewal, filled from a 'ReOC' as XFDF. + +Every answer comes from the value: the application type is always initial +issue, the ReOC number is blank, and the questions that the form's own flow +skips (question 3 when the applicant is the primary contact, questions 13 to +18 and 29 without RePL training, questions 25 and 26 without regulatory +action) are not filled. + +The declaration date is left as the placeholders @${DECLARATION_DAY}@, +@${DECLARATION_MONTH}@ and @${DECLARATION_YEAR}@, which the document build +replaces with the date of the build. +-} +module ReOC.Render.ApplicationForm ( + renderApplicationForm, + applicationFormFields, +) where + +import Data.Foldable (toList) +import Data.List (nub) +import Data.Maybe (isJust) +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Aircraft (rpaName, rpaTypes) +import ReOC.Model +import ReOC.Personnel (nominatedCEO, nominatedCRI, nominatedCRP, nominatedMC) +import ReOC.Render.BlankForm (blankFormFile) +import ReOC.Render.Text (dayParts, escapeXml, get, legalName, rpaCategoryText, weightText) + +-- | The fields of the form, by question: a comment, and the name and value of each field. +applicationFormFields :: ReOC -> [(Text, [(Text, Text)])] +applicationFormFields r = + let c = get (operator . company) r + kp = get (operator . keyPersonnel) r + ceo = get person (nominatedCEO kp) + cp = get chiefPilot kp + af = get applicationForm r + training = get maybeTrainingMaterial r + personFields :: Text -> Person -> (Text, Text, Text, Text) -> (Text, [(Text, Text)]) + personFields prefix p (nameF, arnF, phoneF, emailF) = + ( prefix + , + [ (nameF, formTextText (get fullName p)) + , (arnF, arnText (get arn p)) + , (phoneF, phoneNumberText (get phoneNumber p)) + , (emailF, emailAddressText (get emailAddress p)) + ] + ) + yesNo q = \case + True -> ("Q" <> q <> " Check Yes", "Yes") + False -> ("Q" <> q <> " Check No", "No") + history q a = + case a of + NoHistory -> [yesNo q False] + HistoryDisclosed _ -> [yesNo q True] + disclosed = + [ "Q" <> q <> ": " <> formTextText d + | (q, HistoryDisclosed d) <- + [ ("19", get (personnelHistory . actionTaken) af) + , ("20", get (personnelHistory . transportLicenceRefused) af) + , ("21", get (personnelHistory . criminalConviction) af) + , ("22", get (personnelHistory . suspensionPending) af) + ] + ] + otherDocs = map formTextText (atMostList (get otherDocuments af)) + in concat + [ + [ + ( "1 Applicant" + , + [ ("Q1 Applicant Full Name", legalName c) + , ("Q1 Applicant ARN", arnText (get arn c)) + , ("Q1 ReOC number", "") + , ("Q1 Phone number", phoneNumberText (get phoneNumber c)) + , ("Q1 email address", emailAddressText (get emailAddress c)) + ] + ) + ] + , case get primaryContact af of + ApplicantIsPrimaryContact -> + [("2 Primary contact", [("Q2 Check Yes", "Yes")])] + PrimaryContactPerson contact -> + [ ("2 Primary contact", [("Q2 Check No", "No")]) + , + ( "3 Contact person" + , + [ ("Q3 contact full name", formTextText (get fullName contact)) + , ("Q3 contact position", formTextText (get position contact)) + , ("Q3 Contact Phone number", phoneNumberText (get phoneNumber contact)) + , ("Q3 contact email", emailAddressText (get emailAddress contact)) + ] + ) + ] + , [("4 Application type", [("Q4 application type 1", "Initial issue")])] + , case get businessName c of + Nothing -> + [("5 Registered business name", [("Q5 Check 1", "No")])] + Just n -> + [ ("5 Registered business name", [("Q5 Check 2", "Add new")]) + , ("6 Registered business name to be added", [("Q6 registered Business name", formTextText n)]) + ] + , + [ let (cmt, fs) = + personFields + "7 CEO/Responsible Manager" + ceo + ( "Q7 CEO/Responsible Manager Full Name" + , "Q7 CEO/Responsible Manager ARN" + , "Q7 CEO/Responsible Manager Phone number" + , "Q7 CEO/Responsible Manager email" + ) + in (cmt, fs <> maybe [] (\e -> [("Q7 Multiline", formTextText e)]) (get (chiefExecutive . managementExperience) kp)) + , personFields + "8 Chief Remote Pilot" + (get person (nominatedCRP kp)) + ("Q8 Chief Remote Pilot Full Name", "Q8 Chief Remote Pilot ARN", "Q8 Phone number", "Q8 email") + , + ( "9 How the Chief Remote Pilot obtained the initial RePL" + , case get rePLOrigin cp of + PPLTheory -> [("Q9 option 1", "PPL Theory")] + RePLTraining o -> [("Q9 option 2", "RePL Training"), ("Q9 RePL Training organisation name", formTextText o)] + ) + , ("10 Chief Remote Pilot RPA history and experience", [("Q10 Multiline", formTextText (get rpaHistory cp))]) + , + ( "11 Chief Remote Pilot roles with other ReOC holders" + , case get otherReOCRoles cp of + NoOtherReOCRoles -> [("Q11 Check No", "No")] + OtherReOCRolesHeld d -> [("Q11 Check Yes", "Yes"), ("Q11 Multiline", formTextText d)] + ) + , personFields + "12 Maintenance Controller" + (get person (nominatedMC kp)) + ("Q12 Maintenance Controller Full Name", "Q12 Maintenance Controller ARN", "Q12 Phone number", "Q12 email") + ] + , maybe [] (\t -> trainingQuestions (personFields "13 Chief RePL Instructor" (get person (nominatedCRI kp t))) t) training + , + [ + ( "19-23 Nominated personnel history" + , concat + [ history "19" (get (personnelHistory . actionTaken) af) + , history "20" (get (personnelHistory . transportLicenceRefused) af) + , history "21" (get (personnelHistory . criminalConviction) af) + , history "22" (get (personnelHistory . suspensionPending) af) + , [("Q23 Multiline", Text.intercalate "\n" disclosed) | not (null disclosed)] + ] + ) + ] + , case get regulatoryHistory af of + NoRegulatoryAction -> + [("24 Regulatory action", [yesNo "24" False])] + RegulatoryActionTaken a -> + let (dd, mm, yyyy) = dayParts (get actionDate a) + in [ ("24 Regulatory action", [yesNo "24" True]) + , ("25 ReOC suspended or cancelled", [yesNo "25" (get reocSuspendedOrCancelled a)]) + , + ( "26 Regulatory action details" + , + [ ("Q26 type of action", formTextText (get typeOfAction a)) + , ("Q26 Type of authorisation action taken against you", formTextText (get authorisationAction a)) + , ("Q26 Date the action was taken - Day", dd) + , ("Q26 Date the action was taken - Month", mm) + , ("Q26 Date the action was taken - Year", yyyy) + , ("Q26 Multiline", formTextText (get actionDetails a)) + ] + ) + ] + , + [ + ( "27 RPA type and category" + , concat + [ [ (formField "check" (2 * i - 1), "Yes") + , (formField "cell" (3 * i - 2), rpaCategoryText (get category t)) + , (formField "cell" (3 * i - 1), rpaName t) + , (formField "cell" (3 * i), weightText (grossWeightGrams (get maximumGrossWeight t))) + ] + | (i, t) <- zip [1 :: Int ..] (toList (rpaTypes r)) + ] + ) + , ("28 RePL training", [yesNo "28" (isJust training)]) + , + ( "30 Application checklist" + , concat + [ [("Q30 Checklist 1", "Yes")] + , [("Q30 Checklist 2", "Yes") | get proceduresLibrary af] + , maybe [] trainingChecklist training + , [("Q30 Checklist 14", "Yes") | not (null otherDocs)] + , [("Q17 Checklist other", Text.intercalate "\n" otherDocs) | not (null otherDocs)] + ] + ) + ] + , let (declarantName, capacity) = + case get declaration af of + DeclaredByCEO -> (formTextText (get fullName ceo), [("Q32 role CEO", "CEO")]) + DeclaredByResponsibleManager n -> (formTextText n, [("Q32 role responsible manager", "Responsible Manager")]) + DeclaredByAgent n -> (formTextText n, [("Q32 role agent", "Agent")]) + DeclaredByOther d -> + (formTextText (get fullName d), [("Q32 role other", "Other"), ("Q32 other role authority", formTextText (get role d))]) + in [ + ( "31 Declaration" + , + [ ("Q31 Declaration Full Name", declarantName) + , ("Q31 Declaration Date - Day", "${DECLARATION_DAY}") + , ("Q31 Declaration Date - Month", "${DECLARATION_MONTH}") + , ("Q31 Declaration Date - Year", "${DECLARATION_YEAR}") + ] + ) + , ("32 Capacity", capacity) + ] + ] + where + formField kind n = + "Q27 " <> kind <> " " <> Text.pack (show n) + +-- Questions 13 to 18 and 29, for RePL training, given the fields of the chief RePL instructor. +trainingQuestions :: ((Text, Text, Text, Text) -> (Text, [(Text, Text)])) -> TrainingMaterial -> [(Text, [(Text, Text)])] +trainingQuestions criFields t = + let intents = + concat + [ case get rePLHolding t of + HoldsRePLForEachType -> [] + RePLHoldingIntent i -> ["Q14: " <> formTextText i] + , case get teachingQualification t of + TeachingQualificationHeld _ -> [] + TeachingQualificationIntent i -> ["Q15: " <> formTextText i] + , case get operationalExperience t of + HasOperationalExperience -> [] + OperationalExperienceIntent i -> ["Q16: " <> formTextText i] + OperationalExperienceNotApplicable -> [] + ] + in [ criFields ("Q13 Chief RePL Instructor Full Name", "Q13 Chief RePL Instructor ARN", "Q13 Phone number", "Q13 email") + , + ( "14-17 Chief RePL Instructor qualifications" + , concat + [ case get rePLHolding t of + HoldsRePLForEachType -> [("Q14 Check Yes", "Yes")] + RePLHoldingIntent _ -> [("Q14 Check No", "No")] + , case get teachingQualification t of + TeachingQualificationHeld d -> [("Q15 Check Yes", "Yes"), ("Q15 Provide details of qualifications", formTextText d)] + TeachingQualificationIntent _ -> [("Q15 Check No", "No")] + , case get operationalExperience t of + HasOperationalExperience -> [("Q16 Check Yes", "Yes")] + OperationalExperienceIntent _ -> [("Q16 Check No", "No")] + OperationalExperienceNotApplicable -> [("Q16 Check Not applicable ", "Not applicable")] + , [("Q17 Multiline", Text.intercalate "\n" intents) | not (null intents)] + ] + ) + , + ( "18 Chief RePL Instructor roles with other ReOC holders" + , case get criOtherReOCRoles t of + NoOtherReOCRoles -> [("Q18 Check No", "No")] + OtherReOCRolesHeld d -> [("Q18 Check yes", "Yes"), ("Q18 Multiline", formTextText d)] + ) + , ("29 RePL training courses", concat (zipWith courseRow [1 ..] (toList (get trainingCourses t)))) + ] + where + -- A row of question 29: the category and weight class are those of the course's training RPA. + courseRow :: Int -> TrainingCourse -> [(Text, Text)] + courseRow i c = + let base = 16 * (i - 1) + check k = "Q29 check " <> Text.pack (show (base + k)) + on k = (check k, "Yes") + rpa = get (trainingRPA . rpaType) c + in concat + [ [(check 1, if i == 1 then "add" else "Yes")] + , + [ on $ case get courseKind c of + InitialCourse -> 3 + UpgradeSameCategory -> 4 + UpgradeDifferentCategory -> 5 + ] + , + [ on $ case get category rpa of + Multirotor -> 6 + Helicopter -> 7 + PoweredLift -> 8 + Aeroplane -> 9 + ] + , [on (if grossWeightGrams (get maximumGrossWeight rpa) <= 7000 then 10 else 11)] + , [("Q29 cell " <> Text.pack (show i), rpaName rpa)] + , nub + [ on $ case x of + AutomatedAndManual -> 14 + AutomatedOnly -> 15 + | x <- toList (get complexities c) + ] + ] + +-- Question 30, items 3 to 12: the RePL training documents, all of which the RePL training manual holds. A +-- safety case (item 13) is for medium and large RPA, which the operations manual does not cover. +trainingChecklist :: TrainingMaterial -> [(Text, Text)] +trainingChecklist _ = + [("Q30 Checklist " <> Text.pack (show k), "Yes") | k <- [3 .. 12 :: Int]] + +{- | The XFDF of CASA Form 101-02. It names the blank form by its file name +('blankFormFile'), which 'ReOC.Render.Write.writeDocuments' writes beside it. +-} +renderApplicationForm :: ReOC -> Text +renderApplicationForm r = + Text.unlines $ + [ "" + , "" + , " escapeXml (Text.pack blankFormFile) <> "\"/>" + , " " + ] + <> concatMap question (applicationFormFields r) + <> [ " " + , "" + ] + where + question (cmt, fs) = + (" ") + : [ " escapeXml n <> "\">" <> escapeXml v <> "" + | (n, v) <- fs + ] diff --git a/src/ReOC/Render/Base64.hs b/src/ReOC/Render/Base64.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Base64.hs @@ -0,0 +1,47 @@ +{-# OPTIONS_GHC -Wall #-} + +-- | Base64, for images embedded in Flat ODF text. +module ReOC.Render.Base64 ( + base64, +) where + +import Data.Bits (shiftL, shiftR, (.&.), (.|.)) +import Data.ByteString (ByteString) +import qualified Data.ByteString as ByteString +import Data.Text (Text) +import qualified Data.Text as Text +import Data.Word (Word8) + +{- $setup +>>> import qualified Data.ByteString.Char8 as Char8 +-} + +{- | The base64 encoding of bytes (RFC 4648), with padding. + +>>> base64 (Char8.pack "Man") +"TWFu" + +>>> base64 (Char8.pack "Ma") +"TWE=" + +>>> base64 (Char8.pack "M") +"TQ==" +-} +base64 :: ByteString -> Text +base64 = + Text.pack . go . ByteString.unpack + where + go (a : b : c : rest) = + quad a b c <> go rest + go [a, b] = + take 3 (quad a b 0) <> "=" + go [a] = + take 2 (quad a 0 0) <> "==" + go [] = + [] + quad :: Word8 -> Word8 -> Word8 -> String + quad a b c = + let n = (fromIntegral a `shiftL` 16) .|. (fromIntegral b `shiftL` 8) .|. fromIntegral c :: Int + in map (\k -> alphabet !! ((n `shiftR` k) .&. 63)) [18, 12, 6, 0] + alphabet = + ['A' .. 'Z'] <> ['a' .. 'z'] <> ['0' .. '9'] <> "+/" diff --git a/src/ReOC/Render/BlankForm.hs b/src/ReOC/Render/BlankForm.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/BlankForm.hs @@ -0,0 +1,23 @@ +{-# LANGUAGE TemplateHaskell #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The blank CASA Form 101-02, which the XFDF of the application form fills, +read from @etc/casa@ when the package is compiled. +-} +module ReOC.Render.BlankForm ( + blankForm, + blankFormFile, +) where + +import Data.ByteString (ByteString) +import ReOC.Render.Embed (embedFileBytes) + +-- | The blank CASA Form 101-02 (PDF). +blankForm :: ByteString +blankForm = + $(embedFileBytes "etc/casa/rpa-operators-certificate-reoc-initial-issue-variation-renewal-form-101-02.pdf") + +-- | The file name of the blank form, which the XFDF names, and which it is written beside. +blankFormFile :: FilePath +blankFormFile = + "rpa-operators-certificate-reoc-initial-issue-variation-renewal-form-101-02.pdf" diff --git a/src/ReOC/Render/BuildInfo.hs b/src/ReOC/Render/BuildInfo.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/BuildInfo.hs @@ -0,0 +1,55 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The values of the placeholders that the document build fills: the commit +that the documents are built from, where they are published, and the date of +the declaration. The documents keep the placeholders, so that the build +records its own values; 'fillPlaceholders' fills them for documents made +outside the build, such as from GHCi. +-} +module ReOC.Render.BuildInfo ( + BuildInfo (..), + placeholders, + fillPlaceholders, +) where + +import Data.Text (Text) +import qualified Data.Text as Text +import Data.Time.Calendar (Day) +import ReOC.Render.Text (dayParts, escapeXml) + +{- $setup +>>> :set -XOverloadedStrings +>>> import Data.Time.Calendar (fromGregorian) +-} + +-- | The values of the placeholders of the document build. +data BuildInfo = BuildInfo + { buildCommitSha :: Text + -- ^ @${CI_COMMIT_SHA}@: the commit that the documents are built from + , buildPagesUrl :: Text + -- ^ @${CI_PAGES_URL}@: where the documents are published + , buildDeclarationDate :: Day + -- ^ @${DECLARATION_DAY}@, @${DECLARATION_MONTH}@ and @${DECLARATION_YEAR}@: the date of the declaration of the application + } + deriving (Eq, Ord, Show) + +-- | Each placeholder of the document build, with its value, escaped for XML. +placeholders :: BuildInfo -> [(Text, Text)] +placeholders b = + let (dd, mm, yyyy) = dayParts (buildDeclarationDate b) + in [ ("${CI_COMMIT_SHA}", escapeXml (buildCommitSha b)) + , ("${CI_PAGES_URL}", escapeXml (buildPagesUrl b)) + , ("${DECLARATION_DAY}", dd) + , ("${DECLARATION_MONTH}", mm) + , ("${DECLARATION_YEAR}", yyyy) + ] + +{- | Fills the placeholders of the document build in a document. + +>>> fillPlaceholders (BuildInfo "abc123" "https://example.net" (fromGregorian 2026 10 23)) "${CI_COMMIT_SHA} ${DECLARATION_DAY}/${DECLARATION_MONTH}/${DECLARATION_YEAR}" +"abc123 23/10/2026" +-} +fillPlaceholders :: BuildInfo -> Text -> Text +fillPlaceholders b t = + foldl (\acc (k, v) -> Text.replace k v acc) t (placeholders b) diff --git a/src/ReOC/Render/Embed.hs b/src/ReOC/Render/Embed.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Embed.hs @@ -0,0 +1,18 @@ +{-# OPTIONS_GHC -Wall #-} + +-- | Files of the package, read when it is compiled. +module ReOC.Render.Embed ( + embedFileBytes, +) where + +import qualified Data.ByteString as ByteString +import Language.Haskell.TH (Exp, Q, runIO) +import Language.Haskell.TH.Syntax (addDependentFile, lift) + +{- | The contents of a file, relative to the package, as a @ByteString@ +expression: the package recompiles when the file changes. +-} +embedFileBytes :: FilePath -> Q Exp +embedFileBytes path = do + addDependentFile path + runIO (ByteString.readFile path) >>= lift diff --git a/src/ReOC/Render/Error.hs b/src/ReOC/Render/Error.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Error.hs @@ -0,0 +1,72 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The errors of filling in a form, as text: where each is, what is wrong, +and the help text of its field. + +>>> import qualified Data.Text.IO as Text +>>> import ReOC.Model +>>> Text.putStrLn (renderPath [StepField ReOCOperator, StepField OperatorFleet, StepIndex 1, StepField OperatedTypeAirframes]) +operator › fleet › 2 › airframes +-} +module ReOC.Render.Error ( + renderPath, + renderInvalidValue, + renderReOCError, + renderReOCErrors, +) where + +import Data.Foldable (toList) +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Help (fieldHelp, fieldLabel) +import ReOC.Model + +-- | A path, as the labels of its fields, and each index of a list counted from 1. +renderPath :: [Step] -> Text +renderPath = + Text.intercalate " › " . map label + where + label = \case + StepField f -> fieldLabel f + StepIndex i -> Text.pack (show (i + 1)) + +-- | What is wrong with an invalid value. +renderInvalidValue :: InvalidValue -> Text +renderInvalidValue = \case + InvalidText1 t -> quoted t <> " is blank, or has a character that a document cannot hold" + InvalidFormText t -> quoted t <> " does not fit its box on the form, or has a character that the form cannot show" + InvalidABN t -> quoted t <> " is not an ABN: 11 digits with valid check digits" + InvalidARN t -> quoted t <> " is not an ARN: digits only" + InvalidEmailAddress t -> quoted t <> " is not an email address that fits the form" + InvalidPhoneNumber t -> quoted t <> " is not an Australian phone number" + InvalidPostcode t -> quoted t <> " is not a four-digit postcode" + InvalidPositive n -> number n <> " is not a positive number" + InvalidPercentage n -> number n <> " is not a percentage from 0 to 100" + InvalidGrossWeight n -> number n <> " g is not a gross weight from 1 g to 25 kg" + InvalidReviewMonths n -> number n <> " is not a number of months from 1 to 12" + InvalidPassMark n -> number n <> " is not a pass mark from 70 to 100" + where + quoted t = "“" <> t <> "”" + number = Text.pack . show + +-- The help text of the field at the end of a path, if it ends at a field. +helpAt :: [Step] -> Text +helpAt p = + case [f | StepField f <- reverse p] of + f : _ -> " (" <> fieldHelp f <> ")" + [] -> "" + +-- | An error: where it is, what is wrong, and the help text of the field. +renderReOCError :: ReOCError -> Text +renderReOCError = \case + ReOCErrorUnfilled (Unfilled p) -> renderPath p <> ": not filled in" <> helpAt p + ReOCErrorInvalid (Invalid p v) -> renderPath p <> ": " <> renderInvalidValue v <> helpAt p + ReOCErrorTooMany (TooMany p most given) -> + renderPath p <> ": " <> Text.pack (show given) <> " given, but it holds at most " <> Text.pack (show most) <> helpAt p + +-- | Errors, one to a line. +renderReOCErrors :: (Foldable t) => t ReOCError -> Text +renderReOCErrors = + Text.unlines . map renderReOCError . toList diff --git a/src/ReOC/Render/Markdown.hs b/src/ReOC/Render/Markdown.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Markdown.hs @@ -0,0 +1,185 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The markdown of the RePL training manual template, and its Flat ODF text +in the styles of the document templates. + +The markdown is a small part of markdown: headings (@#@ to @####@), +paragraphs, bulleted lists (@-@, nested by two spaces), numbered lists +(@1.@), pipe tables with a header row, @**strong**@, @*emphasis*@, and a +backslash before a character to write it as it is. +-} +module ReOC.Render.Markdown ( + parseMarkdown, + escapeMarkdown, + inline, + renderBlocks, +) where + +import Data.Char (isDigit, isSpace) +import Data.Maybe (isJust, mapMaybe) +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Render.Markdown.Block (Block (..)) +import ReOC.Render.Text (escapeXml) + +{- $setup +>>> :set -XOverloadedStrings +-} + +{- | Text written so that markdown shows it as it is. + +>>> escapeMarkdown "a*b|c" +"a\\*b\\|c" +-} +escapeMarkdown :: Text -> Text +escapeMarkdown = + Text.concatMap + ( \c -> + if c `elem` ("\\*|#-." :: String) + then Text.pack ['\\', c] + else if c == '\n' || c == '\r' then " " else Text.singleton c + ) + +{- | The blocks of markdown. + +>>> parseMarkdown "# Title\n\nSome *text*.\n\n- one\n - two\n\n| a | b |\n|---|---|\n| 1 | 2 |\n" +[Heading 1 "Title",Paragraph "Some *text*.",Bullets [(0,"one"),(1,"two")],Table ["a","b"] [["1","2"]]] +-} +parseMarkdown :: Text -> [Block] +parseMarkdown = + go . Text.lines + where + go = \case + [] -> [] + l : ls + | Text.all isSpace l -> go ls + | Just (n, t) <- heading l -> Heading n t : go ls + | Just _ <- bullet l -> + let (items, rest) = span (isJust . bullet) (l : ls) + in Bullets (mapMaybe bullet items) : go rest + | Just _ <- number l -> + let (items, rest) = span (isJust . number) (l : ls) + in Numbered (mapMaybe number items) : go rest + | "|" `Text.isPrefixOf` Text.stripStart l -> + let (rows, rest) = span (\x -> "|" `Text.isPrefixOf` Text.stripStart x) (l : ls) + in table rows : go rest + | otherwise -> + let (para, rest) = break ends (l : ls) + in Paragraph (Text.unwords (map Text.strip para)) : go rest + ends x = + Text.all isSpace x || isJust (heading x) || isJust (bullet x) || isJust (number x) || "|" `Text.isPrefixOf` Text.stripStart x + heading l = + let (hashes, rest) = Text.span (== '#') l + n = Text.length hashes + in if n >= 1 && n <= 6 && " " `Text.isPrefixOf` rest then Just (min 4 n, Text.strip rest) else Nothing + bullet l = + let (indent, rest) = Text.span (== ' ') l + in case Text.uncons rest of + Just (c, r) | c `elem` ("-*" :: String), " " `Text.isPrefixOf` r -> Just (Text.length indent `div` 2, Text.strip r) + _ -> Nothing + number l = + let (digits, rest) = Text.span isDigit (Text.stripStart l) + in if not (Text.null digits) && ". " `Text.isPrefixOf` rest then Just (Text.strip (Text.drop 2 rest)) else Nothing + table rows = + let cells = map splitRow rows + isRule = all (\c -> not (Text.null c) && Text.all (`elem` ("-: " :: String)) c) + in case cells of + h : r : rest | isRule r -> Table h rest + h : rest -> Table h (filter (not . isRule) rest) + [] -> Table [] [] + splitRow r = + let inner = Text.dropWhileEnd (== '|') (Text.dropWhile (== '|') (Text.strip r)) + in map Text.strip (splitUnescaped inner) + splitUnescaped t = + case Text.uncons t of + Nothing -> [""] + Just ('\\', rest) -> + case Text.uncons rest of + Just (c, more) -> prepend (Text.pack ['\\', c]) (splitUnescaped more) + Nothing -> ["\\"] + Just ('|', rest) -> "" : splitUnescaped rest + Just (c, rest) -> prepend (Text.singleton c) (splitUnescaped rest) + prepend p = \case + x : xs -> (p <> x) : xs + [] -> [p] + +{- | Inline markdown as Flat ODF text. + +>>> inline "a **b** *c* \\* & d" +"a b c * & d" +-} +inline :: Text -> Text +inline = + go False False + where + go strong em t = + case Text.uncons t of + Nothing -> close strong em + Just ('\\', rest) | Just (c, more) <- Text.uncons rest -> escapeXml (Text.singleton c) <> go strong em more + Just ('*', rest) + | "*" `Text.isPrefixOf` rest -> (if strong then "" else "") <> go (not strong) em (Text.drop 1 rest) + | otherwise -> (if em then "" else "") <> go strong (not em) rest + Just (c, rest) -> escapeXml (Text.singleton c) <> go strong em rest + close strong em = + Text.replicate (fromEnum strong + fromEnum em) "" + +{- | Blocks as Flat ODF text: the body, and the entries of its table of +contents (its headings of levels 1 and 2), which link to the headings. +-} +renderBlocks :: [Block] -> (Text, Text) +renderBlocks blocks = + let numbered = zip [1 :: Int ..] blocks + body = Text.concat (map block numbered) + contents = + Text.concat + [ " Text.pack (show n) <> "\"> anchor i <> "\" text:style-name=\"Index_20_Link\" text:visited-style-name=\"Index_20_Link\">" <> inline t <> "" + | (i, Heading n t) <- numbered + , n <= 2 + ] + in (body, contents) + where + anchor i = + "RTHeading" <> Text.pack (show i) + block (i, b) = + case b of + Heading n t -> + let l = Text.pack (show n) + in " l <> "\" text:outline-level=\"" <> l <> "\"> anchor i <> "\"/>" <> inline t <> "" + Paragraph t -> + "" <> inline t <> "" + Bullets items -> + bullets 0 items + Numbered items -> + "" + <> Text.concat ["" <> inline t <> "" | t <- items] + <> "" + Table header rows -> + let width = maximum (length header : map length rows) + pad r = take width (r <> repeat "") + cell style pstyle t = " style <> "\" office:value-type=\"string\"> pstyle <> "\">" <> inline t <> "" + row style pstyle r = "" <> Text.concat (map (cell style pstyle) (pad r)) <> "" + headerRow = + if all Text.null header + then "" + else "" <> row "RTHeadCell" "Table_20_Header" header <> "" + in " Text.pack (show i) + <> "\" table:style-name=\"RTTable\"> Text.pack (show width) + <> "\"/>" + <> headerRow + <> Text.concat (map (row "RTCell" "Table_20_text") rows) + <> "" + -- a list of the items at a level, each with the items under it + bullets :: Int -> [(Int, Text)] -> Text + bullets level items = + " (if level == 0 then " text:style-name=\"WWNum3\"" else "") <> ">" <> Text.concat (items' level items) <> "" + items' level = \case + [] -> [] + (_, t) : rest -> + let (under, after) = span (\(l, _) -> l > level) rest + style = if level == 0 then "P101" else "P102" + in (" style <> "\">" <> inline t <> "" <> (if null under then "" else bullets (level + 1) under) <> "") + : items' level after diff --git a/src/ReOC/Render/Markdown/Block.hs b/src/ReOC/Render/Markdown/Block.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Markdown/Block.hs @@ -0,0 +1,22 @@ +{-# OPTIONS_GHC -Wall #-} + +-- | A block of the markdown of the RePL training manual template. +module ReOC.Render.Markdown.Block ( + Block (..), +) where + +import Data.Text (Text) + +-- | A block of markdown. Text is inline markdown: @**strong**@, @*emphasis*@ and backslash escapes. +data Block + = -- | A heading, with its level (1 to 4). + Heading Int Text + | -- | A paragraph. + Paragraph Text + | -- | A bulleted list: each item with its level of nesting, from 0. + Bullets [(Int, Text)] + | -- | A numbered list. + Numbered [Text] + | -- | A table: its header row and its other rows. + Table [Text] [[Text]] + deriving (Eq, Show) diff --git a/src/ReOC/Render/Odf.hs b/src/ReOC/Render/Odf.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Odf.hs @@ -0,0 +1,74 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | Elements of Flat ODF text, in the styles of the document templates. The +text given to each function is plain text, which is escaped; the elements +given to 'listItem' and 'row' are XML. +-} +module ReOC.Render.Odf ( + paragraph, + paragraphXml, + heading, + bulletList, + listItem, + nestedBulletList, + cell, + row, +) where + +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Render.Text (escapeXml) + +-- | A paragraph of text in a style. +paragraph :: Text -> Text -> Text +paragraph style t = + paragraphXml style (escapeXml t) + +-- | A paragraph of XML in a style. +paragraphXml :: Text -> Text -> Text +paragraphXml style x = + " style <> "\">" <> x <> "" + +-- | A heading of text at an outline level, in the style of headings of that level. +heading :: Int -> Text -> Text +heading level t = + let l = Text.pack (show level) + in " l <> "\" text:outline-level=\"" <> l <> "\">" <> escapeXml t <> "" + +-- | A list item with XML. +listItem :: Text -> Text +listItem x = + "" <> x <> "" + +-- | A bulleted list of text. +bulletList :: [Text] -> Text +bulletList items = + nestedBulletList [(t, []) | t <- items] + +-- | A bulleted list of text, each item with a bulleted list of text under it. +nestedBulletList :: [(Text, [Text])] -> Text +nestedBulletList items = + "" + <> Text.concat + [ listItem + ( paragraph "P101" t + <> if null sub then "" else "" <> Text.concat [listItem (paragraph "P102" u) | u <- sub] <> "" + ) + | (t, sub) <- items + ] + <> "" + +-- | A table cell with a paragraph of text: the style of the cell, then of the paragraph. +cell :: Text -> Text -> Text -> Text +cell cellStyle paragraphStyle t = + " cellStyle + <> "\" office:value-type=\"string\">" + <> paragraph paragraphStyle t + <> "" + +-- | A table row of cells, in a style. +row :: Text -> [Text] -> Text +row rowStyle cells = + " rowStyle <> "\">" <> Text.concat cells <> "" diff --git a/src/ReOC/Render/OperationsManual.hs b/src/ReOC/Render/OperationsManual.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/OperationsManual.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE TemplateHaskell #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The RPAS operations manual of a 'ReOC', as Flat ODF text. + +The manual is the template @template/rpas-operations-manual.fodt@, read when +the package is compiled, with each hole filled from the value (see +"ReOC.Render.OperationsManual.Holes"). The placeholders of the document +build, @${CI_COMMIT_SHA}@ and @${CI_PAGES_URL}@, are kept, so that each build +gives the version it was built from. +-} +module ReOC.Render.OperationsManual ( + renderOperationsManual, +) where + +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Data.ReOC (ReOC) +import ReOC.Render.OperationsManual.Holes +import ReOC.Render.Template (embedTemplate) + +template :: [Either Text (ReOC -> Text)] +template = + $(embedTemplate "template/rpas-operations-manual.fodt") + +-- | The operations manual, as Flat ODF text. +renderOperationsManual :: ReOC -> Text +renderOperationsManual r = + Text.concat (map (either id ($ r)) template) diff --git a/src/ReOC/Render/OperationsManual/Diagram.hs b/src/ReOC/Render/OperationsManual/Diagram.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/OperationsManual/Diagram.hs @@ -0,0 +1,127 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The organisational diagram of the operations manual (Section 1.1.3), drawn +from the key positions: the CEO, the positions that report to the CEO, and +the remote pilots, who report to the chief remote pilot. Each position shows +its holder. +-} +module ReOC.Render.OperationsManual.Diagram ( + organisationalDiagramSvg, + organisationalDiagramDescription, + organisationalDiagramFrame, +) where + +import Data.Text (Text) +import qualified Data.Text as Text +import Data.Text.Encoding (encodeUtf8) +import ReOC.Model +import ReOC.Personnel (keyPositions, soleHolder) +import ReOC.Render.Base64 (base64) +import ReOC.Render.Text (escapeXml, get, listing) + +-- A box of the diagram: its centre, its title and its holder. +type Box = (Int, Int, Text, Text) + +boxWidth, boxHeight, fontSize :: Int +boxWidth = 420 +boxHeight = 100 +fontSize = 25 + +-- The boxes and lines of the diagram, in units of 0.1 mm. +layout :: ReOC -> ([Box], [(Int, Int, Int, Int)]) +layout r = + let ps = keyPositions r + name :: Nominee -> Text + name n = formTextText (get (person . fullName) n) + title a t = Text.toUpper (Text.take 1 t) <> Text.drop 1 t <> " (" <> a <> ")" + reports = [(a, t, n) | (a, t, n) <- ps, a /= "CEO"] + count = length reports + spacing = 1320 `div` max 1 count + centres = [spacing * k + spacing `div` 2 | k <- [0 .. count - 1]] + ceo = [(660, 70, title a t, name n) | (a, t, n) <- ps, a == "CEO"] + second = [(x, 290, title a t, name n) | (x, (a, t, n)) <- zip centres reports] + crpX = case [x | (x, (a, _, _)) <- zip centres reports, a == "CRP"] of + x : _ -> x + [] -> 660 + rpHolder = case get (operationsManual . pilots) r of + CRPIsOnlyRemotePilot -> "The CRP" + OtherRemotePilots -> "The CRP and engaged RPs" + rp = [(crpX, 490, "Remote pilot (RP)", rpHolder)] + half = boxHeight `div` 2 + minX = foldr min 660 centres + maxX = foldr max 660 centres + ls = + [(660, 70 + half, 660, 190), (minX, 190, maxX, 190)] + <> [(x, 190, x, 290 - half) | x <- centres] + <> [(crpX, 290 + half, crpX, 490 - half)] + in (ceo <> second <> rp, ls) + +-- An estimate of the width of text in the diagram's font, from the widths of the form's widest font. +estimatedWidth :: Text -> Int +estimatedWidth t = + round (maybe (fromIntegral (Text.length t) * 0.6) (* 0.1) (textWidth Wide t) * fromIntegral fontSize :: Double) + +-- | The diagram, as SVG. +organisationalDiagramSvg :: ReOC -> Text +organisationalDiagramSvg r = + let (boxes, ls) = layout r + n = Text.pack . show + line (x1, y1, x2, y2) = + " n x1 <> "\" y1=\"" <> n y1 <> "\" x2=\"" <> n x2 <> "\" y2=\"" <> n y2 <> "\" stroke=\"#1f3864\" stroke-width=\"4\"/>" + textAt x y weight t = + let inner = boxWidth - 24 + widthOf = estimatedWidth t * (if weight == "bold" then 11 else 10) `div` 10 + fit = if widthOf > inner then " textLength=\"" <> n inner <> "\" lengthAdjust=\"spacingAndGlyphs\"" else "" + in " n x + <> "\" y=\"" + <> n y + <> "\" text-anchor=\"middle\" font-family=\"Liberation Sans, Arial, Helvetica, sans-serif\" font-size=\"" + <> n fontSize + <> "\" font-weight=\"" + <> weight + <> "\"" + <> fit + <> ">" + <> escapeXml t + <> "" + box (x, y, t, h) = + " n (x - boxWidth `div` 2) + <> "\" y=\"" + <> n (y - boxHeight `div` 2) + <> "\" width=\"" + <> n boxWidth + <> "\" height=\"" + <> n boxHeight + <> "\" rx=\"10\" fill=\"#ffffff\" stroke=\"#1f3864\" stroke-width=\"4\"/>" + <> textAt x (y - 8) "bold" t + <> textAt x (y + 28) "normal" h + in "" + <> "" + <> Text.concat (map line ls) + <> Text.concat (map box boxes) + <> "" + +-- | A description of the diagram, for readers who cannot see it. +organisationalDiagramDescription :: ReOC -> Text +organisationalDiagramDescription r = + let ps = keyPositions r + reports = [t | (a, t, _) <- ps, a /= "CEO"] + held = + case soleHolder r of + Just _ -> "All positions are held by one person." + Nothing -> Text.unwords [formTextText (get (person . fullName) n) <> " holds the position of " <> t <> "." | (_, t, n) <- ps] + in "Organisational diagram: CEO; " <> listing reports <> " report to the CEO; remote pilots report to the chief remote pilot. " <> held + +-- | The diagram as a frame of Flat ODF text, with the SVG embedded. +organisationalDiagramFrame :: ReOC -> Text +organisationalDiagramFrame r = + "" + <> "" + <> base64 (encodeUtf8 (organisationalDiagramSvg r)) + <> "" + <> "" + <> escapeXml (organisationalDiagramDescription r) + <> "" diff --git a/src/ReOC/Render/OperationsManual/Holes.hs b/src/ReOC/Render/OperationsManual/Holes.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/OperationsManual/Holes.hs @@ -0,0 +1,669 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The holes of the operations manual template. The hole @{{legal-name}}@ +in @template/rpas-operations-manual.fodt@ is filled by 'holeLegalName', and so +on for every hole; the template is read when the package is compiled, and a +hole without a function fails to compile (see "ReOC.Render.Template"). + +Every function gives XML: text is escaped, and the holes of rows and +paragraphs give whole elements. +-} +module ReOC.Render.OperationsManual.Holes ( + holeAbn, + holeAircraftRows, + holeAlcoholHours, + holeAmendmentRows, + holeAssociatedEquipment, + holeBackupInterval, + holeBatteryReserve, + holeCeoArn, + holeCeoName, + holeCheckingMonths, + holeCheckingOnlyRp, + holeChiefReplInstructorRow, + holeCrewing, + holeCrpArn, + holeCrpDateApproved, + holeCrpName, + holeCrpRadio, + holeDutyHours, + holeFleetOverview, + holeFlightTermination, + holeIndependentReview, + holeIndependentReviewYears, + holeInspectionHours, + holeInspectionMonths, + holeKeyPersonnelQualifications, + holeKeyPersonnelVacancy, + holeLegalName, + holeManufacturerInstructions, + holeManufacturerMaintenance, + holeMcArn, + holeMcName, + holeMultipleKeyPositions, + holeOperationalHeadquarters, + holeOrganisationArn, + holeOrganisationEmail, + holeOrganisationName, + holeOrganisationPhone, + holeOrganisationStructure, + holeOrganisationalDiagram, + holeOrganisationalDiagramNote, + holePeriodicInspectionItems, + holePersonnelPreface, + holePersonnelReference, + holeRecencyDays, + holeRecencyFlights, + holeRefresherMonths, + holeRegisteredOffice, + holeReplTrainingInternal, + holeReplTrainingOverview, + holeRestHours, + holeReviewDate, + holeRiskRegisterRows, + holeRpaRegisterRows, + holeServices, + holeTradingName, + holeTransponderFit, + holeTypeSpecificProcedures, + holeVersion, + holeVersionDate, + singlePersonOrganisation, + weightLimitText, +) where + +import Data.Foldable (toList) +import Data.List (nub) +import Data.Maybe (isJust, mapMaybe) +import Data.Text (Text) +import qualified Data.Text as Text +import Numeric.Natural (Natural) +import ReOC.Aircraft (heaviestGrams, operatedTypes, rpaName, rpaTypes) +import ReOC.Amendment (amendmentRecord, manualDate, manualReviewDate, manualVersion) +import ReOC.Model +import ReOC.Personnel (holders, keyPositions, nominatedCEO, nominatedCRI, nominatedCRP, nominatedMC, soleHolder) +import ReOC.Render.Odf (bulletList, cell, heading, nestedBulletList, paragraph, paragraphXml, row) +import ReOC.Render.OperationsManual.Diagram (organisationalDiagramFrame) +import ReOC.Render.Text +import ReOC.Risk (consequenceValue, keyPositionAbbreviation, likelihoodValue, riskLevelOf, riskRating, riskReviewDue) + +-- | Escaped text. +text :: Text -> Text +text = + escapeXml + +organisationName :: ReOC -> Text +organisationName = + formTextText . get (operator . company . companyName) + +nameOf :: Nominee -> Text +nameOf = + formTextText . get (person . fullName) + +arnOf :: Nominee -> Text +arnOf = + arnText . get (person . arn) + +{- | Whether the operator is one person: one person holds every key position, +is the only remote pilot, and conducts only solo operations. +-} +singlePersonOrganisation :: ReOC -> Bool +singlePersonOrganisation r = + isJust (soleHolder r) + && get (operationsManual . pilots) r == CRPIsOnlyRemotePilot + && get (operationsManual . crew) r == SoloOperationsOnly + +-- The key positions, abbreviated, for the sentences that list them. +positionsAbbreviated :: ReOC -> Text +positionsAbbreviated = + andList . map (\(a, _, _) -> a) . keyPositions + +-- | The legal name of the company. +holeLegalName :: ReOC -> Text +holeLegalName = + text . legalName . get (operator . company) + +-- | The name of the company, without @Pty Ltd@. +holeOrganisationName :: ReOC -> Text +holeOrganisationName = + text . organisationName + +-- | The version of the manual: the version of its last amendment. +holeVersion :: ReOC -> Text +holeVersion = + text . versionText . manualVersion . get operationsManual + +-- | The date of the manual: the date of its last amendment. +holeVersionDate :: ReOC -> Text +holeVersionDate = + text . monthText . manualDate . get operationsManual + +-- | The date by which the manual is next reviewed: 12 months after its date. +holeReviewDate :: ReOC -> Text +holeReviewDate = + text . monthText . manualReviewDate . get operationsManual + +holeCeoName, holeCeoArn, holeCrpName, holeCrpArn, holeMcName, holeMcArn :: ReOC -> Text +holeCeoName = text . nameOf . nominatedCEO . get (operator . keyPersonnel) +holeCeoArn = text . arnOf . nominatedCEO . get (operator . keyPersonnel) +holeCrpName = text . nameOf . nominatedCRP . get (operator . keyPersonnel) +holeCrpArn = text . arnOf . nominatedCRP . get (operator . keyPersonnel) +holeMcName = text . nameOf . nominatedMC . get (operator . keyPersonnel) +holeMcArn = text . arnOf . nominatedMC . get (operator . keyPersonnel) + +-- | The ARN of the company. +holeOrganisationArn :: ReOC -> Text +holeOrganisationArn = + text . arnText . get (operator . company . arn) + +-- | The phone number of the company. +holeOrganisationPhone :: ReOC -> Text +holeOrganisationPhone = + text . phoneNumberFormatted . get (operator . company . phoneNumber) + +-- | The email address of the company. +holeOrganisationEmail :: ReOC -> Text +holeOrganisationEmail = + text . emailAddressText . get (operator . company . emailAddress) + +-- | The registered office of the company. +holeRegisteredOffice :: ReOC -> Text +holeRegisteredOffice = + text . addressText . get (operator . company . registeredOffice) + +-- | The ABN of the company. +holeAbn :: ReOC -> Text +holeAbn = + text . abnFormatted . get (operator . company . abn) + +-- | The operational headquarters of the company. +holeOperationalHeadquarters :: ReOC -> Text +holeOperationalHeadquarters r = + text $ case get (operator . company . operationalHeadquarters) r of + AtRegisteredOffice -> "As for the registered office address" + OperationalHeadquartersAddress a -> addressText a + +-- | The trading name of the company: its registered business name, if it has one. +holeTradingName :: ReOC -> Text +holeTradingName r = + text (maybe "Nil – operates under the name of the legal entity" formTextText (get (operator . company . businessName) r)) + +-- | The date on which CASA approved the chief remote pilot: an application is not yet approved. +holeCrpDateApproved :: ReOC -> Text +holeCrpDateApproved _ = + text "Pending CASA approval" + +-- | The categories of RPA of the ReOC, in prose. +fleetCategories :: ReOC -> Text +fleetCategories = + listing . nub . map (rpaCategoryProse . get category) . toList . rpaTypes + +{- | The weight that no RPA of the ReOC is heavier than: 2 kg, 7 kg or 25 kg, +the limits that the regulations and the RePL weight classes use. + +>>> weightLimitText 1999 +"2 kg" + +>>> weightLimitText 6500 +"7 kg" +-} +weightLimitText :: Natural -> Text +weightLimitText g + | g <= 2000 = "2 kg" + | g <= 7000 = "7 kg" + | otherwise = "25 kg" + +-- | The RPA of the operator, in the sentence of the organisational overview: "using ...". +holeFleetOverview :: ReOC -> Text +holeFleetOverview r = + let airframeCount = sum (map (length . get airframes) (toList (operatedTypes r))) + limit = weightLimitText (heaviestGrams r) + in text $ + if airframeCount == 1 + then "a " <> fleetCategories r <> " RPA with a gross weight of not more than " <> limit + else fleetCategories r <> " RPA with gross weights of not more than " <> limit + +-- | The end of the sentence of the organisational overview that lists what the operator does not do. +holeReplTrainingOverview :: ReOC -> Text +holeReplTrainingOverview r = + let limit = weightLimitText (heaviestGrams r) + in text $ case get maybeTrainingMaterial r of + Nothing -> "does not operate RPA heavier than " <> limit <> ", and does not conduct RePL training." + Just _ -> + "and does not operate RPA heavier than " + <> limit + <> ". " + <> organisationName r + <> " conducts RePL training under its RePL Training Manual, which sets out its RePL training documented practices and procedures, and the syllabus and curriculum of each course." + +-- | The sentence of Section 1.5.1 about RePL training. +holeReplTrainingInternal :: ReOC -> Text +holeReplTrainingInternal r = + text $ case get maybeTrainingMaterial r of + Nothing -> "Internal training is not RePL training; " <> organisationName r <> " does not conduct training for the grant of a RePL." + Just _ -> "Internal training is not RePL training; RePL training is conducted under the RePL Training Manual of " <> organisationName r <> "." + +-- | The paragraph of the preface about who holds the key positions. +holePersonnelPreface :: ReOC -> Text +holePersonnelPreface r = + let titles = andList [t <> " (" <> a <> ")" | (a, t, _) <- keyPositions r] + in paragraph "Standard" $ + if singlePersonOrganisation r + then + organisationName r + <> " is a single-person organisation. At the date of this version, one individual holds the positions of " + <> titles + <> ", and is the organisation’s only remote pilot (RP). Where this manual allocates a duty to a position, that individual must perform the duty in the capacity of that position. Holding more than one position does not remove, combine or reduce any duty." + else + "At the date of this version, the positions of " + <> titles + <> " are held as set out in Section 1.2.1. " + <> ( case get (operationsManual . pilots) r of + CRPIsOnlyRemotePilot -> "The CRP is the organisation’s only remote pilot (RP). " + OtherRemotePilots -> organisationName r <> " also engages remote pilots (RP) other than the CRP. " + ) + <> "Where this manual allocates a duty to a position, the holder of the position must perform the duty in the capacity of that position. Holding more than one position does not remove, combine or reduce any duty." + +-- | The paragraph of the preface about whom the requirements of personnel apply to. +holePersonnelReference :: ReOC -> Text +holePersonnelReference r = + paragraph "Standard" $ + if singlePersonOrganisation r + then "Where this manual refers to personnel, an RP or an operational crew member (OC), the requirement applies to the CRP when acting in that capacity and to any person subsequently engaged by " <> organisationName r <> "." + else "Where this manual refers to personnel, an RP or an operational crew member (OC), the requirement applies to every person engaged by " <> organisationName r <> " in that capacity, including key personnel when acting in that capacity." + +-- | The paragraph of the organisational overview about the people of the operator. +holeOrganisationStructure :: ReOC -> Text +holeOrganisationStructure r = + let o = organisationName r + maintenance = "Maintenance beyond the user-level tasks listed in Section 3.2.1 is carried out by the RPA manufacturer or its approved service agents." + ceoIs = + case get (operator . keyPersonnel . chiefExecutive . directorStatus) r of + SoleDirector -> "Its sole director" + Director -> "One of its directors" + NotADirector -> "One individual" + in paragraph "Standard" $ + if singlePersonOrganisation r + then + o + <> " is a single-person organisation. " + <> ceoIs + <> " holds the positions of " + <> positionsAbbreviated r + <> " and is the organisation’s only RP. There are no employees, ground crew or contracted remote pilots, so all operations are solo operations. " + <> maintenance + else + Text.unwords [nameOf n <> " holds the " <> positionWord ps <> " " <> andList ps <> "." | (n, ps) <- holders r] + <> " " + <> ( case get (operationsManual . pilots) r of + CRPIsOnlyRemotePilot -> "The CRP is the organisation’s only RP. " + OtherRemotePilots -> o <> " also engages RPs, who report to the CRP. " + ) + <> ( case get (operationsManual . crew) r of + SoloOperationsOnly -> "All operations are solo operations. " + SoloAndMultiCrewOperations -> "Operations are conducted as solo operations or with operational crew members (multi-crew operations). " + ) + <> maintenance + where + positionWord ps = if length ps == 1 then "position of" else "positions of" + +-- | The organisational diagram. +holeOrganisationalDiagram :: ReOC -> Text +holeOrganisationalDiagram = + organisationalDiagramFrame + +-- | The paragraph under the organisational diagram. +holeOrganisationalDiagramNote :: ReOC -> Text +holeOrganisationalDiagramNote r = + let o = organisationName r + in paragraph "Standard" $ + case (soleHolder r, get (operationsManual . pilots) r) of + (Just _, CRPIsOnlyRemotePilot) -> + "All positions shown in Figure 1 are held by the one individual listed in Section 1.2.1. The remote pilot position is held by the CRP; any additional RP engaged by " <> o <> " reports to the CRP." + (_, CRPIsOnlyRemotePilot) -> + "The holder of each position shown in Figure 1 is listed in Section 1.2.1. The remote pilot position is held by the CRP; any additional RP engaged by " <> o <> " reports to the CRP." + (_, OtherRemotePilots) -> + "The holder of each position shown in Figure 1 is listed in Section 1.2.1. Each RP engaged by " <> o <> " reports to the CRP." + +-- The licences and qualifications of a holder, with the RePL of the chief remote pilot first. +qualificationsOf :: ReOC -> Nominee -> [Text] -> [Text] +qualificationsOf r n ps = + let origin = + case get (operator . keyPersonnel . chiefPilot . rePLOrigin) r of + PPLTheory -> "on the basis of private pilot licence (PPL) theory" + RePLTraining o -> "through RePL training with " <> formTextText o + repl = "a remote pilot licence (RePL) for " <> fleetCategories r <> " RPA, obtained " <> origin + in [repl | "CRP" `elem` ps] <> map text1Text (get otherQualifications n) + +-- | The paragraphs about the qualifications and experience of each holder of a key position. +holeKeyPersonnelQualifications :: ReOC -> Text +holeKeyPersonnelQualifications r = + let legal = legalName (get (operator . company) r) + ceo = nominatedCEO (get (operator . keyPersonnel) r) + directorOf n = + if n == ceo + then case get (operator . keyPersonnel . chiefExecutive . directorStatus) r of + SoleDirector -> Just ("the sole director of " <> legal) + Director -> Just ("a director of " <> legal) + NotADirector -> Nothing + else Nothing + sentence subject n ps = + let quals = qualificationsOf r n ps + experience = text1Text (get aviationExperience n) + has = + if null quals + then "has " <> experience + else "holds " <> listing quals <> ", with " <> experience + in subject <> " " <> maybe has (\d -> "is " <> d <> " and " <> has) (directorOf n) <> "." + in case (singlePersonOrganisation r, holders r) of + (True, [(n, ps)]) -> paragraph "Standard" (sentence "The nominated individual" n ps) + (_, hs) -> Text.concat [paragraph "Standard" (sentence (nameOf n <> " (" <> andList ps <> ")") n ps) | (n, ps) <- hs] + +-- | The section about holding more than one key position, if anyone does. +holeMultipleKeyPositions :: ReOC -> Text +holeMultipleKeyPositions r = + let multiple = [(n, ps) | (n, ps) <- holders r, length ps > 1] + who = + case multiple of + [(_, ps)] | isJust (soleHolder r) -> "One individual holds the " <> andList ps <> " positions. That individual must:" + [(n, ps)] -> nameOf n <> " holds the " <> andList ps <> " positions, and must:" + _ -> Text.unwords [nameOf n <> " holds the " <> andList ps <> " positions." | (n, ps) <- multiple] <> " Each of them must:" + in if null multiple + then "" + else + heading 4 "Holding of multiple key positions" + <> paragraph "Standard" who + <> bulletList + [ "perform each duty in the capacity of the relevant position and record the decision in the relevant record – for example, the MC’s release to service in the RPAS Technical Log and the CRP’s flight authorisation in the Flight Record" + , "not omit a check on the assumption that it has been completed in another capacity" + , "plan workload so that there is enough time to perform the duties of each position before, during and after operations" + , "seek an independent review by a suitably experienced person (for example, the CRP of another ReOC holder) where a conflict of interest, or an occurrence, makes self-review unreliable" + , "cease operations while unable to perform the duties of any key position." + ] + +-- | The sentence of Section 1.2.3 about a vacant key position. +holeKeyPersonnelVacancy :: ReOC -> Text +holeKeyPersonnelVacancy r = + text $ + if isJust (soleHolder r) + then "Because one individual holds all key positions, " <> organisationName r <> " must not conduct operations under the ReOC while any key position is vacant or its holder is unable to perform the duties of the position." + else organisationName r <> " must not conduct operations under the ReOC while any key position is vacant, unless approved by CASA." + +-- | The start of the sentence of Section 1.6.1 about the independent review of the audit. +holeIndependentReview :: ReOC -> Text +holeIndependentReview r = + text $ case get (operationsManual . pilots) r of + CRPIsOnlyRemotePilot -> "Because the CRP audits activities they perform themselves, the CRP should arrange" + OtherRemotePilots -> "The CRP should arrange" + +-- | The sentence of Section 1.6.2 about the checking event of a CRP who is the only RP. +holeCheckingOnlyRp :: ReOC -> Text +holeCheckingOnlyRp r = + text $ case get (operationsManual . pilots) r of + CRPIsOnlyRemotePilot -> "While the CRP is the only RP, the checking event is a proficiency check flight flown by the CRP against the flight exercises at Appendix G2. " + OtherRemotePilots -> "" + +-- | The sentence of Section 2.4.1 that names the manufacturer’s instructions of each type of RPA. +holeManufacturerInstructions :: ReOC -> Text +holeManufacturerInstructions r = + let ts = toList (rpaTypes r) + instructions :: RPAType -> Text + instructions t = "the current " <> text1Text (get userManual t) + in text $ case ts of + [t] -> "For the " <> rpaName t <> ", the manufacturer’s instructions are " <> instructions t <> ", a copy of which (electronic or printed) must be available to the RP during operations." + _ -> + "The manufacturer’s instructions are: " + <> Text.intercalate "; " ["for the " <> rpaName t <> ", " <> instructions t | t <- ts] + <> ". A copy of the instructions for the RPA being operated (electronic or printed) must be available to the RP during operations." + +-- | The sentence of Section 2.4.3 about the chief remote pilot’s qualification to use an aeronautical radio. +holeCrpRadio :: ReOC -> Text +holeCrpRadio r = + text $ case get (operator . keyPersonnel . chiefPilot . radio) r of + FlightCrewLicence -> "The CRP holds a flight crew licence issued under Part 61 of CASR and is qualified to use an aeronautical radio." + RadioOperatorCertificate -> "The CRP holds an aeronautical radio operator certificate issued under Part 64 of CASR and is qualified to use an aeronautical radio." + NoRadioQualification -> "The CRP is not qualified to use an aeronautical radio. An operation that requires an aeronautical radio must be conducted by an RP who is qualified under Part 61 or Part 64 of CASR." + +-- Which types of RPA have a property, as a sentence: all, none, or some. +typesSentence :: ReOC -> (RPAType -> Bool) -> Text -> Text -> Text -> Text +typesSentence r p oneHas oneHasNot verb = + let ts = toList (rpaTypes r) + yes = [rpaName t | t <- ts, p t] + no = [rpaName t | t <- ts, not (p t)] + o = organisationName r + in case (ts, yes, no) of + ([_], [], _) -> "The RPA operated by " <> o <> " " <> oneHasNot <> "." + ([_], _, []) -> "The RPA operated by " <> o <> " " <> oneHas <> "." + (_, [], _) -> "No RPA operated by " <> o <> " " <> verb <> "." + _ -> "The " <> listing yes <> " " <> (if length yes == 1 then oneHas else Text.replace "is " "are " oneHas) <> (if null no then "." else "; the " <> listing no <> " " <> (if length no == 1 then oneHasNot else Text.replace "is " "are " oneHasNot) <> ".") + +-- | The sentence of Section 2.4.4 about the transponders fitted to the RPA. +holeTransponderFit :: ReOC -> Text +holeTransponderFit r = + text $ + typesSentence + r + (\t -> get transponderCarriage t == TransponderFitted) + "is fitted with a transponder or ADS-B (out)" + "is not fitted with a transponder or ADS-B (out)" + "is fitted with a transponder or ADS-B (out)" + +-- | The sentence of Section 2.6.1 about solo and multi-crew operations. +holeCrewing :: ReOC -> Text +holeCrewing r = + text $ case get (operationsManual . crew) r of + SoloOperationsOnly -> "All " <> organisationName r <> " operations are currently solo operations, and ANCA applies." + SoloAndMultiCrewOperations -> organisationName r <> " conducts solo and multi-crew operations; ANCA applies to solo operations and CANCA to multi-crew operations." + +-- | The sentence of Section 2.6.2 about the flight termination systems fitted to the RPA. +holeFlightTermination :: ReOC -> Text +holeFlightTermination r = + let fitted t = + case get flightTermination t of + NoFlightTerminationSystem -> Nothing + FlightTerminationSystem d -> Just (rpaName t, text1Text d) + systems = mapMaybe fitted (toList (rpaTypes r)) + in text $ + typesSentence + r + (isJust . fitted) + "is fitted with a dedicated flight termination system" + "is not fitted with a dedicated flight termination system" + "is fitted with a dedicated flight termination system" + <> Text.concat [" The flight termination system of the " <> t <> ": " <> d <> "." | (t, d) <- systems] + +-- | The sentence of Section 3.1.1 that lists what the periodic inspection covers. +holePeriodicInspectionItems :: ReOC -> Text +holePeriodicInspectionItems r = + let items :: RPAType -> Text + items t = listing (map text1Text (toList (get inspectionItems t))) + in text $ case toList (rpaTypes r) of + [t] -> "The periodic inspection covers " <> items t <> "." + ts -> "The periodic inspection covers, " <> Text.intercalate "; " ["for the " <> rpaName t <> ", " <> items t | t <- ts] <> "." + +-- | Who carries out maintenance beyond the items authorised for an RP: the manufacturers. +holeManufacturerMaintenance :: ReOC -> Text +holeManufacturerMaintenance r = + text $ case nub (map (text1Text . get rpaMake) (toList (rpaTypes r))) of + [m] -> m <> " or its approved service agents" + ms -> "the manufacturer of the RPA (" <> listing ms <> ") or its approved service agents" + +-- | Appendix C: the type-specific procedures of each type of RPA. +holeTypeSpecificProcedures :: ReOC -> Text +holeTypeSpecificProcedures r = + let ts = toList (rpaTypes r) + reserve = percentageText (get (operationsManual . policies . batteryReserve) r) + procedures t = + let battery = "Plan each flight to land with not less than " <> reserve <> " battery remaining." <> maybe "" ((" " <>) . text1Text) (get batteryWarnings t) + actions = get emergencyActions t + in (if length ts > 1 then paragraphXml "Standard" ("" <> text (rpaName t) <> "") else "") + <> paragraph "Standard" (organisationName r <> " operates the " <> rpaName t <> " IAW the " <> text1Text (get userManual t) <> ". No alternative operating procedures have been approved. The following requirements supplement the manufacturer’s instructions.") + <> paragraph "Standard" "Before flight:" + <> bulletList (map text1Text (get beforeFlight t) <> [battery]) + <> ( if null actions + then "" + else + paragraph "Standard" "Emergency actions:" + <> nestedBulletList + [ (text1Text (get situation a) <> " – " <> text1Text (get response a), map text1Text (get actionSteps a)) + | a <- actions + ] + ) + in Text.concat (map procedures ts) + +holeRecencyFlights, holeRecencyDays, holeRefresherMonths, holeAlcoholHours, holeRestHours, holeDutyHours :: ReOC -> Text +holeRecencyFlights = text . quantity "flight" "flights" . get (operationsManual . policies . recencyFlights) +holeRecencyDays = text . quantity "day" "days" . get (operationsManual . policies . recencyDays) +holeRefresherMonths = text . quantity "month" "months" . get (operationsManual . policies . refresherMonths) +holeAlcoholHours = text . quantity "hour" "hours" . get (operationsManual . policies . alcoholHours) +holeRestHours = text . quantity "consecutive hour" "consecutive hours" . get (operationsManual . policies . restHours) +holeDutyHours = text . quantity "hour" "hours" . get (operationsManual . policies . dutyHours) + +holeInspectionMonths, holeInspectionHours, holeBatteryReserve, holeBackupInterval :: ReOC -> Text +holeInspectionMonths = text . quantity "month" "months" . get (operationsManual . policies . inspectionMonths) +holeInspectionHours = text . quantity "hour" "hours" . get (operationsManual . policies . inspectionHours) +holeBatteryReserve = text . percentageText . get (operationsManual . policies . batteryReserve) +holeBackupInterval = text . backupIntervalText . get (operationsManual . policies . backupFrequency) + +holeIndependentReviewYears, holeCheckingMonths :: ReOC -> Text +holeIndependentReviewYears = text . quantity "year" "years" . get (operationsManual . policies . independentReviewYears) +holeCheckingMonths = text . quantity "month" "months" . get (operationsManual . policies . checkingMonths) + +-- | The services of the operator. +holeServices :: ReOC -> Text +holeServices = + text . listing . map text1Text . toList . get (operationsManual . services) + +-- | The rows of the amendment record. +holeAmendmentRows :: ReOC -> Text +holeAmendmentRows = + foldMap amendmentRow . amendmentRecord . get operationsManual + where + amendmentRow (v, d, e, p, x) = + row "Table1.1" $ + map + (cell "Table1.A2" "P29") + [versionText v, monthText d, text1Text e, text1Text p, text1Text x] + +-- | The row of the chief RePL instructor in the list of key personnel, where RePL training is conducted. +holeChiefReplInstructorRow :: ReOC -> Text +holeChiefReplInstructorRow r = + case get maybeTrainingMaterial r of + Nothing -> "" + Just t -> + let n = nominatedCRI (get (operator . keyPersonnel) r) t + in row + "Table5.4" + [ cell "Table5.A2" "Table_20_text" "Chief RePL instructor" + , cell "Table5.B2" "Table_20_text" (nameOf n) + , cell "Table5.B2" "Table_20_text" (arnOf n) + , cell "Table5.D2" "Table_20_text" "Pending CASA approval" + ] + +-- | The rows of the risk register: one for each risk, then blank rows, to at least 27 rows. +holeRiskRegisterRows :: ReOC -> Text +holeRiskRegisterRows r = + let risks = toList (get (operationsManual . riskRegister) r) + in Text.concat (zipWith riskRow [1 :: Int ..] risks) + <> Text.concat (replicate (27 - length risks) blankRiskRow) + where + riskRow :: Int -> Risk -> Text + riskRow i k = + let initial = get initialRisk k + residual = get residualRisk k + rating a = + cell + ( case riskLevelOf a of + High -> "ReOCRiskHigh" + Medium -> "ReOCRiskMedium" + Low -> "ReOCRiskLow" + ) + "P28" + (riskRating a) + plain column = cell ("Table17." <> column <> "2") "P28" + in row + "Table17.2" + [ plain "A" (Text.pack ('R' : (if i < 10 then "0" else "") <> show i)) + , plain "B" (monthText (get dateEntered k)) + , plain "C" (text1Text (get hazard k)) + , plain "D" (text1Text (get riskDescription k)) + , plain "E" (text1Text (get existingControls k)) + , plain "F" (likelihoodValue (get riskLikelihood initial)) + , plain "G" (consequenceValue (get riskConsequence initial)) + , rating initial + , plain "I" (text1Text (get additionalControls k)) + , plain "J" (likelihoodValue (get riskLikelihood residual)) + , plain "K" (consequenceValue (get riskConsequence residual)) + , rating residual + , plain "M" (keyPositionAbbreviation (get riskOwner k)) + , plain "N" (monthText (riskReviewDue k)) + ] + blankRiskRow = + row "Table17.4" [cell ("Table17." <> column <> "14") "P28" "" | column <- map Text.singleton ['A' .. 'N']] + +-- Each RPA of the ReOC, with its type. +aircraftOf :: ReOC -> [(RPAType, Aircraft)] +aircraftOf r = + nub [(get rpaType o, a) | o <- toList (operatedTypes r), a <- toList (get airframes o)] + +-- | The rows of the list of RPA in Appendix B. +holeAircraftRows :: ReOC -> Text +holeAircraftRows = + foldMap aircraftRow . aircraftOf + where + aircraftRow :: (RPAType, Aircraft) -> Text + aircraftRow (t, a) = + row "SFTable1.1" $ + zipWith + (\column v -> cell ("SFTable1." <> column <> "2") "P33" v) + ["A", "B", "C", "D", "E"] + [ text1Text (get rpaMake t) + , text1Text (get rpaModel t) + , rpaCategoryText (get category t) + , weightText (grossWeightGrams (get maximumGrossWeight t)) + , text1Text (get serialNumber a) + ] + +-- | The paragraphs of the equipment associated with each RPA, in Appendix B. +holeAssociatedEquipment :: ReOC -> Text +holeAssociatedEquipment r = + let all' = aircraftOf r + described :: Aircraft -> Text + described a = + Text.intercalate + "; " + [ text1Text (get equipmentDescription e) <> ", serial number " <> text1Text (get serialNumber e) + | e <- get associatedEquipment a + ] + in Text.concat + [ paragraph "Standard" $ + ( if length all' == 1 + then "Associated equipment: " + else "Associated equipment of the " <> rpaName t <> " with serial number " <> text1Text (get serialNumber a) <> ": " + ) + <> described a + <> "." + | (t, a) <- all' + , not (null (get associatedEquipment a)) + ] + +-- | The rows of the RPA register (Form F9): one for each RPA, then 4 blank rows. +holeRpaRegisterRows :: ReOC -> Text +holeRpaRegisterRows r = + foldMap registerRow (aircraftOf r) <> Text.concat (replicate 4 (registerCells (replicate 7 ""))) + where + registerRow :: (RPAType, Aircraft) -> Text + registerRow (t, a) = + registerCells + [ text1Text (get rpaMake t) + , text1Text (get rpaModel t) + , text1Text (get serialNumber a) + , weightText (grossWeightGrams (get maximumGrossWeight t)) + , "" + , "" + , "" + ] + registerCells = + row "SFTable12.1" + . zipWith (\column v -> cell ("SFTable12." <> column <> "2") "P33" v) ["A", "B", "C", "D", "D", "D", "G"] diff --git a/src/ReOC/Render/Template.hs b/src/ReOC/Render/Template.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Template.hs @@ -0,0 +1,74 @@ +{-# LANGUAGE TemplateHaskell #-} +{-# OPTIONS_GHC -Wall #-} + +{- | Reads a document template when the package is compiled. + +The template is the Flat ODF text of the manual, with holes written +@{{name}}@. 'embedTemplate' splits it into literal text and holes, and each +hole @{{legal-name}}@ becomes the function @holeLegalName@, which must be in +scope where the splice is used. A hole with no such function fails to +compile. +-} +module ReOC.Render.Template ( + embedTemplate, + templateHoles, + holeFunctionName, +) where + +import qualified Data.ByteString as ByteString +import Data.Char (toUpper) +import Data.Text (Text) +import qualified Data.Text as Text +import Data.Text.Encoding (decodeUtf8) +import Language.Haskell.TH (Exp, Q, listE, litE, lookupValueName, runIO, stringL, varE) +import Language.Haskell.TH.Syntax (addDependentFile) + +{- $setup +>>> :set -XOverloadedStrings +-} + +{- | The literal text and holes of a template. + +>>> templateHoles "a {{legal-name}} b {{version}}" +[Left "a ",Right "legal-name",Left " b ",Right "version",Left ""] +-} +templateHoles :: Text -> [Either Text Text] +templateHoles t = + case Text.splitOn (Text.pack "{{") t of + [] -> [] + first : rest -> Left first : concatMap hole rest + where + hole chunk = + let (name, after) = Text.breakOn (Text.pack "}}") chunk + in [Right name, Left (Text.drop 2 after)] + +{- | The name of the function that fills a hole. + +>>> holeFunctionName "repl-training-overview" +"holeReplTrainingOverview" +-} +holeFunctionName :: Text -> String +holeFunctionName name = + "hole" <> concatMap (capitalise . Text.unpack) (Text.splitOn (Text.pack "-") name) + where + capitalise w = + case w of + c : cs -> toUpper c : cs + [] -> [] + +{- | The template at a path, relative to the package, as an expression of type +@[Either Text (ReOC -> Text)]@. +-} +embedTemplate :: FilePath -> Q Exp +embedTemplate path = do + addDependentFile path + t <- runIO (decodeUtf8 <$> ByteString.readFile path) + listE (map segment (templateHoles t)) + where + segment (Left literal) = + [|Left (Text.pack $(litE (stringL (Text.unpack literal))))|] + segment (Right name) = do + found <- lookupValueName (holeFunctionName name) + case found of + Just n -> [|Right $(varE n)|] + Nothing -> fail ("the operations manual template has the hole {{" <> Text.unpack name <> "}}, but " <> holeFunctionName name <> " is not in scope") diff --git a/src/ReOC/Render/Text.hs b/src/ReOC/Render/Text.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Text.hs @@ -0,0 +1,203 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +-- | Text of the values of a ReOC, as the documents write it. +module ReOC.Render.Text ( + get, + escapeXml, + listing, + andList, + monthText, + dayParts, + versionText, + quantity, + percentageText, + backupIntervalText, + stateAbbreviation, + addressText, + legalName, + rpaCategoryText, + rpaCategoryProse, + weightText, +) where + +import Control.Lens (ALens', cloneLens, view) +import Data.List.NonEmpty (toList) +import Data.Text (Text) +import qualified Data.Text as Text +import Data.Time.Calendar (Day, toGregorian) +import Data.Time.Calendar.Month (Month) +import qualified Data.Time.Calendar.Month as Month +import Numeric.Natural (Natural) +import ReOC.Data.Address (Address) +import ReOC.Data.AustralianState (AustralianState (..)) +import ReOC.Data.BackupInterval (BackupInterval (..)) +import ReOC.Data.Company (Company) +import ReOC.Data.RPACategory (RPACategory (..)) +import ReOC.Data.Version (Version) +import ReOC.Name.CompanyName (CompanyNameLike (..)) +import ReOC.Name.MajorVersion (MajorVersionLike (..)) +import ReOC.Name.MinorVersion (MinorVersionLike (..)) +import ReOC.Name.Postcode (PostcodeLike (..)) +import ReOC.Name.StateOrTerritory (StateOrTerritoryLike (..)) +import ReOC.Name.StreetAddress (StreetAddressLike (..)) +import ReOC.Name.Suburb (SuburbLike (..)) +import ReOC.Primitive.FormText (formTextText) +import ReOC.Primitive.Percentage (Percentage, percentageNatural) +import ReOC.Primitive.Positive (Positive, positiveNatural) +import ReOC.Primitive.Postcode (postcodeText) +import ReOC.Primitive.Text1 (text1Text) + +{- $setup +>>> :set -XOverloadedStrings +>>> import Control.Lens (preview) +>>> import ReOC.Primitive.Positive (_Positive) +-} + +-- | Reads one value through a lens (the classy optics recipe, 8). +get :: ALens' s a -> s -> a +get l = + view (cloneLens l) + +{- | Escapes text for XML. + +>>> escapeXml "Q&A " +"Q&A <today>" +-} +escapeXml :: Text -> Text +escapeXml = + Text.concatMap + ( \case + '&' -> "&" + '<' -> "<" + '>' -> ">" + '"' -> """ + '\'' -> "'" + c -> Text.singleton c + ) + +{- | A list in prose, with a serial comma. + +>>> listing ["a"] +"a" + +>>> listing ["a", "b"] +"a and b" + +>>> listing ["a", "b", "c"] +"a, b, and c" +-} +listing :: [Text] -> Text +listing = \case + [] -> "" + [a] -> a + [a, b] -> a <> " and " <> b + xs -> Text.intercalate ", " (init xs) <> ", and " <> last xs + +{- | A list in prose, without a serial comma. + +>>> andList ["CEO", "CRP", "MC"] +"CEO, CRP and MC" +-} +andList :: [Text] -> Text +andList = \case + [] -> "" + [a] -> a + xs -> Text.intercalate ", " (init xs) <> " and " <> last xs + +{- | A month and year. + +>>> monthText (Month.YearMonth 2026 10) +"October 2026" +-} +monthText :: Month -> Text +monthText (Month.YearMonth y m) = + Text.pack (monthName m <> " " <> show y) + where + monthName n = + case drop (n - 1) months of + x : _ -> x + [] -> show n + months = + ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"] + +-- | The day, month and year of a date, each with two or four digits. +dayParts :: Day -> (Text, Text, Text) +dayParts d = + let (y, m, dd) = toGregorian d + two n = Text.justifyRight 2 '0' (Text.pack (show n)) + in (two dd, two m, Text.pack (show y)) + +-- | A version, such as @1.0@. +versionText :: Version -> Text +versionText v = + Text.pack (show (get majorVersion v) <> "." <> show (get minorVersion v)) + +{- | A number of things, in the singular or the plural. + +>>> quantity "day" "days" <$> preview _Positive 1 +Just "1 day" +-} +quantity :: Text -> Text -> Positive -> Text +quantity one many n = + let k = positiveNatural n + in Text.pack (show k) <> " " <> (if k == 1 then one else many) + +-- | A percentage, such as @30%@. +percentageText :: Percentage -> Text +percentageText p = + Text.pack (show (percentageNatural p)) <> "%" + +-- | The interval between backups, as an adverb. +backupIntervalText :: BackupInterval -> Text +backupIntervalText = \case + Daily -> "daily" + Weekly -> "weekly" + Monthly -> "monthly" + +-- | The abbreviation of a state or territory. +stateAbbreviation :: AustralianState -> Text +stateAbbreviation = \case + NewSouthWales -> "NSW" + Victoria -> "VIC" + Queensland -> "QLD" + WesternAustralia -> "WA" + SouthAustralia -> "SA" + Tasmania -> "TAS" + AustralianCapitalTerritory -> "ACT" + NorthernTerritory -> "NT" + +-- | An address on one line. +addressText :: Address -> Text +addressText a = + Text.intercalate ", " (map text1Text (toList (get streetAddress a))) + <> ", " + <> text1Text (get suburb a) + <> " " + <> stateAbbreviation (get stateOrTerritory a) + <> " " + <> postcodeText (get postcode a) + +-- | The legal name of a company: its name followed by @Pty Ltd@. +legalName :: Company -> Text +legalName c = + formTextText (get companyName c) <> " Pty Ltd" + +-- | A category of RPA, as CASA Form 101-02 writes it. +rpaCategoryText :: RPACategory -> Text +rpaCategoryText = \case + Aeroplane -> "Aeroplane" + Helicopter -> "Helicopter" + Multirotor -> "Multirotor" + PoweredLift -> "Powered-lift" + +-- | A category of RPA, in prose. +rpaCategoryProse :: RPACategory -> Text +rpaCategoryProse = + Text.toLower . rpaCategoryText + +-- | A weight in grams, such as @1999 g@. +weightText :: Natural -> Text +weightText g = + Text.pack (show g) <> " g" diff --git a/src/ReOC/Render/TrainingManual.hs b/src/ReOC/Render/TrainingManual.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/TrainingManual.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE TemplateHaskell #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The RePL training manual of a 'ReOC' with RePL training, as Flat ODF text: +the documented practices and procedures of RePL training, the syllabus and +curriculum of each course, lesson plans and content, the examinations, +worksheets, flight test sheets and the handbooks (CASA Form 101-02, question +30, items 3 to 12). + +The manual is the shell @template/repl-training-manual.fodt@ (the styles, +cover and master pages of the operations manual), with its body from the +marked-up text @template/repl-training-manual.md@ (see +"ReOC.Render.TrainingManual.Body"). Both are read when the package is +compiled. +-} +module ReOC.Render.TrainingManual ( + renderTrainingManual, +) where + +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Model +import ReOC.Render.Template (embedTemplate) +import ReOC.Render.Text (get) +import ReOC.Render.TrainingManual.Body (holeBody, holeContents) +import ReOC.Render.TrainingManual.Holes + +shell :: [Either Text (ReOC -> Text)] +shell = + $(embedTemplate "template/repl-training-manual.fodt") + +-- | The RePL training manual, if RePL training is applied for. +renderTrainingManual :: ReOC -> Maybe Text +renderTrainingManual r = + (\_ -> Text.concat (map (either id ($ r)) shell)) <$> get maybeTrainingMaterial r diff --git a/src/ReOC/Render/TrainingManual/Body.hs b/src/ReOC/Render/TrainingManual/Body.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/TrainingManual/Body.hs @@ -0,0 +1,66 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE TemplateHaskell #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The body of the RePL training manual: the marked-up text of +@template/repl-training-manual.md@, read when the package is compiled, with +its holes filled, each @per-course@ block repeated for each course, and each +condition decided; then its markdown as Flat ODF text. +-} +module ReOC.Render.TrainingManual.Body ( + trainingMarkdown, + holeBody, + holeContents, +) where + +import Data.Foldable (toList) +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Model +import ReOC.Render.Markdown (parseMarkdown, renderBlocks) +import ReOC.Render.Text (get) +import ReOC.Render.TrainingManual.Chunk (Chunk (..)) +import ReOC.Render.TrainingManual.Embed (embedMarkup) +import ReOC.Render.TrainingManual.Holes (courseHoles, courseProperty, offered, trainingHoles) + +markup :: [Chunk] +markup = + $(embedMarkup "template/repl-training-manual.md") + +{- | The markdown of the RePL training manual. Every hole has a value and every +condition is known, which 'embedMarkup' checked when the package was compiled. +-} +trainingMarkdown :: ReOC -> TrainingMaterial -> Text +trainingMarkdown r t = + Text.concat (map (chunk Nothing) markup) + where + chunk course = \case + Literal x -> x + Hole n -> + case (lookup n trainingHoles, course >>= \c -> fmap ($ c) (lookup n courseHoles)) of + (Just f, _) -> f r t + (_, Just v) -> v + _ -> "" + CourseCondition k v cs -> + if maybe False (elem v . courseProperty k) course then Text.concat (map (chunk course) cs) else "" + OfferedCondition k v cs -> + if offered t k v then Text.concat (map (chunk course) cs) else "" + SimulatorCondition cs -> + maybe "" (const (Text.concat (map (chunk course) cs))) (get (trainingArrangements . simulator) t) + PerCourse cs -> + Text.concat [Text.concat (map (chunk (Just c)) cs) | c <- toList (get trainingCourses t)] + +rendered :: ReOC -> (Text, Text) +rendered r = + maybe ("", "") (renderBlocks . parseMarkdown . trainingMarkdown r) (get maybeTrainingMaterial r) + +-- | The body of the manual. +holeBody :: ReOC -> Text +holeBody = + fst . rendered + +-- | The entries of the table of contents of the manual. +holeContents :: ReOC -> Text +holeContents = + snd . rendered diff --git a/src/ReOC/Render/TrainingManual/Chunk.hs b/src/ReOC/Render/TrainingManual/Chunk.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/TrainingManual/Chunk.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE DeriveLift #-} +{-# OPTIONS_GHC -Wall #-} + +-- | A part of the marked-up text of the RePL training manual template. +module ReOC.Render.TrainingManual.Chunk ( + Chunk (..), +) where + +import Data.Text (Text) +import Language.Haskell.TH.Syntax (Lift) + +{- | A part of the marked-up text of the RePL training manual template: +markdown text, a hole @{{name}}@, or the text of a marker +@@ … @@. +-} +data Chunk + = -- | Markdown text. + Literal Text + | -- | A hole, by name. + Hole Text + | -- | @@: included when the course of the enclosing @per-course@ block has the value. + CourseCondition Text Text [Chunk] + | -- | @@: included when any course has the value. + OfferedCondition Text Text [Chunk] + | -- | @@: included when a simulator is used. + SimulatorCondition [Chunk] + | -- | @@ … @@: included once for each course. + PerCourse [Chunk] + deriving (Eq, Show, Lift) diff --git a/src/ReOC/Render/TrainingManual/Embed.hs b/src/ReOC/Render/TrainingManual/Embed.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/TrainingManual/Embed.hs @@ -0,0 +1,28 @@ +{-# OPTIONS_GHC -Wall #-} + +{- | Reads the marked-up text of the RePL training manual when the package is +compiled, and checks it: a marker that is not closed, a hole with no value, +or a condition with an unknown key or value fails to compile. +-} +module ReOC.Render.TrainingManual.Embed ( + embedMarkup, +) where + +import qualified Data.ByteString as ByteString +import Data.Text.Encoding (decodeUtf8) +import Language.Haskell.TH (Exp, Q, runIO) +import Language.Haskell.TH.Syntax (addDependentFile, lift) +import ReOC.Render.TrainingManual.Holes (courseHoleNames, trainingHoleNames) +import ReOC.Render.TrainingManual.Markup (checkMarkup, parseMarkup) + +-- | The marked-up text at a path, relative to the package, as an expression of type @[Chunk]@. +embedMarkup :: FilePath -> Q Exp +embedMarkup path = do + addDependentFile path + t <- runIO (decodeUtf8 <$> ByteString.readFile path) + case parseMarkup t of + Left e -> fail (path <> ": " <> e) + Right chunks -> + case checkMarkup trainingHoleNames courseHoleNames chunks of + [] -> lift chunks + es -> fail (path <> ":\n" <> unlines es) diff --git a/src/ReOC/Render/TrainingManual/Holes.hs b/src/ReOC/Render/TrainingManual/Holes.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/TrainingManual/Holes.hs @@ -0,0 +1,194 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The holes of the RePL training manual. The holes of its markdown +(@template/repl-training-manual.md@) are 'trainingHoles', for the manual, +and 'courseHoles', for each course; their values are markdown. The holes of +its shell (@template/repl-training-manual.fodt@) are the functions +@hole...@, whose values are XML; the shell is only rendered with RePL +training. +-} +module ReOC.Render.TrainingManual.Holes ( + trainingHoles, + trainingHoleNames, + courseHoles, + courseHoleNames, + courseProperty, + offered, + holeCriName, + holeLegalName, + holeOrganisationArn, + holeOrganisationName, + holeReviewDate, + holeVersion, + holeVersionDate, +) where + +import Data.Foldable (toList) +import Data.List (nub) +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Aircraft (rpaName) +import ReOC.Amendment (manualDate, manualReviewDate, manualVersion) +import ReOC.Model +import ReOC.Personnel (nominatedCEO, nominatedCRI, nominatedCRP) +import ReOC.Render.Markdown (escapeMarkdown) +import ReOC.Render.Text + +nameOf :: Nominee -> Text +nameOf = + formTextText . get (person . fullName) + +-- | The holes of the markdown of the manual, by name: each gives markdown. +trainingHoles :: [(Text, ReOC -> TrainingMaterial -> Text)] +trainingHoles = + map + (fmap (\f r t -> escapeMarkdown (f r t))) + [ ("organisation-name", \r _ -> formTextText (get (operator . company . companyName) r)) + , ("legal-name", \r _ -> legalName (get (operator . company) r)) + , ("organisation-arn", \r _ -> arnText (get (operator . company . arn) r)) + , ("version", \r _ -> versionText (manualVersion (get operationsManual r))) + , ("version-date", \r _ -> monthText (manualDate (get operationsManual r))) + , ("review-date", \r _ -> monthText (manualReviewDate (get operationsManual r))) + , ("cri-name", \r t -> nameOf (nominatedCRI (get (operator . keyPersonnel) r) t)) + , ("cri-arn", \r t -> arnText (get (person . arn) (nominatedCRI (get (operator . keyPersonnel) r) t))) + , ("crp-name", \r _ -> nameOf (nominatedCRP (get (operator . keyPersonnel) r))) + , ("ceo-name", \r _ -> nameOf (nominatedCEO (get (operator . keyPersonnel) r))) + , ("independent-review-years", \r _ -> quantity "year" "years" (get (operationsManual . policies . independentReviewYears) r)) + , ("max-students-per-course", \_ t -> showPositive (get (trainingArrangements . maxStudentsPerCourse) t)) + , ("max-students-per-instructor", \_ t -> showPositive (get (trainingArrangements . maxStudentsPerInstructor) t)) + , ("exam-pass-mark", \_ t -> Text.pack (show (passMarkNatural (get (trainingArrangements . examPassMark) t)))) + , ("simulator", \_ t -> maybe "" text1Text (get (trainingArrangements . simulator) t)) + , ("instructor-takeover-method", \_ t -> takeoverText (get (trainingArrangements . takeover) t)) + , ("theory-delivery", \_ t -> theoryText (get (trainingArrangements . theory) t)) + , ("exam-delivery", \r t -> examText (formTextText (get (operator . company . companyName) r)) (get (trainingArrangements . exam) t)) + , ("flight-test-examiner", \_ t -> examinerText (get (trainingArrangements . examiner) t)) + ] + <> [("training-location-rows", \_ t -> locationRows t)] + where + showPositive = + Text.pack . show . positiveNatural + takeoverText = \case + DualControllerLink -> "a dual-controller (trainer) link, in which the instructor’s controller has priority and the instructor can take control with a single switch" + SharedController -> "a single shared controller, with the instructor standing beside the student within arm’s reach and able to take the controller immediately" + theoryText = \case + ClassroomTheory -> "face-to-face classroom instruction" + BlendedTheory -> "a combination of self-paced study of Part D and face-to-face classroom sessions" + OnlineTheory -> "live online video instruction, with face-to-face review before the examination" + examText o = \case + PaperExamination -> "in person, on paper, at a " <> o <> " training location" + ComputerExamination -> "in person, on a computer-based examination system at a " <> o <> " training location" + examinerText = \case + CRIConductsFlightTests -> "the CRI" + IndependentExaminerWhereAvailable -> "an examiner other than the instructor who delivered most of the student’s practical training, where one is available, and otherwise by the CRI" + +-- The rows of the table of training locations: each place once, with its use. +locationRows :: TrainingMaterial -> Text +locationRows t = + let theoryPlaces = map text1Text (toList (get (trainingArrangements . theoryVenues) t)) + practical = map text1Text (toList (get (trainingArrangements . practicalAreas) t)) + row p = + let use = case (p `elem` theoryPlaces, p `elem` practical) of + (True, True) -> "Theory and practical" + (True, False) -> "Theory" + _ -> "Practical" + notes = if p `elem` practical then "Site assessment and Flight Record IAW operations manual" else "Supervised examination area" + in "| " <> escapeMarkdown p <> " | " <> use <> " | " <> notes <> " |" + in Text.intercalate "\n" (map row (nub (theoryPlaces <> practical))) + +-- | The names of the holes of the markdown of the manual. +trainingHoleNames :: [Text] +trainingHoleNames = + map fst trainingHoles + +-- The training RPA of a course. +courseRPA :: TrainingCourse -> RPAType +courseRPA = + get (trainingRPA . rpaType) + +-- The weight class of a course: that of its training RPA. +upTo25kg :: TrainingCourse -> Bool +upTo25kg c = + grossWeightGrams (get maximumGrossWeight (courseRPA c)) > 7000 + +courseTypeText :: CourseType -> Text +courseTypeText = \case + InitialCourse -> "Initial" + UpgradeSameCategory -> "Upgrade (same category)" + UpgradeDifferentCategory -> "Upgrade (different category)" + +complexityText :: Complexity -> Text +complexityText = \case + AutomatedAndManual -> "automated and manual" + AutomatedOnly -> "automated only" + +-- | The holes of the markdown of each course, by name: each gives markdown. +courseHoles :: [(Text, TrainingCourse -> Text)] +courseHoles = + map + (fmap (escapeMarkdown .)) + [ ("course-title", \c -> courseTypeText (get courseKind c) <> " RePL course – " <> categoryOf c <> " " <> weight c <> " (" <> complexityList c <> ")") + , ("course-type", courseTypeText . get courseKind) + , ("course-category", categoryOf) + , ("course-weight-classes", weight) + , ("course-training-rpa", rpaName . courseRPA) + , ("course-complexity", complexityList) + ] + where + categoryOf :: TrainingCourse -> Text + categoryOf = rpaCategoryText . get category . courseRPA + weight :: TrainingCourse -> Text + weight c = if upTo25kg c then "up to 25 kg" else "up to 7 kg" + complexityList :: TrainingCourse -> Text + complexityList = listing . map complexityText . nub . toList . get complexities + +-- | The names of the holes of the markdown of each course. +courseHoleNames :: [Text] +courseHoleNames = + map fst courseHoles + +-- | The values of a course for a key of a condition (see "ReOC.Render.TrainingManual.Markup"). +courseProperty :: Text -> TrainingCourse -> [Text] +courseProperty k c = + case k of + "category" -> + [ case get category (courseRPA c) of + Multirotor -> "multirotor" + Helicopter -> "helicopter" + PoweredLift -> "powered-lift" + Aeroplane -> "aeroplane" + ] + "weight" -> [if upTo25kg c then "up-to-25kg" else "up-to-7kg"] + "complexity" -> + [ case x of + AutomatedAndManual -> "automated-and-manual" + AutomatedOnly -> "automated-only" + | x <- toList (get complexities c) + ] + "course-type" -> + [ case get courseKind c of + InitialCourse -> "initial" + UpgradeSameCategory -> "upgrade-same-category" + UpgradeDifferentCategory -> "upgrade-different-category" + ] + _ -> [] + +-- | Whether any course has a value for a key of a condition. +offered :: TrainingMaterial -> Text -> Text -> Bool +offered t k v = + any (elem v . courseProperty k) (toList (get trainingCourses t)) + +-- The holes of the shell, which is only rendered with RePL training. +withTraining :: (ReOC -> TrainingMaterial -> Text) -> ReOC -> Text +withTraining f r = + maybe "" (escapeXml . f r) (get maybeTrainingMaterial r) + +holeCriName, holeLegalName, holeOrganisationArn, holeOrganisationName, holeReviewDate, holeVersion, holeVersionDate :: ReOC -> Text +holeCriName = withTraining (\r t -> nameOf (nominatedCRI (get (operator . keyPersonnel) r) t)) +holeLegalName = escapeXml . legalName . get (operator . company) +holeOrganisationArn = escapeXml . arnText . get (operator . company . arn) +holeOrganisationName = escapeXml . formTextText . get (operator . company . companyName) +holeReviewDate = escapeXml . monthText . manualReviewDate . get operationsManual +holeVersion = escapeXml . versionText . manualVersion . get operationsManual +holeVersionDate = escapeXml . monthText . manualDate . get operationsManual diff --git a/src/ReOC/Render/TrainingManual/Markup.hs b/src/ReOC/Render/TrainingManual/Markup.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/TrainingManual/Markup.hs @@ -0,0 +1,129 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The marked-up text of the RePL training manual template: markdown with +holes @{{name}}@ and markers @@ for text that is repeated for +each course or included on a condition. +-} +module ReOC.Render.TrainingManual.Markup ( + parseMarkup, + checkMarkup, + conditionValues, +) where + +import Data.Text (Text) +import qualified Data.Text as Text +import ReOC.Render.TrainingManual.Chunk (Chunk (..)) + +{- $setup +>>> :set -XOverloadedStrings +-} + +-- A token of the marked-up text. +data Token + = TText Text + | THole Text + | TMarker Text + +tokens :: Text -> [Token] +tokens t + | Text.null t = [] + | otherwise = + let (before, rest) = breakFirst t + in [TText before | not (Text.null before)] <> marker rest + where + breakFirst x = + let (a, _) = Text.breakOn "{{" x + (b, _) = Text.breakOn "" (Text.drop 4 rest) + in TMarker (Text.strip body) : tokens (Text.drop 3 after) + | otherwise = [] + +{- | Parses marked-up text. + +>>> parseMarkup "a {{organisation-name}} b" +Right [Literal "a ",Hole "organisation-name",Literal " ",SimulatorCondition [Literal "b"]] + +>>> parseMarkup "b" +Left "a marker is not closed" +-} +parseMarkup :: Text -> Either String [Chunk] +parseMarkup t = + case go (tokens t) of + Right (cs, []) -> Right cs + Right (_, _ : _) -> Left "an end marker has no start" + Left e -> Left e + where + -- parses chunks up to an end marker, which is returned with the tokens after it + go :: [Token] -> Either String ([Chunk], [Token]) + go = \case + [] -> Right ([], []) + TText x : rest -> first (Literal x :) <$> go rest + THole n : rest -> first (Hole n :) <$> go rest + ts@(TMarker m : rest) + | m == "end" || m == "per-course end" -> Right ([], ts) + | m == "per-course begin" -> block "per-course end" PerCourse rest + | m == "if simulator" -> block "end" SimulatorCondition rest + | Just c <- Text.stripPrefix "if offered " m -> condition OfferedCondition c rest + | Just c <- Text.stripPrefix "if " m -> condition CourseCondition c rest + | otherwise -> Left ("unknown marker: " <> Text.unpack m) + block close make rest = do + (inner, after) <- go rest + case after of + TMarker m : more | m == close -> first (make inner :) <$> go more + _ -> Left "a marker is not closed" + condition make c rest = + case Text.splitOn "=" c of + [k, v] -> block "end" (make k v) rest + _ -> Left ("not a condition: " <> Text.unpack c) + first f (a, b) = (f a, b) + +{- | The values of a key of a condition: @category@, @weight@, @complexity@ or +@course-type@. +-} +conditionValues :: Text -> Maybe [Text] +conditionValues = \case + "category" -> Just ["multirotor", "helicopter", "powered-lift", "aeroplane"] + "weight" -> Just ["up-to-7kg", "up-to-25kg"] + "complexity" -> Just ["automated-and-manual", "automated-only"] + "course-type" -> Just ["initial", "upgrade-same-category", "upgrade-different-category"] + _ -> Nothing + +{- | The errors of marked-up text, given the names of the holes of the +manual and of each course: unknown holes, unknown conditions, course holes +and conditions outside a @per-course@ block, and nested @per-course@ blocks. + +>>> checkMarkup ["organisation-name"] ["course-title"] [Hole "course-title"] +["the hole {{course-title}} is outside a per-course block"] +-} +checkMarkup :: [Text] -> [Text] -> [Chunk] -> [String] +checkMarkup global course = + concatMap (check False) + where + check inCourse = \case + Literal _ -> [] + Hole n + | n `elem` global -> [] + | n `elem` course -> ["the hole {{" <> Text.unpack n <> "}} is outside a per-course block" | not inCourse] + | otherwise -> ["unknown hole {{" <> Text.unpack n <> "}}"] + CourseCondition k v cs -> + ["the condition " <> Text.unpack k <> "=" <> Text.unpack v <> " is outside a per-course block" | not inCourse] + <> value k v + <> concatMap (check inCourse) cs + OfferedCondition k v cs -> + value k v <> concatMap (check inCourse) cs + SimulatorCondition cs -> + concatMap (check inCourse) cs + PerCourse cs -> + ["a per-course block is inside another" | inCourse] <> concatMap (check True) cs + value k v = + case conditionValues k of + Nothing -> ["unknown condition key: " <> Text.unpack k] + Just vs -> ["unknown value of " <> Text.unpack k <> ": " <> Text.unpack v | v `notElem` vs] diff --git a/src/ReOC/Render/Write.hs b/src/ReOC/Render/Write.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Render/Write.hs @@ -0,0 +1,94 @@ +{-# OPTIONS_GHC -Wall #-} + +-- | Writes the documents of a 'ReOC' into a directory. +module ReOC.Render.Write ( + applicationFormFile, + operationsManualFile, + trainingManualFile, + writtenSignatureImageFile, + textDocuments, + formFiles, + writeDocuments, + writeFilledDocuments, +) where + +import Data.ByteString (ByteString) +import qualified Data.ByteString as ByteString +import Data.Text (Text) +import Data.Text.Encoding (encodeUtf8) +import ReOC.Model +import ReOC.Render.ApplicationForm (renderApplicationForm) +import ReOC.Render.BlankForm (blankForm, blankFormFile) +import ReOC.Render.BuildInfo (BuildInfo, fillPlaceholders) +import ReOC.Render.OperationsManual (renderOperationsManual) +import ReOC.Render.Text (get) +import ReOC.Render.TrainingManual (renderTrainingManual) +import System.Directory (createDirectoryIfMissing) +import System.FilePath (()) + +-- | The file name of the filled application form. The document build names the signed form after it. +applicationFormFile :: FilePath +applicationFormFile = + "rpa-operators-certificate-initial-issue.xfdf" + +-- | The file name of the operations manual. +operationsManualFile :: FilePath +operationsManualFile = + "rpas-operations-manual.fodt" + +-- | The file name of the RePL training manual. +trainingManualFile :: FilePath +trainingManualFile = + "repl-training-manual.fodt" + +-- | The file name of the written signature of the declarant, which is written beside the application form. +writtenSignatureImageFile :: FilePath +writtenSignatureImageFile = + "written-signature.png" + +{- | The text documents of a ReOC, with their file names: the application +form, the operations manual and, with RePL training, the RePL training +manual. +-} +textDocuments :: ReOC -> [(FilePath, Text)] +textDocuments r = + [ (applicationFormFile, renderApplicationForm r) + , (operationsManualFile, renderOperationsManual r) + ] + <> maybe [] (\t -> [(trainingManualFile, t)]) (renderTrainingManual r) + +{- | The other files that the application form needs, with their file names: +the blank form that it fills and, if it is to be signed, the written +signature, read from its file if it is given by a path. +-} +formFiles :: ReOC -> IO [(FilePath, ByteString)] +formFiles r = do + signatureFiles <- + case get (applicationForm . signature) r of + Nothing -> pure [] + Just (WrittenSignatureImage b) -> pure [(writtenSignatureImageFile, b)] + Just (WrittenSignatureFile p) -> (\b -> [(writtenSignatureImageFile, b)]) <$> ByteString.readFile p + pure ((blankFormFile, blankForm) : signatureFiles) + +-- Writes text documents, and the files of the application form, into a directory. +writeAll :: (Text -> Text) -> FilePath -> ReOC -> IO () +writeAll f dir r = do + files <- formFiles r + createDirectoryIfMissing True dir + mapM_ (\(n, t) -> ByteString.writeFile (dir n) (encodeUtf8 (f t))) (textDocuments r) + mapM_ (\(n, b) -> ByteString.writeFile (dir n) b) files + +{- | Writes the documents into a directory, in UTF-8, with the placeholders of +the document build: the application form, the operations manual and, with +RePL training, the RePL training manual; and beside the application form, +the blank form that it fills and the written signature, if there is one. A +written signature given by a path is read from that path. +-} +writeDocuments :: FilePath -> ReOC -> IO () +writeDocuments = + writeAll id + +-- | Writes the documents as 'writeDocuments' does, with the placeholders of the document build filled. +writeFilledDocuments :: BuildInfo -> FilePath -> ReOC -> IO () +writeFilledDocuments b = + writeAll (fillPlaceholders b) diff --git a/src/ReOC/Risk.hs b/src/ReOC/Risk.hs new file mode 100644 --- /dev/null +++ b/src/ReOC/Risk.hs @@ -0,0 +1,82 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The risk rating matrix of the operations manual (Appendix E, Table 12). +module ReOC.Risk ( + riskLevelOf, + riskRating, + likelihoodValue, + consequenceValue, + keyPositionAbbreviation, + riskReviewDue, +) where + +import Control.Lens (cloneLens, view) +import Data.Text (Text) +import qualified Data.Text as Text +import Data.Time.Calendar.Month (Month) +import ReOC.Amendment (addMonths) +import ReOC.Data.Consequence (Consequence (..)) +import ReOC.Data.KeyPosition (KeyPosition (..)) +import ReOC.Data.Likelihood (Likelihood (..)) +import ReOC.Data.Risk (Risk) +import ReOC.Data.RiskAssessment (RiskAssessment) +import ReOC.Data.RiskLevel (RiskLevel (..)) +import ReOC.Name.DateEntered (DateEnteredLike (..)) +import ReOC.Name.ReviewMonths (ReviewMonthsLike (..)) +import ReOC.Name.RiskConsequence (RiskConsequenceLike (..)) +import ReOC.Name.RiskLikelihood (RiskLikelihoodLike (..)) +import ReOC.Primitive.ReviewMonths (reviewMonthsNatural) + +-- | The level of a risk, from the risk rating matrix. +riskLevelOf :: RiskAssessment -> RiskLevel +riskLevelOf r = + let row catastrophic hazardous moderate minor negligible = + case view (cloneLens riskConsequence) r of + Catastrophic -> catastrophic + Hazardous -> hazardous + Moderate -> moderate + Minor -> minor + Negligible -> negligible + in case view (cloneLens riskLikelihood) r of + Frequent -> row High High High Medium Medium + Occasional -> row High High Medium Medium Medium + Remote -> row High Medium Medium Medium Low + Improbable -> row Medium Medium Medium Low Low + ExtremelyImprobable -> row Medium Low Low Low Low + +-- | The value of a likelihood, from 5 (frequent) to 1 (extremely improbable). +likelihoodValue :: Likelihood -> Text +likelihoodValue = \case + Frequent -> "5" + Occasional -> "4" + Remote -> "3" + Improbable -> "2" + ExtremelyImprobable -> "1" + +-- | The value of a consequence, from A (catastrophic) to E (negligible). +consequenceValue :: Consequence -> Text +consequenceValue = \case + Catastrophic -> "A" + Hazardous -> "B" + Moderate -> "C" + Minor -> "D" + Negligible -> "E" + +-- | The rating of a risk, such as @2A@. +riskRating :: RiskAssessment -> Text +riskRating r = + Text.concat [likelihoodValue (view (cloneLens riskLikelihood) r), consequenceValue (view (cloneLens riskConsequence) r)] + +-- | The abbreviation of a key position. +keyPositionAbbreviation :: KeyPosition -> Text +keyPositionAbbreviation = \case + ChiefExecutiveOfficer -> "CEO" + ChiefRemotePilot -> "CRP" + MaintenanceController -> "MC" + +-- | The month in which a risk is due for review. +riskReviewDue :: Risk -> Month +riskReviewDue k = + addMonths (reviewMonthsNatural (view (cloneLens reviewMonths) k)) (view (cloneLens dateEntered) k) diff --git a/template/repl-training-manual.fodt b/template/repl-training-manual.fodt new file mode 100644 --- /dev/null +++ b/template/repl-training-manual.fodt @@ -0,0 +1,6784 @@ + + + + {{organisation-name}} RePL Training ManualCASR Part 101 RePL training documented practices and procedures{{cri-name}}en-AULibreOffice/24.2.7.2$Linux_X86_64 LibreOffice_project/420$Build-22026-10-23T12:56:46.925749200P0D1 + + + 0 + 0 + 2 + 2 + true + false + + + false + true + true + + false + 0 + false + true + true + true + false + 0 + true + false + false + true + false + true + true + true + true + true + false + true + true + false + true + false + false + true + true + true + true + true + false + false + false + true + true + high-resolution + true + 1622224 + false + true + false + + + true + + true + false + true + true + true + + + en + AU + + + + + + false + false + 0 + true + false + false + true + true + true + true + true + true + false + true + false + true + true + true + false + false + true + Brother + true + false + false + 0 + false + true + xAH+/0Jyb3RoZXIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ1VQUzpCcm90aGVyAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAMAswAAAAAAAAAEAAhSAAAEdAAASm9iRGF0YSAxCnByaW50ZXI9QnJvdGhlcgpvcmllbnRhdGlvbj1Qb3J0cmFpdApjb3BpZXM9MQpjb2xsYXRlPWZhbHNlCm1hcmdpbmFkanVzdG1lbnQ9MCwwLCcwLDAKY29sb3JkZXB0aD0yNApjb2xvcmRldmljZT0wClBQRENvbnRleHREYXRhCkR1cGxleDpOb25lAElucHV0U2xvdDpBdXRvAFBhZ2VTaXplOkE0AAASAENPTVBBVF9EVVBMRVhfTU9ERQ8ARHVwbGV4TW9kZTo6T2ZmDABQUklOVEVSX05BTUUHAEJyb3RoZXILAERSSVZFUl9OQU1FDABDVVBTOkJyb3RoZXI= + false + false + true + true + true + false + true + 1 + false + false + false + true + false + false + true + false + false + true + false + true + false + + false + 1680194 + true + false + false + false + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + {{organisation-name}} RePL Training Manual + + + + {{legal-name}} + + + + /9j/4QVPRXhpZgAASUkqAAgAAAAMAAABAwABAAAAsAkAAAEBAwABAAAAAAEAAAIBAwADAAAA + ngAAAAYBAwABAAAAAgAAABIBAwABAAAAAQAAABUBAwABAAAAAwAAABoBBQABAAAApAAAABsB + BQABAAAArAAAACgBAwABAAAAAgAAADEBAgAkAAAAtAAAADIBAgAUAAAA2AAAAGmHBAABAAAA + 7AAAACQBAAAIAAgACACA/AoAECcAAID8CgAQJwAAQWRvYmUgUGhvdG9zaG9wIENDIDIwMTUg + KE1hY2ludG9zaCkAMjAxNjowODowMiAxNDoyMjoxOQAEAACQBwAEAAAAMDIyMQGgAwABAAAA + //8AAAKgBAABAAAAsAkAAAOgBAABAAAAvQAAAAAAAAAAAAYAAwEDAAEAAAAGAAAAGgEFAAEA + AAByAQAAGwEFAAEAAAB6AQAAKAEDAAEAAAACAAAAAQIEAAEAAACCAQAAAgIEAAEAAADFAwAA + AAAAAEgAAAABAAAASAAAAAEAAAD/2P/tAAxBZG9iZV9DTQAC/+4ADkFkb2JlAGSAAAAAAf/b + AIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBEMDAwMDAwRDAwMDAwMDAwMDAwMDAwM + DAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQUDg4ODhQRDAwMDAwREQwMDAwMDBEMDAwM + DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgADACdAwEiAAIRAQMRAf/dAAQACv/EAT8A + AAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAAAAAAAQACAwQFBgcI + CQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJBVSwWIzNHKC + 0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBEFR + YXEiEwUygZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi + 8rOEw9N14/NGlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//aAAwDAQAC + EQMRAD8A9VVWyvqRe41X0Nrn2tdS9xA/lPGTXu/zFaSTo3elf4XD/wB2snVa8X+Bx/8AqNp+ + l1b/ALk4/wD7Dv8A/etL0urf9ycf/wBh3/8AvWriSf6v6n/jSz0f6z/x5p+l1b/uTj/+w7// + AHrS9Lq3/cnH/wDYd/8A71q4kl6v6n/jSvR/rP8Ax5p+l1b/ALk4/wD7Dv8A/etL0urf9ycf + /wBh3/8AvWriSXq/qf8AjSvR/rP/AB5p+l1b/uTj/wDsO/8A960vS6t/3Jx//Yd//vWriSXq + /qf+NK9H+s/8eafpdW/7k4//ALDv/wDetL0urf8AcnH/APYd/wD71q4kl6v6n/jSvR/rP/Hm + n6XVv+5OP/7Dv/8AetL0urf9ycf/ANh3/wDvWriSXq/qf+NK9H+s/wDHmn6XVv8AuTj/APsO + /wD960vS6t/3Jx//AGHf/wC9auJJer+p/wCNK9H+s/8AHmn6XVv+5OP/AOw7/wD3rS9Lq3/c + nH/9h3/+9auJJer+p/40r0f6z/x5Djtymh32myuw/mmus1wP5W+2/cjJJJhvi6X/AIPD/wB4 + yCuHrVf1uP8A79//2f/tDRJQaG90b3Nob3AgMy4wADhCSU0EBAAAAAAADxwBWgADGyVHHAIA + AAIAAAA4QklNBCUAAAAAABDNz/p9qMe+CQVwdq6vBcNOOEJJTQQ6AAAAAAD7AAAAEAAAAAEA + AAAAAAtwcmludE91dHB1dAAAAAUAAAAAUHN0U2Jvb2wBAAAAAEludGVlbnVtAAAAAEludGUA + AAAAQ2xybQAAAA9wcmludFNpeHRlZW5CaXRib29sAAAAAAtwcmludGVyTmFtZVRFWFQAAAAM + ADEAMAAuADEAMAAuADEAMQAxAC4ANQAAAAAAD3ByaW50UHJvb2ZTZXR1cE9iamMAAAAMAFAA + cgBvAG8AZgAgAFMAZQB0AHUAcAAAAAAACnByb29mU2V0dXAAAAABAAAAAEJsdG5lbnVtAAAA + DGJ1aWx0aW5Qcm9vZgAAAAlwcm9vZkNNWUsAOEJJTQQ7AAAAAAItAAAAEAAAAAEAAAAAABJw + cmludE91dHB1dE9wdGlvbnMAAAAXAAAAAENwdG5ib29sAAAAAABDbGJyYm9vbAAAAAAAUmdz + TWJvb2wAAAAAAENybkNib29sAAAAAABDbnRDYm9vbAAAAAAATGJsc2Jvb2wAAAAAAE5ndHZi + b29sAAAAAABFbWxEYm9vbAAAAAAASW50cmJvb2wAAAAAAEJja2dPYmpjAAAAAQAAAAAAAFJH + QkMAAAADAAAAAFJkICBkb3ViQG/gAAAAAAAAAAAAR3JuIGRvdWJAb+AAAAAAAAAAAABCbCAg + ZG91YkBv4AAAAAAAAAAAAEJyZFRVbnRGI1JsdAAAAAAAAAAAAAAAAEJsZCBVbnRGI1JsdAAA + AAAAAAAAAAAAAFJzbHRVbnRGI1B4bEBSAAAAAAAAAAAACnZlY3RvckRhdGFib29sAQAAAABQ + Z1BzZW51bQAAAABQZ1BzAAAAAFBnUEMAAAAATGVmdFVudEYjUmx0AAAAAAAAAAAAAAAAVG9w + IFVudEYjUmx0AAAAAAAAAAAAAAAAU2NsIFVudEYjUHJjQFkAAAAAAAAAAAAQY3JvcFdoZW5Q + cmludGluZ2Jvb2wAAAAADmNyb3BSZWN0Qm90dG9tbG9uZwAAAAAAAAAMY3JvcFJlY3RMZWZ0 + bG9uZwAAAAAAAAANY3JvcFJlY3RSaWdodGxvbmcAAAAAAAAAC2Nyb3BSZWN0VG9wbG9uZwAA + AAAAOEJJTQPtAAAAAAAQAEgAAAABAAIASAAAAAEAAjhCSU0EJgAAAAAADgAAAAAAAAAAAAA/ + gAAAOEJJTQQNAAAAAAAEAAAAHjhCSU0EGQAAAAAABAAAAB44QklNA/MAAAAAAAkAAAAAAAAA + AAEAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAAAAAASAAvZmYAAQBsZmYABgAAAAAA + AQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1AAAAAQAtAAAABgAAAAAA + AThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP////////////// + //////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////////// + /////////////////wPoAAA4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQeAAAA + AAAEAAAAADhCSU0EGgAAAAADWwAAAAYAAAAAAAAAAAAAAL0AAAmwAAAAEwBNAGEAbgB1AGEA + bAAtAGMAbwB2AGUAcgAtAGYAbwBvAHQAZQByAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAA + AAAAAAAAAAmwAAAAvQAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAB + AAAAAAAAbnVsbAAAAAIAAAAGYm91bmRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3Ag + bG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21sb25nAAAAvQAAAABSZ2h0bG9uZwAA + CbAAAAAGc2xpY2VzVmxMcwAAAAFPYmpjAAAAAQAAAAAABXNsaWNlAAAAEgAAAAdzbGljZUlE + bG9uZwAAAAAAAAAHZ3JvdXBJRGxvbmcAAAAAAAAABm9yaWdpbmVudW0AAAAMRVNsaWNlT3Jp + Z2luAAAADWF1dG9HZW5lcmF0ZWQAAAAAVHlwZWVudW0AAAAKRVNsaWNlVHlwZQAAAABJbWcg + AAAABmJvdW5kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcAAAAAAAAAAExl + ZnRsb25nAAAAAAAAAABCdG9tbG9uZwAAAL0AAAAAUmdodGxvbmcAAAmwAAAAA3VybFRFWFQA + AAABAAAAAAAAbnVsbFRFWFQAAAABAAAAAAAATXNnZVRFWFQAAAABAAAAAAAGYWx0VGFnVEVY + VAAAAAEAAAAAAA5jZWxsVGV4dElzSFRNTGJvb2wBAAAACGNlbGxUZXh0VEVYVAAAAAEAAAAA + AAlob3J6QWxpZ25lbnVtAAAAD0VTbGljZUhvcnpBbGlnbgAAAAdkZWZhdWx0AAAACXZlcnRB + bGlnbmVudW0AAAAPRVNsaWNlVmVydEFsaWduAAAAB2RlZmF1bHQAAAALYmdDb2xvclR5cGVl + bnVtAAAAEUVTbGljZUJHQ29sb3JUeXBlAAAAAE5vbmUAAAAJdG9wT3V0c2V0bG9uZwAAAAAA + AAAKbGVmdE91dHNldGxvbmcAAAAAAAAADGJvdHRvbU91dHNldGxvbmcAAAAAAAAAC3JpZ2h0 + T3V0c2V0bG9uZwAAAAAAOEJJTQQoAAAAAAAMAAAAAj/wAAAAAAAAOEJJTQQRAAAAAAABAQA4 + QklNBBQAAAAAAAQAAAABOEJJTQQMAAAAAAPhAAAAAQAAAJ0AAAAMAAAB2AAAFiAAAAPFABgA + Af/Y/+0ADEFkb2JlX0NNAAL/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEV + DwwMDxUYExMVExMYEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0O + DRAODhAUDg4OFBQODg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM + DAwMDAz/wAARCAAMAJ0DASIAAhEBAxEB/90ABAAK/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwAB + AgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIFBwYIBQMM + MwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKDJkST + VGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eH + l6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMk + YuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSl + tcXV5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwD1VVbK+pF7jVfQ2ufa + 11L3ED+U8ZNe7/MVpJOjd6V/hcP/AHaydVrxf4HH/wCo2n6XVv8AuTj/APsO/wD960vS6t/3 + Jx//AGHf/wC9auJJ/q/qf+NLPR/rP/Hmn6XVv+5OP/7Dv/8AetL0urf9ycf/ANh3/wDvWriS + Xq/qf+NK9H+s/wDHmn6XVv8AuTj/APsO/wD960vS6t/3Jx//AGHf/wC9auJJer+p/wCNK9H+ + s/8AHmn6XVv+5OP/AOw7/wD3rS9Lq3/cnH/9h3/+9auJJer+p/40r0f6z/x5p+l1b/uTj/8A + sO//AN60vS6t/wBycf8A9h3/APvWriSXq/qf+NK9H+s/8eafpdW/7k4//sO//wB60vS6t/3J + x/8A2Hf/AO9auJJer+p/40r0f6z/AMeafpdW/wC5OP8A+w7/AP3rS9Lq3/cnH/8AYd//AL1q + 4kl6v6n/AI0r0f6z/wAeafpdW/7k4/8A7Dv/APetL0urf9ycf/2Hf/71q4kl6v6n/jSvR/rP + /HkOO3KaHfabK7D+aa6zXA/lb7b9yMkkmG+Lpf8Ag8P/AHjIK4etV/W4/wDv3//ZADhCSU0E + IQAAAAAAXQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8AcwBoAG8AcAAAABcAQQBk + AG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAEMAIAAyADAAMQA1AAAAAQA4QklNBAYA + AAAAAAcABgAAAAEBAP/hDd9odHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvADw/eHBhY2tl + dCBiZWdpbj0i77u/IiBpZD0iVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkIj8+IDx4OnhtcG1l + dGEgeG1sbnM6eD0iYWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IkFkb2JlIFhNUCBDb3JlIDUu + Ni1jMTExIDc5LjE1ODMyNSwgMjAxNS8wOS8xMC0wMToxMDoyMCAgICAgICAgIj4gPHJkZjpS + REYgeG1sbnM6cmRmPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgt + bnMjIj4gPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6eG1wTU09Imh0dHA6 + Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9tbS8iIHhtbG5zOnN0UmVmPSJodHRwOi8vbnMuYWRv + YmUuY29tL3hhcC8xLjAvc1R5cGUvUmVzb3VyY2VSZWYjIiB4bWxuczpzdEV2dD0iaHR0cDov + L25zLmFkb2JlLmNvbS94YXAvMS4wL3NUeXBlL1Jlc291cmNlRXZlbnQjIiB4bWxuczp4bXA9 + Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOmRjPSJodHRwOi8vcHVybC5v + cmcvZGMvZWxlbWVudHMvMS4xLyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRvYmUu + Y29tL3Bob3Rvc2hvcC8xLjAvIiB4bXBNTTpPcmlnaW5hbERvY3VtZW50SUQ9InhtcC5kaWQ6 + YWQ1NDM0NTEtYTYyMC00OTU3LWFjMTAtODBjYWI5Y2RmZTE3IiB4bXBNTTpEb2N1bWVudElE + PSJ4bXAuZGlkOjY4OTdDQUNCNTA4QzExRTZBNDM0OEZBOEMyNjg4OUZBIiB4bXBNTTpJbnN0 + YW5jZUlEPSJ4bXAuaWlkOjhmNjNjZjY5LTkwYTEtNDI3Ni05N2FmLWZiNGRlZDJmZjBlNSIg + eG1wOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ0MgMjAxNSAoTWFjaW50b3NoKSIg + eG1wOkNyZWF0ZURhdGU9IjIwMTYtMDgtMDJUMTQ6MTM6NDYrMTA6MDAiIHhtcDpNb2RpZnlE + YXRlPSIyMDE2LTA4LTAyVDE0OjIyOjE5KzEwOjAwIiB4bXA6TWV0YWRhdGFEYXRlPSIyMDE2 + LTA4LTAyVDE0OjIyOjE5KzEwOjAwIiBkYzpmb3JtYXQ9ImltYWdlL2pwZWciIHBob3Rvc2hv + cDpDb2xvck1vZGU9IjMiPiA8eG1wTU06RGVyaXZlZEZyb20gc3RSZWY6aW5zdGFuY2VJRD0i + eG1wLmlpZDo1ZjY4NjA4NC1kZGUzLTQzNjAtYjBkMi1lNWEwZDZkMjc3Y2UiIHN0UmVmOmRv + Y3VtZW50SUQ9InhtcC5kaWQ6YWQ1NDM0NTEtYTYyMC00OTU3LWFjMTAtODBjYWI5Y2RmZTE3 + Ii8+IDx4bXBNTTpIaXN0b3J5PiA8cmRmOlNlcT4gPHJkZjpsaSBzdEV2dDphY3Rpb249InNh + dmVkIiBzdEV2dDppbnN0YW5jZUlEPSJ4bXAuaWlkOjhmNjNjZjY5LTkwYTEtNDI3Ni05N2Fm + LWZiNGRlZDJmZjBlNSIgc3RFdnQ6d2hlbj0iMjAxNi0wOC0wMlQxNDoyMjoxOSsxMDowMCIg + c3RFdnQ6c29mdHdhcmVBZ2VudD0iQWRvYmUgUGhvdG9zaG9wIENDIDIwMTUgKE1hY2ludG9z + aCkiIHN0RXZ0OmNoYW5nZWQ9Ii8iLz4gPC9yZGY6U2VxPiA8L3htcE1NOkhpc3Rvcnk+IDwv + cmRmOkRlc2NyaXB0aW9uPiA8L3JkZjpSREY+IDwveDp4bXBtZXRhPiAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDw/eHBhY2tldCBlbmQ9Inci + Pz7/7gAOQWRvYmUAZEAAAAAB/9sAhAACAgIDAgMEAgIEBQQDBAUGBQUFBQYIBwcHBwcICwkJ + CQkJCQsLCwsLCwsLDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQMDAwcEBw0HBw0PDQ0NDw8ODg4O + Dw8MDAwMDA8PDAwMDAwMDwwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAC9CbAD + AREAAhEBAxEB/90ABAE2/8QBogAAAAcBAQEBAQAAAAAAAAAABAUDAgYBAAcICQoLAQACAgMB + AQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAIBAwMCBAIGBwMEAgYCcwECAxEEAAUhEjFBUQYT + YSJxgRQykaEHFbFCI8FS0eEzFmLwJHKC8SVDNFOSorJjc8I1RCeTo7M2F1RkdMPS4ggmgwkK + GBmElEVGpLRW01UoGvLj88TU5PRldYWVpbXF1eX1ZnaGlqa2xtbm9jdHV2d3h5ent8fX5/c4 + SFhoeIiYqLjI2Oj4KTlJWWl5iZmpucnZ6fkqOkpaanqKmqq6ytrq+hEAAgIBAgMFBQQFBgQI + AwNtAQACEQMEIRIxQQVRE2EiBnGBkTKhsfAUwdHhI0IVUmJy8TMkNEOCFpJTJaJjssIHc9I1 + 4kSDF1STCAkKGBkmNkUaJ2R0VTfyo7PDKCnT4/OElKS0xNTk9GV1hZWltcXV5fVGVmZ2hpam + tsbW5vZHV2d3h5ent8fX5/c4SFhoeIiYqLjI2Oj4OUlZaXmJmam5ydnp+So6SlpqeoqaqrrK + 2ur6/9oADAMBAAIRAxEAPwD7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FX/9D7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9H7 + +Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9L7+Yq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9P7+Yq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9T7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FUn1XVLLRrd9Q1ieK0tY6c5ZnWNFqaCrNQdTk8eOWWXDEWWjPqYaePFkkIj+kxz/ + AJWX5R/6v+k/9J8H/NeZn8j6n/U5/wClk67/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa + 8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ + ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8A + pPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX + /RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/ + 9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz + /wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63 + f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/k + fU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/Vs + X/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pP + g/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EG + i/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/ + AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0 + sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ys + vyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx + /kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8A + KyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk + +D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9 + EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1 + f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/ + AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ + ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9 + T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf + 8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D + /mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL + /VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8A + V/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/Sy + X/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/ + KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+ + R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wAr + I/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4 + P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0Q + aL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/ + 0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8A + SyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/K + y/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P + +pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/y + sj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+ + a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9 + Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX + /Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf + 9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o + /wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H + 1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj + +t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/ + 5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBo + v9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/S + f+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBL + Jf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL + 8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6 + nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/Ky + P63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5r + x/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1b + F/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9 + J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0 + QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ + ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU + /wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP6 + 3f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/m + vH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/ + 1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/ + 6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl + /wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvy + j/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc + /wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/ + rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH + +R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX + /KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n + /pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RB + ov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A + 1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/ + AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd + /wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8 + f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/V + sX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/p + Pg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/ + AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP + /V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ + ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t + 3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5 + H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8 + rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+ + k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi + /wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV + /wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8A + qc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ + ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/ + kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wx + f8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+ + D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8A + RBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9 + X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A + 0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f + 8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kf + U/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ys + j+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T + 4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/ + AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/ + AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCp + z/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8A + Ky/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R + 9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ + ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P + +a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBE + Gi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f + 9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDS + yX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/y + svyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T + /qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP + 63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg + /wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8A + VsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8A + Sf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP + /SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wAr + L8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1 + P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/K + yP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5 + rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQa + L/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0 + n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJ + f9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky + /KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+ + pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/r + d/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/ + AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBW + xf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ + /wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9 + LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsv + yj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/ + 6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI + /rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mv + H+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov + 9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf + +k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/ + 0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8 + o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6n + P/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3 + /Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8A + mvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF + /wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/ + AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0s + l/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/K + P/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/q + c/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+ + t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f + 5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1 + bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6 + T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/R + Bov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj + /wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/ + 9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8 + rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa + 8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ + ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8A + pPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX + /RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/ + 9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz + /wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63 + f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/k + fU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/Vs + X/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pP + g/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EG + i/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/ + AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0 + sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ys + vyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx + /kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8A + KyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk + +D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9 + EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1 + f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/ + AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ + ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9 + T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf + 8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D + /mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL + /VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8A + V/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/Sy + X/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/ + KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+ + R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wAr + I/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4 + P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0Q + aL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/ + 0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8A + SyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/K + y/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P + +pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/y + sj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+ + a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9 + Wxf8rI/rTvSNe03zDC13oV3b3sCNwMlvKkqhgAaVUkVocxc+CeKXDkiY+/ZztLrMWpjxYpRm + P6MuJkGVOU7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX//V+/mKuxV2KuxV2Kux + V2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV4d/zkV/5LzWPnaf8AUVFnQ+yv+O4/87/cyeQ9vP8A + jMy/5v8A00i/LzPYn5wdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir + sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsV + dirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdi + rsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirs + VdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVd + irsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir + sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsV + dirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdi + rsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirs + VdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir9DP+cS/+URvf+2rL/yYgzy3 + 22/xmP8AU/30n3f/AIGH+JS/4bL/AHON9UZxz6O7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FX//1vv5irsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVeHf85Ff+S81j + 52n/AFFRZ0Psr/juP/O/3MnkPbz/AIzMv+b/ANNIvy8z2J+cHYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq/Qz/nEv/lEb3/tqy/8mIM8t9tv8Zj/AFP99J93/wCBh/iUv+Gy/wBzjfVGcc+juxV2 + KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//9f7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9D7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FX/9H7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FX/9L7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9P7+Yq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9T7+Yq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9X7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9b7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FX/9f7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FX/9D7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9H7+Yq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9L7+Yq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9P7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9T7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FX/9X7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FX/9b7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9k= + + + Decorative Border + + Uncontrolled when printed + + + + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}}RePL Training Manual + Uncontrolled when printedPage 26of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}}RePL Training Manual + Uncontrolled when printedPage 27of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}}RePL Training Manual + Uncontrolled when printedPage 29of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}}RePL Training Manual + Uncontrolled when printedPage 30of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}}RePL Training Manual + Uncontrolled when printedPage 32of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}} RePL Training Manual + Uncontrolled when printed Page 35of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}} RePL Training Manual + Uncontrolled when printedPage 36of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}}RePL Training Manual + Uncontrolled when printedPage 40of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}} RePL Training Manual + Uncontrolled when printed Page 41of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}} RePL Training Manual + Uncontrolled when printed Page 42of 49 + + + + + {{organisation-name}} RePL Training Manual + + + + + Version {{version}} - {{version-date}}RePL Training Manual + Uncontrolled when printedPage 49of 49 + + + + + + + + + + + + +       + {{organisation-name}} + CASR PART 101 + RePL Training Manual + + + + Version{{version}} – {{version-date}} + Approver{{cri-name}}, CRI + Review Date{{review-date}} + ARN{{organisation-arn}} + Build${CI_COMMIT_SHA} + Table of contents + {{contents}} + {{body}} + + + diff --git a/template/repl-training-manual.md b/template/repl-training-manual.md new file mode 100644 --- /dev/null +++ b/template/repl-training-manual.md @@ -0,0 +1,2976 @@ +# Preface + +This RePL training manual (this manual) contains the documented practices and procedures, syllabus, curriculum, lesson material, assessment instruments and handbooks under which {{organisation-name}} conducts remote pilot licence (RePL) training courses. It forms part of the documented practices and procedures of {{organisation-name}} and is read together with the {{organisation-name}} RPAS Operations Manual (the operations manual). Where this manual is silent, the operations manual applies. Where this manual and the operations manual conflict on a matter of RePL training, this manual applies, unless the operations manual requirement is more restrictive. + +All {{organisation-name}} personnel involved in RePL training, and all students, must comply with the instructions and procedures in this manual. + +This manual is effective only after CASA has authorised {{organisation-name}} to conduct RePL training and has approved the nominated chief RePL instructor (CRI). {{organisation-name}} must not conduct RePL training while the CRI position is vacant. + +The manual is organised as follows: + +- Part A – Documented practices and procedures for RePL training +- Part B – Syllabus and curriculum for each course +- Part C – Theory lesson plans and instructor notes +- Part D – Theory lesson content (student notes) +- Part E – Theory examination and knowledge deficiency mapping +- Part F – Practical lesson plans and instructor notes +- Part G – Practical worksheets (formative) +- Part H – Flight test sheets (summative) +- Part I – Instructor handbook +- Part J – Student handbook + +The question bank for the theory examinations is not reproduced in this manual. It is a controlled document held by the CRI (see Part A, *Examination security*). + +## Amendment record + +| Version no. | Date | Effective date | Parts / sections | Details | +|---|---|---|---|---| +| {{version}} | {{version-date}} | | All | | + +Note: The version number and date are also shown in the footer of each page and are updated with each amendment. + +## Glossary + +### Acronyms and abbreviations + +| Acronym / abbreviation | Description | +|---|---| +| AGL | Above ground level | +| AIP | Aeronautical Information Publication | +| AMSL | Above mean sea level | +| ANCA | Aviate, navigate, communicate, administrate | +| ARN | Aviation reference number | +| ATSB | Australian Transport Safety Bureau | +| ATTI | Attitude mode (RPA flight mode without satellite positioning) | +| BVLOS | Beyond visual line of sight | +| C2 link | Command and control link | +| CASA | Civil Aviation Safety Authority | +| CASR | Civil Aviation Safety Regulations 1998 | +| CBT | Competency-based training | +| CEO | Chief executive officer | +| CRI | Chief RePL instructor | +| CRP | Chief remote pilot | +| DPP | Documented practices and procedures | +| ERSA | En Route Supplement Australia | +| EVLOS | Extended visual line of sight | +| FT | Flight test | +| GCS | Ground control station | +| GNSS | Global navigation satellite system (including GPS) | +| HLS | Helicopter landing site | +| IAW | In accordance with | +| KDR | Knowledge deficiency report | +| LiPo | Lithium polymer (battery) | +| MC | Maintenance controller | +| MOS | Manual of Standards (Part 101 MOS unless stated otherwise) | +| NM | Nautical miles | +| NOTAM | Notice to airmen | +| NS | Not satisfactory (not yet competent) | +| PL | Practical lesson | +| PRD | Prohibited, restricted or danger area | +| ReOC | Remotely piloted aircraft operator's certificate | +| RePL | Remote pilot licence | +| RP | Remote pilot | +| RPA | Remotely piloted aircraft | +| RPAS | Remotely piloted aircraft system | +| RTH | Return to home (automated return function, also called Go Home) | +| S | Satisfactory (competent) | +| SOC | Standard RPA operating conditions – reference reg 101.238 CASR | +| TL | Theory lesson | +| VLOS | Visual line of sight | +| VMC | Visual meteorological conditions | +| VNC | Visual navigation chart | +| VTC | Visual terminal chart | + +### Definitions + +For the definition of terms not defined here, refer to the operations manual, the Part 1 Dictionary of CASR and the Part 101 MOS. + +| Term | Definition | +|---|---| +| Course | A RePL training course listed in Part B, defined by its course type, RPA category, weight class(es), training RPA and complexity. | +| Competent | The student has consistently performed the task to the standard in the relevant performance criteria, without instructor assistance, in the conditions specified. | +| Examiner | A RePL training instructor authorised in writing by the CRI to conduct flight tests. | +| Formative assessment | Assessment during training, recorded on a practical worksheet, used to guide further training. It does not determine the course result. | +| Instructor | A RePL training instructor authorised in writing by the CRI under Part A, *Instructor standards*. | +| Knowledge deficiency report | A report given to a student after a theory examination that lists, by syllabus item, each item in which the student answered a question incorrectly. | +| Question bank | The controlled set of theory examination questions, each tagged to a syllabus item, from which examination papers are drawn. | +| Student | A person enrolled in a course. | +| Summative assessment | Assessment that determines whether the student meets the course standard: the theory examination and the flight test. | +| Training flight | A flight conducted as part of a course in which a student manipulates the controls of an RPA, including a flight test. | +| Training RPA | An RPA listed for a course in Part B and entered in the RPA register in the operations manual. | + +# Part A – Documented practices and procedures + +## Scope of RePL training + +{{organisation-name}} conducts the RePL training courses listed in Part B. Each course is defined by its course type, RPA category, weight class(es), training RPA and complexity, as approved by CASA on the ReOC. + +{{organisation-name}} does not conduct RePL training in medium RPA (gross weight more than 25 kg) or large RPA (gross weight more than 150 kg). A safety case for medium or large RePL training is therefore not required. Before adding medium or large RPA to its RePL training, {{organisation-name}} must consult CASA and obtain approval of the change. + +The addition of a course, RPA category, weight class or complexity, or a change to the CRI, is a significant change and must not be implemented until CASA has approved it (see operations manual, *Amendment procedure*). Adding a training RPA of the same category, within an approved weight class and complexity, is a non-significant change; the CRI must update Part B, assess the RPA under Part A, *Training RPA*, and notify CASA within 21 days. + +## Key personnel for RePL training + +| Position | Name | ARN | +|---|---|---| +| Chief RePL instructor | {{cri-name}} | {{cri-arn}} | +| Chief remote pilot | {{crp-name}} | | +| Chief executive officer | {{ceo-name}} | | + +The CRI reports to the CEO on RePL training matters and coordinates with the CRP on all matters affecting the safety of training flights. The CRP retains responsibility for the safe conduct of all RPA operations of {{organisation-name}}, including training flights. + +### Chief RePL instructor (CRI) + +The CRI is responsible for the quality and safe conduct of RePL training. Without limiting the duties and accountabilities of the CRI, the CRI must: + +- ensure each course is conducted IAW CASR Part 101, the Part 101 MOS, the ReOC and this manual +- set, monitor and maintain the RePL training standards in this manual +- identify deficiencies in training outcomes and take corrective action (see Part A, *Quality and review*) +- ensure that sufficient instructors and serviceable training RPA are available for each course before it starts +- assess and authorise instructors, and be satisfied that an instructor meets the examiner requirements before authorising them as an examiner +- ensure each instructor receives initial and recurrent assessment, and the training, information and documents needed to deliver the courses +- control the question bank and the conduct of theory examinations +- review every examination result, knowledge deficiency report and flight test result +- sign and date each certificate of course completion, and arrange notification of results to CASA +- keep the RePL training records required by Part A, *Training records* +- report to the CEO and CRP on course compliance and training outcomes at least once every 6 months and after any safety occurrence during training +- maintain current knowledge of legislation, CASA guidance, ReOC conditions and the content of this manual. + +The CRI has the authority to suspend any course, lesson, instructor or training RPA where the CRI considers that training cannot be conducted safely or to the standard in this manual. This authority must not be overridden by commercial pressure. + +#### Qualifications of the CRI + +The CRI must: + +- hold a RePL covering each category and weight class of RPA used in the courses listed in Part B +- meet the requirements for an instructor in Part A, *Instructor standards* +- hold a Part 61 flight instructor rating, a Certificate IV in Training and Assessment, a tertiary teaching qualification, or another qualification accepted by CASA as equivalent +- have 20 hours of non-training operational experience in RPA operations for a ReOC holder in each category in which the CRI delivers practical training. + +### Holding of multiple positions + +The CRI may also hold the positions of CEO, CRP and MC. Where one individual holds more than one position, that individual must: + +- perform each duty in the capacity of the relevant position and record it in the relevant record (for example, a flight test result in the flight test record, and the flight authorisation for a training flight in the Flight Record) +- schedule courses so that there is enough time to perform the duties of each position before, during and after training +- arrange an independent review of training quality under Part A, *Quality and review*, because the CRI otherwise reviews their own instruction and assessment +- not conduct RePL training while unable to perform the duties of the CRI. + +Where the CRI also holds a key position for another ReOC holder, the CRI must inform the CEO and must not schedule RePL training that conflicts with those duties. + +## Instructor standards + +### Who may instruct + +Only the CRI and persons authorised in writing by the CRI may deliver RePL training. At the date of this version, the CRI is the only instructor and examiner. + +Before authorising a person as an instructor, the CRI must confirm and record that the person: + +- is employed or engaged by {{organisation-name}} +- holds a RePL covering the category and weight class of each training RPA they will instruct on, and the automated and manual approvals for the complexity of the course +- for practical instruction, has at least 20 hours of non-training operational experience in RPA operations for a ReOC holder in that category +- holds a teaching or instructional qualification listed for the CRI, or has completed {{organisation-name}}'s instructor standardisation in Part I under supervision of the CRI +- has completed the operations manual induction and RPAS type training (operations manual, Appendix G) for each training RPA +- has demonstrated to the CRI, by delivering a theory lesson and a practical lesson under observation, that they can instruct and assess to the standard in this manual. + +The authorisation is recorded in the Instructor and Examiner Register (Form T8), stating the courses, categories and lessons the instructor may deliver. + +### Examiners + +The CRI may authorise an instructor as an examiner. Before doing so, the CRI must be satisfied that the instructor: + +- meets all instructor requirements for the course +- has instructed on the course for at least two complete courses +- has conducted a flight test under the observation of the CRI to the standard in Part H +- understands the flight test standards, the conditions for a re-test, and the records to be completed. + +Flight tests are conducted by {{flight-test-examiner}}. An examiner must not conduct the flight test of a student where the examiner has a personal or financial relationship with the student (other than the student's enrolment with {{organisation-name}}) that could affect the examiner's judgement. + +### Instructor currency and recurrent assessment + +Each instructor must: + +- meet the operations manual recency requirements for each training RPA +- complete a recurrent assessment by the CRI at least every 12 months, consisting of an observed theory lesson or practical lesson, and a proficiency flight covering the flight test items in Part H for each category instructed +- complete refresher training directed by the CRI after any amendment to this manual, any change to legislation affecting the courses, or any assessment finding. + +An instructor who does not meet these requirements must not instruct or examine until they have been reassessed by the CRI. The CRI records recurrent assessments in Form T8. Where the CRI is the only instructor, the CRI's own recurrent proficiency flight is recorded in the same way and is included in the independent review under Part A, *Quality and review*. + +## Student entry requirements + +Before enrolment, a student must: + +- hold an individual ARN (the student is told how to apply for one in the student handbook, Part J) +- be at least 16 years old on the date of the flight test +- be able to read, write, speak and understand English to the standard needed to understand the course material and to communicate safely during flight +- declare that they are not aware of any medical condition, medication or other matter that would make them unfit to operate an RPA safely, and agree to comply with the fitness for duty requirements of the operations manual during training. + +Additional entry requirements by course type: + +| Course type | Additional requirement | Evidence sighted and copied | +|---|---|---| +| Initial | None | – | +| Initial – theory credit | Pass in an aeronautical knowledge examination at least to the Part 61 RPL standard, or a CASA-issued pilot licence, or an acceptable overseas or military equivalent. The student completes the practical component only (and the category-specific knowledge check in Part E where required). | Licence, examination report or equivalent | +| Upgrade (same category) | Current RePL in the course category at a lower weight class | RePL | +| Upgrade (different category) | Current RePL in any category | RePL | + +The instructor records the evidence on the Enrolment Record (Form T1). A student who does not meet an entry requirement must not commence the relevant component of the course. + +## Enrolment + +The enrolment procedure is: + +1. The prospective student applies to {{organisation-name}} and nominates the course. +2. The instructor confirms the entry requirements, sights the evidence and records it on Form T1. +3. The student is given the student handbook (Part J), the course timetable, the theory lesson content (Part D) for the course, and the operations manual sections listed in the student handbook. +4. The student signs Form T1 to confirm that they have read the student handbook and agree to comply with it, and that the information they have provided is true. +5. The CRI confirms that an instructor, a serviceable training RPA and a suitable training area are available for the course dates, and that the number of students does not exceed the limits in Part A, *Training facilities and resources*. +6. The student's training file is opened (see Part A, *Training records*). + +## Course conduct + +Each course is delivered as described in Part B, in the order shown in the course curriculum. The instructor must not start a lesson until the student has completed the prerequisite lessons for that lesson. The student must pass the theory examination before the flight test. + +Training is competency-based. The minimum lesson durations and flight times in Part B are minimums; a student progresses when the student is assessed as competent, and receives further training where not. A student must not be assessed as competent on the basis of time alone. + +Theory lessons are delivered by {{theory-delivery}}. Where any part of a theory lesson is delivered remotely or self-paced, the instructor must confirm the student's understanding of each syllabus item by questioning before the student sits the examination, and record it on the Theory Training Record (Form T2). + +A student who has not attended training for more than 6 months must be reassessed by the instructor; the instructor determines which lessons must be repeated and records the decision. + +## Training records + +The CRI is responsible for RePL training records. Records are stored on the {{organisation-name}} document repository with the other records of the operations manual, and backed up IAW the operations manual. Paper records are scanned into the student's training file within 7 days. + +A training file is kept for each student and contains: + +| Record | Form | Completed by | +|---|---|---| +| Enrolment Record, including evidence of entry requirements and the student's ARN | T1 | Instructor, student | +| Theory Training Record (attendance and understanding checks per syllabus item) | T2 | Instructor | +| Theory examination record: paper identifier, date, start and finish times, supervisor, score, result | T3 | Supervisor, CRI | +| Knowledge deficiency report and record of remedial training | T4 | Instructor, student | +| Practical worksheets for each practical lesson, including flight time | Part G | Instructor | +| Flight training log (date, location, RPA make, model and serial, flight time, lesson) | T5 | Instructor | +| Flight test sheet, including the RPA used | Part H | Examiner | +| Certificate of course completion (copy) | T6 | CRI | +| Copy of the notification of results to CASA | Form 101-05 | CRI | +| Correspondence, complaints and appeals | – | CRI | + +The CRI also keeps: + +- the course register (each course conducted: course, dates, students, instructors, training RPA, outcomes) +- the Instructor and Examiner Register (Form T8), including each instructor's licences, ratings, qualifications, operational experience, authorisations, recurrent assessments, refresher training and competency checks +- the question bank change log and the examination paper register +- the CRI activity record: a log of the CRI's oversight activities (course reviews, examination reviews, instructor assessments, reports to the CEO and CRP), showing that the CRI is regularly performing the CRI's duties +- training document review records (see Part A, *Quality and review*). + +All RePL training records must be retained for at least 7 years after the date on which the record was made, or for the period required by the operations manual, whichever is longer. Records relevant to an open complaint, appeal, safety occurrence or investigation must not be destroyed. + +Records are made available to CASA on request. Students may request a copy of their own training file. + +## Theory examination procedures + +### Examinations used + +The theory examinations and their specifications are in Part E. Each examination paper is drawn from the question bank so that it meets the specification for the course. + +### Supervision and conduct + +- The examination is conducted under the direct supervision of an instructor (the supervisor) {{exam-delivery}}. +- The supervisor confirms the student's identity against photographic identification and records the student's ARN on Form T3. +- The student may use only the materials permitted in Part E. Mobile phones, smart watches and other connected devices are switched off and placed out of reach. +- The supervisor reads the examination rules in Part E to the student before the examination starts, and records the start and finish times. +- The supervisor must not assist the student with the content of any question. The supervisor may clarify the wording of a question only where the question contains an obvious error, and must record the clarification on Form T3 for review by the CRI. +- If the supervisor observes or suspects cheating, the supervisor stops the examination, records the circumstances, and refers the matter to the CRI. The CRI may void the attempt. +- On completion, the supervisor collects all examination materials, including working paper, and marks the paper against the controlled answer key. + +### Results + +- The pass mark is in Part E. +- The supervisor records the score and result on Form T3. The CRI reviews and countersigns every result within 7 days. +- Every student who sits an examination, whether they pass or fail, receives a knowledge deficiency report (see below). The student is not shown the questions or the answer key after the examination. + +### Knowledge deficiency reports + +1. After marking, the supervisor produces the KDR (Form T4) listing, for each question answered incorrectly, the syllabus item it is mapped to (Part E, *Knowledge deficiency mapping*). The KDR lists syllabus items, not the questions. +2. The instructor gives the KDR to the student and conducts remedial training covering every listed syllabus item, using the theory content in Part D and the instructor notes in Part C. +3. The instructor confirms by oral questioning that the student now understands each listed item, and records the remedial training and the result against each item on Form T4. The student signs Form T4. +4. All items on the KDR must be closed before the certificate of course completion is issued. Where the student failed the examination, the KDR items must be closed before a resit. + +### Resits + +- A student who fails an examination must complete the remedial training in the KDR before a resit. +- A resit uses a different paper drawn from the question bank such that, as far as the bank allows, no question from the student's previous paper is repeated. +- A student may attempt an examination no more than three times. After the final unsuccessful attempt, the CRI must review the student's training and decide whether the student repeats the theory component of the course before any further attempt. The decision is recorded on Form T3. + +### Examination security + +- The question bank, answer key and examination papers are controlled documents held by the CRI on the document repository with access restricted to the CRI and authorised examination supervisors. +- Printed papers are numbered, issued and collected by the supervisor, and destroyed after scanning of the student's answer sheet; the paper number is recorded on Form T3 and in the examination paper register. +- Students do not retain any examination material. +- If the CRI suspects that the security of the question bank or a paper has been compromised, the CRI must withdraw the affected questions or papers, record the event, and replace the questions before further examinations. +- The CRI reviews the question bank at least annually, and after any change to legislation or to Part D, to confirm that every question is correct, current and mapped to a syllabus item, and that every syllabus item is examinable. The review, and every change to a question, is recorded in the question bank change log. +- The CRI analyses examination results at least every 6 months, identifying questions with unusually high failure rates and recurring KDR items, and acts on the findings under Part A, *Quality and review*. + +## Flight test procedures + +### Eligibility for the flight test + +A student may be presented for the flight test only when: + +- the student has passed the theory examination (or holds a theory credit) and all KDR items are closed +- the practical worksheets show the student competent in every practical lesson for the course +- the student has completed the minimum flight time for the course in Part B +- the instructor has recommended the student for the flight test on the student's last practical worksheet. + +### Conduct of the flight test + +- The flight test is conducted by an examiner on a training RPA for the course, at an approved training location, using the flight test sheet for the course category and complexity in Part H. +- The examiner briefs the student on the content and standard of the test, the conditions under which the test will be discontinued, how the examiner will take control if required, and how simulated emergencies will be initiated. +- The examiner is the RP in command and retains authority to discontinue the test or take control at any time for safety. +- Each item is assessed as S or NS against the standard in Part H. An item may be repeated once if the first attempt was affected by a factor outside the student's control (for example, a gust or a third-party intrusion into the operating area); the examiner records the reason. +- If the examiner has to take control to prevent an unsafe situation, the item is NS. +- The examiner debriefs the student on the result and records it on the flight test sheet, including the RPA make, model and serial number, date, location, weather and flight time. + +### Failed or incomplete flight tests + +- If the test is discontinued for reasons outside the student's control (weather, unserviceability), the examiner records the items completed. The remaining items may be completed within 30 days without repeating items already assessed as S. +- If the student is assessed NS on any item, the flight test is failed. The examiner records the NS items and the reasons. The student must receive additional training in the NS items from an instructor, recorded on a practical worksheet, and be recommended again before a re-test. +- A re-test covers all NS items and any other item the examiner considers necessary. Where the re-test is more than 30 days after the original test, the full flight test is repeated. +- A student who fails a second re-test is referred to the CRI, who decides what further training is required before any further test. + +## Course completion and notification to CASA + +When the student has met all course requirements, the CRI must, before signing the certificate of course completion (Form T6), check the student's training file and confirm that the student has: + +- met the entry requirements for the course, including any prerequisite RePL +- passed the theory examination (or holds a theory credit) and had all KDR items closed +- been assessed as competent in every practical lesson for the course +- completed the minimum flight time for the course +- passed the flight test. + +The certificate of course completion is signed and dated by the CRI and contains: + +- {{organisation-name}} and its ARN ({{organisation-arn}}) +- the student's full name and ARN +- the course name +- the full names of the RePL training units completed (Part B) +- the name of the person who conducted the practical competency component +- for a course with automated-only complexity, the automated operation mode; for a course with automated and manual complexity, both automated and manual operation modes +- the RPA category and weight class(es) +- the date of course completion. + +As soon as practicable, and within 14 days, after signing the certificate, the CRI submits the notification of results to CASA on Form 101-05 (RePL Training – Notification of Results), with the documents CASA requires for the issue or variation of the RePL. The student is given the original certificate and a copy of their flight test result. + +## Safety of training flights + +### Status of training flights + +All training flights, including flight tests, are conducted under the {{organisation-name}} ReOC and IAW the operations manual. The instructor (or examiner) is the RP in command for every training flight and must hold a RePL covering the training RPA. The student manipulates the controls under the instructor's supervision. Training flights must be authorised by the CRP IAW the operations manual, and a Flight Record must be completed for each training session. + +### Training areas and conditions + +Training flights must be conducted only at a training location listed in Part A, *Training facilities and resources*, or at another location assessed by the CRP and the CRI and recorded in a Flight Record. Unless otherwise authorised by CASA, every training flight must: + +- be conducted by day, in VMC, within VLOS of both the student and the instructor +- remain at or below 400 ft AGL, and at or below 200 ft AGL unless the exercise requires a greater height +- be conducted clear of populous areas, outside the no-fly zone of any aerodrome, outside any prohibited or restricted area, and outside the area of any public safety operation +- keep the RPA at least 30 m from any person not directly involved in the training, and, for students who are not flying, at the distance from the RPA set in the pre-flight briefing +- be conducted within the RPA manufacturer's limits and the wind limits in the table below. + +| Training stage | Maximum mean wind | Maximum gust | +|---|---|---| +| First solo-handling lessons (PL2, PL4 first session) | 10 kt | 15 kt | +| All other lessons and flight tests | The lower of the manufacturer's limit and 20 kt | The lower of the manufacturer's limit and 25 kt | + + +For training RPA with a gross weight of more than 7 kg, the minimum distance between the RPA and any person not flying, including other students and the instructor, is the greater of 30 m and the distance specified in the training RPA's type-specific procedures, except during launch and recovery by the person flying and the instructor. Training areas for these RPA must allow the RPA to be landed safely at any point of the planned flight paths. + + +### Instructor control + +- The instructor must be able to take control of the RPA immediately at any time. The method is: {{instructor-takeover-method}}. +- Before each flight, the instructor briefs the student on the handover protocol: the instructor says "I have control", the student releases the controls and replies "You have control". Control is returned in the reverse order. The instructor must take control without waiting for acknowledgement if a hazard is imminent. +- The instructor must take control when the RPA approaches a boundary of the operating area or a minimum height, when a person or aircraft enters the area, or whenever the student is not correcting a developing unsafe situation. +- Only one student manipulates the controls of an RPA at any one time, and an instructor supervises no more than one RPA in flight at any one time. + +### Simulated emergencies + +Simulated emergencies are initiated only by the instructor, at a height and position from which the instructor can recover the RPA. Failures that cannot be simulated safely on the training RPA (for example, actual loss of the C2 link, motor or propeller failure, or fire) are taught by talk-through and, where available, simulator. Loss of satellite positioning is simulated only by selecting the manual (ATTI or equivalent) mode, and only on courses with manual complexity. + +### Occurrences during training + +Any safety occurrence during training must be reported and managed IAW the operations manual, *Safety occurrence reporting*. After any occurrence involving damage to the RPA, injury, or an instructor having to take control to prevent a collision, the CRI must review the circumstances before the student's next training flight and record the outcome. + +### Fitness for duty + +Students are subject to the same fitness for duty requirements as {{organisation-name}} personnel under the operations manual. Before each practical lesson, the instructor confirms with the student that the student is fit to fly and records it on the practical worksheet. The instructor must not allow a student who appears unfit to fly. + +## Training facilities and resources + +### Training locations + +| Location | Use | Notes | +|---|---|---| +{{training-location-rows}} + +The CRI must confirm, before first use and at least annually, that each practical training location: + +- provides an operating area large enough for the manoeuvres in the course, with a clear area around it to keep the RPA at least 30 m from uninvolved persons +- is outside the no-fly zone of any aerodrome and any prohibited or restricted area, and clear of populous areas +- has a launch and recovery area clear of obstacles, and alternate landing areas +- has access and amenities appropriate for students, and shelter from the weather. + +Theory rooms must provide a quiet environment, a display for presentations, and a separate supervised area for examinations. + +### Student numbers + +- A course has no more than {{max-students-per-course}} students. +- During practical training, an instructor supervises no more than {{max-students-per-instructor}} students at the training location at one time, of whom only one is flying. + +### Training RPA + +Each training RPA must: + +- be listed for the course in Part B and in the RPA register in the operations manual +- be of the category, and within the weight class, of the course +- be able to safely perform every manoeuvre required by the practical competencies of the course, including (for courses with manual complexity) flight in a mode without satellite position hold +- be maintained and released to service IAW the operations manual, Section 3 +- carry enough batteries for the planned session with the operations manual reserve. + +The CRI must ensure at least one serviceable training RPA, plus spares for consumable items, is available for each course day. Where an RPA is unserviceable and no other training RPA for the course is available, practical training must be postponed. + + +### Simulator + +{{organisation-name}} uses the following simulator for familiarisation and emergency procedures training: {{simulator}}. Simulator time is recorded separately in the flight training log and does not count towards the minimum flight time for a course. + + +### Reference material + +The following is available to students and instructors during training: this manual (Parts D and J for students), the operations manual, the manufacturer's manual for each training RPA, current VNC and VTC charts or extracts for the training locations, the current ERSA, and access to NAIPS and a CASA-verified drone safety app. + +## Quality and review + +### Ongoing monitoring + +For every course, the CRI reviews: + +- each student's training file before signing the certificate of course completion +- examination results and KDR items +- flight test results, and any NS items +- student feedback, collected on the Course Feedback form (Form T7) at the end of each course +- any occurrences or instructor interventions during training. + +### Periodic review + +At least every 6 months, and after any safety occurrence during training, the CRI reviews trends in examination results, recurring KDR items, flight test outcomes, student feedback and instructor performance, and records: + +- findings, including recurring knowledge gaps and lessons that are not achieving their objectives +- corrective actions (for example, amendments to Part D content, lesson plans, the question bank or instructor standardisation), the person responsible, and the due date. + +The CRI reports the findings and actions to the CEO and CRP. + +### Annual review of training documents + +At least annually, the CRI reviews this manual, the question bank and all forms for currency against CASR Part 101, the Part 101 MOS, AC 101-01 and its Annex A, and the operations manual. The review is recorded in the CRI activity record. Amendments are made IAW the operations manual, *Amendment procedure*. + +### Independent review + +Because the CRI may be the only instructor and examiner, the CRI must arrange an independent review of RePL training at least every {{independent-review-years}} years, and after any finding by CASA. The review is conducted by a person who holds or has held a CRI or equivalent instructional position with another RePL training organisation, and covers a sample of training files, examination papers and results, and observation of at least one practical lesson or flight test. Findings are treated as corrective actions above. + +### Complaints and appeals + +A student may appeal an examination or flight test result, or make a complaint about training, in writing to the CRI within 14 days. The CRI responds in writing within 14 days. Where the appeal concerns an assessment conducted by the CRI, the CRI must refer it to the independent reviewer. An appeal may result in a re-mark, a re-test by a different examiner where available, or no change. Records of complaints and appeals are kept in the student's training file. + +## Forms used in RePL training + +| Form | Title | Location | +|---|---|---| +| T1 | Enrolment Record | Part J, *Forms* | +| T2 | Theory Training Record | Part G, *Theory training record* | +| T3 | Theory Examination Record | Part E, *Examination record* | +| T4 | Knowledge Deficiency Report and Remedial Training Record | Part E, *Knowledge deficiency report* | +| T5 | Flight Training Log | Part G, *Flight training log* | +| T6 | Certificate of Course Completion | Part J, *Forms* | +| T7 | Course Feedback | Part J, *Forms* | +| T8 | Instructor and Examiner Register | Part I, *Instructor and examiner register* | +| PW1–PW8 | Practical worksheets | Part G | +| FT | Flight test sheets | Part H | + +# Part B – Syllabus and curriculum + +## Structure of the courses + +Each course consists of: + +- an aeronautical knowledge (theory) component, assessed by a theory examination (Part E) +- a practical competency component, assessed formatively on practical worksheets (Part G) and summatively by a flight test (Part H). + +The syllabus items below are common to all courses. Each course curriculum (see *Course curricula*) selects the items, lessons and assessments that apply to that course, according to its course type, category, weight class(es) and complexity. + +Note: The column "Part 101 MOS standard" maps each syllabus item to the aeronautical knowledge standard or practical competency unit in the Part 101 MOS. The full name of each RePL training unit must be shown on the certificate of course completion exactly as it appears in the Part 101 MOS. + +## Aeronautical knowledge syllabus + +### T1 Air law and regulatory framework + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T1.1 | Australian aviation regulatory structure: Civil Aviation Act 1988, CASR, Part 101, Part 101 MOS, legislative instruments, exemptions, advisory circulars; the role of CASA | [MOS: to be confirmed] | +| T1.2 | RPA categories (aeroplane, helicopter (single-rotor and multirotor classes), powered-lift, airship) and weight classes (micro, very small, small, medium, large) | [MOS: to be confirmed] | +| T1.3 | Micro, excluded and included operations; the SOC; landholder and training/experience exclusions | [MOS: to be confirmed] | +| T1.4 | The RePL: eligibility, privileges, category and weight endorsements, automated and manual operation, upgrade; remote pilot log requirements | [MOS: to be confirmed] | +| T1.5 | The ReOC: holder obligations, key personnel, DPP and operations manual, records, significant and non-significant changes | [MOS: to be confirmed] | +| T1.6 | RPA registration and operator accreditation requirements | [MOS: to be confirmed] | +| T1.7 | Hazardous operation, offences, infringement notices and enforcement | [MOS: to be confirmed] | +| T1.8 | Other legislation affecting RPA operations: privacy and surveillance, trespass, environment and wildlife, noise, ACMA radiocommunications licensing, WHS, local government, insurance | [MOS: to be confirmed] | + +### T2 Operating rules + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T2.1 | Maximum height (400 ft AGL) and how height is measured | [MOS: to be confirmed] | +| T2.2 | VLOS, EVLOS and BVLOS: definitions and requirements | [MOS: to be confirmed] | +| T2.3 | Minimum distance from people (30 m; 15 m with consent for ReOC holders); populous areas | [MOS: to be confirmed] | +| T2.4 | Aerodromes: controlled and non-controlled aerodromes, HLS, no-fly zones, approach and departure paths, relevant events | [MOS: to be confirmed] | +| T2.5 | Prohibited, restricted, danger and military operating areas; public safety operations | [MOS: to be confirmed] | +| T2.6 | Night operations; operations in cloud or reduced visibility | [MOS: to be confirmed] | +| T2.7 | Multiple RPA, automated and autonomous operations, dropping and dispensing, dangerous goods | [MOS: to be confirmed] | +| T2.8 | CASA flight authorisations and approvals; NOTAM | [MOS: to be confirmed] | +| T2.9 | Aeronautical radio: when required, qualifications, monitoring, position reports referenced to the RPA | [MOS: to be confirmed] | +| T2.10 | Reporting occurrences to the ATSB: immediately and routine reportable matters for RPA | [MOS: to be confirmed] | + +### T3 Airspace, charts and aeronautical information + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T3.1 | Australian airspace classes; controlled and uncontrolled airspace; control zones and lower limits of control areas | [MOS: to be confirmed] | +| T3.2 | Aeronautical charts (VNC, VTC): symbols for aerodromes, HLS, airspace boundaries, PRD, obstacles and terrain | [MOS: to be confirmed] | +| T3.3 | Latitude and longitude, true and magnetic direction, distance and scale | [MOS: to be confirmed] | +| T3.4 | Height, altitude and elevation; AGL and AMSL; QNH; unit conversions (ft/m, NM/km, kt/km/h) | [MOS: to be confirmed] | +| T3.5 | AIP, ERSA, NOTAM and NAIPS; CASA-verified drone safety apps | [MOS: to be confirmed] | +| T3.6 | Other airspace users at low level and their typical locations and heights; giving way to crewed aircraft | [MOS: to be confirmed] | + +### T4 Meteorology + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T4.1 | The atmosphere: pressure, temperature, density; density altitude and its effect on RPA performance and batteries | [MOS: to be confirmed] | +| T4.2 | Wind: direction and speed reporting, gusts, wind gradient, mechanical and thermal turbulence, sea breezes, venturi and lee effects | [MOS: to be confirmed] | +| T4.3 | Cloud, visibility, fog and precipitation; VMC | [MOS: to be confirmed] | +| T4.4 | Thunderstorms, fronts, icing, and the effects of heat, cold and moisture on RPAS | [MOS: to be confirmed] | +| T4.5 | Weather information: METAR/SPECI, TAF, graphical area forecasts, Bureau of Meteorology products; on-site observation; space weather and GNSS | [MOS: to be confirmed] | + +### T5 Human performance + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T5.1 | Fitness for duty: illness, medication, alcohol and other drugs, fatigue, stress | [MOS: to be confirmed] | +| T5.2 | Vision and perception: limits of VLOS, lookout technique, orientation and depth perception, glare | [MOS: to be confirmed] | +| T5.3 | Situational awareness, attention, workload, distraction and cognitive tunnelling | [MOS: to be confirmed] | +| T5.4 | Decision-making, threat and error management, complacency and over-reliance on automation | [MOS: to be confirmed] | +| T5.5 | Communication, briefings, crew coordination and standard phraseology; managing the public | [MOS: to be confirmed] | + +### T6 Principles of flight and handling + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T6.1 | Forces acting on an aircraft in flight; generation of lift and thrust | [MOS: to be confirmed] | +| T6.2 | Flight controls and how the RPA manoeuvres (category-specific) | [MOS: to be confirmed] | +| T6.3 | Stability, control and flight envelope limitations (category-specific) | [MOS: to be confirmed] | +| T6.4 | Effects of weight, centre of gravity, payload, wind and density altitude on performance and endurance | [MOS: to be confirmed] | +| T6.5 | Take-off, landing, ground effect and downwash considerations (category-specific) | [MOS: to be confirmed] | + +### T7 RPAS systems + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T7.1 | RPAS components: RPA, remote pilot station/GCS, C2 link, payload, support equipment | [MOS: to be confirmed] | +| T7.2 | Propulsion: electric motors, ESCs, propellers and rotors | [MOS: to be confirmed] | +| T7.3 | Batteries: lithium battery characteristics, charging, storage, transport, failure modes and fire | [MOS: to be confirmed] | +| T7.4 | Navigation and flight control: flight controller, IMU, compass, barometer, GNSS, vision and obstacle sensors; calibration; interference | [MOS: to be confirmed] | +| T7.5 | Flight modes: position-hold, attitude (manual) and automated modes; return to home; failsafe settings; geofencing | [MOS: to be confirmed] | +| T7.6 | C2 link: frequencies, range, line of sight, interference, antenna orientation; the LIPD class licence | [MOS: to be confirmed] | +| T7.7 | Maintenance, defects, firmware and software management; RPAS technical log | [MOS: to be confirmed] | + +### T8 Operational planning and procedures + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T8.1 | Planning an operation: task, site, airspace, authorisations, NOTAM, weather, people and hazards | [MOS: to be confirmed] | +| T8.2 | Risk management: hazard identification, likelihood and consequence, controls, job safety assessment, risk register | [MOS: to be confirmed] | +| T8.3 | Site set-up: launch and recovery area, operating area and boundaries, emergency landing areas, cordons | [MOS: to be confirmed] | +| T8.4 | Pre-flight inspection, checklists, briefings and flight authorisation | [MOS: to be confirmed] | +| T8.5 | Normal flight procedures and in-flight monitoring (energy, link, satellite positioning, wind, airspace) | [MOS: to be confirmed] | +| T8.6 | Post-flight procedures and records: remote pilot log, Flight Record, RPAS technical log | [MOS: to be confirmed] | + +### T9 Abnormal and emergency procedures + +| Item | Content | Part 101 MOS standard | +|---|---|---| +| T9.1 | Emergency management principles: maintain control, manoeuvre to a safe location, land; ANCA and CANCA | [MOS: to be confirmed] | +| T9.2 | Loss of C2 link, flyaway and failsafe behaviour | [MOS: to be confirmed] | +| T9.3 | Loss of satellite positioning, compass and IMU errors | [MOS: to be confirmed] | +| T9.4 | Low energy, power loss, motor, propeller or engine failure | [MOS: to be confirmed] | +| T9.5 | Conflicting aircraft and persons entering the operating area | [MOS: to be confirmed] | +| T9.6 | Battery fire, injury, post-accident actions, preserving evidence and reporting | [MOS: to be confirmed] | + +## Practical competency syllabus + +Each practical unit is listed with its elements. The performance criteria for each element are the standards on the practical worksheets (Part G) and flight test sheets (Part H). + +| Unit | Title | Elements | Part 101 MOS unit | +|---|---|---|---| +| P1 | Plan and prepare for an RPA operation | P1.1 assess the task and site; P1.2 check airspace and aeronautical information; P1.3 obtain and assess weather; P1.4 complete the risk assessment and Flight Record; P1.5 brief crew and others present | [MOS: to be confirmed] | +| P2 | Prepare the RPAS for flight | P2.1 assemble and inspect the RPAS; P2.2 manage batteries; P2.3 confirm software, settings, failsafe and RTH height; P2.4 confirm C2 link, satellite positioning and sensors; P2.5 record the home point | [MOS: to be confirmed] | +| P3 | Launch and recover the RPA | P3.1 take off and climb; P3.2 approach and land at a nominated point; P3.3 reject a take-off; P3.4 discontinue an approach (go-around) | [MOS: to be confirmed] | +| P4 | Operate the RPA using automated functions | P4.1 plan and upload an automated flight; P4.2 verify the automated flight plan before flight; P4.3 monitor an automated flight; P4.4 intervene in an automated flight (pause/hold, RTH, land, resume) | [MOS: to be confirmed] | +| P5 | Operate the RPA in manual flight | P5.1 control the RPA in a mode without satellite position hold; P5.2 perform the manoeuvres for the category; P5.3 maintain orientation and position in all headings | [MOS: to be confirmed] | +| P6 | Manage abnormal and emergency situations | P6.1 recognise abnormal indications; P6.2 respond to loss of C2 link; P6.3 respond to loss of satellite positioning; P6.4 respond to low energy and power or propulsion failure; P6.5 avoid conflicting aircraft and persons; P6.6 terminate a flight | [MOS: to be confirmed] | +| P7 | Maintain situational awareness and communicate | P7.1 maintain VLOS and lookout; P7.2 remain within the operating area and height; P7.3 monitor RPA status; P7.4 communicate with crew and others using standard phraseology | [MOS: to be confirmed] | +| P8 | Complete post-flight procedures | P8.1 shut down and make safe; P8.2 post-flight inspection and defect recording; P8.3 complete logs and records; P8.4 manage batteries after flight | [MOS: to be confirmed] | + +Unit P5 applies only to courses with automated and manual complexity. In a course with automated-only complexity, all flight is conducted using the position-hold and automated functions of the training RPA, and the RePL resulting from the course is limited to automated operation. + +## Theory and practical lessons + +| Lesson | Title | Syllabus items | Minimum duration | +|---|---|---|---| +| TL1 | Air law and regulatory framework | T1 | 2.0 h | +| TL2 | Operating rules | T2 | 2.5 h | +| TL3 | Airspace, charts and aeronautical information | T3 | 2.5 h | +| TL4 | Meteorology | T4 | 2.0 h | +| TL5 | Human performance | T5 | 1.5 h | +| TL6 | Principles of flight and handling (one lesson for each category trained) | T6 | 1.5 h per category | +| TL7 | RPAS systems | T7 | 2.0 h | +| TL8 | Operational planning and procedures | T8 | 2.0 h | +| TL9 | Abnormal and emergency procedures | T9 | 1.0 h | +| TLW | Supplement: RPA from 7 kg to 25 kg | T6.4, T7.2, T7.3, T8.3, T9.4 | 1.0 h | +| PL1 | RPAS familiarisation and preparation (ground) | P1, P2, P8 | 1.5 h (ground) | +| PL2 | Effects of controls, take-off, hover and landing | P2, P3, P7 | see curriculum | +| PL3 | Automated flight operations | P4, P7 | see curriculum | +| PL4 | Manual handling 1 | P5, P3 | see curriculum | +| PL5 | Manual handling 2 | P5 | see curriculum | +| PL6 | Abnormal and emergency procedures | P6 | see curriculum | +| PL7 | Operational scenario | P1–P8 | see curriculum | +| PL8 | Consolidation and flight test preparation | All | see curriculum | +| FT | Flight test | All | – | + +## Course curricula + + +### {{course-title}} + +| Course detail | | +|---|---| +| Course type | {{course-type}} | +| RPA category | {{course-category}} | +| Weight class(es) | {{course-weight-classes}} | +| Training RPA | {{course-training-rpa}} | +| Complexity | {{course-complexity}} | + +#### Outcome + +On successful completion, the student is issued a certificate of course completion and {{organisation-name}} notifies CASA of the result, so that CASA may issue or vary the student's RePL for {{course-category}}, {{course-weight-classes}}, with: + + +- automated and manual operation + + +- automated operation only + + +#### Entry requirements + + +The entry requirements in Part A, *Student entry requirements*. The student does not need to hold a RePL. A student with a theory credit completes the practical component only and, where their theory credit did not include RPA-category knowledge, sits examination E2 for the course category. + + +The entry requirements in Part A, plus a current RePL in {{course-category}} at a lower weight class than the highest weight class of this course. + + +The entry requirements in Part A, plus a current RePL in any category other than {{course-category}}. + + +#### Theory component + + +TL1 to TL9 (TL6 for {{course-category}}), and TLW. Total minimum 17 hours plus 1 hour for TLW. Assessment: examination E1 (Part E). + + +TLW, and a review of TL6 and TL7 for the heavier weight class. Total minimum 2 hours. Assessment: examination E3 (Part E). + + +TL6 for {{course-category}}, and the category-specific content of TL7 and TL9, and TLW. Total minimum 3 hours. Assessment: examination E2 for {{course-category}} (Part E). + + +#### Practical component + +All practical training and the flight test are conducted on the training RPA for this course ({{course-training-rpa}}). + +Because this course includes the 7 kg to 25 kg weight class, PL2 to PL8 and the flight test must include flight in a training RPA with a gross weight of more than 7 kg. + + + +| Sequence | Lesson | Minimum flight time (initial course) | +|---|---|---| +| 1 | PL1 RPAS familiarisation and preparation | ground only | +| 2 | PL2 Effects of controls, take-off, hover and landing | 0.5 h | +| 3 | PL3 Automated flight operations | 0.75 h | +| 4 | PL4 Manual handling 1 | 0.75 h | +| 5 | PL5 Manual handling 2 | 0.75 h | +| 6 | PL6 Abnormal and emergency procedures | 0.75 h | +| 7 | PL7 Operational scenario | 1.0 h | +| 8 | PL8 Consolidation and flight test preparation | 0.5 h | +| 9 | FT Flight test | not counted | +| | Total | 5.0 h | + + +| Sequence | Lesson | Minimum flight time (initial course) | +|---|---|---| +| 1 | PL1 RPAS familiarisation and preparation | ground only | +| 2 | PL2 Effects of controls, take-off, hover and landing (position-hold mode) | 0.5 h | +| 3 | PL3 Automated flight operations | 1.5 h | +| 4 | PL6 Abnormal and emergency procedures (automated responses) | 1.0 h | +| 5 | PL7 Operational scenario | 1.5 h | +| 6 | PL8 Consolidation and flight test preparation | 0.5 h | +| 7 | FT Flight test | not counted | +| | Total | 5.0 h | + + + +Minimum flight time for the course: 5 hours of RPA flight time as the person manipulating the controls, excluding the flight test and simulator time. + + +Minimum flight time for the course: 2 hours in the heavier weight class, excluding the flight test. The per-lesson minimum times above do not apply; every lesson must be completed to competency. + + +Minimum flight time for the course: 3 hours in {{course-category}}, excluding the flight test. The per-lesson minimum times above do not apply; every lesson must be completed to competency. + + +#### Assessment + +- Theory: the examination for the course type, pass mark and KDR procedure IAW Part E. +- Practical: formative assessment on worksheets PW1 to PW8 (Part G); summative flight test on the flight test sheet for {{course-category}} (automated and manual) (automated only) (Part H). + +#### RePL training units shown on the certificate of course completion + +The units for this course are: P1, P2, P3, P4, P5, P6, P7, P8, and (for initial and upgrade different category courses) the aeronautical knowledge standards examined. The certificate shows the full Part 101 MOS name of each unit. + + +# Part C – Theory lesson plans and instructor notes + +## Use of the theory lesson plans + +Each theory lesson plan states the syllabus items covered, the objectives, the minimum duration, the resources, the lesson structure and the checks of understanding. The instructor notes that follow each plan give the key teaching points, common misconceptions and links to the knowledge deficiency items that most often arise. + +All theory lessons use the same structure: + +| Stage | Purpose | +|---|---| +| Introduction | State the objectives and relevance to safe operation; link to previous lessons; check prior knowledge. | +| Development | Teach each syllabus item using Part D content, examples from {{organisation-name}} operations and the training locations, and questioning. | +| Consolidation | Summarise; students answer the check-of-understanding questions; instructor corrects misunderstandings. | +| Record | Instructor records attendance and the result of the understanding check for each syllabus item on Form T2. | + +A student who cannot answer the check-of-understanding questions for a syllabus item must receive further instruction on that item before the theory examination. Instructors must not use questions from the question bank as check-of-understanding questions. + +## TL1 Air law and regulatory framework + +| Lesson detail | | +|---|---| +| Syllabus items | T1.1 to T1.8 | +| Minimum duration | 2.0 h | +| Prerequisites | Enrolment | +| Resources | Part D, TL1; CASR Part 101 and Part 101 MOS (current compilations); AC 101-01; operations manual; CASA website pages on registration and accreditation | +| Method | Presentation, guided discussion, scenario questions | + +### Objectives + +At the end of the lesson the student will be able to: + +- describe the structure of Australian aviation legislation and where RPA rules are found +- classify an RPA by category and weight class +- determine whether an operation is micro, excluded or included, and state the SOC +- state the privileges and limitations of a RePL and the obligations of a ReOC holder +- state the registration and accreditation requirements that apply to an RPA and its operator +- explain hazardous operation and the consequences of breaching the rules +- identify other legislation that may apply to an RPA operation. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 10 min | Why RPA are regulated; course structure; where the rules are | +| Development 1 | 25 min | T1.1, T1.2: legislation hierarchy; categories and weight classes | +| Development 2 | 30 min | T1.3: micro, excluded and included operations; SOC; scenarios | +| Development 3 | 25 min | T1.4, T1.5: RePL and ReOC; logbook; key personnel; DPP | +| Development 4 | 15 min | T1.6, T1.7: registration, accreditation, offences | +| Development 5 | 10 min | T1.8: other legislation | +| Consolidation | 5 min | Check of understanding | + +### Check of understanding + +1. A 3.5 kg multirotor is to be flown for payment for a real estate agent. Is the operation excluded or included, and what authorisations are needed? +2. List four conditions of the SOC. +3. What does a RePL endorsed "multirotor, up to 7 kg, automated only" permit the holder to fly? +4. Name two key personnel positions every ReOC holder must have. +5. Name two laws, other than aviation law, that might apply when filming over a neighbour's property. + +### Instructor notes + +- Emphasise that a RePL alone does not permit commercial operations above the excluded category; the operation must also be conducted under a ReOC (or be excluded). +- Students often confuse category and weight class. Use the RePL endorsement wording to show both. +- Students often believe the 2 kg excluded category allows any commercial flight; stress that the SOC still apply and that registration and accreditation requirements exist. +- Use the {{organisation-name}} operations manual to show what DPP look like in practice. +- Common KDR items: T1.3 (exclusions), T1.4 (endorsements), T1.6 (registration). + +## TL2 Operating rules + +| Lesson detail | | +|---|---| +| Syllabus items | T2.1 to T2.10 | +| Minimum duration | 2.5 h | +| Prerequisites | TL1 | +| Resources | Part D, TL2; AC 101-01 chapter 3 and Appendix A diagrams; drone safety app; operations manual Section 2 | +| Method | Presentation, diagram work, scenario questions | + +### Objectives + +At the end of the lesson the student will be able to: + +- apply the height, VLOS, people and populous area rules to an operation +- determine the no-fly zones and approach and departure paths of controlled and non-controlled aerodromes and HLS, and the actions required during a relevant event +- identify when PRD, public safety operations, night or reduced visibility prevent an operation +- explain the limits on multiple RPA, automated and autonomous operation, dropping and dangerous goods +- state when a CASA authorisation, a NOTAM or an aeronautical radio is required +- state which occurrences must be reported to the ATSB, and when. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 10 min | Purpose of operating rules: protect other aircraft, people on the ground, crew | +| Development 1 | 25 min | T2.1, T2.2: height, VLOS/EVLOS/BVLOS | +| Development 2 | 25 min | T2.3: people and populous areas; consent; ReOC 15 m provision | +| Development 3 | 35 min | T2.4: aerodromes, no-fly zones, approach and departure paths, HLS; diagram exercise | +| Development 4 | 20 min | T2.5, T2.6: PRD, public safety, night, cloud and visibility | +| Development 5 | 20 min | T2.7, T2.8: multiple RPA, automation, dropping, DG; authorisations and NOTAM | +| Development 6 | 10 min | T2.9: aeronautical radio | +| Development 7 | 10 min | T2.10: ATSB reporting | +| Consolidation | 5 min | Check of understanding | + +### Check of understanding + +1. How is 400 ft AGL measured when flying over a building? +2. An RPA is flying 2.5 NM from the runway threshold of a non-controlled aerodrome and a crewed aircraft joins the circuit. What must the remote pilot do? +3. What is the no-fly zone of a controlled aerodrome under the SOC? +4. Under what conditions may a ReOC holder operate between 15 m and 30 m from a person? +5. An RPA is damaged in a hard landing; no-one is injured. What must be reported, to whom and by when? + +### Instructor notes + +- The VLOS rule is about seeing the RPA and being able to control it and avoid conflict, not just distance. Use examples of small RPA becoming invisible at short range. +- Use the AC 101-01 Appendix A diagrams and a VNC of the training area for the aerodrome exercise. +- Distinguish automated (pilot can intervene) from autonomous (pilot cannot intervene). +- Stress that a person being filmed is not "involved in the flight" for the 30 m rule. +- Common KDR items: T2.4 (relevant events, HLS), T2.3 (populous areas), T2.10 (reporting timeframes). + +## TL3 Airspace, charts and aeronautical information + +| Lesson detail | | +|---|---| +| Syllabus items | T3.1 to T3.6 | +| Minimum duration | 2.5 h | +| Prerequisites | TL2 | +| Resources | Part D, TL3; current VNC and VTC for the training locations; ERSA extract; navigation ruler; NAIPS access; drone safety app | +| Method | Presentation, chart exercises, practical NAIPS and app demonstration | + +### Objectives + +At the end of the lesson the student will be able to: + +- describe Australian airspace classes and identify controlled airspace and its lower limits on a chart +- interpret the main symbols on VNC and VTC charts +- plot and read a position by latitude and longitude and measure distance on a chart +- convert between height units and between AGL and AMSL +- obtain and interpret ERSA entries and NOTAM for a location +- identify the other airspace users likely to be met at low level. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 10 min | Why remote pilots need charts even with apps | +| Development 1 | 30 min | T3.1: airspace classes; control zones and steps | +| Development 2 | 35 min | T3.2, T3.3: chart symbols, latitude and longitude, distance | +| Development 3 | 20 min | T3.4: heights and conversions | +| Development 4 | 30 min | T3.5: ERSA, NOTAM, NAIPS and apps (live demonstration) | +| Development 5 | 15 min | T3.6: other airspace users | +| Consolidation | 10 min | Chart exercise for a training location | + +### Check of understanding + +1. What class of airspace exists below the lowest control area step over the training location? +2. On the VTC, identify the nearest aerodrome to the training location and its distance. +3. Convert 120 m to feet and 5.5 km to nautical miles. +4. The training location elevation is 350 ft AMSL. What is the RPA altitude AMSL at 300 ft AGL? +5. Where would you find a temporary restricted area that was declared yesterday? + +### Instructor notes + +- Use the actual training location charts; students remember local examples better. +- Many students believe drone safety apps are authoritative and complete. Explain their limits: not all aerodromes and HLS are shown, and NOTAM must still be checked. +- Practise reading latitude and longitude in degrees and minutes and in decimal degrees, as apps and charts differ. +- Common KDR items: T3.1 (lower limits of controlled airspace), T3.4 (conversions), T3.2 (symbols). + +## TL4 Meteorology + +| Lesson detail | | +|---|---| +| Syllabus items | T4.1 to T4.5 | +| Minimum duration | 2.0 h | +| Prerequisites | TL3 | +| Resources | Part D, TL4; sample METAR, TAF and graphical area forecast; Bureau of Meteorology website; anemometer | +| Method | Presentation, decoding exercises, outdoor observation | + +### Objectives + +At the end of the lesson the student will be able to: + +- explain the effect of temperature, pressure and density on RPA performance and battery capacity +- describe wind effects at low level, including gusts, turbulence and local effects +- describe weather that reduces visibility or creates hazards for RPA +- decode a METAR and TAF and interpret a graphical area forecast +- assess on-site weather against RPA and operations manual limits. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 5 min | Weather as the most common reason to postpone an RPA operation | +| Development 1 | 20 min | T4.1: atmosphere, density altitude | +| Development 2 | 30 min | T4.2: wind and turbulence | +| Development 3 | 15 min | T4.3: cloud, visibility, fog | +| Development 4 | 15 min | T4.4: thunderstorms, fronts, temperature effects | +| Development 5 | 25 min | T4.5: forecasts and reports; decoding exercise | +| Consolidation | 10 min | Outdoor observation and go/no-go decision | + +### Check of understanding + +1. Why does an RPA have less endurance on a hot day at a high elevation? +2. Where would you expect mechanical turbulence when flying near a line of trees with a 15 kt wind? +3. Decode: METAR YSSY 230000Z 21015G25KT 9999 FEW030 18/09 Q1012. +4. How does cold affect a lithium battery, and what should you do about it? +5. Why may the wind at 200 ft AGL be stronger than at the launch point? + +### Instructor notes + +- Stress that wind reported in METAR/TAF is the 10 m wind; wind at operating heights is often stronger. +- Emphasise the effect of cold on battery voltage sag and of heat on battery and motor temperature. +- Link space weather (Kp index) to GNSS accuracy only as an awareness item. +- Common KDR items: T4.5 (decoding), T4.2 (local effects), T4.1 (density altitude). + +## TL5 Human performance + +| Lesson detail | | +|---|---| +| Syllabus items | T5.1 to T5.5 | +| Minimum duration | 1.5 h | +| Prerequisites | TL2 | +| Resources | Part D, TL5; operations manual, *Fitness for duty*; occurrence case studies | +| Method | Discussion, case studies | + +### Objectives + +At the end of the lesson the student will be able to: + +- assess their own fitness for duty, including fatigue, alcohol, drugs, medication and stress +- explain the limits of human vision for VLOS and lookout and describe effective lookout +- describe how situational awareness is lost and how workload and distraction affect performance +- apply a structured decision-making and threat and error management approach +- use clear communication and standard phraseology with crew and the public. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 5 min | Human factors in RPA occurrences | +| Development 1 | 20 min | T5.1: fitness for duty, IMSAFE | +| Development 2 | 20 min | T5.2: vision, orientation, lookout | +| Development 3 | 20 min | T5.3, T5.4: situational awareness, workload, decision-making, TEM, automation bias | +| Development 4 | 15 min | T5.5: communication and crew coordination | +| Consolidation | 10 min | Case study discussion | + +### Check of understanding + +1. List the items in the IMSAFE check. +2. Why is an RPA flying towards you harder to judge than one flying across your view? +3. What is cognitive tunnelling and how can you guard against it? +4. Describe the handover of control phrases used at {{organisation-name}}. +5. A client is pressing you to fly in deteriorating weather. What do you do? + +### Instructor notes + +- Relate fitness for duty to the operations manual requirements, which students must meet during training. +- Demonstrate orientation reversal using a model or the training RPA on the ground. +- Use a published ATSB RPA occurrence where screen fixation contributed. +- Common KDR items: T5.3 (cognitive tunnelling), T5.1 (medication effects). + +## TL6 Principles of flight and handling + +| Lesson detail | | +|---|---| +| Syllabus items | T6.1 to T6.5 | +| Minimum duration | 1.5 h for each category trained | +| Prerequisites | TL1 (initial courses); none (upgrade courses) | +| Resources | Part D, TL6 for the category; the training RPA; diagrams | +| Method | Presentation, demonstration with the training RPA on the ground | + +### Objectives + +At the end of the lesson the student will be able to: + +- describe the forces acting on the RPA and how lift and thrust are produced +- explain how the controls of the category produce each movement +- describe the stability and control limitations of the category and the hazards at the edges of the flight envelope +- explain the effects of weight, balance, wind and density altitude on performance +- describe take-off and landing considerations for the category. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 5 min | Why understanding the aircraft matters even with automation | +| Development 1 | 15 min | T6.1: forces | +| Development 2 | 25 min | T6.2: controls (category-specific) | +| Development 3 | 20 min | T6.3: stability and limitations (category-specific) | +| Development 4 | 15 min | T6.4: performance | +| Development 5 | 5 min | T6.5: take-off and landing | +| Consolidation | 5 min | Check of understanding | + +### Check of understanding + + +Multirotor: + +1. How does a multirotor yaw? +2. What is vortex ring state and how is it avoided? +3. Why does a multirotor need more power in a strong headwind? + + +Helicopter: + +1. What does the collective control do, and what does the cyclic control do? +2. What is the purpose of the tail rotor? +3. What is vortex ring state and how is it recovered? + + +Aeroplane: + +1. What is the angle of attack and what happens when the critical angle is exceeded? +2. Why are take-off and landing made into wind? +3. Which control surface controls roll? + + +Powered-lift: + +1. What are the phases of a transition from vertical to forward flight? +2. Why is the transition the highest-risk phase of flight? +3. What happens if forward airspeed is lost in wing-borne flight? + + +### Instructor notes + +- Use the training RPA on the ground to show the motor or control surface response to each control input (propellers removed where required by the manufacturer). +- Relate each limitation to a practical lesson: for example, vortex ring state to the descent technique in PL4. +- Common KDR items: T6.3 (category limitations), T6.4 (performance). + +## TL7 RPAS systems + +| Lesson detail | | +|---|---| +| Syllabus items | T7.1 to T7.7 | +| Minimum duration | 2.0 h | +| Prerequisites | TL6 | +| Resources | Part D, TL7; training RPA and manufacturer's manual; battery charging equipment; LiPo safety bag | +| Method | Presentation, hands-on demonstration | + +### Objectives + +At the end of the lesson the student will be able to: + +- identify the components of the RPAS and their functions +- describe the propulsion system and its failure modes +- handle, charge, store and transport lithium batteries safely and recognise a damaged battery +- describe the navigation and flight control sensors and how interference affects them +- describe the flight modes, RTH and failsafe functions of the training RPA +- describe the C2 link and factors affecting its range and reliability +- describe the maintenance and software management requirements for the RPAS. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 5 min | System overview | +| Development 1 | 15 min | T7.1, T7.2: components and propulsion | +| Development 2 | 20 min | T7.3: batteries | +| Development 3 | 20 min | T7.4: sensors, calibration, interference | +| Development 4 | 25 min | T7.5: flight modes, RTH, failsafe – on the training RPA | +| Development 5 | 20 min | T7.6: C2 link | +| Development 6 | 10 min | T7.7: maintenance and software | +| Consolidation | 5 min | Check of understanding | + +### Check of understanding + +1. What are three signs that a LiPo battery must not be used? +2. What happens on the training RPA when the C2 link is lost for more than the failsafe delay? +3. Why should the RTH height be set before the first flight at each site? +4. Name two sources of compass interference at a typical launch site. +5. Who may authorise a firmware update to a {{organisation-name}} RPA? + +### Instructor notes + +- Students must see the failsafe and RTH settings screen of the training RPA and know how to check them. +- Explain that position-hold modes depend on GNSS and that the RPA will drift when GNSS is lost. +- Common KDR items: T7.3 (battery handling), T7.5 (failsafe behaviour), T7.6 (link range factors). + +## TL8 Operational planning and procedures + +| Lesson detail | | +|---|---| +| Syllabus items | T8.1 to T8.6 | +| Minimum duration | 2.0 h | +| Prerequisites | TL2, TL3, TL4 | +| Resources | Part D, TL8; operations manual Sections 2 and 3, Appendices E and F; blank Flight Record | +| Method | Presentation; students complete a Flight Record for a training scenario | + +### Objectives + +At the end of the lesson the student will be able to: + +- plan an RPA operation, including airspace, authorisations, NOTAM, weather and hazards +- complete a risk assessment and JSA using the operations manual method +- set up a site with launch, recovery, operating and emergency areas +- conduct pre-flight inspections, checklists and briefings +- monitor the RPA in flight +- complete post-flight procedures and records. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 5 min | Planning prevents most occurrences | +| Development 1 | 30 min | T8.1, T8.2: planning and risk management | +| Development 2 | 20 min | T8.3: site set-up | +| Development 3 | 20 min | T8.4, T8.5: pre-flight, briefing, in-flight monitoring | +| Development 4 | 15 min | T8.6: post-flight and records | +| Consolidation | 30 min | Students complete a Flight Record for the PL7 scenario | + +### Check of understanding + +1. List the items checked before authorising a flight. +2. What is the difference between a hazard and a risk? +3. What must be recorded in the remote pilot log after each flight? +4. When must a JSA be completed under the operations manual? +5. What is checked in a self-briefing for a solo operation? + +### Instructor notes + +- The Flight Record completed in this lesson is used in PL7. +- Show how each control in the risk register links to a procedure. +- Common KDR items: T8.2 (risk terminology), T8.6 (logbook content). + +## TL9 Abnormal and emergency procedures + +| Lesson detail | | +|---|---| +| Syllabus items | T9.1 to T9.6 | +| Minimum duration | 1.0 h | +| Prerequisites | TL7, TL8 | +| Resources | Part D, TL9; operations manual, *Emergency procedures* and Appendix C; manufacturer's emergency procedures | +| Method | Presentation, talk-through drills | + +### Objectives + +At the end of the lesson the student will be able to: + +- apply the emergency management sequence and ANCA/CANCA principles +- state the actions for loss of C2 link, flyaway, loss of GNSS, compass or IMU error, low battery and propulsion failure on the training RPA +- avoid conflicting aircraft and persons entering the operating area +- respond to a battery fire or injury and preserve evidence after an occurrence. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 5 min | Abnormal situations become emergencies when not managed | +| Development 1 | 10 min | T9.1: principles | +| Development 2 | 25 min | T9.2 to T9.4: failure drills (talk-through on the training RPA's GCS) | +| Development 3 | 10 min | T9.5: conflicting traffic and people | +| Development 4 | 5 min | T9.6: fire, injury, reporting | +| Consolidation | 5 min | Drill check | + +### Check of understanding + +1. State the three steps of the {{organisation-name}} emergency response. +2. What do you do if the RPA starts drifting and the GCS shows "GNSS lost"? +3. A helicopter appears at low level 500 m away. What do you do? +4. How do you deal with a swollen battery that is hot to the touch? +5. After an accident, what must be preserved? + +### Instructor notes + +- Every drill taught here is practised in flight in PL6 where it can be simulated safely; the rest are talked through. +- Common KDR items: T9.2 (failsafe actions), T9.3 (GNSS loss actions). + + +## TLW Supplement: RPA from 7 kg to 25 kg + +| Lesson detail | | +|---|---| +| Syllabus items | T6.4, T7.2, T7.3, T8.3, T9.4 (applied to RPA from 7 kg to 25 kg) | +| Minimum duration | 1.0 h | +| Prerequisites | TL6, TL7 (initial courses); current RePL (upgrade courses) | +| Resources | Part D, TLW; training RPA of more than 7 kg and its manufacturer's manual | +| Method | Presentation, hands-on with the heavier training RPA | + +### Objectives + +At the end of the lesson the student will be able to: + +- explain the increased hazard of heavier RPA (kinetic energy, propeller and rotor injury, damage) +- describe the handling differences of heavier RPA: inertia, response lag, stopping distance and wind effects +- manage high-capacity batteries and power systems safely +- set up a site with larger safety distances and landing areas +- respond to power and propulsion failures in heavier RPA. + +### Lesson structure + +| Stage | Time | Content | +|---|---|---| +| Introduction | 5 min | What changes above 7 kg | +| Development 1 | 15 min | Energy, injury and damage potential | +| Development 2 | 15 min | Handling and performance | +| Development 3 | 10 min | Power systems and batteries | +| Development 4 | 10 min | Site set-up and emergencies | +| Consolidation | 5 min | Check of understanding | + +### Check of understanding + +1. If the speed of an RPA doubles, by what factor does its kinetic energy increase? +2. Why is stopping distance greater for a heavier RPA? +3. What extra precautions apply when handling a heavier RPA on the ground with the motors armed? + +### Instructor notes + +- Demonstrate the heavier RPA's arming and disarming sequence and safe approach direction. +- Stress that the training area must allow a forced landing anywhere on the planned flight path. + + +# Part D – Theory lesson content + +## About these notes + +These notes are the student reference for the theory lessons. They summarise what you must know to pass the theory examination and to operate safely. They do not replace the legislation. Where these notes and the legislation differ, the legislation applies; tell your instructor so the notes can be corrected. The notes reflect legislation and CASA guidance current at {{version-date}}. + +## TL1 Air law and regulatory framework + +### The legislation (T1.1) + +- The *Civil Aviation Act 1988* establishes CASA, the Civil Aviation Safety Authority, as the regulator of civil aviation safety in Australia. +- The *Civil Aviation Safety Regulations 1998* (CASR) contain the detailed rules. **Part 101** covers unmanned aircraft and rockets, including RPA. +- The **Part 101 Manual of Standards** (MOS) contains detailed standards made under Part 101: for example, RePL training, aerodrome no-fly zones, EVLOS, records and the definition of significant changes. +- CASA also issues **legislative instruments** (approvals, exemptions and directions), which have legal force, and **advisory circulars** (such as AC 101-01), which explain the rules and give acceptable ways of complying but are not law. +- The aviation rules apply in addition to other Commonwealth, state, territory and local laws. + +### Categories and weight classes (T1.2) + +RPA are divided into categories for licensing: + +- aeroplane +- helicopter (single-rotor class) +- helicopter (multirotor class) – called "multirotor" in this manual +- airship +- powered-lift (hybrid aeroplanes with vertical take-off capability). + +RPA are also divided by gross weight: + +| Class | Gross weight | +|---|---| +| Micro | not more than 250 g | +| Very small | more than 250 g, not more than 2 kg | +| Small | more than 2 kg, not more than 25 kg | +| Medium | more than 25 kg, not more than 150 kg | +| Large | more than 150 kg (or more than 100 m³ envelope for airships) | + +Gross weight includes everything carried: batteries, payload and accessories. + +### Micro, excluded and included operations (T1.3) + +- **Micro RPA** (250 g or less) need neither a RePL nor a ReOC, but the general rules (for example, hazardous operation) still apply. Micro RPA cannot be operated under a ReOC. +- **Excluded operations** are lower-risk operations that do not need a RePL or ReOC, provided they comply with the SOC and other rules. They include: + - very small RPA (more than 250 g to 2 kg) flown for commercial purposes under the SOC (these operators must meet CASA's notification and accreditation requirements) + - the landholder rule: RPA up to 150 kg flown over the owner's own land for certain activities without reward (medium RPA under this rule still need a RePL for the RPA type) + - RPA up to 150 kg flown solely for training or experience building, under the SOC. +- **Included operations** are everything else. They must be conducted under a ReOC and flown by a RePL holder. All large RPA operations are included operations. + +The **standard RPA operating conditions (SOC)** require that the RPA is: + +- operated only in Australian territory +- operated within the VLOS of the person operating it +- operated no higher than 400 ft (120 m) AGL +- not operated closer than 30 m to a person not associated with the flight +- not operated in a prohibited area, or a restricted area that is classified RA3 (or other restricted areas without permission) +- not operated over a populous area +- not operated within 3 NM (5.5 km) of the movement area of a controlled aerodrome +- not operated in the area of a public safety operation without the approval of the person in charge +- the only RPA flown by that pilot at the time. + +### The remote pilot licence (T1.4) + +- CASA issues a RePL to a person who has completed a RePL training course (or holds an aeronautical knowledge examination pass or pilot licence and passes the practical component) and has the required experience: for an initial RePL, at least **5 hours** operating RPA. +- The RePL is endorsed with the **category** and **weight class** the holder is qualified for (for example, "multirotor, up to 7 kg"). RPA above 25 kg are listed individually by name and maximum take-off weight. +- The RePL may be endorsed for **automated** operation only, or for **automated and manual** operation. Liquid-fuel propulsion is a separate approval for RPA over 25 kg. +- To fly a different category, or a higher weight class, the holder must complete RePL upgrade training. +- CASA does not set currency requirements for RePL holders, but ReOC holders must, and you must comply with your operator's recency rules. +- A RePL holder operating under a ReOC must keep a **remote pilot log** recording: RPA details; date, location and duration of each flight; and separate totals for night, VLOS, EVLOS, BVLOS and simulated flight time. An electronic log should have an audit function. RPA hours must not be added to crewed-aircraft hours. + +### The ReOC (T1.5) + +- A ReOC authorises an operator (a person or company) to conduct RPA aerial work. +- Every ReOC holder must have a **chief remote pilot (CRP)** and a **maintenance controller (MC)**, and details of its **CEO**. A RePL training organisation must also have a **chief RePL instructor (CRI)**. CASA approves the CRP and CRI. +- The operator must have **documented practices and procedures** (DPP), usually in an operations manual. Once approved, the DPP are legal obligations on the operator and its personnel. +- Remote pilots working for a ReOC holder must hold a RePL and complete the operator's induction, training and checking. +- The operator keeps records (personnel, flights, RPA, maintenance) – generally for 7 years. +- **Significant changes** (for example, key personnel, new categories or weight classes, changes that do not maintain safety) need CASA's approval before they are made. **Non-significant changes** are notified to CASA within 21 days. + +### Registration and accreditation (T1.6) + +- RPA flown for business or as part of your job, and all RPA above 250 g flown for recreation, must be registered with CASA, unless an exception applies. Commercial registrations are renewed each year. +- People flying very small RPA commercially in the excluded category must hold an operator accreditation (or a RePL). +- Under a ReOC, every RPA flown must be registered and listed in the operator's RPA register. + +### Hazardous operation and enforcement (T1.7) + +- A person must not operate an RPA in a way that creates a hazard to another aircraft, another person or property. This applies to all RPA, including micro RPA, and regardless of whether other rules are complied with. +- Lack of proficiency or currency that leads to an accident might be found to be hazardous operation. +- Breaches of Part 101 are offences. CASA may issue infringement notices, vary, suspend or cancel a RePL or ReOC, or refer matters for prosecution. + +### Other legislation (T1.8) + +You must also comply with: + +- privacy and surveillance laws (the Privacy Act 1988 and state and territory surveillance devices laws) when recording images or sound +- trespass and nuisance laws; taking off from or landing on land requires the landholder's permission +- environment and wildlife laws, including national park and marine park restrictions and protection of animals from disturbance +- the Air Navigation (Aircraft Noise) Regulations 2018 +- radiocommunications laws administered by ACMA: RPA control links normally operate under the Low Interference Potential Devices (LIPD) class licence +- work health and safety laws, local government by-laws, and insurance requirements. + +## TL2 Operating rules + +### Height (T2.1) + +RPA must not be flown higher than **400 ft (120 m) AGL** unless authorised by CASA. Height is measured from the point on the ground or water directly below the RPA. Where the ground has been artificially altered (for example, a mine pit), CASA guidance explains how to measure; over a structure, height is measured from the ground, not the roof, unless otherwise approved. Lower limits apply near aerodromes. + +### Visual line of sight (T2.2) + +- **VLOS**: you can continually see, orient and navigate the RPA to meet your separation and collision avoidance responsibilities, with or without glasses or contact lenses, but without binoculars, telescopes or similar devices. You must not fly behind an object that blocks your view. A screen or first-person view does not count as VLOS. +- **EVLOS**: you do not see the RPA directly, but trained RPA observers who can see it (or the airspace around it) assist you. EVLOS requires CASA approval and is conducted IAW Chapter 5 of the Part 101 MOS. +- **BVLOS**: neither you nor an observer can see the RPA. BVLOS requires CASA approval, and the remote pilot must hold a pass in an approved examination (for example, an instrument rating theory examination, or the CASA BVLOS examination for operations outside controlled airspace). + +### People and populous areas (T2.3) + +- An RPA must not be flown within **30 m** of a person who is not directly involved in the operation. The distance is measured from the RPA and from the point on the ground directly beneath it. People being filmed are not "involved". +- A ReOC holder may operate between 30 m and 15 m from a person if the operations manual allows it, a risk assessment is done, and the person consents. Closer than 15 m requires CASA authorisation. +- A **populous area** is an area with enough people that a failure of the RPA would pose an unreasonable risk to someone not connected with the operation. An RPA must not be flown over a populous area below the height from which it could clear the area if a component failed, unless authorised. + +### Aerodromes (T2.4) + +- A **controlled aerodrome** has an operating air traffic control tower. Outside tower hours, it is treated as non-controlled. +- **Controlled aerodrome**: RPA must not be flown within 3 NM (5.5 km) of the movement area, or in the approach and departure paths, without CASA approval. +- **Non-controlled aerodrome**: the no-fly zone is within 3 NM of the runway measurement points plus the approach and departure paths. Operations in this zone are permitted only when there is no **relevant event** – that is, no crewed aircraft is in the relevant airspace, approaching, landing, taking off or manoeuvring on the movement area. If you become aware that a relevant event is occurring or about to occur, you must not launch; if airborne, manoeuvre away from the crewed aircraft and land as soon as safely possible. +- **Helicopter landing site (HLS)**: the no-fly zone is from the surface to 400 ft within 0.75 NM (1.389 km) of the centre of the HLS. Hospital and other HLS are not always on charts. +- An RPA must never be flown over the movement area of an aerodrome without authorisation. + +### Prohibited, restricted and military areas; public safety (T2.5) + +- **Prohibited areas** (temporary only in Australia) – flight is not permitted. +- **Restricted areas** are classed RA1, RA2 or RA3. Do not enter without the permission of the controlling authority; RA3 is never available without that permission. Temporary restricted areas are declared by NOTAM, for example over emergencies or major events. +- **Danger areas** contain activities dangerous to aircraft; check them before operating. +- You must not fly in the area of a **public safety operation** (police, fire, ambulance, search and rescue) without the approval of the person in charge. Emergency aircraft operate at very low levels without warning. + +### Night and visibility (T2.6) + +- **Night** is from the end of evening civil twilight to the beginning of morning civil twilight. RPA must not be flown at night unless approved. CASA has issued a night approval to ReOC holders that have suitable procedures; {{organisation-name}} does not conduct night operations, and all training is by day. +- RPA must not be flown in cloud or where visibility is insufficient to ensure the operation does not create a hazard. + +### Other rules (T2.7) + +- Only one RPA per pilot at a time, unless approved (one-to-many operations need CASA approval). +- **Automated** flight (pre-programmed missions, return to home) is permitted: the pilot can intervene at any time and must monitor the flight. **Autonomous** flight (the pilot cannot intervene) needs CASA approval. +- Dropping, discharging and dispensing are generally permitted if no unreasonable hazard is created, the operator's procedures cover it, and state chemical or other approvals are held. +- Carriage of dangerous goods by RPA is regulated under Part 92 of CASR and needs approval and training. + +### Authorisations and NOTAM (T2.8) + +- ReOC holders may apply to CASA for authorisations outside the standard rules: for example, above 400 ft, within the no-fly zone of a controlled aerodrome, closer than 15 m to people, EVLOS or BVLOS. Applications use Form 101-09 or the RPAS multi-purpose form. +- CASA authorisations may require a NOTAM to be raised to warn other airspace users. Every operation must be planned with a check of current NOTAM. + +### Aeronautical radio (T2.9) + +- Remote pilots of RPA above 2 kg operating in controlled airspace must meet the aeronautical radio requirements of regulation 101.285 of CASR. +- Only a person holding an aeronautical radio operator certificate, a flight crew licence, an air traffic control licence, a flight service licence or a military equivalent may transmit on an aeronautical radio. +- Monitoring the local frequency (for example, the CTAF of a nearby aerodrome) improves awareness even when not required. +- Position reports refer to the **RPA's** position relative to an aerodrome or landmark, not the pilot's. + +### Reporting to the ATSB (T2.10) + +- **Death or serious injury**: report immediately by phone (1800 011 034) and in writing within 72 hours. +- **Other reportable matters** (for example, RPA missing, serious damage to the RPA or property, loss of separation with an aircraft): report in writing within 72 hours. +- Medium and large RPA (Type 1) have wider immediately reportable matters. +- Report every occurrence to your CRP as well, and preserve logs and components. + +## TL3 Airspace, charts and aeronautical information + +### Airspace (T3.1) + +Australian airspace is classified as: + +| Class | Where | Notes | +|---|---|---| +| A | High-level en route | Controlled; not relevant below 400 ft | +| C | Around major aerodromes (control zones from the surface) and in control areas above | Controlled | +| D | Around regional towered aerodromes | Controlled while the tower is active | +| E | Some mid-level corridors | Controlled for IFR only | +| G | Everywhere else, from the surface up to the base of controlled airspace | Uncontrolled | + +- A **control zone (CTR)** starts at the surface around a controlled aerodrome. **Control areas (CTA)** have steps whose lower limits increase with distance from the aerodrome. +- RPA may be flown in controlled airspace below 400 ft AGL without CASA approval, provided the operation is outside the no-fly zone of an aerodrome. Radio requirements apply to RPA above 2 kg. + +### Charts (T3.2) + +- **VNC** (visual navigation chart) and **VTC** (visual terminal chart, for busy areas near major aerodromes) show aerodromes, airspace boundaries and lower limits, PRD, obstacles, terrain and towns. +- Symbols to recognise: aerodrome symbols (certified, uncertified, military), HLS, airspace boundaries with limits, restricted (R), prohibited (P) and danger (D) area boundaries with their numbers and altitude limits, parachuting and glider operating areas, tall obstacles (with height AMSL), and spot elevations. +- Charts are updated regularly. Use the current edition. + +### Position, direction and distance (T3.3) + +- Latitude is measured 0–90° north or south of the equator; longitude 0–180° east or west of Greenwich. Australia is south and east, for example 27°28′S 153°01′E. Positions may also be written in decimal degrees (−27.467, 153.017). +- One minute of latitude equals one nautical mile. +- Directions are given as three digits from 000 to 360. True direction is measured from true north; magnetic direction from magnetic north. In most of Australia, magnetic variation is east. + +### Heights and units (T3.4) + +- **Elevation**: height of the ground above mean sea level (AMSL). +- **Height**: vertical distance above a point – for RPA, normally AGL. +- **Altitude**: vertical distance AMSL. Altitude = elevation + height AGL. +- **QNH** is the altimeter setting that makes an altimeter read altitude AMSL. Most RPA show height above the take-off point from a barometric sensor; this is not AGL over undulating terrain. +- Conversions: 1 ft = 0.3048 m (400 ft ≈ 120 m); 1 NM = 1.852 km (3 NM ≈ 5.5 km); 1 kt = 1.852 km/h ≈ 0.51 m/s. + +### Aeronautical information (T3.5) + +- The **AIP** (Aeronautical Information Publication) contains the rules and procedures for airspace users. **ERSA** gives details of each aerodrome: location, elevation, runways, operating hours, frequencies (including the CTAF) and special procedures. +- **NOTAM** (notices to airmen) give temporary information: temporary restricted areas, unserviceable facilities, airshows, other RPA operations. Obtain NOTAM through **NAIPS** (Airservices Australia) before each operation. +- **CASA-verified drone safety apps** show where RPA can be flown and are useful planning tools, but not every aerodrome or HLS is shown, and the app does not replace checking NOTAM and charts. + +### Other airspace users (T3.6) + +Crewed aircraft that may be met below 400 ft include: + +- agricultural aircraft (very low, over farmland) +- helicopters: emergency medical, police, firefighting, power line and pipeline inspection, beach patrol, tourism +- gliders, hang gliders, paragliders and parachutists (operating areas are marked on charts) +- balloons (usually early morning) +- aircraft at aerodromes, aeroplane landing areas and HLS, including military low flying. + +Crewed aircraft may appear with little warning and may not be heard over RPA motor noise. The RPA must give way. {{organisation-name}} pilots do not fly within 500 ft vertically or 1500 m horizontally of a crewed aircraft unless approved by the CRP. + +## TL4 Meteorology + +### The atmosphere (T4.1) + +- In the International Standard Atmosphere, sea-level pressure is 1013.25 hPa and temperature 15°C, with temperature falling about 2°C per 1000 ft. +- **Air density** falls as altitude, temperature and humidity increase. Lower density (high **density altitude**) means propellers and wings produce less thrust and lift, so the RPA needs more power, has less margin, climbs more slowly, and has less endurance. +- Battery capacity falls in the cold, and the battery may sag in voltage under load. Heat can overheat batteries, motors and electronics, and make GCS screens unreadable. + +### Wind (T4.2) + +- Wind direction is the direction the wind blows **from**. METAR and TAF give direction in degrees true and speed in knots; "G" indicates gusts (for example, 21015G25KT). +- Wind usually increases with height above the surface (**wind gradient**) because of friction near the ground. The wind at 200 ft may be much stronger than at the launch point. +- **Mechanical turbulence** forms downwind of buildings, trees and hills and can extend several times the obstacle height downwind. Expect sudden gusts and down-draughts near obstacles and in the lee of hills. +- **Thermal turbulence** forms on sunny days over heated ground. +- **Venturi effect**: wind accelerates between buildings and through gaps. +- **Sea breezes** blow onshore on warm afternoons; land breezes blow offshore at night. +- Fly the return leg with enough energy reserve to fly into a headwind. + +### Cloud, visibility and fog (T4.3) + +- RPA must not be flown in cloud or where visibility does not allow the operation to be conducted without hazard. {{organisation-name}} requires visibility greater than 5000 m and the RPA clear of cloud. +- **Radiation fog** forms on clear, calm nights and usually clears in the morning. **Advection fog** forms when moist air moves over a cold surface. Smoke, dust and haze also reduce visibility. +- Precipitation reduces visibility and may damage RPA that are not water-resistant. + +### Hazardous weather (T4.4) + +- **Thunderstorms** produce strong gusts, downbursts, hail, heavy rain and lightning, and their effects can extend well beyond the storm. Do not operate when thunderstorms are nearby. +- **Fronts** bring wind changes, gusts and turbulence. +- **Icing** can occur in cloud or visible moisture near or below freezing; RPA are not designed to fly in icing conditions. +- Keep batteries within the manufacturer's temperature range: warm them before flight in cold conditions and shade equipment in heat. + +### Weather information (T4.5) + +- **METAR** – routine aerodrome weather report; **SPECI** – special report when conditions change significantly. +- **TAF** – aerodrome forecast covering the area within about 5 NM of the aerodrome. +- **Graphical area forecasts (GAF)** – forecasts for areas, showing cloud, visibility and weather. +- Times are in UTC ("Z"). Eastern standard time is UTC + 10 hours. +- Example: METAR YSSY 230000Z 21015G25KT 9999 FEW030 18/09 Q1012 = Sydney, 23rd day at 0000 UTC, wind from 210° true at 15 kt gusting 25 kt, visibility 10 km or more, few cloud at 3000 ft, temperature 18°C, dew point 9°C, QNH 1012 hPa. +- Always confirm conditions on site: wind (use an anemometer and watch trees and flags), gusts, visibility, cloud, precipitation and temperature. Compare them with the RPA manufacturer's limits and the operations manual limits. +- High geomagnetic activity (space weather, shown by a Kp index of 5 or more) can degrade GNSS accuracy. + +## TL5 Human performance + +### Fitness for duty (T5.1) + +- Use the **IMSAFE** check before every operation: **I**llness, **M**edication, **S**tress, **A**lcohol, **F**atigue, **E**motion (and eating). +- Many prescription and over-the-counter medications (for example, codeine and antihistamines) cause drowsiness. Check with a doctor or pharmacist. +- Alcohol and other drugs impair judgement and reaction time long after you feel normal. Comply with the operations manual alcohol and rest limits. +- Fatigue reduces attention and decision quality. Sun, heat, dehydration and long days on site add to it. +- If you are, or may be, unfit, do not fly – and tell your instructor or CRP. + +### Vision and lookout (T5.2) + +- A small RPA becomes hard to see at a few hundred metres, and its orientation becomes hard to judge sooner than that. VLOS ends when you can no longer see and orient the RPA well enough to avoid collisions. +- The eye detects movement best in peripheral vision. An aircraft on a collision course appears stationary in your view and grows slowly, then rapidly – it is the hardest to detect. +- Use a systematic scan: look at the RPA, then scan the sky in sectors, then return to the RPA; look at the GCS only briefly. +- **Orientation reversal**: when the RPA is facing you (nose-in), left and right control inputs appear reversed. +- Glare from the sun, featureless skies and backgrounds that match the RPA's colour make it harder to see. Use sunglasses and plan positions so the sun is behind you. + +### Situational awareness and workload (T5.3) + +- **Situational awareness** is knowing what is happening around you, understanding what it means, and predicting what will happen next. +- High workload (for example, an emergency with a client talking to you) and low workload (long automated flights) both reduce awareness. +- **Cognitive tunnelling** is focusing so hard on one task (often the screen) that you miss other events, such as an approaching aircraft. Guard against it with a regular scan and by using an observer when the task demands attention. +- Distractions on site: people, phones, questions. Brief bystanders and silence your phone. + +### Decision-making and error (T5.4) + +- Use a structured approach, for example: identify the problem, consider options, decide, act, then review the outcome. +- **Threat and error management**: anticipate threats (weather, terrain, people, time pressure), manage errors (wrong mode, missed checklist items), and recover from undesired states (RPA outside the operating area) before they become accidents. +- Commercial or social pressure must not override a safety decision. You have the authority to cancel or stop an operation. +- **Automation bias**: over-trusting automated functions. Monitor automated flights and be ready to intervene. + +### Communication (T5.5) + +- Use short, clear, standard phrases and confirm messages (closed-loop communication). +- Handover of control: "I have control" – "You have control". Any person seeing a hazard calls "Stop" or "Land", and the pilot responds. +- Brief everyone on site before flight: the plan, emergency actions, hazards and each person's role. +- Speak politely to members of the public; pause or land if someone approaches the operating area. + +## TL6 Principles of flight and handling + +### Forces (T6.1) + +Four forces act on an aircraft in flight: **lift** (upward), **weight** (downward), **thrust** (forward or upward) and **drag** (opposing motion). A propeller or rotor produces thrust by accelerating air in one direction, producing an equal and opposite reaction (Newton's third law). A wing produces lift by deflecting air downward and creating lower pressure above the wing than below. + + +### Multirotor (T6.2, T6.3, T6.5) + +**Controls** + +- A multirotor has fixed-pitch propellers. The flight controller changes the speed of individual motors to control the aircraft. Adjacent propellers rotate in opposite directions to balance torque. +- **Throttle** changes the speed of all motors together: climb or descend. +- **Pitch** and **roll**: increasing the speed of the motors on one side tilts the RPA, and part of the thrust then moves it horizontally. +- **Yaw**: speeding up the motors rotating in one direction and slowing the others produces a reaction torque that turns the RPA. +- In the common "Mode 2" control layout, the left stick controls throttle and yaw, and the right stick controls pitch and roll. + +**Stability and limitations** + +- A multirotor is inherently unstable; the flight controller keeps it level many times per second. Failure of the flight controller or its sensors leads to loss of control. +- Loss of a motor or propeller on a quadcopter normally causes an uncontrolled descent. Some hexacopters and octocopters can remain controllable with one motor lost. +- **Vortex ring state**: when descending vertically at a moderate rate, the RPA can descend into its own downwash, lose lift and wobble or drop. Avoid it by descending slowly or with forward or sideways movement; recover by moving horizontally into clean air. +- In strong wind, the RPA must tilt into the wind to hold position, leaving less thrust margin for manoeuvring. Groundspeed downwind is high and upwind is low. + +**Take-off and landing** + +- Within about one rotor diameter of the ground, **ground effect** increases lift and can make the RPA unsettled near the ground and near walls. Take off and land with a decisive climb or a steady, slow final descent. +- Downwash blows dust, debris and loose objects; keep the launch area clear. + + + +### Helicopter (T6.2, T6.3, T6.5) + +**Controls** + +- **Collective** changes the pitch of all main rotor blades together, increasing or decreasing total thrust: climb or descend. +- **Cyclic** changes blade pitch as each blade goes around, tilting the rotor disc and moving the helicopter in that direction. +- The **tail rotor** counteracts the torque of the main rotor and controls yaw. A gyro or flight controller assists heading control. +- Throttle or governor keeps rotor speed constant. + +**Stability and limitations** + +- A helicopter is unstable in the hover and needs constant small control inputs or stabilisation. +- **Translational lift**: as the helicopter gains speed (or in a steady wind) the rotor becomes more efficient. Losing translational lift in a quick deceleration or a tailwind needs more power. +- **Vortex ring state**: descending vertically into its own downwash, with low forward speed and power on, the helicopter can lose lift. Recover by moving forward or sideways out of the downwash. +- **Retreating blade stall** limits forward speed: the blade moving away from the direction of flight loses lift at high speed. +- **Tail rotor failure** causes the helicopter to spin; follow the manufacturer's emergency procedure. + +**Take-off and landing** + +- Ground effect is significant within about one rotor diameter of the ground. Take off and land on level ground; a slope or a skid catching can cause **dynamic rollover**. +- Main rotor blades are dangerous; stay clear of the rotor disc when the system is armed. + + + +### Aeroplane (T6.2, T6.3, T6.5) + +**Controls** + +- **Elevator** controls pitch (nose up or down); **ailerons** control roll; **rudder** controls yaw; **throttle** controls thrust. +- To turn, the aeroplane is banked with the ailerons; the lift then has a sideways part that turns the aeroplane. Back pressure on the elevator maintains height in the turn. + +**Stability and limitations** + +- Lift depends on airspeed (lift increases with the square of airspeed), angle of attack, air density and wing area. +- The **angle of attack** is the angle between the wing and the oncoming air. Beyond the critical angle (typically about 15°) airflow separates and the wing **stalls**, losing lift. A stall can happen at any airspeed; stall speed increases in turns and with weight. +- An aeroplane cannot hover and needs a minimum airspeed. If power fails, it glides; plan flights so a safe landing area is always within gliding range. +- When the aeroplane turns downwind, its groundspeed increases although its airspeed does not. Do not reduce power or raise the nose because the aeroplane looks fast, or it may stall. Fly by airspeed, not groundspeed. + +**Take-off and landing** + +- Take off and land **into wind** to reduce groundspeed and the distance needed. +- Launch may be by hand, catapult or runway; recovery by runway landing, belly landing, net or parachute. Each has its own procedure and hazard area. +- A crosswind needs correction to keep the flight path aligned; know the RPA's crosswind limit. + + + +### Powered-lift (T6.2, T6.3, T6.5) + +**Controls** + +- A powered-lift RPA takes off and lands vertically using lift rotors (or tilting rotors), and cruises on its wings like an aeroplane. +- In vertical flight it is controlled like a multirotor; in wing-borne flight like an aeroplane. In **transition**, both systems work together under the flight controller. + +**Stability and limitations** + +- **Transition** from vertical to forward flight requires airspeed above the wing's stall speed with a margin before the lift rotors are stopped. It is the highest-risk phase: the RPA is near the ground, at low speed and changing configuration. +- **Back-transition** reduces speed and transfers lift back to the rotors before vertical landing. +- If transition fails or airspeed is lost in wing-borne flight, the RPA can stall. Know the automatic responses (for example, reverting to vertical flight mode) and the manual recovery. +- Large wing area makes the RPA susceptible to wind in vertical flight. + +**Take-off and landing** + +- Take off and transition into wind. Plan transition and back-transition areas clear of people and obstacles, with room for the distance the RPA travels during transition. + + +### Performance (T6.4) + +- More weight needs more thrust: the RPA climbs more slowly, manoeuvres less crisply, and has less endurance. Never exceed the maximum take-off weight. +- The **centre of gravity** must be within the manufacturer's limits; an off-centre payload causes instability and uneven motor loads. +- Wind increases energy used when flying into it. High density altitude reduces performance (TL4). +- Plan battery energy so that the RPA lands with the operations manual reserve, allowing for wind on the return. + +## TL7 RPAS systems + +### Components (T7.1) + +An RPAS consists of the **RPA**, the **remote pilot station** (remote controller and GCS display or app), the **command and control (C2) link**, the **payload** (for example, camera and gimbal) and **support equipment** (batteries, chargers, cases, tablets, landing pads). + +### Propulsion (T7.2) + +- Electric RPA use **brushless motors** driven by **electronic speed controllers (ESCs)**. Overheating, water ingress, damaged bearings or loose wiring can cause motor or ESC failure. +- **Propellers** must be undamaged and correctly fitted (matching the direction of rotation). A chipped or cracked propeller causes vibration, loss of thrust and can fail in flight. + +### Batteries (T7.3) + +- Most RPA use **lithium polymer (LiPo)** or lithium-ion batteries. A LiPo cell has a nominal voltage of 3.7 V (3.8–3.85 V for high-voltage cells) and is fully charged at 4.2 V (4.35 V for high-voltage cells). +- Do not over-discharge: land with the reserve required by the operations manual. Over-discharge and over-charge damage cells and can cause fire. +- **Do not use** a battery that is swollen, punctured, dented, has damaged wiring or connectors, gets unusually hot, or shows a cell imbalance warning. +- Charge only with the manufacturer's charger, on a non-flammable surface, attended, and away from combustible materials. Do not charge a hot battery. +- Store batteries at storage charge (about 3.8 V per cell; "smart" batteries do this automatically) in a cool, dry place, in a fire-resistant container. +- Transport batteries with terminals protected. Airline carriage limits apply (generally by watt-hour rating), and spare batteries must be in carry-on baggage. +- Cold reduces capacity; warm batteries before flight in cold weather. Dispose of damaged batteries through a battery recycling service. + +### Navigation and flight control (T7.4) + +- The **flight controller** uses an **IMU** (gyroscopes and accelerometers) to keep the RPA stable, a **compass** (magnetometer) for heading, a **barometer** for height, and **GNSS** (GPS, GLONASS, Galileo, BeiDou) for position. +- **Vision positioning** and **obstacle sensors** help in some RPA but have limits: poor performance in low light, over water or featureless or reflective surfaces, and with thin objects such as wires. They do not cover all directions in all modes. +- The **compass** is affected by metal objects, reinforced concrete, vehicles, power lines and magnets. Do not take off from metal or concrete with steel reinforcement. Calibrate the compass when prompted by the RPA or as required by the manufacturer. +- GNSS accuracy is reduced near tall buildings, cliffs and trees (signal blocking and reflection), and with few satellites. Do not take off until the home point is recorded and enough satellites are shown. + +### Flight modes and failsafes (T7.5) + +- **Position mode** (GNSS-assisted): the RPA holds position when the sticks are centred. +- **Attitude (ATTI) or manual mode**: the RPA holds height and level attitude but not position; it drifts with the wind. Pilots with a manual endorsement must be able to fly in this mode. +- **Automated modes**: waypoint missions, orbits, automated take-off and landing. The pilot must monitor and be able to intervene (pause, take manual control, RTH or land). +- **Return to home (RTH)**: the RPA climbs to the set RTH height, flies to the home point and lands. It can be triggered by the pilot, by low battery, or by loss of the C2 link. Set the RTH height above all obstacles between the operating area and home before the first flight at each site. +- **Failsafe** settings determine what the RPA does when the C2 link is lost (RTH, hover or land). Check them before flight. +- **Geofencing** databases built into some RPA are an aid only; they are not authoritative and may be wrong or out of date. + +### C2 link (T7.6) + +- RPA control links in Australia commonly use 2.4 GHz, 5.8 GHz or 915 MHz under the LIPD class licence. 2.4 GHz and 915 MHz generally give more range and better penetration; 5.8 GHz is less congested but more easily blocked. +- The link needs a clear line of sight between the controller and the RPA. Trees, buildings, terrain and even people block the signal. Flying low at distance increases link loss. +- Orient antennas as the manufacturer specifies (usually with the flat face toward the RPA, not the tips). +- Interference sources include Wi-Fi networks, other RPA, radio and mobile phone towers, and power lines. +- Video downlink has a delay; do not rely on video for collision avoidance. + +### Maintenance and software (T7.7) + +- RPA are maintained IAW the manufacturer's schedule and the operations manual. Daily and pre-flight inspections are maintenance items and are recorded in the RPAS technical log. +- Report every defect. Major defects must be fixed before flight. +- Firmware and app updates can change flight behaviour and failsafe settings. At {{organisation-name}}, updates are made only as directed by the MC, followed by a check of settings and a test flight. + +## TL8 Operational planning and procedures + +### Planning (T8.1) + +Planning an operation includes: + +1. the task: what, where, when, which RPA and crew +2. the site: access, landholder permission, people, buildings, roads, power lines, animals +3. airspace and aeronautical information: aerodromes and HLS, controlled airspace, PRD, NOTAM (NAIPS), drone safety app +4. authorisations required (CASA, landholder, council, national park, public safety) +5. weather forecast +6. the RPA's suitability and limits +7. emergency and alternate landing areas, and emergency contacts. + +At {{organisation-name}}, planning is recorded in the Flight Record, and every operation is authorised by the CRP. + +### Risk management (T8.2) + +- A **hazard** is something that could cause harm (for example, a power line). A **risk** is the chance that the hazard causes harm, together with how bad the harm could be. +- Risk is assessed by **likelihood** and **consequence** using the operations manual risk matrix, then reduced with **controls** (for example, a larger buffer, a different launch point, an observer) to as low as reasonably practicable. +- The **job safety assessment** (JSA) in the Flight Record records site-specific hazards and controls. The operator's **risk register** records hazards common to its operations. + +### Site set-up (T8.3) + +- Choose a **launch and recovery area** that is level, clear of obstacles and people, and gives a clear line of sight over the operating area. +- Define the **operating area** and its boundaries and maximum height, and identify **emergency landing areas**. +- Keep the 30 m buffer from uninvolved people; use cones, signs or a cordon where people may approach. +- Position the pilot so the sun is behind them and the RPA remains in view throughout. + +### Before flight (T8.4) + +- Validate the plan on site and record any changes. +- Complete the daily inspection (first flight of the day) and pre-flight checks using the checklist: airframe, propellers, motors, batteries, payload, controller, settings, failsafe and RTH height, satellites and home point, compass status. +- Brief everyone present (or self-brief for a solo operation): operating area, height, hazards, emergency actions, roles. + +### In flight (T8.5) + +- Take off, check controls respond correctly at a low hover, then climb. +- Keep VLOS; scan the RPA, the sky and the GCS. +- Monitor the battery, link strength, satellites, wind (drift and RPA tilt) and the operating area boundaries. +- Land with the required reserve. Stop if conditions exceed limits. + +### After flight (T8.6) + +- Disarm, power down the RPA then the controller (or as the manufacturer specifies), and make safe. +- Inspect the RPA for damage. Record time in service and defects in the RPAS technical log. +- Complete the Flight Record and remote pilot log; upload flight logs and data as required. + +## TL9 Abnormal and emergency procedures + +### Principles (T9.1) + +- The emergency response is: **maintain control** of the RPA, **manoeuvre it to a safe location**, and **land** it. +- Solo operations: **Aviate, Navigate, Communicate, Administrate** (ANCA). Multi-crew operations: **Communicate** within the crew first, then aviate, navigate, communicate externally and administrate (CANCA). +- Avoiding injury to people is always a higher priority than saving the RPA. + +### Loss of C2 link and flyaway (T9.2) + +- When the link is lost, the RPA performs its failsafe action (for example, RTH after a set delay). +- Keep watching the RPA. Move to improve line of sight; check antenna orientation. Do not move closer to obstacles or people. +- When the link is restored, take control if the RTH path or landing point is unsafe. +- In a **flyaway** (the RPA does not respond as commanded): try changing mode, triggering RTH, or landing; note the RPA's last position, direction, height and battery state. If it may enter controlled airspace or approach an aerodrome, tell ATC or the aerodrome operator immediately. Report it. + +### Loss of satellite positioning; compass and IMU errors (T9.3) + +- Without GNSS, the RPA enters attitude mode and drifts with the wind. Fly it manually by visual reference, keep it clear of obstacles and people, and land as soon as practicable. +- A compass error may cause the RPA to circle or drift in a growing spiral ("toilet bowling"). Switching to attitude mode (where the manufacturer recommends) stops the flight controller using the bad heading; then land. +- An IMU error or warning: land as soon as possible in a safe place. + +- Pilots with an automated-only endorsement manage these failures using the automated functions available (hold, RTH, land) and the manufacturer's procedure, and must land immediately. + + +### Low energy and propulsion failure (T9.4) + +- **Low battery warning**: return and land. **Critical battery**: the RPA may land automatically where it is; steer it to a safe spot if the manufacturer allows. +- **Motor or propeller failure**: a quadcopter will usually descend uncontrollably – this is why flight paths must avoid people. Multirotors with more motors may be landable: land immediately. + +- **Aeroplane power failure**: maintain airspeed, glide to the nearest safe area, land into wind if possible. + + +- **Helicopter power failure**: follow the manufacturer's procedure; most RPA helicopters cannot autorotate reliably, so keep flight paths clear of people. + + +- **Powered-lift lift-rotor failure in vertical flight**: follow the manufacturer's procedure; in forward flight, a failure may require a wing-borne landing or a parachute. + + +### Conflicting aircraft and people (T9.5) + +- If a crewed aircraft approaches, descend promptly and move the RPA away from its path; land if necessary. Do not try to "out-climb" an aircraft. +- If a person enters the operating area, hold the RPA away from them, pause the operation or land. + +### Fire, injury and after an accident (T9.6) + +- **Battery fire**: keep people clear and upwind; do not breathe the smoke. If safe, smother with sand or a fire blanket, or contain in a fire-resistant container, and use an extinguisher on surrounding combustible material. A damaged battery can reignite hours later. Call 000 if the fire spreads. +- **Injury**: first aid; call 000 for serious injury. +- After any accident or serious incident: make the scene safe, preserve flight logs, telemetry and the RPA and components, notify the CRP, and report to the ATSB as required (TL2). + + +## TLW Supplement: RPA from 7 kg to 25 kg + +### Energy and hazard + +- Kinetic energy = ½ × mass × speed². A 25 kg RPA at 15 m/s has about 2800 J of energy, compared with about 110 J for a 1 kg RPA at the same speed – about 25 times more. Doubling speed quadruples energy. +- Larger propellers and rotors cause severe injuries. Treat the RPA as live whenever the battery is connected. + +### Handling and performance + +- Heavier RPA have more inertia: they respond more slowly to control inputs and take longer to stop. Anticipate, and allow more distance from obstacles and boundaries. +- They are often less affected by light gusts but may have lower power margins; know the maximum wind and take-off weight limits. + +### Power systems + +- High-capacity batteries store large amounts of energy; handle, charge and transport them with extra care. Some systems use two batteries in parallel or series; follow the manufacturer's procedure for balancing and connecting them. +- Check connectors and wiring for heat damage after each flight. + +### Site set-up and emergencies + +- Use larger safety distances and launch areas, as specified in the type-specific procedures for the RPA. Plan flight paths so that a forced landing can be made anywhere along them without endangering people. +- A propulsion failure in a heavier RPA produces a higher-energy impact; the clear area beneath the flight path is the main protection. + + +# Part E – Theory examination and knowledge deficiency mapping + +## Examinations + +{{organisation-name}} uses three theory examinations. Each is a supervised, closed-book, multiple-choice examination with four options per question and one correct answer. + +| Examination | Used for | Questions | Time allowed | Pass mark | +|---|---|---|---|---| +| E1 Aeronautical knowledge | Initial courses (students without a theory credit) | 50 | 90 minutes | {{exam-pass-mark}}% | +| E2 Category knowledge | Upgrade (different category) courses; initial-course students with a theory credit that did not include RPA category knowledge | 20 | 40 minutes | {{exam-pass-mark}}% | +| E3 Weight class knowledge | Upgrade (same category) courses that add the 7 kg to 25 kg weight class | 10 | 20 minutes | {{exam-pass-mark}}% | + +## Examination specification + +### E1 Aeronautical knowledge + +| Topic | Syllabus items | Number of questions | +|---|---|---| +| T1 Air law and regulatory framework | T1.1–T1.8 | 8 | +| T2 Operating rules | T2.1–T2.10 | 9 | +| T3 Airspace, charts and aeronautical information | T3.1–T3.6 | 7 | +| T4 Meteorology | T4.1–T4.5 | 6 | +| T5 Human performance | T5.1–T5.5 | 4 | +| T6 Principles of flight and handling (course category) | T6.1–T6.5 | 5 | +| T7 RPAS systems | T7.1–T7.7 | 5 | +| T8 Operational planning and procedures | T8.1–T8.6 | 4 | +| T9 Abnormal and emergency procedures | T9.1–T9.6 | 2 | +| Total | | 50 | + +For a course that includes the 7 kg to 25 kg weight class, at least three of the T6, T7, T8 and T9 questions are drawn from questions tagged to the TLW supplement. + +### E2 Category knowledge + +| Topic | Syllabus items | Number of questions | +|---|---|---| +| T6 Principles of flight and handling (course category) | T6.1–T6.5 | 10 | +| T7 RPAS systems (category-specific aspects) | T7.2, T7.4, T7.5 | 6 | +| T9 Abnormal and emergency procedures (category-specific aspects) | T9.2–T9.4 | 4 | +| Total | | 20 | + +### E3 Weight class knowledge + +| Topic | Syllabus items | Number of questions | +|---|---|---| +| Performance of heavier RPA | T6.4 | 3 | +| Propulsion and power systems | T7.2, T7.3 | 3 | +| Site set-up for heavier RPA | T8.3 | 2 | +| Propulsion failure in heavier RPA | T9.4 | 2 | +| Total | | 10 | + +### Selection of questions + +- Each paper is compiled by the CRI from the question bank to the specification above. Within each topic, questions are drawn from different syllabus items, and no syllabus item is repeated in a paper until every item in that topic has been used. +- The question bank holds at least three questions for each syllabus item, so that resit papers can be compiled without repeating questions. +- Each paper is given a unique identifier and recorded in the examination paper register with the list of questions used. +- Category-specific questions (T6, and category-specific T7 and T9 questions) are drawn only from those tagged to the course category. + +### Permitted materials + +- Chart and ERSA extracts supplied with the paper +- A non-programmable calculator +- A navigation ruler or plotter +- Blank working paper supplied by the supervisor (collected at the end) + +No other notes, books or electronic devices are permitted. + +### Examination rules (read to the student before the start) + +1. You have [time allowed] to answer [number] questions. Each question has one correct answer. +2. You may use only the permitted materials. Switch off your phone and other devices and place them where the supervisor directs. +3. Do not communicate with anyone other than the supervisor during the examination. +4. The supervisor cannot help you with the content of a question. +5. You may leave once you have handed in your paper and all working paper. +6. You will receive your result and a knowledge deficiency report. You will not be shown the questions or answers afterwards. +7. Any attempt to copy, record or remove examination material will void your attempt. + +### The question bank + +The question bank is a controlled document held separately from this manual by the CRI (see Part A, *Examination security*). Each question in the bank records: + +- a unique question number +- the syllabus item to which it is mapped (exactly one) +- the course categories, weight classes and complexities to which it applies +- the correct answer and the reference (Part D section and the legislation or guidance) that supports it +- the date of the last review. + +The question bank and the examination papers compiled from it are provided to CASA as a separate controlled attachment to the application, and are not distributed to students or published. + +## Knowledge deficiency mapping + +Because every question is mapped to one syllabus item, a knowledge deficiency report lists the syllabus items for every incorrectly answered question. The table below maps each syllabus item to the deficiency description given to the student and to the material used for remedial training. + +| Item | Knowledge deficiency description (as shown on the KDR) | Remedial training reference | +|---|---|---| +| T1.1 | Structure of aviation legislation and the role of CASA | TL1; Part D, *The legislation* | +| T1.2 | RPA categories and weight classes | TL1; Part D, *Categories and weight classes* | +| T1.3 | Micro, excluded and included operations; the SOC | TL1; Part D, *Micro, excluded and included operations* | +| T1.4 | RePL privileges, endorsements and logbook | TL1; Part D, *The remote pilot licence* | +| T1.5 | ReOC holder obligations and key personnel | TL1; Part D, *The ReOC* | +| T1.6 | Registration and accreditation | TL1; Part D, *Registration and accreditation* | +| T1.7 | Hazardous operation and enforcement | TL1; Part D, *Hazardous operation and enforcement* | +| T1.8 | Other legislation affecting RPA operations | TL1; Part D, *Other legislation* | +| T2.1 | Height limits and measurement | TL2; Part D, *Height* | +| T2.2 | VLOS, EVLOS and BVLOS | TL2; Part D, *Visual line of sight* | +| T2.3 | Distance from people; populous areas | TL2; Part D, *People and populous areas* | +| T2.4 | Aerodrome and HLS no-fly zones; relevant events | TL2; Part D, *Aerodromes* | +| T2.5 | PRD and public safety operations | TL2; Part D, *Prohibited, restricted and military areas; public safety* | +| T2.6 | Night and visibility rules | TL2; Part D, *Night and visibility* | +| T2.7 | Multiple RPA, automation, dropping, dangerous goods | TL2; Part D, *Other rules* | +| T2.8 | CASA authorisations and NOTAM | TL2; Part D, *Authorisations and NOTAM* | +| T2.9 | Aeronautical radio requirements | TL2; Part D, *Aeronautical radio* | +| T2.10 | ATSB reporting | TL2; Part D, *Reporting to the ATSB* | +| T3.1 | Airspace classes and controlled airspace limits | TL3; Part D, *Airspace* | +| T3.2 | Chart symbols and interpretation | TL3; Part D, *Charts* | +| T3.3 | Latitude, longitude, direction and distance | TL3; Part D, *Position, direction and distance* | +| T3.4 | Heights, altitudes and unit conversions | TL3; Part D, *Heights and units* | +| T3.5 | AIP, ERSA, NOTAM, NAIPS and drone safety apps | TL3; Part D, *Aeronautical information* | +| T3.6 | Other airspace users | TL3; Part D, *Other airspace users* | +| T4.1 | Atmosphere and density altitude effects | TL4; Part D, *The atmosphere* | +| T4.2 | Wind and turbulence | TL4; Part D, *Wind* | +| T4.3 | Cloud, visibility and fog | TL4; Part D, *Cloud, visibility and fog* | +| T4.4 | Hazardous weather and temperature effects | TL4; Part D, *Hazardous weather* | +| T4.5 | Weather reports and forecasts | TL4; Part D, *Weather information* | +| T5.1 | Fitness for duty | TL5; Part D, *Fitness for duty* | +| T5.2 | Vision, perception and lookout | TL5; Part D, *Vision and lookout* | +| T5.3 | Situational awareness and workload | TL5; Part D, *Situational awareness and workload* | +| T5.4 | Decision-making, TEM and automation bias | TL5; Part D, *Decision-making and error* | +| T5.5 | Communication and crew coordination | TL5; Part D, *Communication* | +| T6.1 | Forces in flight | TL6; Part D, *Forces* | +| T6.2 | Flight controls (course category) | TL6; Part D, section for the course category | +| T6.3 | Stability and limitations (course category) | TL6; Part D, section for the course category | +| T6.4 | Performance: weight, balance, wind, density altitude | TL6 (and TLW); Part D, *Performance* | +| T6.5 | Take-off and landing (course category) | TL6; Part D, section for the course category | +| T7.1 | RPAS components | TL7; Part D, *Components* | +| T7.2 | Propulsion | TL7 (and TLW); Part D, *Propulsion* | +| T7.3 | Batteries | TL7 (and TLW); Part D, *Batteries* | +| T7.4 | Navigation and flight control sensors | TL7; Part D, *Navigation and flight control* | +| T7.5 | Flight modes, RTH and failsafes | TL7; Part D, *Flight modes and failsafes* | +| T7.6 | C2 link | TL7; Part D, *C2 link* | +| T7.7 | Maintenance and software | TL7; Part D, *Maintenance and software* | +| T8.1 | Planning an operation | TL8; Part D, *Planning* | +| T8.2 | Risk management | TL8; Part D, *Risk management* | +| T8.3 | Site set-up | TL8 (and TLW); Part D, *Site set-up* | +| T8.4 | Pre-flight procedures and briefings | TL8; Part D, *Before flight* | +| T8.5 | In-flight monitoring | TL8; Part D, *In flight* | +| T8.6 | Post-flight procedures and records | TL8; Part D, *After flight* | +| T9.1 | Emergency management principles | TL9; Part D, *Principles* | +| T9.2 | Loss of C2 link and flyaway | TL9; Part D, *Loss of C2 link and flyaway* | +| T9.3 | Loss of GNSS; compass and IMU errors | TL9; Part D, *Loss of satellite positioning; compass and IMU errors* | +| T9.4 | Low energy and propulsion failure | TL9 (and TLW); Part D, *Low energy and propulsion failure* | +| T9.5 | Conflicting aircraft and people | TL9; Part D, *Conflicting aircraft and people* | +| T9.6 | Fire, injury and post-accident actions | TL9; Part D, *Fire, injury and after an accident* | + +## Examination record (Form T3) + +| Field | Entry | +|---|---| +| Student name and ARN | | +| Course | | +| Examination (E1 / E2 / E3) and attempt number | | +| Paper identifier | | +| Date, start time, finish time | | +| Location | | +| Identification sighted (type) | | +| Supervisor name and ARN | | +| Clarifications given or irregularities observed | | +| Score (number correct / number of questions, %) | | +| Result (pass / fail) | | +| KDR issued (Form T4 reference) | | +| Supervisor signature and date | | +| CRI review: result confirmed (signature and date) | | +| CRI decision after final unsuccessful attempt (if applicable) | | + +## Knowledge deficiency report and remedial training record (Form T4) + +| Field | Entry | +|---|---| +| Student name and ARN | | +| Examination, attempt and paper identifier | | +| Date of examination | | +| Score and result | | + +| Syllabus item | Knowledge deficiency description | Remedial training given (date, method) | Understanding confirmed (Y/N) | Instructor initials | +|---|---|---|---|---| +| | | | | | +| | | | | | +| | | | | | +| | | | | | + +| Sign-off | Name / ARN | Signature | Date | +|---|---|---|---| +| Student: all items explained to me | | | | +| Instructor: all items closed | | | | +| CRI review | | | | + +# Part F – Practical lesson plans and instructor notes + +## Use of the practical lesson plans + +Each practical lesson follows the same sequence: + +| Stage | Content | +|---|---| +| Pre-flight briefing | Objectives; how the lesson links to the competency units; demonstration plan; airborne sequence; operating area, boundaries and maximum height; weather limits; handover of control; simulated emergency procedure; what the student must achieve. | +| Preparation | The student prepares the RPAS and completes the Flight Record entries for the session (from PL2 onwards, the student does this with decreasing assistance). | +| Airborne exercises | Demonstrate – student follows through – student practises – instructor assesses. | +| Post-flight debriefing | Student self-assessment; instructor feedback on each element against the performance criteria; grades recorded on the worksheet; what to revise for the next lesson. | +| Records | Practical worksheet (Part G), flight training log (Form T5), Flight Record and RPAS technical log. | + +Flight time shown in each lesson is the minimum for an initial course (see the course curriculum in Part B). The instructor must continue a lesson in further sessions until the student is graded competent in every element. + +Common to all practical lessons: + +- The instructor is the RP in command and must comply with Part A, *Safety of training flights*. +- Before each lesson, the instructor confirms the student's fitness to fly and records it on the worksheet. +- Simulated emergencies are introduced only by the instructor and only at a safe height and position. +- The instructor takes control whenever required by Part A, *Instructor control*, and records each intervention on the worksheet. + +## PL1 RPAS familiarisation and preparation + +| Lesson detail | | +|---|---| +| Units and elements | P1.1–P1.5, P2.1–P2.5, P8.1–P8.4 | +| Duration | 1.5 h, ground only | +| Prerequisites | TL7 (initial courses) | +| Resources | Training RPA, controller and GCS; batteries and charger; manufacturer's manual; operations manual checklists; Flight Record; RPAS technical log | +| Location | Classroom and training location | + +### Objectives + +The student will be able to identify the components of the training RPAS, assemble and inspect it, manage batteries, set and check the flight controller, failsafe and RTH settings, confirm the link and positioning, and complete the post-flight procedures and records. + +### Sequence + +1. Components, controls and indicators of the training RPA and GCS; control stick mode and assignments. +2. Assembly and disassembly; propeller fitting and direction. +3. Daily inspection using the checklist; recording in the RPAS technical log. +4. Battery inspection, charging, storage and transport. +5. GCS settings: maximum height and distance limits, RTH height, failsafe action, low battery thresholds, flight mode switch, obstacle sensing. +6. Compass and IMU calibration procedure (demonstrate; perform when required by the manufacturer). +7. Power-up sequence, link check, satellite count and home point. +8. Shutdown sequence, post-flight inspection, logs and records. + +### Completion standard + +The student prepares the RPAS for flight and makes it safe after flight using the checklist, without error, and correctly states the failsafe and RTH behaviour of the training RPA. + +### Instructor notes + +- Students tend to skip checklist items they consider obvious; insist on reading and responding to each item. +- Have the student set an intentionally wrong RTH height and identify the hazard it would create at the training location. +- Do not allow propellers to be fitted indoors with a battery connected. + +## PL2 Effects of controls, take-off, hover and landing + +| Lesson detail | | +|---|---| +| Units and elements | P2.1–P2.5, P3.1, P3.2, P7.1–P7.4 | +| Flight time | 0.5 h minimum | +| Prerequisites | PL1 | +| Weather | Mean wind not more than 10 kt, gusts not more than 15 kt | +| Mode | Position-hold (GNSS) mode | + +### Objectives + +The student will be able to take off, hover, move the RPA in each axis using the primary controls, and land at a nominated point, while maintaining VLOS and lookout. + +### Sequence + + +Multirotor: + +1. Instructor demonstration: take-off to 3 m, hover, effect of each stick (throttle, yaw, pitch, roll), landing. +2. Student take-off and hover at 3 m, tail toward the student (nose-out). +3. Height changes: climb and descend in steps of 2 m. +4. Translation forward, back, left and right of 5 m, returning to the hover point. +5. Yaw through 90° left and right and return to nose-out. +6. Approach and landing at the take-off point. +7. Repeat 2 to 6 until consistent. + + +Helicopter: + +1. Instructor demonstration: spool-up, lift-off to hover at 2 m, effect of each control, landing, spool-down. +2. Student lift-off and hover, tail toward the student. +3. Height changes in the hover. +4. Small translations in each direction, returning to the hover point. +5. Hover turns of 90° left and right. +6. Landing at the take-off point and spool-down. + + +Aeroplane: + +1. Instructor demonstration: launch, climb to 150 ft, effects of controls (elevator, ailerons, rudder, throttle) in straight and level flight, circuit, landing. +2. Student follows through on each control after the instructor has climbed the aeroplane to a safe height. +3. Student flies straight and level, gentle turns, climbs and descents in a stabilised (assisted) mode. +4. Instructor flies the approach and landing; student follows through. +5. Student launches and climbs out with instructor guidance (when ready). + + +Powered-lift: + +1. Instructor demonstration: vertical take-off to 5 m, hover, effect of each control in vertical mode, vertical landing. +2. Student vertical take-off and hover, tail toward the student. +3. Height changes and translations in vertical mode. +4. Instructor demonstrates an automated transition, a short wing-borne leg and back-transition; student observes. +5. Student vertical landing at the take-off point. + + +### Completion standard + +The student takes off and lands at the nominated point, and holds a hover or steady flight path, using the correct control inputs, without instructor intervention. + +### Instructor notes + +- First flights are high workload: keep the hover close (within 10 to 15 m) and low. +- Common errors: over-controlling, looking at the screen instead of the RPA, chasing drift, landing with a high descent rate. +- Intervene immediately if the RPA approaches the 30 m buffer, an obstacle, or a height below 2 m away from the landing point. + +## PL3 Automated flight operations + +| Lesson detail | | +|---|---| +| Units and elements | P4.1–P4.4, P3.1–P3.4, P7.1–P7.4 | +| Flight time | 0.75 h minimum (automated and manual courses); 1.5 h (automated-only courses) | +| Prerequisites | PL2 | +| Weather | Normal training limits | + +### Objectives + +The student will be able to plan, verify, upload, launch, monitor and intervene in an automated flight, and use automated take-off, RTH and landing. + +### Sequence + +1. Ground: plan a waypoint mission over the training area in the GCS application, setting heights, speeds, actions at the end of the mission and on link loss. Verify each waypoint height against obstacles and the 400 ft limit and the training maximum height. +2. Check the mission on the GCS map and against the operating area boundaries; brief the planned route. +3. Automated take-off (or manual take-off where the RPA does not have one) and start of the mission. +4. Monitoring: RPA position against the plan, battery, link, satellites, wind effect; lookout. +5. Intervention: pause (hold) the mission on the instructor's call; resume; abort and RTH; abort and land at present position. +6. Point-of-interest orbit or equivalent automated function where available. +7. RTH from at least 100 m and observe the climb, return and landing behaviour; cancel RTH and take control when instructed. +8. Rejected take-off and go-around (discontinued approach). + +### Completion standard + +The student plans and verifies a mission that remains within the operating area and height limits, monitors it continuously, and intervenes correctly and promptly on each command, without instructor intervention. + +### Instructor notes + +- Stress that transferring waypoints between applications and outdated software can cause errors; always review the mission on the map before flight. +- Check that students look at the RPA and the sky, not only at the GCS, during automated flight. +- For automated-only courses, extend this lesson to cover all normal operations, including precise positioning using position-hold and automated functions. + + +## PL4 Manual handling 1 + +| Lesson detail | | +|---|---| +| Units and elements | P5.1–P5.3, P3.1, P3.2 | +| Flight time | 0.75 h minimum | +| Prerequisites | PL2 | +| Weather | First session: mean wind not more than 10 kt, gusts not more than 15 kt; then normal training limits | +| Mode | Manual mode without satellite position hold (ATTI or equivalent) | +| Applies to | Courses with automated and manual complexity only | + +### Objectives + +The student will be able to control the RPA without satellite position hold, maintaining position and height, and land. + +### Sequence + + +Multirotor: + +1. Instructor demonstration of drift in manual mode and the corrections needed. +2. Student hover nose-out at 3 to 5 m, holding position within 3 m for 10 seconds. +3. Translations forward, back, left and right of 10 m, stopping and holding position. +4. Hover side-on (nose left and nose right). +5. Climb and descent while holding position. +6. Approach and landing in manual mode at a nominated point. + + +Helicopter: + +1. Instructor demonstration of hover control without stabilisation assistance (where applicable). +2. Student hover tail-in, holding position within 3 m. +3. Side-on hover left and right. +4. Translations and stops. +5. Hover turns through 360°. +6. Landing at a nominated point. + + +Aeroplane: + +1. Instructor demonstration of manual flight without stabilisation. +2. Straight and level flight, maintaining height within 20 ft and heading. +3. Medium turns (about 30° bank) left and right, maintaining height. +4. Climbing and descending turns. +5. Rectangular circuit pattern at constant height. +6. Approach in manual mode with instructor landing (or student landing when ready). + + +Powered-lift: + +1. Manual control in vertical mode: hover, translations, side-on hover, landing. +2. Manual control in wing-borne mode at a safe height: straight and level, medium turns, climbing and descending turns. +3. Rectangular circuit pattern in wing-borne mode. + + +### Completion standard + +The student controls the RPA in manual mode within the tolerances stated, without instructor intervention. + +### Instructor notes + +- Introduce manual mode at a safe height with the RPA close and upwind, so it drifts toward open space. +- Common errors: late correction of drift, confusing left and right when side-on, abrupt throttle changes in manual mode. +- Take control before the RPA drifts within 10 m of an operating area boundary. + +## PL5 Manual handling 2 + +| Lesson detail | | +|---|---| +| Units and elements | P5.1–P5.3, P3.2, P3.4, P7.2 | +| Flight time | 0.75 h minimum | +| Prerequisites | PL4 | +| Weather | Normal training limits | +| Mode | Manual mode | +| Applies to | Courses with automated and manual complexity only | + +### Objectives + +The student will be able to fly the category manoeuvres in manual mode in all orientations, at distance, and land precisely. + +### Sequence + + +Multirotor: + +1. Hover nose-in (facing the student) holding position within 3 m. +2. Box pattern (square of about 20 m sides) at constant height, nose-out throughout. +3. Box pattern with the nose leading (yawing at each corner). +4. Figure-eight or orbit around a fixed point at constant height and radius. +5. Flight at 80 to 100 m from the student and return, maintaining orientation. +6. Precision landing within 1 m of a nominated point. + + +Helicopter: + +1. Nose-in hover holding position within 3 m. +2. Forward flight circuits at constant height. +3. Figure-eight at constant height. +4. Approach to the hover and quick stop. +5. Precision landing within 1 m of a nominated point. + + +Aeroplane: + +1. Climbing out and circuit entry in manual mode. +2. Steep turns (about 45° bank) at a safe height, maintaining height. +3. Slow flight and recognition of the approach to the stall (where permitted by the manufacturer), with recovery. +4. Approach and landing in manual mode within the nominated landing area. +5. Go-around from the approach. +6. Crosswind approach (when conditions allow). + + +Powered-lift: + +1. Nose-in hover in vertical mode. +2. Manual transition to wing-borne flight and back-transition (where the RPA permits manual transition; otherwise monitored automated transition with manual control either side). +3. Circuit pattern in wing-borne mode. +4. Approach, back-transition and vertical landing within 1 m of a nominated point. +5. Aborted transition: return to vertical mode and land. + + +### Completion standard + +The student flies the manoeuvres within the tolerances in the flight test sheet (Part H) for the category, without instructor intervention. + +### Instructor notes + +- Nose-in orientation causes the most errors; build it up close before flying it at distance. +- At distance, students lose orientation; teach them to use a small yaw input to confirm heading. +- Do not let manoeuvres at distance take the RPA beyond where the student can see its orientation. + + +## PL6 Abnormal and emergency procedures + +| Lesson detail | | +|---|---| +| Units and elements | P6.1–P6.6, P7.1–P7.4 | +| Flight time | 0.75 h minimum (automated and manual courses); 1.0 h (automated-only courses) | +| Prerequisites | PL3; and PL5 for courses with automated and manual complexity | +| Weather | Normal training limits | + +### Objectives + +The student will be able to recognise and respond correctly to abnormal and emergency situations, using the operations manual and manufacturer's procedures. + +### Sequence + +| Exercise | Method | +|---|---| +| Low battery warning and return | Flown: instructor sets a higher low-battery threshold or calls the warning | +| Loss of C2 link and failsafe RTH | Talk-through on the GCS, then flown where the manufacturer permits a safe simulation (for example, by RTH command); actual link loss is not induced | + +| Loss of satellite positioning | Flown: instructor calls the failure and the student switches to manual mode and lands | +| Compass error ("toilet bowling") | Talk-through, then flown recovery in manual mode | + + +| Loss of satellite positioning | Talk-through: actions available in automated modes (hold, land), and the manufacturer's procedure | + +| Crewed aircraft approaching | Flown: instructor calls "aircraft"; the student descends and moves the RPA clear, or lands | +| Person entering the operating area | Flown: instructor calls "person"; the student holds the RPA clear, pauses or lands | +| Motor or propeller failure; flight termination | Talk-through using the manufacturer's procedure and the operations manual | +| Flyaway | Talk-through: actions, information to note, who to tell | +| Battery fire and post-accident actions | Ground drill using the LiPo safety bag or container | +| Rejected take-off and go-around | Flown | + +### Completion standard + +The student recognises each situation promptly and carries out the correct actions in the correct order, without instructor intervention, and states the actions for each talk-through item. + +### Instructor notes + +- Never simulate a failure that cannot be recovered on the training RPA (for example, switching off a motor or the controller). +- Introduce simulated failures at a safe height and position, upwind, with the RPA close. +- Check that students apply ANCA: control first, communication after the RPA is safe. + +## PL7 Operational scenario + +| Lesson detail | | +|---|---| +| Units and elements | P1–P8 (all elements) | +| Flight time | 1.0 h minimum (automated and manual courses); 1.5 h (automated-only courses) | +| Prerequisites | PL6; TL8 | + +### Objectives + +The student will be able to plan, prepare, conduct and complete a realistic operation from start to finish as the person manipulating the controls. + +### Sequence + +1. The instructor gives a task (for example, an inspection of a structure at the training location, or a mapping mission of a defined area). +2. The student plans the operation: airspace, NOTAM, weather, hazards, risk assessment, Flight Record, and presents it to the instructor for authorisation. +3. The student sets up the site and briefs the instructor and others present. +4. The student prepares the RPAS and conducts the operation, using automated flight and, for courses with automated and manual complexity, manual flight, as the task requires. +5. The instructor introduces at least one abnormal situation during the operation. +6. The student completes the post-flight procedures and records. + +### Completion standard + +The student completes the operation safely, within the plan and the operations manual, managing the abnormal situation correctly, without instructor intervention. + +### Instructor notes + +- Assess the whole operation, including decision-making: a student who correctly decides not to fly because of a hazard meets the standard for that element. +- Use a different task for each attempt. + +## PL8 Consolidation and flight test preparation + +| Lesson detail | | +|---|---| +| Units and elements | All | +| Flight time | 0.5 h minimum | +| Prerequisites | PL1 to PL7 graded competent | + +### Objectives + +The student will consolidate all competencies and fly a practice flight test. + +### Sequence + +1. The instructor reviews the student's worksheets and identifies elements needing consolidation. +2. Practice of those elements. +3. A practice flight test using the flight test sheet in Part H. +4. Debrief, and recommendation (or not) for the flight test. + +### Completion standard + +The student meets every item on the flight test sheet in the practice test. The instructor records the recommendation for the flight test on worksheet PW8. + +### Instructor notes + +- Do not recommend a student who needed prompting in any item. +- Brief the student on the flight test process, the role of the examiner and what happens if an item is not met. + +# Part G – Practical worksheets (formative) + +## Use of the practical worksheets + +A worksheet is completed by the instructor for each practical lesson session. Each element is graded using the scale below. A lesson is complete when every element on its worksheet is graded 4. Worksheets are formative: they record progress and guide further training, and do not determine the course result. + +| Grade | Meaning | +|---|---| +| 1 | Not yet able: requires demonstration or the instructor took control | +| 2 | Performs with significant prompting or assistance | +| 3 | Performs with minor prompting; not yet consistent | +| 4 | Competent: performs consistently to the standard without assistance | +| N/A | Not applicable to this course or not attempted this session (give reason) | + +Each worksheet has the following header and footer. + +| Header | Entry | +|---|---| +| Student name and ARN | | +| Course | | +| Lesson and session number | | +| Date and training location | | +| Instructor name and ARN | | +| RPA make, model and serial number | | +| Flight Record reference | | +| Weather (wind, gusts, visibility, temperature) | | +| Student fitness to fly confirmed (instructor initials) | | + +| Footer | Entry | +|---|---| +| Flight time this session (as person manipulating the controls) | | +| Instructor interventions (number and reason) | | +| Lesson complete (all elements graded 4)? Y / N | | +| Focus for next session | | +| Instructor signature and date | | +| Student signature and date | | + +## PW1 RPAS familiarisation and preparation + +| Element | Performance criteria | Grade | Comments | +|---|---|---|---| +| P1.1 Assess the task and site | Identifies hazards and suitable launch, recovery and emergency areas at the training location | | | +| P1.2 Check airspace and aeronautical information | Uses chart, ERSA, NOTAM and drone safety app to confirm the location is suitable | | | +| P1.3 Obtain and assess weather | Obtains a forecast and compares conditions with limits | | | +| P1.4 Complete the risk assessment and Flight Record | Completes the relevant Flight Record sections accurately | | | +| P1.5 Brief | Gives a briefing covering area, height, hazards, emergency actions and roles | | | +| P2.1 Assemble and inspect the RPAS | Assembles correctly; completes the daily inspection with the checklist; records it in the technical log | | | +| P2.2 Manage batteries | Inspects, fits and secures batteries; identifies unserviceable batteries; states charging and storage rules | | | +| P2.3 Confirm software, settings, failsafe and RTH | Sets and verifies height and distance limits, RTH height, failsafe action and low-battery thresholds | | | +| P2.4 Confirm link, positioning and sensors | Confirms link strength, satellite count, compass and IMU status; calibrates when required | | | +| P2.5 Record the home point | Confirms the home point is recorded before take-off | | | +| P8.1 Shut down and make safe | Follows the shutdown sequence; removes batteries | | | +| P8.2 Post-flight inspection | Inspects the RPAS and records defects | | | +| P8.3 Logs and records | Completes the remote pilot log, Flight Record and technical log | | | +| P8.4 Post-flight battery management | Handles batteries for cooling, charging or storage correctly | | | + +## PW2 Effects of controls, take-off, hover and landing + +| Element | Performance criteria | Grade | Comments | +|---|---|---|---| +| Pre-flight preparation | Prepares the RPAS and completes pre-flight checks with the checklist | | | +| P3.1 Take off and climb | Takes off smoothly and checks control response at a low hover before climbing | | | +| Hover / steady flight | Holds the hover within 2 m and height within 1 m for 10 seconds (aeroplane: holds heading and height within 20 ft) | | | +| Effects of controls | Uses each control correctly and smoothly to move the RPA as intended | | | +| P3.2 Approach and land | Lands within 2 m of the nominated point with a controlled descent rate (aeroplane: instructor-guided approach) | | | +| P7.1 VLOS and lookout | Keeps the RPA in sight and scans the sky; uses the GCS only briefly | | | +| P7.2 Area and height | Remains within the operating area and height | | | +| P7.3 Monitor RPA status | Notices and reports battery, link and satellite indications | | | +| P7.4 Communication | Uses the handover of control phrases correctly | | | + +## PW3 Automated flight operations + +| Element | Performance criteria | Grade | Comments | +|---|---|---|---| +| P4.1 Plan and upload an automated flight | Plans a mission with correct heights, speeds, end and link-loss actions | | | +| P4.2 Verify the automated flight plan | Checks every waypoint against obstacles, operating area and height limits before flight | | | +| P4.3 Monitor an automated flight | Monitors RPA position against the plan, energy, link and satellites; maintains lookout | | | +| P4.4 Intervene | Pauses, resumes, aborts to RTH and aborts to land promptly on command | | | +| RTH | Predicts and verifies RTH path and height; cancels RTH and takes control when instructed | | | +| P3.3 Reject a take-off | Rejects the take-off correctly when instructed | | | +| P3.4 Discontinue an approach | Discontinues the approach and climbs away or holds on command | | | +| P7.1–P7.4 Situational awareness and communication | As for PW2 | | | + + +## PW4 Manual handling 1 + +Applies to courses with automated and manual complexity only. Grade the elements for the course category. + +| Element | Performance criteria | Grade | Comments | +|---|---|---|---| +| P5.1 Control without position hold | Selects manual mode correctly and controls the RPA without loss of control | | | +| P5.3 Hold position and height | Multirotor, helicopter and powered-lift (vertical mode): holds position within 3 m and height within 1.5 m for 10 seconds. Aeroplane and powered-lift (wing-borne): holds height within 20 ft and heading within 10° | | | +| P5.2 Category manoeuvres (manual 1) | Performs the PL4 manoeuvres for the category as listed in Part F | | | +| P5.3 Orientation | Maintains correct control in side-on orientations (rotorcraft) or in turns (aeroplane) | | | +| P3.2 Approach and land in manual mode | Lands within 2 m of the nominated point (aeroplane: within the nominated landing area, or instructor lands) | | | +| P7.1–P7.4 Situational awareness and communication | As for PW2 | | | + +## PW5 Manual handling 2 + +Applies to courses with automated and manual complexity only. Grade the elements for the course category. + +| Element | Performance criteria | Grade | Comments | +|---|---|---|---| +| Nose-in hover (rotorcraft and powered-lift) | Holds position within 3 m and height within 1.5 m for 10 seconds | | | +| Box pattern (multirotor) / circuits (helicopter, aeroplane, powered-lift) | Flies the pattern at constant height (within 2 m; aeroplane within 30 ft) with corners within 3 m of the planned position | | | +| Figure-eight or orbit | Constant height and radius; smooth and coordinated | | | +| Flight at distance | Maintains orientation and control at 80 to 100 m | | | +| Aeroplane: steep turns; stall awareness; go-around; crosswind | Performs each as briefed, within the tolerances in Part H | | | +| Powered-lift: transition, back-transition, aborted transition | Performs each as briefed, within the tolerances in Part H | | | +| P3.2 Precision landing | Lands within 1 m of the nominated point (aeroplane: within the nominated landing area) | | | +| P7.2 Area and height | Remains within the operating area and height | | | + + +## PW6 Abnormal and emergency procedures + +| Element | Performance criteria | Grade | Comments | +|---|---|---|---| +| P6.1 Recognise abnormal indications | Recognises each simulated situation promptly and states it | | | +| P6.2 Loss of C2 link | States and, where simulated, carries out the correct actions; predicts failsafe behaviour | | | +| P6.3 Loss of satellite positioning | Manual courses: switches to manual mode, maintains control and lands. Automated-only courses: states and carries out the automated response | | | +| P6.4 Low energy, power or propulsion failure | Returns and lands on low battery warning; states actions for propulsion failure | | | +| P6.5 Conflicting aircraft and persons | Descends and moves the RPA clear, holds or lands, promptly | | | +| P6.6 Terminate a flight | States when and how a flight is terminated on the training RPA | | | +| Flyaway | States actions, information to note and notifications | | | +| Battery fire and post-accident actions | Carries out the ground drill correctly | | | +| Emergency principles | Applies ANCA: control first, then navigate, communicate, administrate | | | + +## PW7 Operational scenario + +| Element | Performance criteria | Grade | Comments | +|---|---|---|---| +| P1 Plan and prepare | Plans the task completely; identifies airspace, NOTAM, weather and hazards; completes the Flight Record and obtains authorisation | | | +| P2 Prepare the RPAS | Prepares the RPAS without error | | | +| Site set-up and briefing | Sets up launch, recovery, operating and emergency areas; briefs all present | | | +| P3 Launch and recover | Launches and recovers safely at the planned points | | | +| P4 Automated operation | Uses automated functions as the task requires, with verification and monitoring | | | +| P5 Manual operation (manual courses only) | Uses manual flight as the task requires within tolerances | | | +| P6 Abnormal situation | Manages the abnormal situation introduced by the instructor correctly | | | +| P7 Situational awareness and communication | Maintains VLOS, lookout, boundaries and communication throughout | | | +| P8 Post-flight | Completes post-flight procedures and records | | | +| Decision-making | Makes safe, timely decisions, including a decision not to fly where appropriate | | | + +## PW8 Consolidation and flight test preparation + +| Element | Performance criteria | Grade | Comments | +|---|---|---|---| +| Practice flight test – all items | Meets every item on the flight test sheet for the course | | | +| Elements consolidated this session | List | | | + +| Recommendation for flight test | Entry | +|---|---| +| All lessons PL1 to PL8 complete (all elements graded 4) | Y / N | +| Minimum flight time for the course completed (total hours) | | +| Theory examination passed and KDR closed (or theory credit) | Y / N | +| Recommended for flight test | Y / N | +| Instructor signature and date | | + +## Theory training record (Form T2) + +| Lesson | Syllabus items | Date | Delivery (classroom / remote / self-paced) | Understanding check satisfactory (Y/N; items needing further instruction) | Instructor initials | +|---|---|---|---|---|---| +| TL1 | T1 | | | | | +| TL2 | T2 | | | | | +| TL3 | T3 | | | | | +| TL4 | T4 | | | | | +| TL5 | T5 | | | | | +| TL6 | T6 | | | | | +| TL7 | T7 | | | | | +| TL8 | T8 | | | | | +| TL9 | T9 | | | | | +| TLW | Supplement 7–25 kg | | | | | + +## Flight training log (Form T5) + +| Date | Location | RPA make, model, serial | Lesson | Mode (automated / manual) | Flight time | Simulator time | Instructor initials | Student initials | +|---|---|---|---|---|---|---|---|---| +| | | | | | | | | | +| | | | | | | | | | +| | | | | | | | | | +| Totals | | | | | | | | | + +# Part H – Flight test sheets (summative) + +## Use of the flight test sheets + +The flight test is conducted IAW Part A, *Flight test procedures*. The examiner uses the flight test sheet for the student's course. Every applicable item must be assessed S for a pass. An item that is not applicable to the course is marked N/A with the reason. + +Tolerances apply in the conditions of the test, with the mean wind and gusts within the training limits. A momentary excursion caused by a gust and corrected promptly is not an NS. + + +## Flight test sheet – {{course-title}} + +| Header | Entry | +|---|---| +| Student name and ARN | | +| Course | {{course-title}} | +| Category / weight class(es) / complexity | {{course-category}} / {{course-weight-classes}} / {{course-complexity}} | +| Date, start and finish times | | +| Location and Flight Record reference | | +| RPA make, model and serial number (one of: {{course-training-rpa}}) | | +| RPA gross weight at test | | +| Weather (wind, gusts, visibility, temperature) | | +| Examiner name and ARN | | +| Examiner authorisation reference (Form T8) | | +| Eligibility confirmed: theory passed and KDR closed; PW1–PW8 complete; minimum flight time met; recommendation on PW8 | Y / N | +| Attempt (first test / re-test of NS items / full re-test) | | + +### Section 1 – Pre-flight + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 1.1 Planning | Completes the Flight Record for the task given: airspace, NOTAM, weather, hazards and risk assessment, correctly and completely | | | +| 1.2 Knowledge of limits | States the operating limits that apply (height, distance from people, aerodromes, weather, RPA limits) | | | +| 1.3 Site set-up and briefing | Sets up launch, recovery, operating and emergency areas; gives a complete briefing | | | +| 1.4 RPAS preparation | Completes the daily and pre-flight inspection with the checklist; identifies any defect planted by the examiner | | | +| 1.5 Settings | Verifies RTH height, failsafe action, low-battery thresholds and limits appropriate to the site | | | +| 1.6 Link and positioning | Confirms link, satellites, compass and home point before take-off | | | + +### Section 2 – Normal operations + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 2.1 Take-off | Takes off smoothly and checks control response before climbing | | | +| 2.2 Lookout and VLOS | Maintains VLOS and a regular lookout throughout; uses the GCS appropriately | | | +| 2.3 Area and height | Remains within the operating area and never exceeds the briefed maximum height | | | +| 2.4 Monitoring | Monitors energy, link and positioning, and reports them when asked | | | +| 2.5 Communication | Uses standard phrases; responds correctly to examiner calls | | | +| 2.6 Approach and landing | Lands within 1 m of the nominated point in position-hold mode (aeroplane: within the nominated landing area, on the centreline, at a safe speed) | | | +| 2.7 Rejected take-off and go-around | Performs each correctly on command | | | + +### Section 3 – Automated operations + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 3.1 Mission planning and verification | Plans a mission that stays within the area and height limits; verifies it before flight | | | +| 3.2 Monitoring | Monitors the automated flight continuously, with lookout | | | +| 3.3 Intervention | Pauses, resumes, aborts to RTH and aborts to land promptly on command | | | +| 3.4 RTH | Predicts RTH behaviour; cancels RTH and takes control on command | | | + + +### Section 4 – Manual operations + + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 4.1 Manual mode hover, nose-out | Holds position within 3 m and height within 1.5 m for 10 seconds | | | +| 4.2 Manual mode hover, nose-in | Holds position within 3 m and height within 1.5 m for 10 seconds | | | +| 4.3 Box pattern, nose-out | Approximately 20 m sides; height within 2 m; corners within 3 m | | | +| 4.4 Box pattern, nose leading | As 4.3, yawing at each corner | | | +| 4.5 Figure-eight or orbit | Constant height (within 2 m) and radius (within 3 m); smooth | | | +| 4.6 Flight at distance | Flies to 80–100 m and returns, maintaining orientation and control | | | +| 4.7 Manual landing | Lands within 1 m of the nominated point in manual mode | | | + + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 4.1 Hover, tail-in | Holds position within 3 m and height within 1.5 m for 10 seconds | | | +| 4.2 Hover, nose-in | Holds position within 3 m and height within 1.5 m for 10 seconds | | | +| 4.3 Hover turns | 360° turn at a constant position (within 3 m) and height | | | +| 4.4 Forward flight circuit | Constant height (within 2 m); coordinated turns | | | +| 4.5 Figure-eight | Constant height and radius; smooth | | | +| 4.6 Approach to hover and quick stop | Controlled deceleration to a hover at the nominated point | | | +| 4.7 Manual landing | Lands within 1 m of the nominated point | | | + + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 4.1 Launch and climb-out | Launches and climbs out into wind at the correct attitude and speed | | | +| 4.2 Straight and level | Height within 20 ft; heading within 10° | | | +| 4.3 Medium and steep turns | 30° and 45° bank; height within 30 ft; rolls out on the nominated heading within 10° | | | +| 4.4 Circuit | Rectangular pattern at constant height (within 30 ft), correctly positioned for the approach | | | +| 4.5 Stall awareness (if permitted by the manufacturer) | Recognises the approach to the stall and recovers with minimum height loss | | | +| 4.6 Approach and landing | Stabilised approach; lands within the nominated landing area | | | +| 4.7 Go-around | Applies power and climbs away safely on command | | | + + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 4.1 Vertical mode hover, nose-out and nose-in | Holds position within 3 m and height within 1.5 m for 10 seconds | | | +| 4.2 Transition to wing-borne flight | Into wind; maintains heading and climbs without loss of height | | | +| 4.3 Wing-borne straight and level and turns | Height within 30 ft; heading within 10° | | | +| 4.4 Circuit | Constant height; correctly positioned for back-transition | | | +| 4.5 Back-transition | Controlled deceleration to vertical mode at the planned point | | | +| 4.6 Aborted transition | Returns to vertical mode and lands safely on command | | | +| 4.7 Vertical landing | Lands within 1 m of the nominated point | | | + + + +### Section 5 – Abnormal and emergency operations + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 5.1 Low battery | Returns and lands with the required reserve on the simulated warning | | | +| 5.2 Loss of C2 link | States actions and predicts failsafe behaviour; carries out the simulated response | | | + +| 5.3 Loss of satellite positioning | Switches to manual mode, maintains control within 5 m of the position, and lands | | | + + +| 5.3 Loss of satellite positioning | States the automated response and the manufacturer's procedure; lands promptly using the available functions | | | + +| 5.4 Conflicting aircraft | Descends and moves the RPA clear, or lands, without delay | | | +| 5.5 Person entering the area | Holds clear, pauses or lands without delay | | | +| 5.6 Propulsion failure and flight termination | States the actions for the training RPA | | | +| 5.7 Flyaway | States the actions, information to note and notifications | | | + +### Section 6 – Post-flight + +| Item | Standard | S / NS / N/A | Comment | +|---|---|---|---| +| 6.1 Shutdown and make safe | Follows the shutdown sequence | | | +| 6.2 Post-flight inspection | Inspects the RPAS and records findings in the technical log | | | +| 6.3 Records | Completes the remote pilot log and Flight Record correctly | | | + +### Result + +| Result | Entry | +|---|---| +| Flight time (test) | | +| Instructor or examiner intervention (Y/N, item, reason) | | +| Items assessed NS (list) | | +| Items not completed and reason (if discontinued) | | +| Overall result (pass / fail / incomplete) | | +| Additional training required before re-test | | +| Examiner signature and date | | +| Student acknowledgement of result and debrief (signature and date) | | +| CRI review (signature and date) | | + + +# Part I – Instructor handbook + +## Purpose + +This handbook tells {{organisation-name}} RePL training instructors and examiners how to deliver and assess training to the standard in this manual. It is read together with Parts A to H. Each instructor must read this handbook and confirm in writing to the CRI that they have done so before instructing. + +## Instructor responsibilities + +An instructor must: + +- deliver each lesson IAW its lesson plan and the curriculum for the course +- ensure the safety of every training flight, as RP in command (Part A, *Safety of training flights*) +- assess students fairly and only against the performance criteria and standards in this manual +- complete all training records accurately on the day of training +- report to the CRI any safety occurrence, instructor intervention resulting from a hazardous situation, student welfare concern or suspected misconduct +- tell the CRI when they believe a lesson plan, Part D content or a worksheet is wrong, unclear or out of date +- maintain their own currency and competence (Part A, *Instructor currency and recurrent assessment*) +- not instruct when unfit for duty. + +## Competency-based training principles + +- Training is complete when the student is competent, not when time has elapsed. The minimum times in Part B are floors. +- Every element has performance criteria. Tell the student, before each lesson, what standard they must reach and how it will be assessed. +- Assess the student's performance, not their attitude or effort. Record evidence (what the student did) to support each grade. +- Competence requires consistency: a single good attempt is not enough for grade 4. +- Give the student opportunities to practise each element in varied conditions (wind, orientation, location within the area). + +## Teaching method + +### Theory lessons + +- Start by stating objectives and finding out what the student already knows. +- Teach from known to unknown, simple to complex. Use the training location, the training RPA and real charts and forecasts as examples. +- Ask open questions ("What would you do if…?") rather than closed questions. +- Use the check-of-understanding questions at the end of each lesson and record the outcome on Form T2. Do not use questions from the question bank. + +### Practical lessons + +- Use the sequence: explain, demonstrate, student follows through, student practises, instructor assesses. +- Brief thoroughly on the ground; keep airborne instruction short and specific ("more left", "stop", "hold"). +- Introduce one new skill at a time. Consolidate before moving on. +- Debrief promptly: student self-assessment first, then instructor feedback on what went well, what to improve and how. + +## Safety and intervention + +- Apply Part A, *Instructor control*, on every flight. Brief the handover protocol before every flight, including with experienced students. +- Intervene early. It is better to take control too early than too late. +- Stop the lesson if the student becomes fatigued, distressed or unwell, if the weather approaches the limits, or if any person or aircraft compromises the operating area. +- Record every intervention on the worksheet. An intervention to prevent a collision, loss of control or a breach of the operating area or height must also be reported to the CRI. + +## Assessment and records + +- Grade each worksheet element using the scale in Part G, on the day of the lesson. +- A lesson is complete only when every element is graded 4. Do not move a student to the next lesson until its prerequisites are complete. +- Record flight time accurately; only time as the person manipulating the controls counts. +- Supervise examinations IAW Part A, *Theory examination procedures*, and handle examination material IAW Part A, *Examination security*. +- Close every KDR item with remedial training and oral questioning before signing Form T4. + +## Examiner duties + +An examiner must: + +- confirm the student's eligibility for the flight test before starting +- brief the student on the test, the standard and how the examiner will take control if required +- conduct the test using the flight test sheet for the course, and assess each item only against its standard +- not coach the student during the test +- record the result and reasons for any NS item immediately after the test, and debrief the student +- give the completed flight test sheet to the CRI on the day of the test. + +An examiner must not test a student where the examiner has a conflict of interest (Part A, *Examiners*). + +## Standardisation + +To keep instruction and assessment consistent: + +- each instructor attends a standardisation session conducted by the CRI after each amendment to this manual, and at least every 12 months +- the CRI observes each instructor delivering at least one theory lesson and one practical lesson every 12 months, and each examiner conducting at least one flight test every 12 months +- the CRI compares grades and results between instructors and investigates significant differences. + +## Instructor and examiner register (Form T8) + +| Field | Entry | +|---|---| +| Name and ARN | | +| Employment or engagement with {{organisation-name}} (start date) | | +| RePL number, categories, weight classes and automated/manual endorsements | | +| Other aviation licences and ratings | | +| Teaching or instructional qualification | | +| Non-training operational experience by category (hours, evidence) | | +| Operations manual induction and RPAS type training completed (date) | | +| Observed theory lesson (date, CRI assessment) | | +| Observed practical lesson (date, CRI assessment) | | +| Authorised as instructor: courses, categories and lessons (date, CRI signature) | | +| Authorised as examiner: courses and categories (date, CRI signature) | | +| Recurrent assessments (dates, results) | | +| Refresher training and standardisation sessions (dates) | | +| Authorisation suspended or withdrawn (date, reason) | | + +# Part J – Student handbook + +## Welcome + +Welcome to {{organisation-name}} RePL training. This handbook explains how your course works, what we expect of you, and what you can expect of us. Please read it before your course starts and keep it for reference. + +## Your course + +Your course has two parts: + +- **Theory (aeronautical knowledge).** Lessons TL1 to TL9 (and supplements where your course requires them), followed by a supervised theory examination. Students upgrading an existing RePL do a shorter theory component and examination. Students with a theory credit (for example, a pilot licence) do not sit the full examination. +- **Practical.** Lessons PL1 to PL8 on the training RPA for your course, followed by a flight test with an examiner. + +Your course details – category, weight class, training RPA and whether it includes manual flight – are shown in Part B for your course. + +On successful completion, the CRI signs your certificate of course completion and {{organisation-name}} notifies CASA so that CASA can issue or vary your RePL. + +## Before your course + +You must: + +- have an aviation reference number (ARN). Apply for an individual ARN through the myCASA portal on the CASA website before you enrol. Your RePL is issued to your ARN +- be at least 16 years old by the date of your flight test +- be able to read, write, speak and understand English well enough to follow the course and communicate safely +- for an upgrade course, hold a current RePL (bring it to your first lesson) +- for a theory credit, bring your licence or examination report. + +## What to bring + +- Photographic identification (for the examination) +- Sunglasses, hat, sunscreen, water and clothing suitable for outdoor work in the weather forecast +- Closed footwear for practical sessions +- Prescription glasses or contact lenses, if you need them to see at a distance +- Pen and notebook; a non-programmable calculator and a navigation ruler for the theory lessons and examination + +## Rules during training + +- **Safety first.** Your instructor is the remote pilot in command of every training flight. Follow all instructions immediately. When your instructor says "I have control", release the controls and reply "You have control". +- **Fitness for duty.** Do not attend practical training if you are unwell, fatigued, or affected by alcohol, drugs or medication that may cause drowsiness. You must not consume alcohol within the period set in the operations manual before flying. Tell your instructor if you are not fit to fly. +- **At the training location.** Stay in the area your instructor directs. Do not approach an RPA that is armed or flying. Keep the operating area clear. +- **Equipment.** Handle the training RPA and batteries only as instructed. Report any damage or defect straight away. +- **Conduct.** Treat instructors, other students and the public with respect. Harassment, unsafe behaviour or cheating may result in removal from the course. +- **Attendance.** Attend all scheduled lessons. If you cannot attend, tell us as early as possible. If you are away from training for more than 6 months, your instructor will reassess you before you continue. + +## How you are assessed + +- **During theory lessons**, your instructor checks your understanding of each topic with questions. +- **The theory examination** is supervised and closed-book. You may use only the permitted materials listed in Part E. The pass mark is {{exam-pass-mark}}%. After the examination you receive a **knowledge deficiency report** that lists the topics where you answered a question incorrectly – whether you pass or fail. Your instructor will go through every listed topic with you before your course can be completed. If you do not pass, you will receive further training and sit a different paper. You may attempt an examination up to three times before the CRI reviews your training. +- **During practical lessons**, your instructor grades your performance on a worksheet after each session. You move on when you are competent in each element. Some students need more time than the minimum; this is normal. +- **The flight test** is conducted by an examiner once your instructor recommends you. Every item must be met. If an item is not met, you will receive further training in that item before a re-test. + +## Logbook + +Keep a remote pilot log from your first training flight. Record the RPA, date, location and duration of each flight, and keep separate totals for VLOS and simulated flight time. Your instructor will sign your log entries for training flights on request. {{organisation-name}} also keeps its own flight training log for you. + +## Your records and privacy + +{{organisation-name}} keeps your training records for at least 7 years, as required by CASA. Your personal information is used only to deliver your training and to meet legal requirements, including notifying CASA of your results. You may request a copy of your training file. + +## Appeals and complaints + +If you disagree with an examination or flight test result, or wish to complain about your training, write to the CRI within 14 days. The CRI will respond in writing within 14 days. If the CRI conducted the assessment, your appeal will be referred to an independent reviewer. + +## Operations manual sections you must read + +Before your first practical lesson, read these sections of the {{organisation-name}} operations manual: *Fitness for duty*, *Safety occurrence reporting*, *Risk assessment*, *Planning*, *Before flight*, *Flight operations*, *Emergency procedures*, and Appendix C for the training RPA. + +## Forms + +### Enrolment record (Form T1) + +| Field | Entry | +|---|---| +| Full name | | +| ARN | | +| Date of birth | | +| Contact details (phone, email, address) | | +| Emergency contact | | +| Course | | +| Course type (initial / upgrade same category / upgrade different category) | | +| Existing RePL (number, categories, weight classes, endorsements) | | +| Theory credit (licence or examination; evidence sighted) | | +| Photographic identification sighted (type) | | +| English language: instructor satisfied (Y/N) | | +| Medical and fitness declaration: "I am not aware of any medical condition, medication or other matter that would make me unfit to operate an RPA safely. I will tell my instructor if this changes." (student signature) | | +| Student declaration: "I have read the student handbook and agree to comply with it. The information I have provided is true and correct." (signature, date) | | +| Entry requirements confirmed (instructor name, ARN, signature, date) | | +| Course resources confirmed (CRI initials) | | + +### Certificate of course completion (Form T6) + +| Field | Entry | +|---|---| +| Training organisation | {{organisation-name}} ({{legal-name}}) | +| Training organisation ARN | {{organisation-arn}} | +| Student name | | +| Student ARN | | +| Course name | | +| RPA category and weight class(es) | | +| RePL training units completed (full Part 101 MOS names) | | +| Operation mode(s): automated only / automated and manual | | +| Practical competency component conducted by (name, ARN) | | +| Theory examination passed (date) or theory credit (details) | | +| Flight test passed (date, examiner name and ARN) | | +| Date of course completion | | +| Chief RePL instructor: {{cri-name}}, ARN {{cri-arn}} – signature and date | | + +### Course feedback (Form T7) + +| Question | Response (1 = strongly disagree, 5 = strongly agree) | Comments | +|---|---|---| +| The course objectives and assessment were explained clearly | | | +| The theory lessons and notes helped me understand the topics | | | +| The practical lessons were well organised and safe | | | +| My instructor gave clear, useful feedback | | | +| The examination and flight test were conducted fairly | | | +| The training RPA and facilities were suitable | | | +| What should we improve? | | | diff --git a/template/rpas-operations-manual.fodt b/template/rpas-operations-manual.fodt new file mode 100644 --- /dev/null +++ b/template/rpas-operations-manual.fodt @@ -0,0 +1,20791 @@ + + + + {{organisation-name}} RPAS Operations ManualCASR Part 101 documented practices and procedures{{ceo-name}}en-AULibreOffice/24.2.7.2$Linux_X86_64 LibreOffice_project/420$Build-22026-10-23T12:56:46.925749200P0D1 + + + 0 + 0 + 2 + 2 + true + false + + + false + true + true + + false + 0 + false + true + true + true + false + 0 + true + false + false + true + false + true + true + true + true + true + false + true + true + false + true + false + false + true + true + true + true + true + false + false + false + true + true + high-resolution + true + 1622224 + false + true + false + + + true + + true + false + true + true + true + + + en + AU + + + + + + false + false + 0 + true + false + false + true + true + true + true + true + true + false + true + false + true + true + true + false + false + true + Brother + true + false + false + 0 + false + true + xAH+/0Jyb3RoZXIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ1VQUzpCcm90aGVyAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAMAswAAAAAAAAAEAAhSAAAEdAAASm9iRGF0YSAxCnByaW50ZXI9QnJvdGhlcgpvcmllbnRhdGlvbj1Qb3J0cmFpdApjb3BpZXM9MQpjb2xsYXRlPWZhbHNlCm1hcmdpbmFkanVzdG1lbnQ9MCwwLCcwLDAKY29sb3JkZXB0aD0yNApjb2xvcmRldmljZT0wClBQRENvbnRleHREYXRhCkR1cGxleDpOb25lAElucHV0U2xvdDpBdXRvAFBhZ2VTaXplOkE0AAASAENPTVBBVF9EVVBMRVhfTU9ERQ8ARHVwbGV4TW9kZTo6T2ZmDABQUklOVEVSX05BTUUHAEJyb3RoZXILAERSSVZFUl9OQU1FDABDVVBTOkJyb3RoZXI= + false + false + true + true + true + false + true + 1 + false + false + false + true + false + false + true + false + false + true + false + true + false + + false + 1680194 + true + false + false + false + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + {{organisation-name}} RPAS Operations Manual + + + + {{legal-name}} + + + + /9j/4QVPRXhpZgAASUkqAAgAAAAMAAABAwABAAAAsAkAAAEBAwABAAAAAAEAAAIBAwADAAAA + ngAAAAYBAwABAAAAAgAAABIBAwABAAAAAQAAABUBAwABAAAAAwAAABoBBQABAAAApAAAABsB + BQABAAAArAAAACgBAwABAAAAAgAAADEBAgAkAAAAtAAAADIBAgAUAAAA2AAAAGmHBAABAAAA + 7AAAACQBAAAIAAgACACA/AoAECcAAID8CgAQJwAAQWRvYmUgUGhvdG9zaG9wIENDIDIwMTUg + KE1hY2ludG9zaCkAMjAxNjowODowMiAxNDoyMjoxOQAEAACQBwAEAAAAMDIyMQGgAwABAAAA + //8AAAKgBAABAAAAsAkAAAOgBAABAAAAvQAAAAAAAAAAAAYAAwEDAAEAAAAGAAAAGgEFAAEA + AAByAQAAGwEFAAEAAAB6AQAAKAEDAAEAAAACAAAAAQIEAAEAAACCAQAAAgIEAAEAAADFAwAA + AAAAAEgAAAABAAAASAAAAAEAAAD/2P/tAAxBZG9iZV9DTQAC/+4ADkFkb2JlAGSAAAAAAf/b + AIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBEMDAwMDAwRDAwMDAwMDAwMDAwMDAwM + DAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQUDg4ODhQRDAwMDAwREQwMDAwMDBEMDAwM + DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgADACdAwEiAAIRAQMRAf/dAAQACv/EAT8A + AAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAAAAAAAQACAwQFBgcI + CQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJBVSwWIzNHKC + 0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5PSltcXV + 5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBEFR + YXEiEwUygZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi + 8rOEw9N14/NGlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//aAAwDAQAC + EQMRAD8A9VVWyvqRe41X0Nrn2tdS9xA/lPGTXu/zFaSTo3elf4XD/wB2snVa8X+Bx/8AqNp+ + l1b/ALk4/wD7Dv8A/etL0urf9ycf/wBh3/8AvWriSf6v6n/jSz0f6z/x5p+l1b/uTj/+w7// + AHrS9Lq3/cnH/wDYd/8A71q4kl6v6n/jSvR/rP8Ax5p+l1b/ALk4/wD7Dv8A/etL0urf9ycf + /wBh3/8AvWriSXq/qf8AjSvR/rP/AB5p+l1b/uTj/wDsO/8A960vS6t/3Jx//Yd//vWriSXq + /qf+NK9H+s/8eafpdW/7k4//ALDv/wDetL0urf8AcnH/APYd/wD71q4kl6v6n/jSvR/rP/Hm + n6XVv+5OP/7Dv/8AetL0urf9ycf/ANh3/wDvWriSXq/qf+NK9H+s/wDHmn6XVv8AuTj/APsO + /wD960vS6t/3Jx//AGHf/wC9auJJer+p/wCNK9H+s/8AHmn6XVv+5OP/AOw7/wD3rS9Lq3/c + nH/9h3/+9auJJer+p/40r0f6z/x5Djtymh32myuw/mmus1wP5W+2/cjJJJhvi6X/AIPD/wB4 + yCuHrVf1uP8A79//2f/tDRJQaG90b3Nob3AgMy4wADhCSU0EBAAAAAAADxwBWgADGyVHHAIA + AAIAAAA4QklNBCUAAAAAABDNz/p9qMe+CQVwdq6vBcNOOEJJTQQ6AAAAAAD7AAAAEAAAAAEA + AAAAAAtwcmludE91dHB1dAAAAAUAAAAAUHN0U2Jvb2wBAAAAAEludGVlbnVtAAAAAEludGUA + AAAAQ2xybQAAAA9wcmludFNpeHRlZW5CaXRib29sAAAAAAtwcmludGVyTmFtZVRFWFQAAAAM + ADEAMAAuADEAMAAuADEAMQAxAC4ANQAAAAAAD3ByaW50UHJvb2ZTZXR1cE9iamMAAAAMAFAA + cgBvAG8AZgAgAFMAZQB0AHUAcAAAAAAACnByb29mU2V0dXAAAAABAAAAAEJsdG5lbnVtAAAA + DGJ1aWx0aW5Qcm9vZgAAAAlwcm9vZkNNWUsAOEJJTQQ7AAAAAAItAAAAEAAAAAEAAAAAABJw + cmludE91dHB1dE9wdGlvbnMAAAAXAAAAAENwdG5ib29sAAAAAABDbGJyYm9vbAAAAAAAUmdz + TWJvb2wAAAAAAENybkNib29sAAAAAABDbnRDYm9vbAAAAAAATGJsc2Jvb2wAAAAAAE5ndHZi + b29sAAAAAABFbWxEYm9vbAAAAAAASW50cmJvb2wAAAAAAEJja2dPYmpjAAAAAQAAAAAAAFJH + QkMAAAADAAAAAFJkICBkb3ViQG/gAAAAAAAAAAAAR3JuIGRvdWJAb+AAAAAAAAAAAABCbCAg + ZG91YkBv4AAAAAAAAAAAAEJyZFRVbnRGI1JsdAAAAAAAAAAAAAAAAEJsZCBVbnRGI1JsdAAA + AAAAAAAAAAAAAFJzbHRVbnRGI1B4bEBSAAAAAAAAAAAACnZlY3RvckRhdGFib29sAQAAAABQ + Z1BzZW51bQAAAABQZ1BzAAAAAFBnUEMAAAAATGVmdFVudEYjUmx0AAAAAAAAAAAAAAAAVG9w + IFVudEYjUmx0AAAAAAAAAAAAAAAAU2NsIFVudEYjUHJjQFkAAAAAAAAAAAAQY3JvcFdoZW5Q + cmludGluZ2Jvb2wAAAAADmNyb3BSZWN0Qm90dG9tbG9uZwAAAAAAAAAMY3JvcFJlY3RMZWZ0 + bG9uZwAAAAAAAAANY3JvcFJlY3RSaWdodGxvbmcAAAAAAAAAC2Nyb3BSZWN0VG9wbG9uZwAA + AAAAOEJJTQPtAAAAAAAQAEgAAAABAAIASAAAAAEAAjhCSU0EJgAAAAAADgAAAAAAAAAAAAA/ + gAAAOEJJTQQNAAAAAAAEAAAAHjhCSU0EGQAAAAAABAAAAB44QklNA/MAAAAAAAkAAAAAAAAA + AAEAOEJJTScQAAAAAAAKAAEAAAAAAAAAAjhCSU0D9QAAAAAASAAvZmYAAQBsZmYABgAAAAAA + AQAvZmYAAQChmZoABgAAAAAAAQAyAAAAAQBaAAAABgAAAAAAAQA1AAAAAQAtAAAABgAAAAAA + AThCSU0D+AAAAAAAcAAA/////////////////////////////wPoAAAAAP////////////// + //////////////8D6AAAAAD/////////////////////////////A+gAAAAA//////////// + /////////////////wPoAAA4QklNBAgAAAAAABAAAAABAAACQAAAAkAAAAAAOEJJTQQeAAAA + AAAEAAAAADhCSU0EGgAAAAADWwAAAAYAAAAAAAAAAAAAAL0AAAmwAAAAEwBNAGEAbgB1AGEA + bAAtAGMAbwB2AGUAcgAtAGYAbwBvAHQAZQByAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAA + AAAAAAAAAAmwAAAAvQAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAB + AAAAAAAAbnVsbAAAAAIAAAAGYm91bmRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3Ag + bG9uZwAAAAAAAAAATGVmdGxvbmcAAAAAAAAAAEJ0b21sb25nAAAAvQAAAABSZ2h0bG9uZwAA + CbAAAAAGc2xpY2VzVmxMcwAAAAFPYmpjAAAAAQAAAAAABXNsaWNlAAAAEgAAAAdzbGljZUlE + bG9uZwAAAAAAAAAHZ3JvdXBJRGxvbmcAAAAAAAAABm9yaWdpbmVudW0AAAAMRVNsaWNlT3Jp + Z2luAAAADWF1dG9HZW5lcmF0ZWQAAAAAVHlwZWVudW0AAAAKRVNsaWNlVHlwZQAAAABJbWcg + AAAABmJvdW5kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcAAAAAAAAAAExl + ZnRsb25nAAAAAAAAAABCdG9tbG9uZwAAAL0AAAAAUmdodGxvbmcAAAmwAAAAA3VybFRFWFQA + AAABAAAAAAAAbnVsbFRFWFQAAAABAAAAAAAATXNnZVRFWFQAAAABAAAAAAAGYWx0VGFnVEVY + VAAAAAEAAAAAAA5jZWxsVGV4dElzSFRNTGJvb2wBAAAACGNlbGxUZXh0VEVYVAAAAAEAAAAA + AAlob3J6QWxpZ25lbnVtAAAAD0VTbGljZUhvcnpBbGlnbgAAAAdkZWZhdWx0AAAACXZlcnRB + bGlnbmVudW0AAAAPRVNsaWNlVmVydEFsaWduAAAAB2RlZmF1bHQAAAALYmdDb2xvclR5cGVl + bnVtAAAAEUVTbGljZUJHQ29sb3JUeXBlAAAAAE5vbmUAAAAJdG9wT3V0c2V0bG9uZwAAAAAA + AAAKbGVmdE91dHNldGxvbmcAAAAAAAAADGJvdHRvbU91dHNldGxvbmcAAAAAAAAAC3JpZ2h0 + T3V0c2V0bG9uZwAAAAAAOEJJTQQoAAAAAAAMAAAAAj/wAAAAAAAAOEJJTQQRAAAAAAABAQA4 + QklNBBQAAAAAAAQAAAABOEJJTQQMAAAAAAPhAAAAAQAAAJ0AAAAMAAAB2AAAFiAAAAPFABgA + Af/Y/+0ADEFkb2JlX0NNAAL/7gAOQWRvYmUAZIAAAAAB/9sAhAAMCAgICQgMCQkMEQsKCxEV + DwwMDxUYExMVExMYEQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQ0LCw0O + DRAODhAUDg4OFBQODg4OFBEMDAwMDBERDAwMDAwMEQwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM + DAwMDAz/wAARCAAMAJ0DASIAAhEBAxEB/90ABAAK/8QBPwAAAQUBAQEBAQEAAAAAAAAAAwAB + AgQFBgcICQoLAQABBQEBAQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAEEAQMCBAIFBwYIBQMM + MwEAAhEDBCESMQVBUWETInGBMgYUkaGxQiMkFVLBYjM0coLRQwclklPw4fFjczUWorKDJkST + VGRFwqN0NhfSVeJl8rOEw9N14/NGJ5SkhbSVxNTk9KW1xdXl9VZmdoaWprbG1ub2N0dXZ3eH + l6e3x9fn9xEAAgIBAgQEAwQFBgcHBgU1AQACEQMhMRIEQVFhcSITBTKBkRShsUIjwVLR8DMk + YuFygpJDUxVjczTxJQYWorKDByY1wtJEk1SjF2RFVTZ0ZeLys4TD03Xj80aUpIW0lcTU5PSl + tcXV5fVWZnaGlqa2xtbm9ic3R1dnd4eXp7fH/9oADAMBAAIRAxEAPwD1VVbK+pF7jVfQ2ufa + 11L3ED+U8ZNe7/MVpJOjd6V/hcP/AHaydVrxf4HH/wCo2n6XVv8AuTj/APsO/wD960vS6t/3 + Jx//AGHf/wC9auJJ/q/qf+NLPR/rP/Hmn6XVv+5OP/7Dv/8AetL0urf9ycf/ANh3/wDvWriS + Xq/qf+NK9H+s/wDHmn6XVv8AuTj/APsO/wD960vS6t/3Jx//AGHf/wC9auJJer+p/wCNK9H+ + s/8AHmn6XVv+5OP/AOw7/wD3rS9Lq3/cnH/9h3/+9auJJer+p/40r0f6z/x5p+l1b/uTj/8A + sO//AN60vS6t/wBycf8A9h3/APvWriSXq/qf+NK9H+s/8eafpdW/7k4//sO//wB60vS6t/3J + x/8A2Hf/AO9auJJer+p/40r0f6z/AMeafpdW/wC5OP8A+w7/AP3rS9Lq3/cnH/8AYd//AL1q + 4kl6v6n/AI0r0f6z/wAeafpdW/7k4/8A7Dv/APetL0urf9ycf/2Hf/71q4kl6v6n/jSvR/rP + /HkOO3KaHfabK7D+aa6zXA/lb7b9yMkkmG+Lpf8Ag8P/AHjIK4etV/W4/wDv3//ZADhCSU0E + IQAAAAAAXQAAAAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8AcwBoAG8AcAAAABcAQQBk + AG8AYgBlACAAUABoAG8AdABvAHMAaABvAHAAIABDAEMAIAAyADAAMQA1AAAAAQA4QklNBAYA + AAAAAAcABgAAAAEBAP/hDd9odHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvADw/eHBhY2tl + dCBiZWdpbj0i77u/IiBpZD0iVzVNME1wQ2VoaUh6cmVTek5UY3prYzlkIj8+IDx4OnhtcG1l + dGEgeG1sbnM6eD0iYWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IkFkb2JlIFhNUCBDb3JlIDUu + Ni1jMTExIDc5LjE1ODMyNSwgMjAxNS8wOS8xMC0wMToxMDoyMCAgICAgICAgIj4gPHJkZjpS + REYgeG1sbnM6cmRmPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgt + bnMjIj4gPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6eG1wTU09Imh0dHA6 + Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9tbS8iIHhtbG5zOnN0UmVmPSJodHRwOi8vbnMuYWRv + YmUuY29tL3hhcC8xLjAvc1R5cGUvUmVzb3VyY2VSZWYjIiB4bWxuczpzdEV2dD0iaHR0cDov + L25zLmFkb2JlLmNvbS94YXAvMS4wL3NUeXBlL1Jlc291cmNlRXZlbnQjIiB4bWxuczp4bXA9 + Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOmRjPSJodHRwOi8vcHVybC5v + cmcvZGMvZWxlbWVudHMvMS4xLyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRvYmUu + Y29tL3Bob3Rvc2hvcC8xLjAvIiB4bXBNTTpPcmlnaW5hbERvY3VtZW50SUQ9InhtcC5kaWQ6 + YWQ1NDM0NTEtYTYyMC00OTU3LWFjMTAtODBjYWI5Y2RmZTE3IiB4bXBNTTpEb2N1bWVudElE + PSJ4bXAuZGlkOjY4OTdDQUNCNTA4QzExRTZBNDM0OEZBOEMyNjg4OUZBIiB4bXBNTTpJbnN0 + YW5jZUlEPSJ4bXAuaWlkOjhmNjNjZjY5LTkwYTEtNDI3Ni05N2FmLWZiNGRlZDJmZjBlNSIg + eG1wOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgQ0MgMjAxNSAoTWFjaW50b3NoKSIg + eG1wOkNyZWF0ZURhdGU9IjIwMTYtMDgtMDJUMTQ6MTM6NDYrMTA6MDAiIHhtcDpNb2RpZnlE + YXRlPSIyMDE2LTA4LTAyVDE0OjIyOjE5KzEwOjAwIiB4bXA6TWV0YWRhdGFEYXRlPSIyMDE2 + LTA4LTAyVDE0OjIyOjE5KzEwOjAwIiBkYzpmb3JtYXQ9ImltYWdlL2pwZWciIHBob3Rvc2hv + cDpDb2xvck1vZGU9IjMiPiA8eG1wTU06RGVyaXZlZEZyb20gc3RSZWY6aW5zdGFuY2VJRD0i + eG1wLmlpZDo1ZjY4NjA4NC1kZGUzLTQzNjAtYjBkMi1lNWEwZDZkMjc3Y2UiIHN0UmVmOmRv + Y3VtZW50SUQ9InhtcC5kaWQ6YWQ1NDM0NTEtYTYyMC00OTU3LWFjMTAtODBjYWI5Y2RmZTE3 + Ii8+IDx4bXBNTTpIaXN0b3J5PiA8cmRmOlNlcT4gPHJkZjpsaSBzdEV2dDphY3Rpb249InNh + dmVkIiBzdEV2dDppbnN0YW5jZUlEPSJ4bXAuaWlkOjhmNjNjZjY5LTkwYTEtNDI3Ni05N2Fm + LWZiNGRlZDJmZjBlNSIgc3RFdnQ6d2hlbj0iMjAxNi0wOC0wMlQxNDoyMjoxOSsxMDowMCIg + c3RFdnQ6c29mdHdhcmVBZ2VudD0iQWRvYmUgUGhvdG9zaG9wIENDIDIwMTUgKE1hY2ludG9z + aCkiIHN0RXZ0OmNoYW5nZWQ9Ii8iLz4gPC9yZGY6U2VxPiA8L3htcE1NOkhpc3Rvcnk+IDwv + cmRmOkRlc2NyaXB0aW9uPiA8L3JkZjpSREY+IDwveDp4bXBtZXRhPiAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg + ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDw/eHBhY2tldCBlbmQ9Inci + Pz7/7gAOQWRvYmUAZEAAAAAB/9sAhAACAgIDAgMEAgIEBQQDBAUGBQUFBQYIBwcHBwcICwkJ + CQkJCQsLCwsLCwsLDAwMDAwMDAwMDAwMDAwMDAwMDAwMAQMDAwcEBw0HBw0PDQ0NDw8ODg4O + Dw8MDAwMDA8PDAwMDAwMDwwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAC9CbAD + AREAAhEBAxEB/90ABAE2/8QBogAAAAcBAQEBAQAAAAAAAAAABAUDAgYBAAcICQoLAQACAgMB + AQEBAQAAAAAAAAABAAIDBAUGBwgJCgsQAAIBAwMCBAIGBwMEAgYCcwECAxEEAAUhEjFBUQYT + YSJxgRQykaEHFbFCI8FS0eEzFmLwJHKC8SVDNFOSorJjc8I1RCeTo7M2F1RkdMPS4ggmgwkK + GBmElEVGpLRW01UoGvLj88TU5PRldYWVpbXF1eX1ZnaGlqa2xtbm9jdHV2d3h5ent8fX5/c4 + SFhoeIiYqLjI2Oj4KTlJWWl5iZmpucnZ6fkqOkpaanqKmqq6ytrq+hEAAgIBAgMFBQQFBgQI + AwNtAQACEQMEIRIxQQVRE2EiBnGBkTKhsfAUwdHhI0IVUmJy8TMkNEOCFpJTJaJjssIHc9I1 + 4kSDF1STCAkKGBkmNkUaJ2R0VTfyo7PDKCnT4/OElKS0xNTk9GV1hZWltcXV5fVGVmZ2hpam + tsbW5vZHV2d3h5ent8fX5/c4SFhoeIiYqLjI2Oj4OUlZaXmJmam5ydnp+So6SlpqeoqaqrrK + 2ur6/9oADAMBAAIRAxEAPwD7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FX/9D7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9H7 + +Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9L7+Yq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9P7+Yq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9T7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FUn1XVLLRrd9Q1ieK0tY6c5ZnWNFqaCrNQdTk8eOWWXDEWWjPqYaePFkkIj+kxz/ + AJWX5R/6v+k/9J8H/NeZn8j6n/U5/wClk67/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa + 8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ + ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8A + pPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX + /RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/ + 9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz + /wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63 + f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/k + fU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/Vs + X/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pP + g/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EG + i/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/ + AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0 + sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ys + vyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx + /kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8A + KyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk + +D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9 + EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1 + f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/ + AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ + ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9 + T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf + 8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D + /mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL + /VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8A + V/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/Sy + X/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/ + KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+ + R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wAr + I/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4 + P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0Q + aL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/ + 0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8A + SyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/K + y/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P + +pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/y + sj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+ + a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9 + Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX + /Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf + 9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o + /wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H + 1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj + +t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/ + 5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBo + v9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/S + f+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBL + Jf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL + 8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6 + nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/Ky + P63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5r + x/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1b + F/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9 + J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0 + QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ + ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU + /wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP6 + 3f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/m + vH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/ + 1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/ + 6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl + /wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvy + j/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc + /wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/ + rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH + +R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX + /KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n + /pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RB + ov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A + 1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/ + AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd + /wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8 + f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/V + sX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/p + Pg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/ + AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP + /V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ + ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t + 3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5 + H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8 + rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+ + k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi + /wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV + /wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8A + qc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ + ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/ + kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wx + f8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+ + D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8A + RBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9 + X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A + 0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f + 8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kf + U/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ys + j+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T + 4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/ + AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/ + AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCp + z/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8A + Ky/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R + 9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ + ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P + +a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBE + Gi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f + 9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDS + yX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/y + svyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T + /qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP + 63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg + /wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8A + VsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8A + Sf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP + /SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wAr + L8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1 + P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/K + yP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5 + rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQa + L/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0 + n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJ + f9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky + /KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+ + pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/r + d/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/ + AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBW + xf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ + /wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9 + LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsv + yj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/ + 6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI + /rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mv + H+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov + 9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf + +k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/ + 0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8 + o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6n + P/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3 + /Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8A + mvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF + /wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/ + AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0s + l/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/K + P/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/q + c/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+ + t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f + 5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1 + bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6 + T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/R + Bov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj + /wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/ + 9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8 + rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa + 8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ + ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8A + pPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX + /RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/ + 9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz + /wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63 + f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/k + fU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/Vs + X/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pP + g/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EG + i/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/ + AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0 + sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ys + vyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx + /kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8A + KyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk + +D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9 + EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1 + f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/ + AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ + ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9 + T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4P+a8f5H1P+pz/wBLJf8ARBov9Wxf + 8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0QaL/VsX/KyP63f8rL8o/9X/Sf+k+D + /mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/0n/pPg/5rx/kfU/6nP8A0sl/0QaL + /VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8ASyX/AEQaL/VsX/KyP63f8rL8o/8A + V/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/Ky/KP/V/0n/pPg/5rx/kfU/6nP/Sy + X/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P+pz/ANLJf9EGi/1bF/ysj+t3/Ky/ + KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/ysj+t3/Ky/KP/AFf9J/6T4P8AmvH+ + R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+a8f5H1P+pz/0sl/0QaL/AFbF/wAr + I/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9Wxf8rI/rd/ysvyj/ANX/AEn/AKT4 + P+a8f5H1P+pz/wBLJf8ARBov9Wxf8rI/rd/ysvyj/wBX/Sf+k+D/AJrx/kfU/wCpz/0sl/0Q + aL/VsX/KyP63f8rL8o/9X/Sf+k+D/mvH+R9T/qc/9LJf9EGi/wBWxf8AKyP63f8AKy/KP/V/ + 0n/pPg/5rx/kfU/6nP8A0sl/0QaL/VsX/KyP63f8rL8o/wDV/wBJ/wCk+D/mvH+R9T/qc/8A + SyX/AEQaL/VsX/KyP63f8rL8o/8AV/0n/pPg/wCa8f5H1P8Aqc/9LJf9EGi/1bF/ysj+t3/K + y/KP/V/0n/pPg/5rx/kfU/6nP/SyX/RBov8AVsX/ACsj+t3/ACsvyj/1f9J/6T4P+a8f5H1P + +pz/ANLJf9EGi/1bF/ysj+t3/Ky/KP8A1f8ASf8ApPg/5rx/kfU/6nP/AEsl/wBEGi/1bF/y + sj+t3/Ky/KP/AFf9J/6T4P8AmvH+R9T/AKnP/SyX/RBov9Wxf8rI/rd/ysvyj/1f9J/6T4P+ + a8f5H1P+pz/0sl/0QaL/AFbF/wArI/rd/wArL8o/9X/Sf+k+D/mvH+R9T/qc/wDSyX/RBov9 + Wxf8rI/rTvSNe03zDC13oV3b3sCNwMlvKkqhgAaVUkVocxc+CeKXDkiY+/ZztLrMWpjxYpRm + P6MuJkGVOU7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX//V+/mKuxV2KuxV2Kux + V2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV4d/zkV/5LzWPnaf8AUVFnQ+yv+O4/87/cyeQ9vP8A + jMy/5v8A00i/LzPYn5wdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir + sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsV + dirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdi + rsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirs + VdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVd + irsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir + sVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsV + dirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdi + rsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirs + VdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir9DP+cS/+URvf+2rL/yYgzy3 + 22/xmP8AU/30n3f/AIGH+JS/4bL/AHON9UZxz6O7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FX//1vv5irsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVeHf85Ff+S81j + 52n/AFFRZ0Psr/juP/O/3MnkPbz/AIzMv+b/ANNIvy8z2J+cHYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq/Qz/nEv/lEb3/tqy/8mIM8t9tv8Zj/AFP99J93/wCBh/iUv+Gy/wBzjfVGcc+juxV2 + KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV//9f7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9D7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FX/9H7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FX/9L7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9P7+Yq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9T7+Yq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9X7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9b7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FX/9f7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FX/9D7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9H7+Yq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9L7+Yq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9P7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9T7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FX/9X7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FX/9b7+Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7 + FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX + Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq + 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F + XYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXY + q7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FX/9k= + + + Decorative Border + + Uncontrolled when printed + + + + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}}Operations Manual + Uncontrolled when printedPage 26of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}}Operations Manual + Uncontrolled when printedPage 27of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}}Operations Manual + Uncontrolled when printedPage 29of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}}Operations Manual + Uncontrolled when printedPage 30of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}}Operations Manual + Uncontrolled when printedPage 32of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}} Operations Manual + Uncontrolled when printed Page 35of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}} Operations Manual + Uncontrolled when printedPage 36of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}}Operations Manual + Uncontrolled when printedPage 40of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}} Operations Manual + Uncontrolled when printed Page 41of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}} Operations Manual + Uncontrolled when printed Page 42of 49 + + + + + {{organisation-name}} RPAS Operations Manual + + + + + Version {{version}} - {{version-date}}Operations Manual + Uncontrolled when printedPage 49of 49 + + + + + + + + + + + + +       + {{organisation-name}} + CASR PART 101 + RPAS Operations Manual + + + + Version{{version}} – {{version-date}} + Approver{{ceo-name}}, CEO + Review Date{{review-date}} + ARN{{organisation-arn}} + Build${CI_COMMIT_SHA} + Table of contents + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Table of contents2 + Preface5 + Amendment record5 + Glossary6 + 1Policy and procedures8 + 1.1Operator information8 + 1.1.1Organisation details8 + 1.1.2Organisational overview8 + 1.1.3Organisational diagram9 + 1.2Key personnel9 + 1.2.1List of key personnel9 + 1.2.2Key positions and responsibilities10 + 1.2.3Changing key personnel11 + 1.3Operations manual administration11 + 1.3.1Access and distribution11 + 1.3.2Continuous improvement12 + 1.3.3Amendment procedure12 + 1.4Record keeping and management13 + 1.4.1Control of records13 + 1.4.2Required records and retention13 + 1.5Internal training14 + 1.5.1Persons permitted to conduct training14 + 1.5.2Initial training14 + 1.5.3Type and complex operations training15 + 1.6Internal audit process15 + 1.6.1Operations manual and regulatory compliance15 + 1.6.2Monitoring operational standards15 + 1.7Fitness for duty15 + 1.8Recency requirements16 + 1.9Safety occurrence reporting16 + 2RPA operations18 + 2.1Risk assessment18 + 2.1.1Risk criteria18 + 2.1.2Risk register18 + 2.2Planning18 + 2.2.1Documentation18 + 2.2.2Operations requiring an official authorisation18 + 2.2.3Flight authorisation19 + 2.3Before flight19 + 2.3.1Validation of operational documentation19 + 2.3.2Pre-operational briefing19 + 2.3.3Pre-operational serviceability20 + 2.4Flight operations20 + 2.4.1RPAS documentation and instructions20 + 2.4.2Ensuring operations do not pose a hazard20 + 2.4.3Aeronautical radio usage20 + 2.4.4Use of transponder21 + 2.4.5Transportation of dangerous goods21 + 2.4.6Operations near people21 + 2.4.7Operations near aerodromes22 + 2.4.8Operations at night22 + 2.4.9Operations above 400 ft AGL22 + 2.4.10Operations outside of VLOS22 + 2.4.11Indoor (contained) operations23 + 2.4.12Tethered operations23 + 2.5Post-flight administration23 + 2.6Emergency procedures23 + 2.6.1Emergency management23 + 2.6.2Flight termination24 + 3Maintenance25 + 3.1Maintenance schedules25 + 3.1.1Periodic inspection schedule25 + 3.1.2Daily inspection schedule25 + 3.2Maintenance authorisation25 + 3.2.1Maintenance personnel25 + 3.3Recording of defects and maintenance26 + 3.4Post-maintenance test flights26 + Appendix A.Copy of RPA operator’s certificate27 + Appendix B.List of RPA operated by {{organisation-name}}28 + Appendix C.RPAS type-specific procedures29 + Appendix D.Specialised procedures30 + Appendix E.Risk rating criteria and risk register template31 + Appendix F.Forms and templates36 + Section 1: Operations overview and preliminary assessment36 + Section 2: Job safety assessment37 + Section 3: CRP authorisation39 + Section 4: Flight log40 + Appendix G.Training syllabus and checking matrix48 + + + + + Preface + This operations manual (this manual) outlines the procedures, instructions and guidance for use by {{organisation-name}}’s operations personnel in the execution of their duties. It also contains the necessary information to ensure the safe conduct of aviation operations. This manual is integral to the organisation’s controlling and supervising flight operations. All {{organisation-name}} personnel must comply with relevant instructions and procedures contained in this manual. + {{personnel-preface}} + {{personnel-reference}} + This manual is effective for operations conducted under the ReOC only after CASA has issued the ReOC and approved the nominated key personnel. + Amendment record + + + + + + + + + + Version no. + + + Date + + + Effective date + + + Parts / sections + + + Details + + + + {{amendment-rows}} + + Note: The version number and date are also shown in the footer of each page and are updated with each amendment. + Glossary + Acronyms and abbreviations + + + + + + + Acronym / abbreviation + + + Description + + + + + + ADS-B + + + Automatic dependent surveillance – broadcast + + + + + AGL + + + Above ground level + + + + + ALARP + + + As low as reasonably practicable + + + + + AMSL + + + Above mean sea level + + + + + ARN + + + Aviation reference number + + + + + ATC + + + Air traffic control + + + + + ATSB + + + Australian Transport Safety Bureau + + + + + ATTI + + + Attitude mode (RPA flight mode without satellite positioning) + + + + + BVLOS + + + Beyond visual line of sight + + + + + CAA + + + Civil Aviation Act 1988 (the Act) + + + + + CASA + + + Civil Aviation Safety Authority + + + + + CASR + + + Civil Aviation Safety Regulations 1998 + + + + + CRP + + + Chief remote pilot + + + + + EVLOS + + + Extended visual line of sight + + + + + GPS + + + Global positioning system + + + + + HLS + + + Helicopter landing site + + + + + IAW + + + In accordance with + + + + + JSA + + + Job safety assessment + + + + + MC + + + Maintenance controller + + + + + MOS + + + Manual of Standards + + + + + NM + + + Nautical miles + + + + + NOTAM + + + Notice to airmen + + + + + OC + + + Operational crew member + + + + + PRD + + + Prohibited, restricted or danger area + + + + + ReOC + + + Remotely piloted aircraft operator’s certificate + + + + + RePL + + + Remote pilot licence + + + + + RP + + + Remote pilot (or UAV controller) + + + + + RPA + + + Remotely piloted aircraft (same meaning as UAV) + + + + + RPAS + + + Remotely piloted aircraft system (same meaning as UAS) + + + + + SMS + + + Safety management system + + + + + SOC + + + Standard operating conditions – reference reg 101.238 CASR (1998) + + + + + SOP + + + Standard operating procedures + + + + + UOC + + + Unmanned aerial vehicle operator’s certificate + + + + + + VLOS + + + Visual line of sight + + + + + VMC + + + Visual meteorological conditions + + + + + Definitions + For the definition of terms used in this manual, refer to the Part 1 Dictionary at the end of Volume 5 of the Civil Aviation Safety Regulations (1998) (CASR), the Part 101 MOS, or the CASA-produced Flight Operations Regulations Consolidated Dictionary (downloadable from CASA’s website). Operator-specific terms are defined here: + + + + + + + Term + + + Definition + + + + + + Defect + + + Any confirmed abnormal condition of an item, irrespective of whether the condition could eventually result in a failure. In addition to imperfections that may impair the structure, composition or function of the RPAS, the scope of this definition encompasses any intermittent failure, spurious warning or fault in the operation of a RPAS that may cause it to deviate from the manufacturer’s specifications. + + + + + Familiarisation flight + + + A flight during which the RP demonstrates the RPA, or explains its controls, to a customer or other person while the RP retains sole control of the RPA. A familiarisation flight is not RePL training, and no other person manipulates the controls. + + + + + Major defect + + + A defect, the magnitude of which may affect the safety of the aircraft or cause the aircraft to become a danger to persons or property. + + + + + Minor defect + + + A defect that is not a major defect. + + + + + Official authorisation + + + An authorisation, however termed, from CASA, Airservices Australia, or any other authority responsible for providing an aviation authorisation, including the controlling authority of a prohibited or restricted area. + + + + + Operational crew member + + + All {{organisation-name}} personnel (except for the RP) who have a duty that is essential to the control or navigation of an RPA operation. + + + + + Personnel + + + All {{organisation-name}} personnel (including employees, contractors and volunteers) who have a duty relating to the safety of RPA operations. + + + + + Safety occurrence + + + Any event that affects, or could affect, the safety of an RPA operation. + + + + + Solo operation + + + An RPA operation conducted by one RP without any other operational crew member. + + + + + Visual meteorological conditions + + + For {{organisation-name}}’s RPA operations, this refers to a horizontal visibility greater than 5000 metres and clear of cloud. + + + + + + + Policy and procedures + Operator information + Organisation details + Table 1: Organisation details + + + + + + Contact details + + + + + + + + Name of legal entity + + + {{legal-name}} + + + + + Trading name + + + {{trading-name}} + + + + + Registered office address + + + {{registered-office}} + + + + + ARN + + + {{organisation-arn}} + + + + + ABN + + + {{abn}} + + + + + Operational headquarters address + + + {{operational-headquarters}} + + + + + Operational headquarters phone + + + {{organisation-phone}} + + + + + Operational headquarters email + + + {{organisation-email}} + + + + Organisational overview + {{legal-name}} ({{organisation-name}}) is a proprietary company that holds a remotely piloted aircraft operator’s certificate (ReOC) to conduct aerial work activities in remotely piloted aircraft systems (RPAS). {{organisation-name}} provides {{services}}, utilising the RPA listed in Appendix B. + Operations are conducted by day in visual meteorological conditions, within visual line of sight (VLOS) and within the standard operating conditions (SOC), using {{fleet-overview}}. {{organisation-name}} does not conduct night, EVLOS, BVLOS or swarm operations, {{repl-training-overview}} + {{organisation-structure}} + {{organisation-name}} also conducts internal proficiency flights, post-maintenance test flights and familiarisation flights for customers. During a familiarisation flight the RP retains sole control of the RPA at all times. + Organisational diagram + {{organisational-diagram}} + Figure 1: Organisational diagram + {{organisational-diagram-note}} + Key personnel + Each key personnel position must be filled by an individual appointed by the organisation and approved by CASA. Operations must not be conducted where a key position is vacant unless approved by CASA. + List of key personnel + Table 2: Key personnel + + + + + + + + Nominated position + + + Name + + + ARN + + + Date approved + + + + + Chief remote pilot + + + {{crp-name}} + + + {{crp-arn}} + + + {{crp-date-approved}} + + + + + Maintenance controller + + + {{mc-name}} + + + {{mc-arn}} + + + N/A + + + + + CEO + + + {{ceo-name}} + + + {{ceo-arn}} + + + N/A + + {{chief-repl-instructor-row}} + + {{key-personnel-qualifications}} + The CRP must hold a RePL covering the category of each RPA listed in Appendix B. The MC must have completed the RPAS type training at Appendix G2 for each RPA listed in Appendix B. + + Key positions and responsibilities + Chief executive officer (CEO) + The CEO is responsible for the safety and corporate compliance of {{organisation-name}}’s RPA operations. Without limiting the duties and accountabilities of the CEO, the CEO must: + + + ensure that, for the safe conduct of RPAS operations in accordance with (IAW) the ReOC and the civil aviation legislation, {{organisation-name}}: + + + has sufficient suitably experienced, qualified and competent personnel + + + has a suitable management structure + + + is adequately financed and resourced. + + + + + ensure that commercial or customer pressure does not override safe decision-making + + + establish and regularly review {{organisation-name}}’s safety performance indicators and targets + + + ensure that {{organisation-name}}’s approved documented practices and procedures are monitored and managed for continuous improvement + + + ensure that key personnel satisfactorily carry out the responsibilities of their positions IAW this manual and the relevant civil aviation legislation + + + ensure that CASA is notified any of change of: + + + {{organisation-name}}’s name, address or contact details + + + nominated personnel + + + financial status where the change may impact the safety of RPA operations. + + + + + Chief remote pilot (CRP) + The CRP is responsible for safely managing the RPA operations of {{organisation-name}}. Without limiting the duties and accountabilities of the CRP, the CRP must: + + + ensure that RPA operations are conducted IAW relevant civil aviation legislation + + + ensure that pilots and crew are suitably qualified and have appropriate experience and skills to enable them to satisfactorily fulfil the duties of their position + + + maintain a record of qualifications held by the RP and OC + + + monitor the operational standards and proficiency of the RP and OC + + + review compliance and facilities by: + + + conducting internal audits + + + reviewing audit findings + + + taking any necessary corrective action to rectify deficiencies as soon as possible. + + + + + review scheduling and rostering of crew to ensure that fatigue does not adversely affect the safety of operations + + + provide the RP and OC with ready access to all documents and manuals necessary to ensure the safety of all flights + + + advise the CEO of any matter pertaining to RPA operations that is relevant to the CEO’s duties. + + + maintain current copies of the operational documents and reference material required for operations, including the ReOC and its conditions, any official authorisation, the RPA manufacturer’s user manual and relevant AIP material + + + Maintenance controller (MC) + The MC is responsible for ensuring that {{organisation-name}}’s operating RPAS are properly maintained. Without limiting the duties and accountabilities of the MC, the MC must: + + + control all RPAS maintenance, either scheduled or unscheduled + + + keep records of all personnel permitted to perform maintenance on RPA, including details of their training and qualifications + + + develop, enforce and monitor RPAS maintenance standards + + + maintain a record of RPAS defects and unserviceability issues + + + ensure that each item of equipment essential to the operation of {{organisation-name}}’s RPA is serviceable before being released to service + + + maintain a thorough technical knowledge of RPAS operating under the authority of the ReOC of {{organisation-name}} + + + ensure that all maintenance activities are conducted IAW the procedures detailed in Section 3of this manual + + + investigate all significant defects in the RPAS + + + monitor the failure rates of RPAS components and impose additional maintenance requirements as necessary to ensure the safety of operations. + + + {{multiple-key-positions}} + Changing key personnel + A change of key personnel is considered a significant change and requires prior approval from CASA. Wherever possible, the CEO will ensure the change of personnel is approved by CASA prior to the holder of a key position vacating that position. {{key-personnel-vacancy}} + Operations manual administration + Access and distribution + This manual is maintained electronically in the {{organisation-name}} document repository; the current edition is published at ${CI_PAGES_URL}. Copies of this manual that are not accessed directly from the system are designated as uncontrolled. Uncontrolled copies of the manual are not to be used unless the copy is verified to be identical to the current edition of the manual stored in the system. + All personnel must provide a written acknowledgement (an electronic acknowledgement such as an email is permitted) to the CRP stating that they have accessed, read and understood this manual before carrying out any duty essential to the control or navigation of an RPA. The CRP records their own acknowledgement of each version in the same way. + Continuous improvement + This manual must reflect the practices and procedures of {{organisation-name}} and will be amended to facilitate any changes. Staff are encouraged to consider improvements in practices and procedures, and to provide suggestions to the CRP. All errors in the manual must be reported to the CRP as soon as practicable. + Planned changes to operational practices and procedures must be incorporated into this manual before implementing the change (see Section 1.3.3of this manual). + The CRP must review the operations suite of documents at least annually to ensure the relevance and currency of all procedures, and to achieve full compliance with legislative requirements. + Amendment procedure + Prior to making a significant change1 + See Part 101 MOS for definition of ‘significant change’. to the operation including to this manual, the CRP must submit a draft of the sections with proposed changes to CASA for approval. Only after the change is approved by CASA is the amendment to be incorporated into the manual. + Approval of a significant change is requested by emailing the draft amended sections, with tracked changes, together with a completed ‘RPAS ReOC – Significant Change approval and/or Notification of Non-Significant Changes’ form, to rpas.pac@casa.gov.au. The amended manual must not be published or used for operations until CASA has approved the change. + The CRP may make non-significant changes to this manual without approval from CASA. + For all changes, whether significant or non-significant, the CRP must provide a copy of the updated manual to CASA within 21 days of the change being made. + Amended versions of this manual must include the date and have a new version number assigned. Details of the amendment must be recorded in the Amendment record table in the Preface of this manual. The amended manual must be uploaded to the {{organisation-name}} document repository. + The CRP must ensure that a notification is sent to all personnel summarising all changes. This includes details and background on why the change was made, the delayed effective date for any changes (if applicable), the reasons for the changes, and any implications for staff. + All personnel are required to provide a written acknowledgement (an electronic acknowledgement such as an email is permitted) of having read and understood the amendment prior to carrying out any duty essential to the control or navigation of an RPA after the effective date of the amendment. + Record keeping and management + Control of records + All records are stored electronically on the {{organisation-name}} document repository. Records fall into 4 categories: + + + Personnel records + + + Flight-related records + + + RPA-related records + + + Administrative records. + + + The CRP is responsible for managing personnel, flight-related and administrative records. The MC is responsible for managing RPA-related records. + The record-keeping templates at Appendix F must be used at all times. + Records are backed up to a separate location at least {{backup-interval}}, and access is limited to {{organisation-name}} key personnel. Records relevant to an open safety occurrence, investigation or claim must not be destroyed, even after the minimum retention period has passed. + Required records and retention + Table 3: Personnel records + + + + + + Type of record + + + Minimum retention period + + + + + Training event + + + 7 years after date on which the record was made + + + + + Checking event + + + 7 years after date on which the record was made + + + + + Attainment of RP qualification (including relevant qualifications held before commencement of employment) + + + 7 years after date of the RP’s last operation of an RPA for {{organisation-name}} + + + + + Attainment of qualification of competency in relation to the safety of RPA operations (other than RP duties) + + + 7 years after date on which the person ceases to be employed by {{organisation-name}} + + + + + RP logbook* + + + 7 years after date of the RP’s last operation of an RPA for {{organisation-name}} + + + + * Accumulated flight experience (including experience held before commencement of employment) to be maintained by the RP – see Section 10.06 of Chapter 10 Division 2 of the Part 101 MOS for minimum requirements. + Table 4: Flight-related records + + + + + + Type of record + + + Minimum retention period + + + + + Flight Record (Form F1) + + + 7 years after date on which the record was made + + + + + Written consent to operate at a distance of less than 30 metres from a person + + + 7 years after date on which the consent was provided + + + + Note: The Flight Record includes and combines the job safety assessment (JSA), authorised RPAS operational release and RPAS operational log. + Table 5: RPA-related records + + + + + + Type of record + + + Minimum retention period + + + + + RPAS Technical Log (Form F2) + + + 7 years after the last time the RPA is operated by the operator + + + + + Register of RPA operated by {{organisation-name}} including manufacturer, model, maximum gross weight and serial number + + + 7 years after date on which the record was made + + + + + Table 6: Administrative records + + + + + + Type of record + + + Minimum retention period + + + + + Acknowledgement of access to and understanding of {{organisation-name}} operations manual version + + + 7 years after the acknowledgement is made + + + + + Register of persons (other than the CRP) permitted to conduct training and checking (if applicable) + + + 7 years after the last time training or checking is provided by the trainer + + + + + Compliance audit record (see Section 1.6.1of this manual) + + + 7 years from the date of the audit + + + + + Risk register + + + For each version of the register, 12 months after a new version is issued + + + + + Safety occurrence register + + + For each safety occurrence entry in the register, 7 years from date of occurrence + + + + Internal training + Persons permitted to conduct training + Only the CRP and persons nominated in writing by the CRP are permitted to provide internal training. Before authorising a person to conduct training, the CRP must ensure that appropriate measures of competency are in place to guarantee the effectiveness and comprehensiveness of all training delivered. At the date of this version, the CRP is the only person permitted to conduct internal training. {{repl-training-internal}} + Initial training + All personnel must complete induction training and assessment to ensure they have a thorough understanding of the task requirements and responsibilities of their role. Training syllabuses and minimum proficiency requirements are detailed at Appendix G. Completion is recorded on the Induction Training Record (Form F4). The CRP must complete and record the training at Appendix G1 and G2 before conducting operations under the ReOC. + Type and complex operations training + Additional training and proficiency assessment appropriate to the task are required before personnel: + + + undertake a new complex operation – that is, an operation outside of the standard operating conditions (SOC) + + + operate a new RPA type. + + + Training syllabuses and minimum proficiency requirements are detailed at Appendix G. + Internal audit process + Operations manual and regulatory compliance + At least annually, and after any ATSB-reportable safety occurrence, the CRP will carry out a compliance audit on a representative sample of processes and procedures. At a minimum, the audit must assess the: + + + accessibility and awareness of the current operations manual by all personnel + + + accuracy and completeness of flight records and aircraft logs + + + records of pilot training, proficiency checks and qualifications + + + currency of the risk register, the RPAS Technical Log and the RPA register + + + compliance with the conditions of the ReOC and of any official authorisation. + + + Findings and corrective actions are recorded in the compliance audit record. {{independent-review}} an independent review of the audit by a suitably experienced person at least every {{independent-review-years}}, and after any ATSB-reportable safety occurrence. + Monitoring operational standards + At least every {{checking-months}}, the CRP will conduct observation flights (a checking event) with each RP and OC in a representative sample of operations to assess their operational competence and compliance with the operations manual and relevant aviation legislation. {{checking-only-rp}}Checking events are recorded on the Observation Flight Record (Form F6). + The CRP must record, for the CEO, confirmation that operational standards are being maintained and that corrective action (if required) is being taken. + Fitness for duty + All {{organisation-name}} personnel are prohibited from performing any task related to the safety or navigation of an RPA when unfit to perform that activity. Without limiting the definition, a person is taken to be, or is taken to be likely to be, unfit to perform a duty if: + + + they are unwell or fatigued to the extent that their capacity to safely perform the duty is reduced or likely to be reduced, and/or + + + their capacity to safely perform the duty is impaired, or likely to be impaired, because they have consumed, used, or absorbed a psychoactive substance (including alcohol), or they have an illness or injury, and/or + + + their capacity to safely perform their duty is impaired, or likely to be impaired, because they have consumed prescription or over-the-counter medication (such as codeine and antihistamine) that can cause adverse side effects such as drowsiness. + + + {{organisation-name}} personnel must immediately report any potential or actual unfitness for duty to the CRP who will take appropriate action to remedy the situation. + Before each operation, the RP must assess their own fitness for duty – including fatigue, illness, medication, alcohol and stress – and record the assessment in Part A of the Flight Record. An RP who is, or may be, unfit must not operate, and the operation must be postponed or cancelled. + In addition, {{organisation-name}} personnel must not: + + + perform any duty essential to the control or navigation of an RPA within {{alcohol-hours}} of consuming alcohol + + + commence a duty period without having had at least {{rest-hours}} free of duty + + + perform duties essential to the control or navigation of an RPA for more than {{duty-hours}} in any duty period. + + + Recency requirements + An RP must not conduct an operation for {{organisation-name}} unless, within the previous {{recency-days}}, they have conducted at least {{recency-flights}} in an RPA of the same type, each including a take-off and landing. + An RP who does not meet this requirement must regain currency by completing a proficiency flight covering the flight exercises at Appendix G2 (other than those that cannot be practised safely), in a location clear of people and property, before conducting any other operation. The proficiency flight must be recorded in the RP logbook and on the Continuation Training Record (Form F5). + An RP who has not operated an RPA of the type for more than {{refresher-months}} must also complete refresher training in the ground/theory items at Appendix G1 and G2 before the proficiency flight. + After a firmware or software update that changes the flight controls, flight modes or failsafe behaviour of an RPA, the RP must review the change and conduct a familiarisation flight in a location clear of people and property before conducting any other operation. + Safety occurrence reporting + All personnel must report any safety occurrence2 + A safety occurrence is any event that affects, or could affect, the safety of an RPA operation. to the CRP as soon as practicable. The CRP must record each safety occurrence in the Safety Occurrence Register (Form F8). + The CRP must ensure that the following occurrences are reported to the ATSB.3 + ATSB reporting requirements are outlined in the Transport Safety Investigation Regulations (2021). + + Table 7: Safety occurrence reporting + + + + + + + + Occurrence + + + Reporting requirement + + + + + + + Death or serious injury to a person + + + + + + + Report as soon as is reasonably practicable by phoning 1800 011 034 + + + Follow up with a written report within 72 hours to Occurrence Notification - Aviation | ATSB + + + + + + + + + RPA missing + + + RPA suffering serious damage (or reasonable grounds to believe it may be seriously damaged) + + + RPA inaccessible with reasonable grounds to believe it may be seriously damaged + + + Serious property damage + + + Loss of separation + + + + + + + Submit a written report within 72 hours to Occurrence Notification - Aviation | ATSB + + + + + + + All personnel must take reasonable steps to preserve any flight planning and operational data, telemetry logs and RPAS components that may assist in determining the cause of an occurrence. + Following an ATSB-reportable safety occurrence, the RPA must not be operated until the MC has inspected it and released it to service, and the CRP has reviewed the risk register IAW Section 2.1.2. + {{organisation-name}} encourages the reporting of all hazards and safety occurrences, including errors made by the person reporting. The purpose of reporting is to learn and improve safety, not to apportion blame. + RPA operations + Risk assessment + Risk criteria + {{organisation-name}} will only conduct operations if they can be conducted without an unacceptable safety risk to the RPA or any person or other property, and when they do not impose a hazard on the safety of air navigation. + The RP has the authority to cancel, postpone or terminate any operation for safety reasons. This authority must not be overridden by customer or commercial pressure. + Risk register + The CRP must maintain a risk register that covers all operational profiles conducted by {{organisation-name}}. The risk rating criteria and a template risk register are at Appendix E. The current risk register is included at Appendix E. + All current controls listed in the risk register must be linked to a procedure in this manual or a legislative requirement. Where an additional control is implemented, the control is to be included in the next amendment of the operations manual. + To ensure the accuracy of risk identification and adequacy of controls, the risk register must be reviewed and updated: + + + prior to {{organisation-name}} commencing a new operational profile (for example, an operation requiring a different type of official authorisation) + + + after any ATSB reportable safety occurrence + + + at least annually. + + + Note: {{organisation-name}} uses the risk assessment and mitigation methodology contained in the CASA safety management system (SMS) kit at http://casa.gov.au/sms. + Planning + Documentation + A Flight Record must be created for all operations. Section 2 of the Flight Record contains a JSA assessment which must be completed for any operation: + + + in RPA above 2 kg + + + outside the SOC + + + where an official authorisation is required. + + + Operations in RPA weighing 2 kg or less and operating IAW the SOC must consider the items listed in Section 2 of the Flight Record before commencement of operations. + Section 1 of the Flight Record must be completed for every operation, including internal proficiency, test and familiarisation flights. + Operations requiring an official authorisation + Where an operation requires an official authorisation, the JSA must include details of any additional risk control. Applications for an official authorisation must be made by the CRP. + Where an official authorisation is provided, the RP must ensure that they have read and understood the authorisation before the commencement of operations. The RP must comply with any condition detailed in the authorisation, unless doing so would have a negative impact on aviation safety, in which case they must immediately cease the operation and advise the CRP of the issue as soon as practicable. + Copies of all current official authorisation are available at the {{organisation-name}} document repository. + Flight authorisation + All operations require authorisation by the CRP. Before authorising an operation, the CRP must review the planning section of the Flight Record to ensure the operation will comply with legislation and meet an acceptable risk profile. + A flight authorisation expires on any changes to: + + + the RPA + + + the crew + + + the location + + + authorised dates and times. + + + When the CRP is also the RP for the operation, the CRP completes the flight authorisation in Section 3 of the Flight Record during planning, before travelling to site. The onsite validation (Section 2.3.1) is then completed separately on site. + Before flight + Validation of operational documentation + Before commencement of operations, the RP must conduct an onsite validation of the operational planning documentation, and local environmental considerations. The onsite validation must be recorded in Section 4 of the Flight Record before commencement of operations. Any variable outside of the flight authorisation or manufacturer limitations requires an updated flight authorisation before operating. + Pre-operational briefing + When an operation involves more than one person, the RP must conduct a pre-operational briefing covering details of: + + + the operation + + + emergency procedures + + + hazards + + + crew responsibilities. + + + All personnel relevant to the operation must attend the briefing. + For solo operations, the RP must conduct a self-briefing before the first flight at each site, covering: + + + the operating area, its boundaries and the maximum height + + + hazards, including people, obstacles, airspace and radio frequency interference + + + launch, recovery and alternate landing areas + + + the home point and the failsafe (Go Home) altitude and behaviour + + + emergency actions, and the conditions under which the operation will be stopped. + + + The self-briefing is recorded in Part A of the Flight Record. Customers or other persons present at the site must be told where to remain during the operation, and must not be given any duty relating to the control or navigation of the RPA. + Pre-operational serviceability + Before commencement of the first flight of the day, a serviceability inspection must be completed IAW Section 3.1.2of this manual. A checklist should be used to ensure all inspection items are covered. Details of the inspection including any identified defects must be recorded in the RPAS Technical Log before commencement of operations. + A pre-flight inspection should also be undertaken before each take-off. Any defects identified during operations are to be entered into the RPAS Technical Log as soon as practicable, and reported to the MC. + RPs must ensure that all major defects or outstanding maintenance actions previously detailed in the RPAS Technical Log have been addressed before a flight. Operations may proceed with minor defects, and these must be assessed and monitored. + Note: A minor defect is a defect that will not affect the safety of the aircraft or cause the aircraft to become a danger to persons or property. + Flight operations + RPAS documentation and instructions + All RPA must be operated IAW the manufacturer’s instructions and checklists, or an alternative procedure approved by the CRP. {{manufacturer-instructions}} + Where an alternative RPA operating procedure has been approved, the procedure will be detailed at Appendix C. Before approving an alternative procedure, the CRP must conduct a risk assessment to assess the impact of the changed procedure on the safety of flight operations. + Ensuring operations do not pose a hazard + The RP is responsible for ensuring that the RPA is not operated in such a way as to create a hazard to another aircraft, person or property. + To reduce the potential for conflict with other aircraft, the RP should not operate the RPA within 500 ft vertically or 1500 m horizontally of any airborne conventionally piloted aircraft unless approved by the CRP. + The RP must ensure that the prevailing meteorological conditions allow for visual separation from obstacles and other airspace users unless otherwise approved by CASA. + Aeronautical radio usage + Only personnel who are qualified under Part 61 or Part 64 of CASR may use an aeronautical radio. + Use of an aeronautical radio is required for all operations in RPA with a gross weight > 2 kg within controlled airspace or outside of the SOC. + Radio broadcasts must be made: + + + in controlled airspace: only where required or directed by ATC or CASA, or where necessary to resolve a potential conflict with a crewed aircraft + + + in uncontrolled airspace: where necessary to resolve a potential conflict with a crewed aircraft. + + + Where carriage of an aeronautical radio is not mandatory, the RP should consider the benefits to situational awareness, and operate an aeronautical radio where appropriate. + {{crp-radio}} + Use of transponder + A transponder / ADS-B (out)fitted to the RPA must not be activated unless specifically requested by air traffic control or IAW an official authorisation. {{transponder-fit}} + Transportation of dangerous goods + RPAS are subject to the requirements of the dangerous goods legislation.4 + See Section 23 of the CAA and Part 92 of CASR. The RP must ensure that RPA do not carry dangerous goods. + Note:When travelling to site, limitations apply to the carriage of dangerous goods, including batteries, on commercial aircraft. Crew are reminded of their obligations to comply with the carrier’s dangerous goods policy. + Operations near people + The RP must ensure that an RPA is not operated within 30 m laterally of any person. This is measured from the point on the ground directly below the RPA to the position of any person who is not directly involved in the control or navigation of the RPA. + Note:Persons being filmed or photographed – such as actors, athletes or members of the public – are not considered essential to the control and navigation of the RPA. + Operations within 30 m but not less than 15 m of a person are permitted if all these criteria are satisfied: + + + A risk assessment has been completed, with appropriate mitigators implemented for the level and type of risk identified. + + + The person is advised of any identified risks and given details of implemented mitigation strategies. + + + The person is advised of the requirement for {{organisation-name}} to obtain the person’s consent to operate within 30m of them. + + + The person provides consent for {{organisation-name}} to operate within 30 m of them. + + + Any consent to operate within 30 m of a person must be provided in writing. + Note: A body corporate or any other entity cannot give such consent on behalf of any individual. + The RP must also ensure an RPA (other than a micro RPA) that is not a certificated RPA is not operated over a populous area at a height less than the height from which, if any of its components fails, it would be able to clear the area. + The RP may operate a certificated RPA over a populous area at a height less than the height from which, if any of its components fails, it would be able to clear the area, with a CASA approval. + An area is a populous area in relation to the operation of an unmanned aircraft if the area has a sufficient density of population for some aspect of the operation, or some event that might happen during the operation (in particular, a fault in, or failure of, the aircraft) to pose an unreasonable risk to the life, safety or property of somebody who is in the area but is not connected with the operation. + Operations near aerodromes + The RP must not operate an RPA: + + + over a movement area of an aerodrome + + + within the no-fly zone of a controlled aerodrome5 + See Chapters 4 and 9 of the Part 101 MOS. + + + within the relevant airspace of a non-controlled aerodrome during a relevant event + + + unless the RPA is operated: + + + IAW an official authorisation + + + indoors IAW Section 2.4.11 + + + Operations at night + {{organisation-name}} is not approved to conduct operations at night. All flights, including landing, must be completed between the beginning of morning civil twilight and the end of evening civil twilight. + Operations above 400 ft AGL + Operations above 400 ft AGL (measured from the point directly below the RPA) require an official authorisation. Before seeking an authorisation, the CRP will conduct an assessment to identify any additional risks and the appropriate controls. Items to be considered include: + + + proximity to obstacles (shielding) + + + crewed aircraft flight paths + + + ability to maintain VLOS + + + aeronautical radio requirements + + + NOTAM requirements + + + environmental conditions. + + + Operations outside of VLOS + {{organisation-name}} is not approved to conduct operations outside of VLOS. + Indoor (contained) operations + Where the conditions require the RPA to be operated as an indoor (contained) operation, the RP must ensure that it is physically impossible for the RPA to escape the containment area and fly away. Further, the RP must ensure that if the RPA collides with any part of the containment area, no material from the RPA or containment area can move or escape and cause injury to a person or property outside the area. + Details of the containment area and any additional controls required to keep the RPA within the area must be included in the Flight Record. + Tethered operations + RESERVED – {{organisation-name}} does not conduct tethered operations. + Post-flight administration + At the completion of operations, the RP must complete the remaining items in Section 4 of the Flight Record. The completed Flight Record must be uploaded to the {{organisation-name}} document repository. + As soon as practicable following each operation, the RP must ensure that ‘time in service’ and any known defects are recorded in the RPAS Technical Log. + Emergency procedures + Emergency management + The emergency response for all RPA emergencies is to return the RPA to the ground in a safe location, where possible without damage to the RPA, in this sequence: + + + Maintain control of the RPA + + + Manoeuvre the RPA to a safe location + + + Land the RPA. + + + Depending on the emergency, the RP may use automation or manual flight control to manage the situation. + Expanded emergency procedures and checklists specific to the RPA may be applicable and these are outlined at Appendix C. Where the RPA has expanded emergency procedures, the RP must ensure that an emergency checklist is readily available. + Initial action principles should be used in all operations: + + + For solo RPAS operations: Aviate, Navigate, Communicate, Administrate (ANCA). + + + For multi-crew RPAS operations: Communicate (between crew), Aviate, Communicate (externally to ATC / relevant stakeholder) and Administrate (CANCA). + + + {{crewing}} Notification of the CRP, emergency services (000), ATSB or CASA is completed once the RPA is on the ground and the scene is safe. + Flight termination + {{flight-termination}} Where control of the RPA is irrecoverable and the RPA poses a risk to persons or property, the RP should use any means of terminating the flight provided in the manufacturer’s instructions, after considering the likely location and trajectory of the RPA. + Avoiding injury to third parties and their property is paramount and must always be considered a higher priority than avoiding damage to the RPA. + Maintenance + Maintenance schedules + Periodic inspection schedule + All RPA are maintained IAW the manufacturer’s maintenance schedule and procedures. The MC must detail any upcoming maintenance item in the RPAS Technical Log. + In addition to the manufacturer’s schedule, the MC must conduct a periodic inspection of each RPA at intervals of not more than {{inspection-months}} or {{inspection-hours}} time in service, whichever occurs first. {{periodic-inspection-items}} The inspection is recorded in the RPAS Technical Log. + Firmware and software + Updating of RPAS and control system software is considered a periodic maintenance item and must only be conducted as and when directed by the MC. After an update, the MC must verify the RPA settings (including the failsafe and Go Home settings), and a test flight must be completed IAW Section 3.4 before the RPA is returned to operational use. Updates must not be made on the day of a customer operation unless required to rectify a defect. + Daily inspection schedule + A serviceability inspection of the RPA must be completed before the commencement of that day’s flight operations IAW the manufacturer’s pre-flight inspection procedures. The daily inspection is considered to be a maintenance item. The person completing the inspection certifies it in the RPAS Technical Log. + Maintenance authorisation + Maintenance personnel + Table 8 outlines the roles/entities that are authorised to conduct specified maintenance activities on RPAS. + Table 8: Maintenance activities and personnel + + + + + + Person + + + Maintenance items + + + + + MC + + + + + All maintenance items + + + + + + + RP holding a valid RePL who has completed operator RPA type training + + + + + Daily inspection (including pre- and post‑flight) + + + Replacement of propellers + + + Replacement and charge of batteries + + + Fitting and removal of payloads and role equipment + + + Update of firmware/software + + + + + + + Organisations and service providers assessed by the MC as competent to provide RPAS maintenance services + + + + + All maintenance items + + + + + + + + Manufacturers of RPAS items and their approved service agents + + + + + All maintenance items + + + + + + At the date of this version, maintenance beyond the items authorised for an RP is carried out by {{manufacturer-maintenance}}. + Recording of defects and maintenance + It is the responsibility of all personnel to report open defects to the MC as soon as practicable. + All maintenance (including daily inspections) must be recorded in the RPAS Technical Log. + Post-maintenance test flights + Before an RPA is returned to service following any rectification or modification to the RPAS that has the potential to impact flight safety, a test flight must be completed by an appropriately licenced and competent RP to verify that the RPA operates correctly in all available modes. + The composition of a flight test is to be determined by the MC and must be detailed on the Flight Record. All RPAS test flights must be authorised by the CRP and logged. + A test flight is not required where an external provider completes the rectification or modification, and where they provide written certification that a test flight has been successfully completed. + + + Copy of RPA operator’s certificate + + + A copy of the ReOC (front and back pages) will be inserted here on issue. + + + + List of RPA operated by {{organisation-name}} + + + + Table 9 lists the make and model of each RPA operated by {{organisation-name}}. Personnel must not operate an RPA that is not listed in the table. + + Table 9: RPAS operated by {{organisation-name}} + + + + + + + + + + Make + + + Model + + + Category + + + Maximum gross weight + + + Serial number + + + + {{aircraft-rows}} + + {{associated-equipment}} + Note: A change to the kinds of RPA operated by {{organisation-name}} may constitute a 'significant change' that requires CASA approval. See Part 101 MOS for the definition of ‘significant change’. + + + RPAS type-specific procedures + + + {{type-specific-procedures}} + + + Specialised procedures + + + RESERVED + + + + Risk rating criteria and risk register template + + + Table 10: Consequence values + + + + + + + Value + + + Consequence + + + Meaning + + + + + A + + + Catastrophic + + + + + Catastrophic incident + + + Fatality + + + Equipment destroyed + + + More than $100,000 impact + + + Threatens the ongoing existence of the organisation + + + + + + + B + + + Hazardous + + + + + Major incident + + + Serious injury + + + Major equipment damage + + + $50,000 – $100,000 impact + + + Major impact to the organisation’s ability to provide services + + + A large reduction in safety margins, or creating physical distress or a workload such that the operators cannot be relied upon to perform their tasks accurately or completely + + + + + + + C + + + Moderate + + + + + Serious incident + + + Injury to persons + + + $10,000 – $50,000 impact + + + A significant reduction in safety margins, a reduction in the ability of the ReOC holder to cope with adverse operating conditions as a result of an increase in workload or as a result of conditions impairing their efficiency + + + + + + + D + + + Minor + + + + + Nuisance + + + Minor injury + + + $2,000 – $10,000 impact + + + Operating limitations required + + + Use of emergency procedures to manage + + + + + + + E + + + Negligible + + + + + Less than $2,000 impact + + + Few consequences, managed through normal procedures + + + + + + + Table 11: Likelihood values + + + + + + + + + Value + + + Likelihood + + + Meaning + + + + + 5 + + + Frequent + + + Likely to occur many times (has occurred frequently) + + + + + 4 + + + Occasional + + + Likely to occur sometimes (has occurred infrequently) + + + + + 3 + + + Remote + + + Unlikely to occur, but possible (has occurred rarely) + + + + + 2 + + + Improbable + + + Very unlikely to occur (not known to have occurred) + + + + + 1 + + + Extremely Improbable + + + Almost inconceivable that this event will occur + + + + + + + Table 12: Risk rating matrix + + + + + + + + + + + + + + Consequence + + + + + + + + + + + + + + + + + + + + A + + + B + + + C + + + D + + + E + + + + + Likelihood + + + Catastrophic + + + Hazardous + + + Moderate + + + Minor + + + Negligible + + + + + 5 Frequent + + + 5A + + + 5B + + + 5C + + + 5D + + + 5E + + + + + 4 Occasional + + + 4A + + + 4B + + + 4C + + + 4D + + + 4E + + + + + 3 Remote + + + 3A + + + 3B + + + 3C + + + 3D + + + 3E + + + + + 2 Improbable + + + 2A + + + 2B + + + 2C + + + 2D + + + 2E + + + + + 1 Extremely improbable + + + 1A + + + 1B + + + 1C + + + 1D + + + 1E + + + + + + + + + + + + Risk level + + + Acceptance level + + + Actions + + + + + High + + + CEO + + + Activity must be suspended + Risk considered unacceptable and requires new concept of operation + + + + + Medium + + + Chief remote pilot + + + Risk should be mitigated to ALARP + Activity can continue only after acceptance from chief remote pilot or senior manager + + + + + Low + + + Chief remote pilot + + + Risk is acceptable and activity may continue providing due consideration has been given to the activity + + + + + + {{organisation-name}} Risk register + + + + + + + + + + + + + + + + + + + Reference number + + + Date entered in register + + + Hazard + + + Risk description + + + Existing controls + + + + Likelihood + + + Initial risk + Consequence + + + + Risk rating + + + Additional controls + + + + Likelihood + + + Residual risk + Consequence + + + + Risk rating + + + Risk owner + + + Review due date + + + {{risk-register-rows}} + + + + + Forms and templates + + + Flight Record + + + + + Section 1: Operations overview and preliminary assessment + + + + + Operation identifier: + + + + + Name of preliminary assessor: + + + + + Task overview: + + + + + + + + + + Location: + + + + + Proposed date(s) and time(s): + + + + + Proposed RPAS type/model(s): + + + + + Preliminary assessment: + + + + + YES NO + 30 m from people can be maintained☐☐ + Clear of populous areas☐☐ + Below 400 ft AGL☐☐ + Outside of an active restricted area☐☐ + Outside of the no-fly zone of a towered airport☐☐ + Outside of the no-fly area during a relevant event☐☐ + Operating in day VMC☐☐ + Operating VLOS☐☐ + All hazards are mitigated by organisation’s SOP☐☐ + Not near active emergency operations☐☐ + RPA weight 2 kg or less☐☐ + + + + + If answered YES to ALL the above, complete below and submit to CRP for authorisation: + Launch location: ________________________ + Recovery location: _______________________ + Maximum height planned: _________ ft AGL + If answered NO to ANY of the above, complete JSA (Section 2 of Flight Record). + + + + Section 2: Job safety assessment + Section 2 does not need to be completed where an operation falls within the SOC, using RPA not heavier than 2 kg and where no official authorisation is required. + + + + + Map of operating area showing launch and landing locations and any relevant hazard + + + + + + + + + + + + + + + + + Airspace class(es) and height(s) + + + + + + Maximum operating height + + + ft AGL + + + + + PRD + + + + + + Maximum operating altitude + + + ft AMSL + + + + + Nearby aerodromes (include location, distance, type) + + + + + + + + + + + + + + Aeronautical radio frequencies + + + + + + + + + + + + + + + + + + + + + + + + + + + VLOS + + + ☐ + + + EVLOS + + + ☐ + + + BVLOS + + + ☐ + + + DAY + + + ☐ + + + NIGHT + + + ☐ + + + + + + + + + Airspace hazards and mitigations + + + + + + + + + + + + + + Ground hazards and mitigations (people, obstacles, interference, etc.) + + + + + + + + + + + + + + + + Does SOP adequately mitigate all hazards? (circle applicable) + + + YES + + + NO + + + + + If NO, detail unmitigated hazards + + + + + + + + + + + + + + + + + + Preliminary assessment / JSA accurate (circle applicable) + + + YES + + + NO + + + + + If NO, record changes here + + + + + + + + + + + + + + + + + + + + + + + Additional operating restrictions/limitations + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Identification of official authorisation obtained (if applicable) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Section 3: CRP authorisation + + + + + + + + Flight authorisation + + + Approved? + (circle applicable) + + + YES + + + NO + + + + + Date(s) approved for operations + + + + + + + + + + + + + + RPA types/models approved for operations + + + + + + + + + + + + + + CRP ARN: + + + Sign: + + + Date: + + + + + + + + RP ARN: + + + Sign: + + + Date: + + + + + + + + Section 4: Flight log + Part A + RP to complete before commencing operations. + + + + + + + RP + + + Second RP + + + Observer/crew + + + + + + + + + + + + + + + + Weather + (confirm that conditions meet manufacturer limitations) + + + + + + + + + + + Onsite validation of planning documentation completed + + + RP initials: + + + + + + + + Fitness for duty assessment and self-briefing completed + + + RP initials: + + + + + + + + + + + + Detail any omissions and errors in planning document here + + + + + + + + + Part B + RP to complete at the conclusion of operations. + + + + + + + Was the operation conducted IAW Sections 1 to 3 of this Flight Record? + + + YES + + + NO + + + + + If NO, record changes here + + + + + + + + + + + + + + + + General comments + + + + + + + + + + + + + + + + + + + + /9j/4AAQSkZJRgABAgEAyADIAAD/4gxYSUNDX1BST0ZJTEUAAQEAAAxITGlubwIQAABtbnRy + UkdCIFhZWiAHzgACAAkABgAxAABhY3NwTVNGVAAAAABJRUMgc1JHQgAAAAAAAAAAAAAAAAAA + 9tYAAQAAAADTLUhQICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAABFjcHJ0AAABUAAAADNkZXNjAAABhAAAAGx3dHB0AAAB8AAAABRia3B0AAACBAAA + ABRyWFlaAAACGAAAABRnWFlaAAACLAAAABRiWFlaAAACQAAAABRkbW5kAAACVAAAAHBkbWRk + AAACxAAAAIh2dWVkAAADTAAAAIZ2aWV3AAAD1AAAACRsdW1pAAAD+AAAABRtZWFzAAAEDAAA + ACR0ZWNoAAAEMAAAAAxyVFJDAAAEPAAACAxnVFJDAAAEPAAACAxiVFJDAAAEPAAACAx0ZXh0 + AAAAAENvcHlyaWdodCAoYykgMTk5OCBIZXdsZXR0LVBhY2thcmQgQ29tcGFueQAAZGVzYwAA + AAAAAAASc1JHQiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAPNRAAEAAAABFsxYWVogAAAAAAAAAAAAAAAAAAAAAFhZWiAAAAAAAABvogAAOPUAAAOQ + WFlaIAAAAAAAAGKZAAC3hQAAGNpYWVogAAAAAAAAJKAAAA+EAAC2z2Rlc2MAAAAAAAAAFklF + QyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAAFklFQyBodHRwOi8vd3d3LmllYy5jaAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAA + AC5JRUMgNjE5NjYtMi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAAAAAA + AAAAAC5JRUMgNjE5NjYtMi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAZGVzYwAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0 + aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAALFJlZmVyZW5jZSBWaWV3aW5nIENvbmRp + dGlvbiBpbiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHZpZXcAAAAA + ABOk/gAUXy4AEM8UAAPtzAAEEwsAA1yeAAAAAVhZWiAAAAAAAEwJVgBQAAAAVx/nbWVhcwAA + AAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAo8AAAACc2lnIAAAAABDUlQgY3VydgAAAAAAAAQA + AAAABQAKAA8AFAAZAB4AIwAoAC0AMgA3ADsAQABFAEoATwBUAFkAXgBjAGgAbQByAHcAfACB + AIYAiwCQAJUAmgCfAKQAqQCuALIAtwC8AMEAxgDLANAA1QDbAOAA5QDrAPAA9gD7AQEBBwEN + ARMBGQEfASUBKwEyATgBPgFFAUwBUgFZAWABZwFuAXUBfAGDAYsBkgGaAaEBqQGxAbkBwQHJ + AdEB2QHhAekB8gH6AgMCDAIUAh0CJgIvAjgCQQJLAlQCXQJnAnECegKEAo4CmAKiAqwCtgLB + AssC1QLgAusC9QMAAwsDFgMhAy0DOANDA08DWgNmA3IDfgOKA5YDogOuA7oDxwPTA+AD7AP5 + BAYEEwQgBC0EOwRIBFUEYwRxBH4EjASaBKgEtgTEBNME4QTwBP4FDQUcBSsFOgVJBVgFZwV3 + BYYFlgWmBbUFxQXVBeUF9gYGBhYGJwY3BkgGWQZqBnsGjAadBq8GwAbRBuMG9QcHBxkHKwc9 + B08HYQd0B4YHmQesB78H0gflB/gICwgfCDIIRghaCG4IggiWCKoIvgjSCOcI+wkQCSUJOglP + CWQJeQmPCaQJugnPCeUJ+woRCicKPQpUCmoKgQqYCq4KxQrcCvMLCwsiCzkLUQtpC4ALmAuw + C8gL4Qv5DBIMKgxDDFwMdQyODKcMwAzZDPMNDQ0mDUANWg10DY4NqQ3DDd4N+A4TDi4OSQ5k + Dn8Omw62DtIO7g8JDyUPQQ9eD3oPlg+zD88P7BAJECYQQxBhEH4QmxC5ENcQ9RETETERTxFt + EYwRqhHJEegSBxImEkUSZBKEEqMSwxLjEwMTIxNDE2MTgxOkE8UT5RQGFCcUSRRqFIsUrRTO + FPAVEhU0FVYVeBWbFb0V4BYDFiYWSRZsFo8WshbWFvoXHRdBF2UXiReuF9IX9xgbGEAYZRiK + GK8Y1Rj6GSAZRRlrGZEZtxndGgQaKhpRGncanhrFGuwbFBs7G2MbihuyG9ocAhwqHFIcexyj + HMwc9R0eHUcdcB2ZHcMd7B4WHkAeah6UHr4e6R8THz4faR+UH78f6iAVIEEgbCCYIMQg8CEc + IUghdSGhIc4h+yInIlUigiKvIt0jCiM4I2YjlCPCI/AkHyRNJHwkqyTaJQklOCVoJZclxyX3 + JicmVyaHJrcm6CcYJ0kneierJ9woDSg/KHEooijUKQYpOClrKZ0p0CoCKjUqaCqbKs8rAis2 + K2krnSvRLAUsOSxuLKIs1y0MLUEtdi2rLeEuFi5MLoIuty7uLyQvWi+RL8cv/jA1MGwwpDDb + MRIxSjGCMbox8jIqMmMymzLUMw0zRjN/M7gz8TQrNGU0njTYNRM1TTWHNcI1/TY3NnI2rjbp + NyQ3YDecN9c4FDhQOIw4yDkFOUI5fzm8Ofk6Njp0OrI67zstO2s7qjvoPCc8ZTykPOM9Ij1h + PaE94D4gPmA+oD7gPyE/YT+iP+JAI0BkQKZA50EpQWpBrEHuQjBCckK1QvdDOkN9Q8BEA0RH + RIpEzkUSRVVFmkXeRiJGZ0arRvBHNUd7R8BIBUhLSJFI10kdSWNJqUnwSjdKfUrESwxLU0ua + S+JMKkxyTLpNAk1KTZNN3E4lTm5Ot08AT0lPk0/dUCdQcVC7UQZRUFGbUeZSMVJ8UsdTE1Nf + U6pT9lRCVI9U21UoVXVVwlYPVlxWqVb3V0RXklfgWC9YfVjLWRpZaVm4WgdaVlqmWvVbRVuV + W+VcNVyGXNZdJ114XcleGl5sXr1fD19hX7NgBWBXYKpg/GFPYaJh9WJJYpxi8GNDY5dj62RA + ZJRk6WU9ZZJl52Y9ZpJm6Gc9Z5Nn6Wg/aJZo7GlDaZpp8WpIap9q92tPa6dr/2xXbK9tCG1g + bbluEm5rbsRvHm94b9FwK3CGcOBxOnGVcfByS3KmcwFzXXO4dBR0cHTMdSh1hXXhdj52m3b4 + d1Z3s3gReG54zHkqeYl553pGeqV7BHtje8J8IXyBfOF9QX2hfgF+Yn7CfyN/hH/lgEeAqIEK + gWuBzYIwgpKC9INXg7qEHYSAhOOFR4Wrhg6GcobXhzuHn4gEiGmIzokziZmJ/opkisqLMIuW + i/yMY4zKjTGNmI3/jmaOzo82j56QBpBukNaRP5GokhGSepLjk02TtpQglIqU9JVflcmWNJaf + lwqXdZfgmEyYuJkkmZCZ/JpomtWbQpuvnByciZz3nWSd0p5Anq6fHZ+Ln/qgaaDYoUehtqIm + opajBqN2o+akVqTHpTilqaYapoum/adup+CoUqjEqTepqaocqo+rAqt1q+msXKzQrUStuK4t + rqGvFq+LsACwdbDqsWCx1rJLssKzOLOutCW0nLUTtYq2AbZ5tvC3aLfguFm40blKucK6O7q1 + uy67p7whvJu9Fb2Pvgq+hL7/v3q/9cBwwOzBZ8Hjwl/C28NYw9TEUcTOxUvFyMZGxsPHQce/ + yD3IvMk6ybnKOMq3yzbLtsw1zLXNNc21zjbOts83z7jQOdC60TzRvtI/0sHTRNPG1EnUy9VO + 1dHWVdbY11zX4Nhk2OjZbNnx2nba+9uA3AXcit0Q3ZbeHN6i3ynfr+A24L3hROHM4lPi2+Nj + 4+vkc+T85YTmDeaW5x/nqegy6LzpRunQ6lvq5etw6/vshu0R7ZzuKO6070DvzPBY8OXxcvH/ + 8ozzGfOn9DT0wvVQ9d72bfb794r4Gfio+Tj5x/pX+uf7d/wH/Jj9Kf26/kv+3P9t////7gAO + QWRvYmUAZAAAAAAB/9sAQwAMCAgbChsiERckKiQcGyAkKygoICQpJSUxLyUpLiorKzkrKi4v + NDU1NTQvOzs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7/9sAQwENCwsQDhAbFBskMighKDI7NDIyMjs7 + Ozs7Ozs7Ozs7Ozs7Ozs7QEBAQEA7QEBAQEBAQEBAQEBAQEBAQEBAQEBA/9sAQwINCwsQDhAb + FBskMighKDI7NDIyMjs7Ozs7Ozs7Ozs7Ozs7Ozs7QEBAQEA7QEBAQEBAQEBAQEBAQEBAQEBA + QEBA/8AAEQgGpAiYAwAiAAERAQIRAv/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkK + C//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHw + JDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3 + eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY + 2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkK + C//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1Lw + FWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2 + d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW + 19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAAABEQIRAD8A9VooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK4Xxlcym8ito5HjEioPlYgZZ2GcAjNR6 + zBd+GAtyLhpQW2lZMkf3uhZuuDkggjt1rB17N6aLc9SnlPPGn76Upq8U0/ztY76iuD8b61J5 + dtNEzR+ajMQjEdQhAyMZxmm6zBd+GAtyLhpQW2lZMkf3uhZuuDkggjt1oliLN6aLr6hSyhzh + BuaUp3STvvF2eq0O+oqpb6irwrdt8qmMOe+AV3HoOcfSvOIdfuLdo7+SR9kkz5QE7dqld20M + cEfMQPQjrnpVSsoW8zLB5ZUxPOk7OOmvV6u34HqVFZ3iDUzpcD3CgEqBgHpkkKPyzn39RXKa + Lpl1r0f2o3bKWJG1M8Y45CsoB74x0we9OdW0uVK7Jw+B9pSdaUlGCdru7132R3lFUtGt5beF + I52DSKCCwOc8nHJAJ4xkmsrVfDU17K0qXLxq2MIu7AwAOzjrjPSm5OyaRlTo03UlGU0kr62b + T+5XOiorzTwva3Ou7/8ASZE8vb/EzZ3Z/wBoelTa4lxZzwWInkyyqC4ZhkvIwyRu5wCB17Vk + sQ+XmtoehLJoqs6PtFzLVqz0VrnotFcxZ+E7iB1ka7kYKwJU7sEA5I++evSqfiHxFNdzjTLM + gMSQz5HpkgHnG0dSPmyMDGObdXlV2rHNDL1VqctOakkm27NJJd7o7OiuYs9EvNNdWWczIWG9 + ZM5xnGRkt0BJ6joPvdKpeJr+SG/t4ldgjeVlQxCnMhByAcHIodXlV2rBTy9VanJCakrN316d + GnZnaUVi+Mrhre0kdCVYbMFSQeXUdRWL9vk/srz97eZ/e3Hd/rsfeznpx9KcqqjJrsrk0MBK + tSjUT+Kah82r3O0orzzwXrsscyx3DsUnQ7N7bhkMQDknIyVYY7nHHQ1f+3yf2r5G9vL/ALu4 + 7f8AU5+7nHXn61EcQnFO27sb1cnqU6s4cy92DnfvbdfedpRXF/b5P7V8je3l/wB3cdv+pz93 + OOvP1pfEPiKa7nGmWZAYkhnyPTJAPONo6kfNkYGMcv26s352IWVVHOEU1ZwU23sk+52dFcxZ + 6Jeaa6ss5mQsN6yZzjOMjJboCT1HQfe6Vta1qP8AZ0MlxxlFOMgkZPCjj1JAq1PRtq1jnqYZ + KcYwkp821r/inqXaK820HVp7K4t/OkkZbheVYk/fZkX7x9QGyMcHjPfoviDePa26tGzKTKBl + SVONrcZFRGunBytsdNXKZwxEKPMnzbPpu1+h09FUtEkMlvEzEkmJCSeSSVGTmrtap3Vzz6kO + STj2dgori/DN/JNf3ETOxRfNwpYlRiQAYBOBgV0uuauukxNcNzjgDIBJPQc/meuACcHFRCqp + Rcux04jAzpVo0lq5JWt5l+iuH07Tb3Xl+1STtCrfcVARkcnOAy8c8E5JHtglqapdeHbiO2uH + EkLnAZuOC2NxcjOV6kEkAHGehE+32bTS7nQ8qu5QjUjKa3ir9N7O1mzuqK5bxf4klsnSytx+ + 9l2kMcd2wAM8ZJHJPAH1yK58J3kil2u2Ehydql9mecDIIwPovHYU3V1aSvYzp5evZxqVJqCl + te7b87JaI7Gis7Q1uEQrdFWcMcMvQjAIPQdCSOg6fidGtE7q5x1IcknG6duq2CiiimQFFFFA + BRRRQAUUUUAFFFUNQ1cWbxw7Wd5d20Jt/gAJ5ZlHQ0m0iqdOVR2W/wDlqy/RVTT9TW93AAq8 + ZwyNgMp7ZwSMEcggkEdDVuhNMJwlB2ejCimySCMFmIAAySeAAOpzRHIJAGUggjII5BB6HNMV + na46iqWr6smlp5rhiM4AQZJ4JP5AEkkjgVbjkEgDKQQRkEcgg9DmldXsN05KKlbR7MdRRVTV + dTXTImuHBKrjIXBPJA7ketDaSuEISnJRWreiLdFVdN1FNRjW4jztccZGDwcEfgRj+VVNF8Rx + ayXEW7EZGSwwDnOCOc9u4FLnjp57F/V6lpuz934vLW2vzNWiiq8N35rvFtYeXt+YjCtuGflP + fHf0NVczUW032LFFFRxXCzZ2kHaSDgg4I6g46EelAWe5JRRRQIKKKKACiiigAooooAKKKKAC + iiqH9qf6T9j2/wDLHzN2f9rbjGPxzn8KTaRUKcp3t0Vy/RVLVNVXTghYMxkdUULjOWzj7xA7 + etNg1cPIIHVo3YZUPt+YDrgqzAkdxnOOcYpcyvYtUKjjzW0/y308i/RRWdqWqm1kit0UM8xf + G5tqgIuTkgMfpx+IptpK5NOnKpLlW+r+5Xf4GjRTYySBuwDjkA5Ge/OBn8h9KdTIYUVHLcLD + jcQNxAGSBknoBnqT6VJQOz3CiiigQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAefeN1dr6ERkByse0noD5jYPQ9/Y1V1 + h54p44dTYtBnOUACnj/ZCk4PB43AZx1Gel1vw1Jf3cV4pUJFsyCTu+VyxxgEdD61c8V+H/7a + i2LgSKQVJ4HoQTgnBHp3ArklRk+d+fyZ9DQzGjBYeDtblabt70W+qfQ5v4mxiMQKoAAEgAHA + AGzAxU2oaXqHiDbDcKkUancSCDz06BmOQCcDgep6VPrvhS51WKBGZPMiDBiWbBztAOcEk4HO + e9djVKlzzk3dJ2MZ5gsPh6MYcspxc9XrbXRr187nKeOb5dLtRapkGQBFAJ4VcZ55zxhSCec9 + +a5a91y3msksVEm+MhgSF27iTu5znHzHHGeme9ddrfhqTVbqOZivkRbflJLE4O4/LjHzcA89 + BnnpXSSRiQFWAIIwQeQQeoxRKlKcpdFsFHH0MLRpKznK/O7O1nsujvoc/wCFpU1myWKQBgo8 + thg4+Xp+OMHI79MHpg3/AIQn0JWubSU7VyzL904XkZ/hfAznIHsDnFX9I8GzWiy2zSDypMFW + QtvVkYFWweB0+bBzwADxmifw9qE6m3a4UxH5ScfOV9/lySR1G7noTUuLlFXi7pbo1p1oUq9R + wqx9nKV3GSbTW/bfpbR6I1/COtNq8Akf76kqxxgEjBz+IIz05zgYraqhoekLpMS26845JwAS + T1PH5DrgADJxV+ummmoq+542LlTlWm4aRu7ehwfwu/5b/wDbP/2eovG8JnvoY1YqWWMBh1BM + jAHt061t+DPDUmieZ5pU+ZsxsJP3d2eoHrUXifwvPqNwl1AyKY1XG4nOVYsDjaR3Fc3s5ewU + ba3/AFPb+uUf7UqVVJcrjZPpflS/Ms6V4amspVle5eRVzlG3YOQR3c9M56Vi+Gf3OpXCtwW8 + 3APBOXDDGeuRz9OelatnYakrqZJoygYbgAMkZ5H+rHb3FHiLwe17J9st3Mc2OeSAeAM5HK/L + xwDnjpyTTi7JxT0d7MxhXjzzhVqRfPDlUorRO91eyR09efeN4TPfQxqxUssYDDqCZGAPbp1r + as9AvLh1e7nBWNgwWMYDEHIz8qjggdj3xjrS634akv7uK8UqEi2ZBJ3fK5Y4wCOh9adXmqQ2 + 6mWAdLCYi7mn7r1V7X6LVa/cYviTw1NZW7yvcvIq7co27BywHdz0znpUn/MH/wA/8966nxJp + janbvboQGbbgtkDhgewPpWZ/wjUn2D+z8r5nrk7f9Zv64z09utTKjaUrLTlf3m1HMVUoUvaS + XMq0Xsl7qW+iRzU9kVsLe+j4kgdueOhkbBOeuGxge54qxYXq32qrOn3XAI6f88OhxnkdD6Gu + s0PRTaWospsNw4baTghix68HoawPD/gaXS7lbgshRC3TO4gqQOMY788/ial0pJwsu1/kbxzC + hOOJUpa2qKL7qTv+a/Eh/wCYx/n/AJ4UeGf3OpXCtwW83APBOXDDGeuRz9Oela3/AAjUn2/+ + 0Mr5fpk7v9Xs6Yx19+lJ4i8HteyfbLdzHNjnkgHgDORyvy8cA546ckv2cld22k38jN4yhLlp + uVlKjGN+0l3OnrifiVquxEswTljubBI4GQAexyeevG3p0q/Z6BeXDq93OCsbBgsYwGIORn5V + HBA7HvjHWl/4RqSe9+3ylfLX7q5LHgYXqABz83GcH860qOc42Stc5MFHD4WuqkpqXKm9L2b6 + K7Xz2sjkfEuuW+oxRQwiQGAbRvC4K4A5wTz8o9B1ra8Y6j/aNhDccZd1zgEDIVww59CCK7DU + 7EX8TwHGHUjJGcE9Dj2PIrjz4LumtvsbPGQsodfmfgbWDD7vqQQAO5JrKdKa5ut1+R24bHYa + oqTfuOnO9m73Ut9bLqdXoH/HtD/1xj/9BFX64630bU7dVjWaMKoAAwDwBgdY67GuinJtWs16 + nj42jGE3JTjK7b92+nrdI4Pwn/yEbn/tt/6NWtH4kxlrZSASFlUnHYbWGT+JA/Gqh8J3ltcS + 3VvJGpkZ+uScM27GChHpWtZ6NcXcclvfurq4Xb5fBGCSTwq98Eden54xjJwcLPW+vQ9WvWpR + xNPEqcWoqN1rfs+lvxL/AIdkEltCQQR5SDjnkKAR+BGDXKfEz960ES8v8/yjlvmKgcdeSDj1 + qzb+Fr7S/wB3bXC7MdHGMHJ6KQ4HXPGM9xxVzRPB5hlN7dsJJicj+6D684zgYxwAvYcAhyU6 + kOS1u5nRlh8LiHiVUUkruKV7tu+90rbmRcv9m1cO+QGKgEg87otgx/wLjP8AhW54oW8jzPbS + KsUcZLAgFiVyTjKHtjuKseJPC0etqMnbIvRwM8dwRxkenPB6dwcU6BqRjMBnQowIO4liQ2c/ + MYye/r9KTjKPMrOzd00OFajXVGfNFShFQlGauml1WjNLwPqsupwtJM25hIQDgDgKp7AetdFW + R4a0H+xIzDu35ctnbt6gDGMn0rXrekpKCvueZjp0p4ibp/DfSyt+AUUUVZzBRRRQAUUUUAFF + FFABXO6+zLd2hQAt+/wGJUfcHcBv5V0VV5rFJnSZhl4t205PG4YPHQ5HrUzi5K3p+ZvhasaU + +Zq6tJffFr9TDmtvsG+4uC3mXUsa7IGIzgFUUMdp6cscrnGOnDSeHbl2nuITvCxmIqsjb2Xc + pz825uuM43HHtzWxe2KXqhJBkAgjkggjoQRgg+4NRafo0WnlmiUgyEFiWZiSM85Yn1NR7NqS + tt/w5u8XCVGalfmaSXZWcbdeiVtm/M5nT7c3mnNcSvIz+VN1kcDjdgYBAPT+LPp0wB0HhuAR + W0WM/NGhOWLclR0yTgew4HYVZtdNjtY/syKPLAI2nLDDEkjnOc5706ysVsl8uPO0dAWZscYw + NxOBx06UQpuLT8rBisYqsZxV0nNyS8uxh31+s955LqzRwxHIVJHG+TjDBQQfkzjIxye/S14R + nZoBFJnfCShypXgYKkAgHG0jqAfUVpW9iluzuo+aQ5YkkknoOTngdh0HYUQ2KQu8yjDy7dxy + edowOOgwPSnGElK4quJpSpezSeiVvVb+id336DXu2V9gjcjI+YGPbz35cNx34+may/HP/HnL + /wAA/wDQ1reqvfWKX6GGUZRsZGSOhyORg9RTnFuLXcyw1aNOtTm1pFpu3Wz82c5f6gdNeayD + ANcFTCMvkGYlHO7B24bL4HqcdeJNLVLKe8AJRI0g5HJULEeeQc4A7g/jW/NYpM6TMMvFu2nJ + 43DB46HI9aaumxq0km0ZmAD5yQwUYAweOnHv3qfZu9+z/R/5nR9dp+zcbO7ik/NqUf0j1vq3 + 0Oetr4i4tvLEqxzrIT5sm8MNgZSAXfGPwPOPWq2u38kX27a7Dy/s23DEbd2M454z3x1robbw + 5BbOsyqd8YwpLu2BgjADMRjBPFSXGhQ3Pmb1z5+zfywzs+70PGPbHvUulNxa/ra35mscdh41 + Yys2kktVrpNS6t/Z03+5GdCGivGtd7lHttx3Oc7t+3cD/Dwei7R6AYGKWh/6DHeXC5LRzT4D + MxX5QCMgnk8cn7x9a6X7CnmfacfvNmzOT93OcY6dfbNNt9Njt3aVAQXJLYZtpJxk7c7cnHJx + n3qvZu/3mP12HK1rqo382nrf1Rz2mm4cQToJSXKmUySIYyr8sQu/jH8OFXjgg9Kbeu8sl987 + gQxoyBXZQD5ROeCD1HTOD3BOMb0GhxQEFQQAchd77Ac54TdtGDyOODyOakbSomMjFeZwA/J5 + AG0d+OD2xS9lKyX9bGjx1PnlK3Sy0/vJ930TS+7Yym1ASxWwk8xpJkBCxNsLEIGZiQyYx6bg + OehwMVtOvpHtbsksDE86rubLqFXIG7JJIJ65PscYrcl0aKRUQqQIhhCrMrKMbcBgQ3Trzz3p + tpoUNpG1tGuI5M7hljncMHknPT3o5JX/AK7ErFUFC1nunsrfE3pr2stu+tjDsJnhksvndvPi + cvuYsDiNWHB4GD3ABPckkk29KDao88ru4MczRoEcqqhMYO0cMSTk7gwPTGOK1V0qJTGwXmAE + JyeARtPfngd802bRopnMpU7mADYZgGA6BlBAbrj5geOOlNU5L+vIU8ZSl0adrXsv5m+/ZpfK + 2xzouJ9RNw6CUvHKyRmN1WNfL6ZVnG7J+9kNkcDHSups2dkUyAByo3AdAccjqe/uagm0eOZz + LhgzAAlHdM46Z2MM4z1P0q3HGIwFUAADAA4AA6DFOEHF6mWKxEKsUoq1vLyXW/6LuchNqeTB + PAZdslwql3fKOCWVvk3nGcZHyLjtjgVo3Ia4vvILuI/s24qrlQT5mM8YI+oIPGM4yDbHhi3D + K+w5jbco3vtUk7uF3bRz2AxV37CnmfacfvNmzOT93OcY6dfbNSqcuvkb1MZRv7qe0ld76vTq + 9vl5I5a31aWSyt8ud08yxM/8YUswyD/ewMZOT3681dtrb7PqG0FiPsvG5ixH7zpk5J9eSeuO + mANdNGhSH7GFHlYI2kk9TnqTnryDnjtRbaNFbP56qfMK7SxZmJGc8lic/U84AHQYoVOWl+lg + njaL9pyprm5rKy6vS+ultuv4md4s/wCXb/r7h/8AZqd4mTzmto1xu+0o2MgHCBix59B/T1Fa + V/psd+AsgJCsGGGZSCM4OVIPGaLbTY7Y71BLYxuZmdsem5iTjvjOM84qnBtvszKniYQhDfmj + f01+f6HNC4n1E3DoJS8crJGY3VY18vplWcbsn72Q2RwMdKk1C0M1zZmXcHkWTeFkcAERjIXD + fLz/AHTz3zW9No8czmXDBmABKO6Zx0zsYZxnqfpT202Nmjk2jMIITGQFDDBGBx049u1T7J9e + /wCpr9fgmnFW91rRa6xtvfa+uy77nNC4n1E3DoJS8crJGY3VY18vplWcbsn72Q2RwMdKumeS + 9uI7WUlALcSOsbFcuTtILKc7RzgA9epNas2jxzOZcMGYAEo7pnHTOxhnGep+lOuNKiuAgK48 + v7hQlCvGMAqQQMcY6UKnIUsbSdtLaaaap2tpr/l33MPxTYBfswLOf9JiXl26EsexHI6Bvver + E80/XhJZusxEj2qREMI5GV1IP3zhlZuMDknHLHHfZl0qKZBCy/KpDDkhgwOd24HduzyTnJyc + nk0250eO5G1w2Nu04dwSPRiGBbqfvZ6n1NN03rYVPGwXIpXaV7+j6rVWf9ak9nKJkV1JYMoI + YjBIIyDjA6/QfSpqbHGIwFUAADAA4AA6DFOrVHBJpt22CiiigQUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRXin/C67z+5D/3y/8A + 8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67 + z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXX + ef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxy + gD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wAL + rvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ + ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAP + a6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C + 67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH + /vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMco + A9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8Lrv + P7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8A + vl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA + 9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D + /wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3I + f++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2u + ivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7 + kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/7 + 5f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8 + U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+ + 5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl/ + /jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9ro + rxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP + /fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl// + AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9ror + xT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8 + v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X + /wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP + +F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A + 3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A + +OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4X + Xef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3 + y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH + /C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/ + AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorl/h54ol8SW7XEwUMspUBAQMBVPctz81d + RQAUUVieM9bfRLSS8iCl49mA4JX5nVTnBB6H1oA26K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/ + 98v/APHKAPa6K8U/4XXef3If++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hdd5/ch/75f/45 + R/wuu8/uQ/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa6K8U + /wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/4XXef3If++X/APjlH/C67z+5D/3y + /wD8coA9rorxT/hdd5/ch/75f/45R/wuu8/uQ/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCO + Uf8AC67z+5D/AN8v/wDHKAPa6K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/ + 4XXef3If++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hdd5/ch/75f/45R/wuu8/uQ/8AfL// + ABygD2uivFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa6K8U/wCF13n9yH/vl/8A + 45R/wuu8/uQ/98v/APHKAPa6K8U/4XXef3If++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hd + d5/ch/75f/45R/wuu8/uQ/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v + /wDHKAPa6K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/4XXef3If++X/APjl + H/C67z+5D/3y/wD8coA9rorxT/hdd5/ch/75f/45R/wuu8/uQ/8AfL//ABygD2uivFP+F13n + 9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa6K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/ + APHKAPa6K8U/4XXef3If++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hdd5/ch/75f/45R/wu + u8/uQ/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa6K8U/wCF + 13n9yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/4XXef3If++X/APjlH/C67z+5D/3y/wD8 + coA9rorxT/hdd5/ch/75f/45R/wuu8/uQ/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCOUf8A + C67z+5D/AN8v/wDHKAPa6K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/4XXe + f3If++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hdd5/ch/75f/45R/wuu8/uQ/8AfL//AByg + D2uivFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa6K8U/wCF13n9yH/vl/8A45R/ + wuu8/uQ/98v/APHKAPa6K8U/4XXef3If++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hdd5/c + h/75f/45R/wuu8/uQ/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDH + KAPa6K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/4XXef3If++X/APjlH/C6 + 7z+5D/3y/wD8coA9rorxT/hdd5/ch/75f/45R/wuu8/uQ/8AfL//ABygD2uivFP+F13n9yH/ + AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa6K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHK + APa6K8U/4XXef3If++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hdd5/ch/75f/45R/wuu8/u + Q/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa6K8U/wCF13n9 + yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/4XXef3If++X/APjlH/C67z+5D/3y/wD8coA9 + rorxT/hdd5/ch/75f/45R/wuu8/uQ/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCOUf8AC67z + +5D/AN8v/wDHKAPa6K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/4XXef3If + ++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hdd5/ch/75f/45R/wuu8/uQ/8AfL//ABygD2ui + vFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa6K8U/wCF13n9yH/vl/8A45R/wuu8 + /uQ/98v/APHKAPa6K8U/4XXef3If++X/APjlH/C67z+5D/3y/wD8coA9rorxT/hdd5/ch/75 + f/45R/wuu8/uQ/8AfL//ABygD2uivFP+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHKAPa + 6K8U/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHKAPa6K8U/4XXef3If++X/APjleh/DzxRL + 4kt2uJgoZZSoCAgYCqe5bn5qAOoooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr56+H + Fol3fwxSqrofMyrgMpxGxGQeOtfQtfP/AMLf+QjB/wBtP/RT0Aeh6jqenWVw9gLEyyxgEiG2 + ifghTnqDj5gDx1q14bm0zX2eKO2jSWIkNHLBGrjHBOADwDwe4PUDIzhNez2mt3L20PnOYUBX + zFjwNsPzZbjrgY9/atP4foNVubnV5CFnY+W0IyDGF2gbtwBLHYORgcHvlVAKNv4o025Rp49P + do0zuZbSIqMDJywOBgcn2rqNH03TdYj8+3hgdMkZEKDBHUEFQQfqOmD0Irhfhp4obSbSSNLe + eZjKzAxR7kzsQBSw6Hjng4BBweldF4fsX8DaZLLMV8z5pMYJUMyqqIdp55AyRgcnnA3EALbU + 9Kurw6UlshkDMu7yIwmUUlhk88YI6denHNdL/wAInZ/8+8P/AH5T/wCJryAwxabYWt5FIjXM + NwZTGZY2wGK4+QHd/wAs0yAcjLZx/D7faXS3aLNGcpIoZTgjIYZBweelAHMXMenW93HpZtY/ + NlQsCIYtmAGPJ65+Q9j2rP1HU9Osrh7AWJlljAJENtE/BCnPUHHzAHjrTNZ/5D1r/wBe7fyn + o0b/AJD11/17r/KCgC74bm0zX2eKO2jSWIkNHLBGrjHBOADwDwe4PUDIzV1HU9Osrh7AWJll + jAJENtE/BCnPUHHzAHjrUPxAiEGoadcJkSPLsJBIyodPl69PnYH1BwciqTXs9prdy9tD5zmF + AV8xY8DbD82W464GPf2oA25JrCG1fUJbHy0iYArJbRrIclQCFPBGW657GpfCx03xKjSwW0Q2 + Ngq8MQbpkHA3cHnB7kH0qLx7cSXOkyyTx+VIdmU3h8YmUD5hwcjB/HFYPheU+Grm2JwINSto + BwAMSqigcAEkknk/KCZMnO0mgDb0u707VLZ7+GyDLG+0otvE0hPy9FGcgbs9egNZ6eI9OeQ2 + 406QyqMlBaRFwOOSucgcj8xVj4Kf8ecn/Xw3/oEdGjf8h66/691/lBQBd1CTTrBrZJLRQ14Q + EBgiBUnaMODjBG8Zxnoai16707R51sjZCSV03AQ28T5GWHTg5G0k8dKr/Ef/AI/NN/6+P/Z4 + aqeLdQ/s/WbafY8m23PyxLuc584cLkZxnJ9s0AaDX1hFBLeS2DRpBsyJbWNGbe20bc8HB68j + GRWsLDTVtxqDwQpE0avl4Y8gMAQCADzzjAzk8DNYnjXX/wC19Ouf3M0Wzyf9fHszmVenJzjH + PpkVleJP9Jh0eyfmKbyd69M4WJRyORw7Dgjr7CgDSl13TYh5jWDCHI/fGzQRbWIAfPXacgjj + J9M8V0GtaVp+jwvdzW8WyMZOIUJOSAABjqSQOw9SBzXR1518U7tLyW10t2VUeQSSkkIVUZUE + O3y9N/HJyBxyAQDY8Lx6d4kiNxDaxhVcqQ8MQOQAe27j5qydY1vTtIZhNp7BVcqHNrEEYjP3 + WJGQcZHqOai8KajFY6tc28Tq8V4PMVlYPlxlyuUJAAy/Dc4C88jdY+Nf/HnH/wBfC/8AoElA + F2z+w3EU1w9gYlt0LETWsaFgAxO3PUjb7dRVvRrPTtVtxfrbxJEwY5kiiXAQkEnqAOCevStL + xZ/x53P/AF7zf+gNXmGp3TQ6BbopwJJircDkB5Xx7cqDx6elAHRTa7poUyx2DSQgE+bHZp5Z + A+8ctt4HIOQOQa2IItLurd9QihheKNXJ2wpu+QZIwygg46A46g9DmultLVbRFhjGEjUKoyTg + KMAZPPSvLfDUQtYtYtUyIohKEXJIHEy9yecKAT1OBmgDoPCt/pfiVnSG2jVowCRJDECQcjIA + LZA7+mR61b0SPTtYlnt47WMNavtctDEATlhxjPHynrjtXCeHZT4bSx1gYEMokhmwAOsrkMSA + WJwM8DOIwueQK6j4cf8AH5qX/Xx/7PNQB1X/AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8A + E1V8FaRc6VC0V5J5shkJDb3fClVAGXAPUHjpzXQUAZP/AAidn/z7w/8AflP/AImj/hE7P/n3 + h/78p/8AE1rUUAZP/CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E1rUUAZP/CJ2f8Az7w/9+U/ + +Jo/4ROz/wCfeH/vyn/xNa1FAGT/AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h/wC/Kf8AxNa1 + FAGT/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNa1FAGT/widn/z7w/9+U/+Jo/4ROz/ + AOfeH/vyn/xNa1FAGT/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TWtRQBk/wDCJ2f/AD7w + /wDflP8A4mj/AIROz/594f8Avyn/AMTWtRQBk/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn + /wATWtRQBk/8InZ/8+8P/flP/iaP+ETs/wDn3h/78p/8TWtRQBk/8InZ/wDPvD/35T/4mj/h + E7P/AJ94f+/Kf/E1rUUAZP8Awidn/wA+8P8A35T/AOJo/wCETs/+feH/AL8p/wDE1rUUAZP/ + AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE1rUUAZP/CJ2f/PvD/35T/4mj/hE7P8A594f + +/Kf/E1rUUAZP/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNa1FAGT/AMInZ/8APvD/AN+U + /wDiaP8AhE7P/n3h/wC/Kf8AxNa1FAGT/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNa + 1FAGT/widn/z7w/9+U/+Jo/4ROz/AOfeH/vyn/xNa1FAGT/widn/AM+8P/flP/iaP+ETs/8A + n3h/78p/8TWtRQBk/wDCJ2f/AD7w/wDflP8A4mj/AIROz/594f8Avyn/AMTWtRQBk/8ACJ2f + /PvD/wB+U/8AiaP+ETs/+feH/vyn/wATWtRQBk/8InZ/8+8P/flP/iaP+ETs/wDn3h/78p/8 + TWtRQBk/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E1rUUAZP8Awidn/wA+8P8A35T/AOJo + /wCETs/+feH/AL8p/wDE1rUUAZP/AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE1rUUAZP + /CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E1rUUAZP/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/v + yn/xNa1FAGT/AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h/wC/Kf8AxNa1FAGT/wAInZ/8+8P/ + AH5T/wCJo/4ROz/594f+/Kf/ABNa1FAGT/widn/z7w/9+U/+Jo/4ROz/AOfeH/vyn/xNa1FA + GT/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TWtRQBk/wDCJ2f/AD7w/wDflP8A4mj/AIRO + z/594f8Avyn/AMTWtRQBk/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATWtRQBk/8InZ/ + 8+8P/flP/iaP+ETs/wDn3h/78p/8TWtRQBk/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E1 + rUUAZP8Awidn/wA+8P8A35T/AOJo/wCETs/+feH/AL8p/wDE1rUUAZP/AAidn/z7w/8AflP/ + AImj/hE7P/n3h/78p/8AE1rUUAZP/CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E1rUUAZP/CJ + 2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNa1FAGT/AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h + /wC/Kf8AxNa1FAGT/wAInZ/8+8P/AH5T/wCJriPi7odvYWiPDFGjGdQSiKpxsc4yAOOK9Nrz + /wCNf/HnH/18L/6BJQAfBT/jzk/6+G/9Ajr0CvP/AIKf8ecn/Xw3/oEdegUAFcp8Uv8AkHT/ + APbP/wBGpXV1ynxS/wCQdP8A9s//AEalAHFfBrSYdQ+0efGkm3yseYitjO/OMg4zgV6V/wAI + nZ/8+8P/AH5T/wCJrgPgZ/y9f9sf/aleq0AZP/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/x + Na1FAGT/AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h/wC/Kf8AxNa1FAGT/wAInZ/8+8P/AH5T + /wCJo/4ROz/594f+/Kf/ABNa1FAGT/widn/z7w/9+U/+Jo/4ROz/AOfeH/vyn/xNa1FAGT/w + idn/AM+8P/flP/iaP+ETs/8An3h/78p/8TWtRQBk/wDCJ2f/AD7w/wDflP8A4mj/AIROz/59 + 4f8Avyn/AMTWtRQBk/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATWtRQBk/8InZ/8+8P + /flP/iaP+ETs/wDn3h/78p/8TWtRQBk/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E1rUUA + ZP8Awidn/wA+8P8A35T/AOJo/wCETs/+feH/AL8p/wDE1rUUAZP/AAidn/z7w/8AflP/AImj + /hE7P/n3h/78p/8AE1rUUAZP/CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E1rUUAZP/CJ2f8A + z7w/9+U/+Jo/4ROz/wCfeH/vyn/xNa1FAGT/AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h/wC/ + Kf8AxNa1FAGT/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNa1FAGT/widn/z7w/9+U/+ + Jo/4ROz/AOfeH/vyn/xNa1FAGT/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TWtRQBk/wDC + J2f/AD7w/wDflP8A4mj/AIROz/594f8Avyn/AMTWtRQBk/8ACJ2f/PvD/wB+U/8AiaP+ETs/ + +feH/vyn/wATWtRQBk/8InZ/8+8P/flP/iaP+ETs/wDn3h/78p/8TWtRQBk/8InZ/wDPvD/3 + 5T/4mj/hE7P/AJ94f+/Kf/E1rUUAZP8Awidn/wA+8P8A35T/AOJo/wCETs/+feH/AL8p/wDE + 1rUUAZP/AAidn/z7w/8AflP/AImuSi8Q6S91/ZxtVEnmmPcbeLZuDFRyMnBPAOO/OBnHodeG + X2ltcnUrmPIltbtZFKjLgeZKGww5UDIYn/Z59QAel+IrPTtAhN1NbxbQQAFii3Ek4wAcZPfr + 0BPaovC8eneJIjcQ2sYVXKkPDEDkAHtu4+asS51tfFd7YRJny0QXEgjfeFfGVVsDAKMoUk4P + z4G0nl/wfultLCaaQ4SOaRmOCcBY0JOBz0oAtajqelWF2umNbIZWZFysEe0GTGAScHoQTgHg + +uRXS/8ACJ2f/PvD/wB+U/8Aia8gEMWpWF1eSyItzNcCURiWNchS2fkJ3f8ALR8AnJwuM/xe + xeGtYGsW0V2MZkQFsAgBhw4APOAwI/qetAGL4Xj07xJEbiG1jCq5Uh4YgcgA9t3HzVnzarpp + Yi3sjcKpIL29ojoGHVdxAyeh4yMEEGuX8O3TWuh3bocEzFegPDiJGHPqCR/LmvSvBNqtrY26 + IMAwo3UnlxvY8+pJP8uKAM/w9FpfiBDLbwwnbjcphQMpIzgjb+oyCQcE4rn7fxRptyjTx6e7 + Rpncy2kRUYGTlgcDA5PtVjw3ELTW7yGPIRog5XJwWby2LYJ65dsemSBgVzvgTxHdaLYTSQW/ + mxrI7GTzAAp2IOYwNxA4JII4zyME0AegaFYabrkQuYIISrdQYY9ynupGOCP/AK4yCCaPiaTT + vDzRJJaK7TlggigiY5XaMYOOTuGMZq38ONGj0uzQRSCUSkyFl+7kgAgZAOBtxzzkHIH3Rj/E + f/j803/r4/8AZ4aAH6fq2mXM62UlmIJJBlRcW0ce7nAA68nnHYkYBzgG14mk07w80SSWiu05 + YIIoImOV2jGDjk7hjGaf8WLVZtPkdhkxtGy8nglwmffhiOfX1rl/Fl1IV0eYAyS4RgC2C7fu + Tgse7HufqaAOo0SKz1VzF/Z7RYUndPaIinBAwDzzz09AazG1vTjLLbx6e0jQOVcxWsTgEEjs + ehwcZxXW6FqNzebvtNv5G3bt/erLuznP3QMYwOvXPtXAeFdf/si81D9zNLvuD/qI9+MPL15G + M549cGgDd1S707S7ZL+ayCrI+0I1vEsgPzdVOMA7c9ehFP0t7PUJFg/s5492fmltEVBgE8tz + jOMD3xWT8VtQ/tDTop9jx7rgfLKu1xhZByuTjOMj2xXYaJqt3duUubXyUCkhvOSTJyPlwoz0 + yc+3vQBj6xLpunSfZharNMACY4LZJHVT/EeAAOnfPIOMHNRWd3p93HLItifMtygeE2qed8+N + pC9weT1zgE4xjNf4O/6TDPevzLNcNvbpnChhwOBy7HgDr7CvQKAPN08R6c8htxp0hlUZKC0i + Lgcclc5A5H5iruoanpdmUh+yK88iq3kx2yNKoZS3zLgAEAcrnI64xzUWjf8AIeuv+vdf5QUe + J9CvdLvG1nTwsm+MLJG3JOFwcL8pIwikANuLdiOKANjQLLT9cjM0dtGux2RlkgRXVl6qRg88 + jueuDzkDS/4ROz/594f+/Kf/ABNVfCHi9fESuNjRywttkjbJKkk45wPQ5GAQQQR0J6CgDJ/4 + ROz/AOfeH/vyn/xNH/CJ2f8Az7w/9+U/+JrWooAyf+ETs/8An3h/78p/8TR/widn/wA+8P8A + 35T/AOJrWooAyf8AhE7P/n3h/wC/Kf8AxNH/AAidn/z7w/8AflP/AImtaigDJ/4ROz/594f+ + /Kf/ABNH/CJ2f/PvD/35T/4mtaigDJ/4ROz/AOfeH/vyn/xNH/CJ2f8Az7w/9+U/+JrWooAy + f+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJrWooAyf8AhE7P/n3h/wC/Kf8AxNH/AAid + n/z7w/8AflP/AImtaigDJ/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35T/4mtaigDJ/4ROz/AOfe + H/vyn/xNH/CJ2f8Az7w/9+U/+JrWooAyf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJr + WooAyf8AhE7P/n3h/wC/Kf8AxNH/AAidn/z7w/8AflP/AImtaigDJ/4ROz/594f+/Kf/ABNH + /CJ2f/PvD/35T/4mtaigDJ/4ROz/AOfeH/vyn/xNH/CJ2f8Az7w/9+U/+JrWooAyf+ETs/8A + n3h/78p/8TR/widn/wA+8P8A35T/AOJrWooAyf8AhE7P/n3h/wC/Kf8AxNH/AAidn/z7w/8A + flP/AImtaigDJ/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35T/4mtaigDJ/4ROz/AOfeH/vyn/xN + H/CJ2f8Az7w/9+U/+JrWooAyf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJrWooAyf8A + hE7P/n3h/wC/Kf8AxNH/AAidn/z7w/8AflP/AImtaigDJ/4ROz/594f+/Kf/ABNH/CJ2f/Pv + D/35T/4mtaigDJ/4ROz/AOfeH/vyn/xNH/CJ2f8Az7w/9+U/+JrWooAyf+ETs/8An3h/78p/ + 8TR/widn/wA+8P8A35T/AOJrWooA8y+Luh29haI8MUaMZ1BKIqnGxzjIA44q78FP+POT/r4b + /wBAjo+Nf/HnH/18L/6BJR8FP+POT/r4b/0COgD0CiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACvn/AOFv/IRg/wC2n/op6+gK+avC32n7Sn2L/j4+bZ93+6d33/l+7nr/ADoA9t0/ + wvLb6nPqhK+VLEFABO/IEY5GMY+Q9z2otvC8thqDX8BUQTp+9Qkg7xnDKqgLnIBJYk/M/rXJ + f8VH/n7LR/xUf+fstAHW/DzwvL4bt2t5ipZpSwKEkYKqO4Xn5aPiD4euPEEC2tuyqC4Zy7su + QoOFwqtkZOecYKjg9uS/4qP/AD9lo/4qP/P2WgDstb8DWt7BJDHBEsjIwRgiphsfKdyjIAOM + +o4II4qx4O0ubSrVLW4Ks8eQGVmYFc5X7yqRgHaByAAMHsOF/wCKj/z9lo/4qP8Az9loA63U + PC8txqcGqAr5UURUgk78kSDgYxj5x3Hes+78L31vqE2qWhgxKiriYydAqA8KOuU45PFYX/FR + /wCfstH/ABUf+fstAHVaL4SlNwNUv5FkuFUqixjbGgJbgHgtw2BuHGTnccEUrvwvfW+oTapa + GDEqKuJjJ0CoDwo65Tjk8Vhf8VH/AJ+y0f8AFR/5+y0AdVrGiXmt2MtncGETyMu0xlxHtVkb + ncCc8HoMdPen6n4Ra+sIrEMFngSIo4LYEkSgZBGDg8jOOM5xkCuS/wCKj/z9lo/4qP8Az9lo + A634eeF5fDdu1vMVLNKWBQkjBVR3C8/LRp/heW31OfVCV8qWIKACd+QIxyMYx8h7ntXJf8VH + /n7LR/xUf+fstAHW+LfC8usXFpcRlQtrLucMSCRuQ8YB5+U9cdqNQ8Ly3GpwaoCvlRRFSCTv + yRIOBjGPnHcd65L/AIqP/P2Wj/io/wDP2WgDuvGeiPrdpJZxFQ8mzBckL8rqxzgE9B6Vm6x4 + CXWLKCxkYLLbpGA6ruwVUKw5wSpx6jkKT0xXL/8AFR/5+y0f8VH/AJ+y0AdKLXWZFETSWy/d + BkRXaTAIywVhsJI7YA9MdQR+DXu9Qlv7sRSQNHsjRiZCuCuDh0AGcMTjoWPXk1zX/FR/5+y0 + f8VH/n7LQB0GveAz9ot72wWKJoWy4BMQYAghfkVhyNwJxyDg5HAu/EPwvL4kt1t4SoZZQxLk + gYCsOwbn5q5L/io/8/ZaP+Kj/wA/ZaAPR9csmv7ea3TAaWJ1BPTLKQM4zxzXO2fgPzdNXSbg + rvXcQ6DcFYuzKRuAPQ4PQkEgEZzXNf8AFR/5+y0f8VH/AJ+y0AdFp+k6rYxrZpJb+Ug2LIVf + zQg4Vtv3NyrjAPHHJPJN6w8GLpdhJpsBy0scgLPkAu6bdxAzgdOBnAHc5J4//io/8/ZaP+Kj + /wA/ZaAOq0vwYV03+yLgruKuCyZKgly6sPuk7Tg44zjHSq/w88H3Hh5p3uXV2nKHKszHK7yx + JZRyd3v3rnf+Kj/z9lo/4qP/AD9loA7XwVpFzpULRXknmyGQkNvd8KVUAZcA9QeOnNdBXlX/ + ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQ + B6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/x + Uf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAV + H/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq + 0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/ + AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5 + +y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFe + Vf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCf + stAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fst + H/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ + ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQ + B6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/x + Uf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAV + H/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq + 0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/ + AJ+y0Aeq15/8a/8Ajzj/AOvhf/QJKyv+Kj/z9lrn/Gv9reSv9o/6rzBj/U/e2tj/AFfPTPt+ + lAHa/BT/AI85P+vhv/QI69Arz/4Kf8ecn/Xw3/oEdegUAFcp8Uv+QdP/ANs//RqV1dcp8Uv+ + QdP/ANs//RqUAcr8DP8Al6/7Y/8AtSvVa8q+Bn/L1/2x/wDaleq0AFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFMmmWFS7kBVBJJOAAOSST0Aohm + WZQ6EFWAIIOQQeQQR1BoAfRRRQAUUUUAFFFFABRUNxdpbbfMZV3sFXcQMseijPUnsOtTUAFF + FVLfVobl2gjkRpEzuVXUsMHByoORg8H3oAt0UUUAFFFFABRRRQAUUUUAFcl4d8GtZS3zXG1o + r1yQFLZ2sZMg8DBw/YnvzXW0UAcJ8Ofh/J4beSacozuqqpjZjgZJYEEKOSF9enbvX07wHd2O + nS6Yrx+bNLncHcKEIQEZ2ZJO0gjGMHr2PodQ3F2ltt8xlXewVdxAyx6KM9Sew60AYWneBrVL + dLeaCJnESq7BFySFAYhsBsk854PfrWV4Z8Paj4ftTaxtAziXcpkeVkCMvzKAFUg7gCOoO5sg + Hr3FFAHKeHfAaadYtpsx3+duMhAGAzAD5cj+HAIJGcjdgdBS0fw/qfh+P7HbPbyQoSVMyyK4 + 3ckYTIxuJxyTz16AdrNMsKl3ICqCSScAAckknoBRDMsyh0IKsAQQcgg8ggjqDQBieFvCq6EJ + HLmSa4ctJIRtyckjCgkADJ/EntgCl4C8IvoNs9nc7H8yRiQuWUqyKuDuUehyMYxXV0UAc14I + 8OzeH1ltXZWg8wmH5mLhSTkNkADscKMbix71X8ceF7jWJba4tjGGtXZsSlgCcoV+6Dx8vPSu + it9WhuXaCORGkTO5VdSwwcHKg5GDwferdAHFXXhK78Qso1KSLyI2VvKtw2GIDDJd8MvXHBOR + 02nmrHjjwvcaxLbXFsYw1q7NiUsATlCv3QePl56V1tFAGJon2/eftn2fy9px5Hmbt2RjO/jG + M++cVS8JeF5dHuLu4kKlbqXcgUkkDc55yBz8w6Z710s0ywqXcgKoJJJwABySSegFEMyzKHQg + qwBBByCDyCCOoNAHNfEPwvL4kt1t4SoZZQxLkgYCsOwbn5qsaX/aXmL9p+zeVzu8rzd/Q4xu + 464zntmugooA4eDwZdaDPLcaa8Xl3By0c6sFXByu0x9hlgBwACAdx5HQeH4LxDI968bFiuxI + VIRQBydzAMSx6g5xjg84GxRQBy+n+F5bfU59UJXypYgoAJ35AjHIxjHyHue1S6nBqSTM9q8D + QsFws6uChAwQCg5B65J9gBjnVXXLd2dBLGWiDFwHXKheGLDPAHfPTvVuGZZlDoQVYAgg5BB5 + BBHUGgDn/BvhVtDWSSVxJPcPvkYDaM9doGcYDFjnC5z0GBXR0UyaZYVLuQFUEkk4AA5JJPQC + gB9FMhmWZQ6EFWAIIOQQeQQR1Bp9ABRRRQAUUUUAFFFFABRUMl2kTLEzKHkztUkBm2jJwOpw + OuOlTUAFFFFABRRRQAUUUyaZYVLuQFUEkk4AA5JJPQCgB9FV7LUYr9d8Lq6g4JRgwz1xkE88 + 1YoAKKKKACiobW7S7USxMroc4ZCGU4ODgjjrU1ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAef/Gv/AI84/wDr4X/0CSj4Kf8AHnJ/18N/6BHR8a/+POP/ + AK+F/wDQJKPgp/x5yf8AXw3/AKBHQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + Xz/8Lf8AkIwf9tP/AEU9fQFfP/wt/wCQjB/20/8ART0AegXGpXupanPpsFx5McUauP3Ucn8M + eRyAeS5PWrfhLX7oXs+kXbLK0S71kChDg7MAqAByHB9jkZYYIxG0j+1dbuYvMlixCh3QPsY4 + WEYJweOenqBWn8OXGmz3WlSgfaEfeZOS8qk8Mxy2CNwON38XTcGJAM/wfd6n4lt3ukuwjK7K + FMEZBIVWGWA4B3Y6HHXnpXUfD/xS/iS3NxKqq6yMh2Z2nADAgHJHDY6npnvgcP8ADTRbrUbS + T7PdGCMyspURK5zsTLByQwOCBx0xkHNdL4thh8IaW9tAAPMHljcCSzSDDsSMfNsBOTgDAAGM + LQBhaR8RLm8vIpWb/Q7i4eJIwi7hhVCkk89ZFJwx53YGMA+q145r2lXkOmLYyWjKlsd/mCeN + +csWJRRnb856H5RgkkA59Q8NawNYtorsYzIgLYBADDhwAecBgR/U9aAOd8eyXulRy6hBc7Y0 + 2Yi8mM4yVQ/OcnqSentVrwzaXtzCLmW63efbgqPIjGxnUFWyPvbfQgA0fFL/AJB0/wD2z/8A + RqVq+E/+PO2/694f/QFoA4iz+JUkWnzPOT9shcx8rtO5921iNm0FQG+UjnZzgsKteK9fvNF0 + 23uDIRcu6b2MaA/OjvtKEEArwOgPHbJFZ+u+H4pNaitznyrgLM6cbC8YkxlcYIO3nOSdzc81 + p/Gv/jzj/wCvhf8A0CSgBniTVdQ8HKl3LOtzEzhGRoliIz8wIKZ5wpGTwOPlbtY8T6tdtqUO + mW03kpLDuJ8tJOR5hzhhnkKB196vDwRLfSI+oXBuI4iWWPyljQt2LBSdwHoR+hIOD4t0/wDt + DWbaDe8e63PzRNtcY848Ng4zjB9s0AdroWnXNnu+03Hn7tu390sW3Gc/dJznI69Me9ZXxK1y + fRbTz7bhvMUM23dtU555yBkgLkgjnHUitvRNI/spDF5ksuWJ3TvvYZAGAcDjjp6k1ynxUv5U + WC0R/LhupCksmOFBKgAtkAAgsSMjIUjON2QDnby+aye2/s29lurlyuYnZnRgynJIOAgGDlWO + 5Qc5XbmvXa8fnjm+Gc/mKqS20u4Lu2LKc4ON2N/ykDOAUOQcBm47D4V3D3NkJpZWld5HJ3sW + ZMYUISST0G7t97p3IAfFDX59Etkmtm2OZlUnarcFHOMMCOoFP+HfiKbVI5YLsg3NtKVfAA47 + Z2/KTkMPl7AfU5nxr/484/8Ar4X/ANAkrE8a3z+Eb2eaINsvrcgbCY1WQ/KXBAIZlI3dj8/U + ZyQB7ePrq8vInhkAtJrsRKu1SSqGMMcsgYBw+RzkZI7DPW6/4lle6TSLLaJXUtJIw3rEuDzt + B+90I3YXlQc7sjjb7S20saNA+dwlLEEbSC8kTlSD3Xdj8Og6VsRXI0vXpDN8ouoVWM5GCcIB + nnjJjKgdSccYOaAJfEGoaj4SVbx5luotwV1MIjKgkYYFM4zgrk8AkfK2eJfGviWdXsUspdiX + jY3bFbhjHtbDjPAbOOPerHxXvVSzNqMtLcuioq8sSHVjx1I4xwDyVHesXxZZNYS6PbvgtE6K + SOmVMIOM444oA0NV1HUPCTLd3EourXIVwIljdd2fmG0YwMActgk7cAkMHeNfEs6vYpZS7EvG + xu2K3DGPa2HGeA2cce9TfFbU0W0axB3TztGERcF/vhs7c5wdpAIB+bArB8b6U0LaTZOxDKVj + LRnBBHkqWUkcEdQcfhQB3GiaVd2jl7m685CpAXyUjwcj5sqc9MjHv7VleCtfn1K5voZm3JBN + tjG1Rgb5BjIAJ4Udc1taFoH9kbv300u/b/r5N+MZ6cDGc8+uBXK/Dj/j81L/AK+P/Z5qAOwm + 1+CGdLBmxPIu5V2tyBu5zjA+6ep7VoVz979i+3xeZ/x++WfL/wBZ93D56fJ03def0roKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + K8/+Nf8Ax5x/9fC/+gSV6BXn/wAa/wDjzj/6+F/9AkoAPgp/x5yf9fDf+gR16BXn/wAFP+PO + T/r4b/0COvQKACuU+KX/ACDp/wDtn/6NSurrlPil/wAg6f8A7Z/+jUoA5X4Gf8vX/bH/ANqV + 6rXlXwM/5ev+2P8A7Ur1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACvOviR4MtLW1nv0jxOWVt29zy8i7jgtjnJ7fSvRa5T4pf8AIOn/AO2f/o1KAItS + 8GWmiW11NbR7HNrMpO924KE4wzEdQKz9G8ctp1tbtJbSrapHFG8zYGDsADCMZLRnjD8ZzgAn + APVeLP8Ajzuf+veb/wBAauV8S/8AIBX/AK97X+cdAHW65ri6WqgKXmlO2KJfvO39FHVmPCjk + 9gc3S/Fskk62N5btbySqTH84lV9uSw3KAAQBnHp1xld2T8TtOEhtruWJpreBpBKibg211B35 + XoF25OSBnAzgkiv4XOkG6jFhGzTYc7187agC4JbzCODnA4PJHTIoA29P8YS6iyyQ2zNaO+0T + B1z97Zu8r7wUN1zyF+YjtVrWPEjwSfZbSI3EygM6h1jVFPTc7cbm7L1IyeBjPFS6rBbN/wAS + d5I7p3GbRo38tmLDzAVYbUYAfMysAqqQMDmn+J9OtbTUJZ9TiZre4WMpKvmbUZUKlG2YyW25 + 4yQMcYJIAO18NeJf7Y8yKSNop4GAkjY5xnO0hsAMGA4P9ME2PEXiCLQITdTZ2ggALjcSTjAB + Iye/XoCe1YvgI2BMx06NlQFAznfsc4JAXeScrnngdR1BBqX4gwsIYroAlbS5imcKMsUQkNge + oznkgYBJNAHP+I9duLyW0t7m2aAi9t2Vt4kQ8sCNygAN3A5OMnjjPVax4keCT7LaRG4mUBnU + Osaop6bnbjc3ZepGTwMZ5jxJ4ug1t7NLYO6C+gJk8tljyCRs3MAd2CDjHTvVTxPp1raahLPq + cTNb3CxlJV8zajKhUo2zGS23PGSBjjBJAB1en+LZL+OYJbt9rt2UPAzhfvHgiQjaQVyQe+OO + CCef+FLeRbrK9ukcYjkJuiybmAkJKkYDADB5Jx8v0rY8BGwJmOnRsqAoGc79jnBIC7yTlc88 + DqOoINVPBNk1/owt0wGliuFBPTLPIBnGeOaALF145niU3aWjvZjB83equUzguIiN2O4zjK4Y + 7R00NU8YJAIktl86e5UNFGGCErjdvJb7owDjIyTwBwcedaYNHtoQl9C8d1GuHjbz9zEKCGGC + AN/UA7cE+mCeourhdAurfUWRktGshCcq5aHawZQ4AbBOVQAnOc88cgFjVvE949rcf6K8Usak + E+au0K0bHzVkAAYoRyq8jI5zkC74S1yZrQT3kZjjigjYSGQSGRQmWchRuBwAcHJOfUUXXiGL + xHaXS2m6QCBwCEYAsyN8i5AJYcZAH8S+tReEvENvqFiIkzKbe2jEsYQkn93goAwAYnaRgZB/ + GgC1oviafUXQvaskEwzHL5iPwVLKWReUBUepwxC981satff2fDJc43eVG74zjO1ScZwcZx6V + 5/o+pwxTxQ6PM7xtIPNgdXaNI+d0itIAUwSSRuO5mHptPa+LP+PO5/695v8A0BqAMAfEGdoh + erZy/ZwqmRyyqwBwWKoRl1AOQ3yg852gE1r+JfFS6NFFcIhmWaVEAjOSQ4JDLgHceOBxnPWu + Qj8bxT6d/ZsaSG6NssSxGNtzZiUF12hgV2ksM4JA7Ag1q+I7JrC3023fBaK7tFJHTKqQcZxx + xQBtJ4ke1gNzexGFt+1I1dZnckDaF24yzHIA9snA5FKDxjPbyxw3tq0CztsRxIsq7zjap2Dj + PY/pgEhvxM0tr+2QpGZRFPG7Rru3OoypUbQTk7uvYZPauc0eTRJJYDaxO07SJtVfOLIfvbm3 + NtwmPmwW9eRk0AdXf+LnaV7axh+0tDjzSJUjVC2cLls7jwc4+70POQMzxLqLajDYTvG0TNf2 + +UkGGUguCOccccHAyMHA6VFpevx+E5rqC9zGsty8sb7ZGVxIASBhOqcbuepx2ybHirUl1OOx + uIwwR9Qg27lKkgFwGwecMBlfUEHigDf/ALd/0z+zdv8Ay7+bv3f7ezbtx+Oc/hTbTxEs09zb + OAi2gjJctwRIhck5A2hcep9eKwtf1JdB1JL+4DLbyWpi8wKWUOJC+CBkjIHHHPbgMRR0SUeI + pdU8nIFxFCqGQFc7oXVWxjO1vvDjO0g47UAGteOJdRtJJY7WQ2s0UqrKGUsPkYEtGuSqhgQS + TgDnrgV0GlaxHpOn280mf9RCFVRl2YoNqKvdj2H4nABNcufG0B002CrK1wlq0UkYibchWMoz + sTgBQRyc5GRkZyBY8QaW1/pVmUjMoiFs7Rru3OoTaVG0E5O7r2GT2oA2IPGM9vLHDe2rQLO2 + xHEiyrvONqnYOM9j+mASOg1S4kto2kgj82QYwm8JnJAPzHgYGT+GK860eTRJJYDaxO07SJtV + fOLIfvbm3NtwmPmwW9eRk16hQB558JI2EKMbZVUpJi4DJvf9590qBvAHucfKPauj0zxX9usD + quzGI5X2bs/6ssMbsDrt9OM96qfC3/kHQf8AbT/0a9crYeJI9J02XR5g63ccc6GPYSfm3NuB + GV2hW3E56AkZGMgHYap4z+wW1vfeUz/aWiGxDlh5qFuOPmIxgDjJ7isTxr4gvo7F5DbtAxYB + nS4UsgDR7WG3BO8krgdMZPBo1L/jz0r/AK+LL/0A1sfE2FpdOnCgk4Q4Azwsikn6AAk+g5oA + fqV7Pd2F09zD5LiGYBfMWTI8s/NleOuRj296xNG8ctp1tbtJbSrapHFG8zYGDsADCMZLRnjD + 8ZzgAnAO3qWvwa3YXU1s29BDMpO1l5EZOMMAehFYniX/AJAK/wDXva/zjoA6jXPEBsGW3hQz + XLjKxKwX5R1dmPCr2BP3mwB3xX0DxS1/K9lcQtBcIofYWDqyHA3BwADgnBH5EkMBzXj/AE6G + O8ivb2JpLRofLZk3/u2D5Dtsxwd+AM5POASADd8EnTDcP/ZsbbhF80n7zYAWHyfvD944yOOg + ODwRQBd0/wAYz6jM8ENqzJDcNFJIZFVQFYDcMgFjjJKjoMcndx0GqXEltG0kEfmyDGE3hM5I + B+Y8DAyfwxXP+AP+Xz/sIXH/ALLXV0AeT+EI2GmTMbZVU2lzi4DJvflvlKgbwB7nHyj2ro3u + I4LPTfNj8zdJaKvzldrFPlfjrj+6eDVTw1/yAW/697r+clGpf8eelf8AXxZf+gGgDoNf8UtY + SpZW8LT3DqX2BgiqgyNxcggZIwB+oJUHHh8VSeIrG9d4TCIopU5fcSwjbcpG1SCvHUd/Y1le + LtWSLUGdrgWkkESKrqjTmRXyxDKDtUKegYZOQ3TbjS04WqaXcray+cTDM8jkneXZGBZlblc7 + eAeoGck5JAItG8ctp1tbtJbSrapHFG8zYGDsADCMZLRnjD8ZzgAnAMvirXLy1v7aKGFmT97t + UTqizfuwTkdF8s9N2c9qi8S/8gFf+ve1/nHV3xrfppd5Y3kxKwxm4DPtZgC8YCj5QeT2+h9D + QB1tpI0qK8i7HKgsuQ20kcrkcHB4z3rP/t3/AEz+zdv/AC7+bv3f7ezbtx+Oc/hWhaXS3aLN + GcpIoZTgjIYZBweelchr+pLoOpJf3AZbeS1MXmBSyhxIXwQMkZA4457cBiADf07XftlzcWW3 + H2byvm3Z3eapbpgYxjHU59q5i0+Jk11F9sWzkMCAGRw44G4glQVG8ADJxjByGwBuNjwTqS6n + e39xGGCP9m27lKkgRsA2DzhgMr6gg8VU8Nf8gFv+ve6/nJQBb+IuvSx2Pn2gby5VRjMj+WyA + shUgcMd+ccYx3qXxHqrPp801/a7QrIDF5wO4b0w29Bxyent6GqXiGFpdCUKCT9mtjgDPC+WS + foACT6DmneN9fg1vSria2begaNSdrLyJIzjDAHoRQBoeIv8AkI6f/wBvX/ooV1dcp4i/5COn + /wDb1/6KFdXQBynhbxjP4g2SLaskDbg0jSLgFc/dXALg4AyMYJI/hyS78YzybpLK1a4gTI8w + SKgYr97YpBLgdAR1OQM4yT4W/wDIOg/7af8Ao164XR9O0zSw1pqsTJcRsw3nz9si7mAdQuOO + MdACACCSSAAehT+OYPs8V3Hl2uTthj4V2fO3bzwAG4ZvujsTkZig8TXj743smWVUVkHnIUbL + BWHmY2qwByBySAenGcKYpZpp+p2sTrawNNuRg5dEmBzKcbztABbOeQVx146rRPGNtrjmK2Zn + 2qSzBGVV5AAJYDlsnAGeFPpyAYvwx1i6vrdBPGxj2uRO8odnPmEbSp+YY5GSf4fcVz/ivUd9 + leR29vtjN5Isz+bnDLJEd+1hn5zxtXhcZrd+FusxfZ00wki5hEhdCrAr+9PUkAZ+YcZz+tYW + p/8AIO1P/sISf+jYqAN3VZVs9Nme5sliQOuYEkUBstGA2+IDBz7Z+X0NdBrniA2DLbwoZrlx + lYlYL8o6uzHhV7An7zYA74zPil/yDp/+2f8A6NSsXx/p0Md5Fe3sTSWjQ+WzJv8A3bB8h22Y + 4O/AGcnnAJABAOl0DxS1/K9lcQtBcIofYWDqyHA3BwADgnBH5EkMBnt4+ectJa2zz28Umx5E + dC2QQCUjG4uMEEHIznnABNV/BJ0w3D/2bG24RfNJ+82AFh8n7w/eOMjjoDg8EVU8KeKYvDsA + 0qVZGurd5F8uKNmZ8uX3JwAV2nPJBwCcYxkA2Phb/wAg6D/tp/6NeurrlPhb/wAg6D/tp/6N + euroAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/41/wDH + nH/18L/6BJR8FP8Ajzk/6+G/9Ajo+Nf/AB5x/wDXwv8A6BJR8FP+POT/AK+G/wDQI6APQKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAK+evhxdpaX8MsrKiDzMs5CqMxsBknjrX0LX + zf4M0RNbu47OUsEk35KEBvlRmGMgjqPSgD2uG+0yGd79ZoRPIu1m89eQNvGN+B90dB2omvtM + mnS/aaEzxrtVvPXgHdxjfg/ePUd65eX4YaXFJ9na5YS5A2GaIPlsYG3ZnJyMetWpvg1YwqXe + WUKoJJLxgADkkkx8AUAb2iX2maIhhtpoUQsWI89W5IAzlnJ6AUzXLnS9cVUuZonVDkD7QFGe + mcK4yfTPTJx1Nc5Y/CrTdQz5Fw8m3GfLlibGc4zhDjODRb/CrTblGnjuHaNM7mWWIqMDJywT + AwOT7UAdhd+IrC7RoZLiEpIpVh5yDIYYIyGz0qvo+p6do8f2eCeJYwSQDcBsZ643OcDvgcZy + epNcvY/CrTdQz5Fw8m3GfLlibGc4zhDjODT7b4S6ddMyRzyM0Zw4WSJip5GCAnB4PX0NAHUa + prGnarG1tPPC0b4yPPUZwQRyGB6gd6ltPEVhaIsMdxCEjUKo85DgKMAZLZ6VzX/ClLP+/N/3 + 0n/xus+6+Guk2jGKW6ZHGMq80KsMjIyCmelAHVzX2mTTpftNCZ412q3nrwDu4xvwfvHqO9Gt + 32ma2ghuZoXQMGA89V5AIzlXB6E1zkvwl06KP7Q08giwDvMkQTDYwd2zGDkY9aqQ/DvSJmCJ + dksxAAE8JJJ4AAC8k0Ad7/wlln/z8Q/9/k/+KrF1uDSNbcTXMkLuFCg/aNvAJOMK4HUms/8A + 4UpZ/wB+b/vpP/jdZ9r8NdJu2EUV0zuc4VJoWY4GTgBM9KAOl0J9K0Hd9mlhTzNu7/SA2duc + fec+p6Vb1PV9N1RDDPLbuh7NLGcHBGQc5BwTgjBHY1zk3wasYVLvLKFUEkl4wABySSY+AKr2 + Pwq03UM+RcPJtxny5YmxnOM4Q4zg0Aa2maboumOJomtw46Fpw+CCCCA7sAQRwRyPWrukXGl6 + OzvbywIZSC2JlwcZxgFiABk8AAVzl98KtN0/Hn3Dx7s48yWJc4xnGUGcZFWIfg1YzKHSWUqw + BBDxkEHkEER8g0Ab2t32ma2ghuZoXQMGA89V5AIzlXB6E1Drr6Vr237TLC/l7tv+kBcbsZ+6 + 49B1rCtvhLp10zJHPIzRnDhZImKnkYICcHg9fQ0P8JdOSQW5nkErDIQyRByOeQuzJHB/I0Ad + HqV9pmpPFNNNCzwNujPnqMHIOcBwDyo65o1m90vWl8u5lt3A6ZlQMOQThgwIzgZwRnoeK5y9 + +EunWC75p5EUnALyRKM9cZKDniq918NdJtGMUt0yOMZV5oVYZGRkFM9KAOg0a30fRm82B7dX + /vGZXYcEcF3JGQTnGM96l119K17b9plhfy923/SAuN2M/dceg61z9v8ACrTblGnjuHaNM7mW + WIqMDJywTAwOT7VNa/B+wu1EsU0roc4ZJI2U4ODghMdaANXRrfR9GbzYHt1f+8ZldhwRwXck + ZBOcYz3qXXX0rXtv2mWF/L3bf9IC43Yz91x6DrXNXXw10m0YxS3TI4xlXmhVhkZGQUz0qxL8 + JdOij+0NPIIsA7zJEEw2MHdsxg5GPWgDY0SDSNEczW0kKOVKk/aN3BIOMM5HUCql3omh3btN + I8JeRizH7SRksck4EmOtVf8AhT9hs8/zpfL27t3mR7duM7t2zGMc56Yqu/ww0tIxcG5YRMcB + zNEEJ54DbME8H8jQBu2MGkWDxzRSQh4FZUP2jOAxYkYLkHl2656+wra/4Syz/wCfiH/v8n/x + VcB/wgGjf8/n/kxB/wDE1q/8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/Px + D/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWW + f/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH + /CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ + ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4 + h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLL + P/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r + /hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAb + oA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n + /wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/ + AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/ + 783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8 + KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+ + N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v+ + +k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qvIP+EKh/ + tb+yNz+V65Xf/qfM67cdfbp+ddRe/DDS7Btk1yyMRkB5olOOmcFBxxQB2/8Awlln/wA/EP8A + 3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6pWXww0u/bZDcs7AZISaJjjp + nAQ8c0Adv/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcbe/CXTrBd808iKTgF5IlGeuMlBz + xT/+FP2Gzz/Ol8vbu3eZHt24zu3bMYxznpigDr/+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P + /iq42L4S6dLH9oWeQxYJ3iSIphc5O7ZjAwc+lPtfg/YXaiWKaV0OcMkkbKcHBwQmOtAHX/8A + CWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6zIfh3pEzBEuyWY + gACeEkk8AABeSaAO9/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krir74Vabp+PPuHj3Zx5 + ksS5xjOMoM4yKbZfDDS79tkNyzsBkhJomOOmcBDxzQB2/wDwlln/AM/EP/f5P/iqP+Ess/8A + n4h/7/J/8VXJTfBqxhUu8soVQSSXjAAHJJJj4AqrZfDDS79tkNyzsBkhJomOOmcBDxzQB2// + AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVchdfB+wtFMss0qIMZZ5I1UZOBklMdaZZf + CXTr9d8M8jqDglJImGeuMhDzzQB2X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcRL8MNL + ik+ztcsJcgbDNEHy2MDbszk5GPWrv/ClLP8Avzf99J/8boA6r/hLLP8A5+If+/yf/FUf8JZZ + /wDPxD/3+T/4quNsvhLp1+u+GeR1BwSkkTDPXGQh55oT4S6c8htxPIZVGSgkiLgccldmQOR+ + YoA7L/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4quNufhLp1qypJPIrSHCBpIlLHgYAKcnk + dPUVUm+HekQsUe7IZSQQZ4QQRwQQV4IoA73/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T + /wCKriH+GGlpGLg3LCJjgOZoghPPAbZgng/kau/8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ + ACf/ABVH/CWWf/PxD/3+T/4quCh+HekTMES7JZiAAJ4SSTwAAF5Jq3e/CXTrBd808iKTgF5I + lGeuMlBzxQB2X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVchdfB+wtFMss0qIMZZ5I1UZ + OBklMdar3Pww0u1VXkuWVZBlC00ShhwcglORyOnqKAO3/wCEss/+fiH/AL/J/wDFUf8ACWWf + /PxD/wB/k/8Aiq4KH4d6RMwRLslmIAAnhJJPAAAXkmtP/hSln/fm/wC+k/8AjdAHVf8ACWWf + /PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN + 0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/3 + 5v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ + ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClL + P+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn + /wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLL + P/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/ + k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJ + ZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/ + AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSl + n/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9 + J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8 + KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ + ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8Aiq4j + 4u65b39oiQyxuwnUkI6scbHGcAnjmrv/AApSz/vzf99J/wDG65f4h/Dy38N263ELSFmlCkOV + IwVY9lXn5aAOo+Cn/HnJ/wBfDf8AoEdegV5/8FP+POT/AK+G/wDQI69AoAK5T4pf8g6f/tn/ + AOjUrq65T4pf8g6f/tn/AOjUoA4r4NatDp/2jz5Ej3eVjzHVc435xkjOMivSv+Ess/8An4h/ + 7/J/8VXkHw38FQ+J/O89nXyvLx5ZUfe3ZzlW/uiu1/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8 + Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAH + Vf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/ + AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAb + o/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/v + zf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8A + FVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5 + +If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/ + AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf + /PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN + 0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/3 + 5v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ + ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClL + P+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn + /wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLL + P/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/ + k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJ + ZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/ + AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSl + n/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9 + J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8 + KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ + ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+ + Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/ + AH+T/wCKqrq2vWeoQyW32mFfNjdM+ahxuUjONwzjPrXP/wDClLP+/N/30n/xuj/hSln/AH5v + ++k/+N0AdBpOvWenwx232mFvKjRM+agztUDONxxnHrVr/hLLP/n4h/7/ACf/ABVcr/wpSz/v + zf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8A + FVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5 + +If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/ + AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf + /PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG65f4h/Dy38N263ELSFm + lCkOVIwVY9lXn5aAPUv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq4jQ/hFaX9vDcO8oaW + JGIDJjLKCcZQ8c1d/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8A + v8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/ + AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q + /wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB + 1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9 + +b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/ + AMbrnNe8Gado862RF3JK6bgIRE+Rlh02g5G0k8dKAPTf+Ess/wDn4h/7/J/8VR/wlln/AM/E + P/f5P/iq4DQvhpZ6vu+W8i2bf9eqJnOenyHOMc+mRWr/AMKUs/783/fSf/G6AJdQMBnkvLTU + YoHn2+YCYJVOxQqY3EFcDOeTnPbFXvD95Z6YZJpLyKWecqZJDJGmdg2oAitgAD8ScknoBmf8 + KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ + ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+ + Ess/+fiH/v8AJ/8AFVxWrfCOz0+GS53TN5UbvjegztUnGfLOM49Kq+FvhjZ69bJe5mTzN3y+ + YjY2sV6+UPTPSgDv/wDhLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k + /wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln + /fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV + /wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k + /wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/ + EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/C + WWf/AD8Q/wDf5P8A4qvIPE/gqHSr+30+NnMc/lbixUsN8hQ4IUDoOODzXa/8KUs/783/AH0n + /wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/ + AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/ + 783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8 + KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+ + N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quFuvhrpNoxil + umRxjKvNCrDIyMgpnpViy+EunX674Z5HUHBKSRMM9cZCHnmgDsv+Ess/+fiH/v8AJ/8AFUf8 + JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8A + FUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8A + J/8AFUf8JZZ/8/EP/f5P/iq4DT/h7pWoTPZRTzNLFu3LwMbWCtyYgDgnHBqva+DdGu2kSO4l + YwI7vjBAVPvMD5WGH+6TntmgD0f/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKrhdE + +Gema2hmtppnQMVJyq8gA4w0QPQitD/hSln/AH5v++k/+N0AdV/wlln/AM/EP/f5P/iqP+Es + s/8An4h/7/J/8VXK/wDClLP+/N/30n/xus/TfhnpmpPLDDNMzwNtkGVGDkjGTEAeVPTNAHdf + 8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jd + AHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vp + P/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+ + b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ + /wB+b/vpP/jdAFL4u65b39oiQyxuwnUkI6scbHGcAnjmrvwU/wCPOT/r4b/0COuX+Ifw8t/D + dutxC0hZpQpDlSMFWPZV5+Wuo+Cn/HnJ/wBfDf8AoEdAHoFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFfP/wt/wCQjB/20/8ART19AV8//C3/AJCMH/bT/wBFPQBp+OdHOpahfFcl + oYEkABA+6sIbOewQscDnIH0PUeKfE7avYW0MLKJdRZIzw6gchZQD1AD4U5zlScA9atafpLvr + N1LJGxgktwu5kPltlYQVyRg9DkexrnfBHhK4hvxFcCQwWZlMZkjby2O7aCu75VJJ3jGeV/EA + Gx8LbVbS51CGMYSOZVUZJwFeUAZPPSs/wB/yBrz/ALeP/RC1u+AdOltbvUHkRlWSfKFlKhhv + lOQSORyOnqKzPBGkzW2k3cEkbrI/n7VZGDHMKgYUjJyeB70AYvw7n/sCa2lbd5WoRuhy3y+Y + krKvygZ6bRz03k5xkV0vw4/4/NS/6+P/AGeaorLwi+qaKlm6Ms6b3RXBVgwkcgEEr94Ejngb + t3YU74V21wJby4uYmjad0bDIyAkmQtjd2GfftQBrfE/XpNGsy0JKvK6xhgcFcgsSODzhSOxG + cg5FZ7WmkeElSzuljMpRWLPC0hb+Etkq+0EqflBwPT13/GvhkeI7ZrYEBwQyE5wGHrjsQSO+ + M5wSBXO3vie6e1lsbm0uPtDQsm6JBJGxaPG/cmAMk8hQcdM54AAeKfs39iv9i/49/l2fe/57 + jd9/5vvZ6/yrmr6aw1axhsbSNXv2WEDy4irbgB5hZyFBGA2SSRn5jwNw6C60Ce10M2LRsZxj + 5E+dubjdxsznjnirWueGX1DS4NgZbm1hidMAiQMiDcvALAnHAGDvC56UAUvECy31xY6BM52m + JHnIYnzCgJKk/K2CYzznqwYjKitXxx4LtZbOZo4o43iQyKyRqp+QFiPlxkEAjnIGc4JArK1m + zu71rTX4Im8+JMTQsAjYXdu2qwJw2XA6tgqQuc1oa1r1x4hhextLaeN5RtZ7hBEioSA5yS2T + g4wBuwSRyKAOX16SfWNOsb6RWljiZ/ORS+WCEqHYjOPlRtzk8FsjrXYeDNQ03VJDcWSLHOI9 + rIF8tgu7P3VOw8gfMMkcAkcCrBkbwfBb2sUEk8Sgq7Qjc4bG7d5ZJJDsSTyAvTPQViaNpT6t + qY1VbdreGJGH7xFR5HYHJK5BBPmH5vmB29cnAAMWaaHQdRuH1SEyJO/7uRlMiBSQcAOMEKpU + Erkrt2qCDXpXhuK3jt4xZ48jBKYJPUknliTnJOQeQeOMYrC1jxUw821nsZpdrEKFjEsTgYKM + WxgZOCRhtvuRgS/DXw5JoNp5U/EjyM5Xg7eigZBIOQoP447UAZX/ACDde/vfbLf6bdo/HP8A + qfb73tzxXiS+zfzarj/j1vIU2Z+9sDDO7HGfJ9D9725734madKzWl9CjStbTgmNFJJBw2cgH + AGzHQ/e/PK0TwlKNFmt2DLLKXk2GMhwYyuE29SW8sY/3uhxyAXfGH/Ex1Wxsvu+VmXd1zglt + uOMf6rGc9+nHOPf31pZazcvfhTEYkA3xmQbtkWOArc4B5xWh8MNKlM8t5PFJEywQRKHUqCFR + VY/Moyf3YPHTODng0Szy6Pq9xem3nkieJVBhiL5O2I9eBgbSDz1oA6C6ktptNuJbJVEMkE5G + xPLBIRlJ24Xn5ccjtXHrr0mjaFC0JKvK7xhgcFcySMSODzhSOxGcg5Fdreak2t2NyUilRjFK + oSWPa5Pl8YUE5BzgepyK5/TPBzavo8djIDHMpdl8wMu1hI+Mjg4KkjocA5AOBQBM1ppHhJUs + 7pYzKUVizwtIW/hLZKvtBKn5QcD09WeKfs39iv8AYv8Aj3+XZ97/AJ7jd9/5vvZ6/wAqL3xP + dPay2NzaXH2hoWTdEgkjYtHjfuTAGSeQoOOmc8CK60Ce10M2LRsZxj5E+dubjdxsznjnigCH + /hPbL+zfsXm/vfsfl7dkn3vK24ztx14znHvWx8O9Oiv9MgSZFdQZCA6hhnzHGcEHnmr32R/7 + J8ja3mfYdu3B3bvJxt29c54x1zR8OLR7SwhilVkceZlXBVhmRiMg89KAOX8A6Hb3V3qCSRRs + sc+EDIrBRvlGACOBwOnoK6291e5iv4rNI82zxkvJsc7Ww+BvB2j7q8EZ59xWP4B06W1u9QeR + GVZJ8oWUqGG+U5BI5HI6eorYvdXuYr+KzSPNs8ZLybHO1sPgbwdo+6vBGefcUAdBRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8zH + /n/n1pnxI0c6xqcVqMlmtGKgEDLKJmUZPGCwAPt3HWn/APMx/wCf+fWt3VtOlfWra4CMYlgY + FwpKA4m4LYwDyPzFAGVD418nRBKjATKBbjAYYYcDBHRhF82c43f981D4B0caPqstoMZjtEDY + JILEQlyCecFiT2+g6VS/4Qyb+0/sm1/sX2jzf9W32f7u/bt+50/d5/T+Gul0+zkttZurtkfy + jbjDhGKkhYcgYB3Hg8DJ4xigDN8W2TeK9SOnLjba20hw/wAo3uvysCuSQC0ZOePlPB/i3fhn + qQ1jT1jkG7y90TBlG0gAYGOhGxgDkc4Oc9TheDPB8uqLNe3D3FtNNOxZYmMIIOGBwykkAswH + J/nRoEE3hG7vE8uWaJ03o/lSMzuBuVd6qwyd7BmIxkZ46UAYN5dzaR53heNv9bcRrGxLcRy8 + lSwxjOVyAuDmTrkV7BpWmJpcSWsQwkagDpk46k4AGSeScckk15VB8PpdRsJ72ZW+2SyGUKV2 + thC25duzIL5YhRwT5fTmvSPCWpS6jbJJcIyTAbXDqUO5eN2Cq8N14GBnGeDQBzXjaZtWvrbR + CSsMg8yQA/fC7iEOMED92e/VgcZUVDqF7oUAaykWMGM7GxDIHBQ4P7xV3E5HJ3c9yc1reMPD + s0s8Gq2YDT25wyEhd6E8qGbKggFu2cMTnKgHnPGd9P4vgjs4rS4SXzFc+bHsjGEYEb2IHU8Z + Az9eKALHxYljiuLB5seUsrl8jcNoaLdkYORjtjmqnk2+uX9tLpChRbkNO6IYk27hhcYGWIDD + p8wOCSAdu34+06W6u9PeNGZY58uVUsFG+I5JA4HB6+ho8YadLpd3BrNqjOc+XOkSlmZCPvbV + AyQM8scZEfHFAFfUP+Kj1b+z5ubezjEnlnlXYhcEjjp5g4O4YUjGGNM+JnhaC0tfttuiwy27 + owaJQhO5guMrjkEhgeSMYGMmptd0u40XUBrNvG0sUiBZkTBfsvC4yRwrDGTlWyVU0a/cXHjK + MWEEMsEbOpmkuECYUcgKpJLHIzxjBABOGJABieMJ2lksdYuozLamBGkRd2xWbBJIOVAJZcAn + 59u1uK6jQfseqwXEml7Y5Zo9rY3RlG2EJlRwuCT8yDBIJBJFXdR1pvDzR2qW0skAiAVoB5hB + X5QhU8gBcHcTz0AOCRz/AIS0aWO5udXS3MKNEVhgIWMtjHUfwEmMdRj5sgkDJAOd8I3OnQx/ + 2XqUHlz7vmeVSCclSvzcPHwR6LgEk/MRXsteaeK9Sk8VQC1jsZhcNjDTRhVToz7ZGx127f4c + j3wp9A0mx/s+GO2zu8qNEzjGdqgZxk4zj1oA4rwf/wAS7Vb6y+95uJd3TGSG245z/rcZz26c + 8cV4bvsX8Oq4/wCPq8mTZn7u8KM7sc4870H3ffjqvidpMwuY72CN5d1vNEVjRjt3K6hiQD/z + 1Jxgfd688N1vwlKdFht1DNLEUk2CMlyZC2U29QV8w5/3egzwAXf+Qlr3937Hb/XduH4Y/wBd + 7/d9+Of0PU7CxvL/APtAId1w2zzIjJ0eTdjCtjqPTP4V1fw0sHX7VfTRvFJc3DHZICMKPmGM + qCeXIz0OOg5rH8O38vh67vnktrh1nnJQxQlhhXkOckjg7hjGaAHfFURf2bAbcKsTTIyBF2rh + o5GyFwMZznp9aveNpm1a+ttEJKwyDzJAD98LuIQ4wQP3Z79WBxlRUPxJEuv2ETwwy7jOCY2j + PmABZFyVGcD+hHrWt4w8OzSzwarZgNPbnDISF3oTyoZsqCAW7ZwxOcqAQDJ1C90KANZSLGDG + djYhkDgocH94q7icjk7ue5Oaf8a/+POP/r4X/wBAkrP8Z30/i+COzitLhJfMVz5seyMYRgRv + YgdTxkDP14rY+LunS39oiQozsJ1JCKWONjjOADxzQBmePfHtlqtlLbQS7pH2YGyQZxIpPJUD + oD3rq9B0mHULO18+NJNtvFjzEVsZRc4yDjOBUXxHtHu7CaKJWdz5eFQFmOJFJwBz0rS8MQtD + aW6OCGWCIEEYIIQAgg9CKAOH+Dmkw3Ns08kaNIlwdrMilhhEIwxGRg8j3rq/Der3N9NcxXEe + yOGTETbHXeu5xnLEhuAORgc+4rH+EWnS2Fo6TIyMZ2IDqVONiDOCBxxWx4b1e5vprmK4j2Rw + yYibY6713OM5YkNwByMDn3FAHQUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAV5/wDGv/jzj/6+F/8AQJK9Arz/AONf/HnH/wBfC/8AoElAB8FP+POT + /r4b/wBAjr0CvP8A4Kf8ecn/AF8N/wCgR16BQAVynxS/5B0//bP/ANGpXV1ynxS/5B0//bP/ + ANGpQByvwM/5ev8Atj/7Ur1WvKvgZ/y9f9sf/aleq0AFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUVnza/BDOlgzYnkXcq7W5A3c5xgfdPU9qsJqMTyG3D + qZVGSgYFwOOSucgcj8xQBYooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAK8/8AjX/x5x/9fC/+gSV6BXn/AMa/+POP/r4X/wBAkoA6rwn/AMed + t/17w/8AoC1rVk+E/wDjztv+veH/ANAWtagAooooAKKKKACiiigAooooAK808W6h/Z+s20+x + 5NtufliXc5z5w4XIzjOT7Zr0uuX1DwvLcanBqgK+VFEVIJO/JEg4GMY+cdx3oAi1Hx20NrPe + JBKjQhMC5TywxdtoIwTkL1I47DIzkY/9hT/Yf7W+2XHn+T5+N/7rOPM2+X0xj5cZx324+Wu1 + 1/Rl1qCS0fgSLjPPBHKtgEZwQDjPOMHiuU/4RzVPI/szzbfyNvl+ZtfzfL6fdxszs4x/49n5 + qAMe78Uz340mcOyGaUrIFYgPskjQkhcAg4JxjAyRW3q2oyprVtbh2ETQMSgYhCcTclc4J4H5 + Cn698O/Mgt47J/Lksm3RmTlSWYMxbg85G4cY6jbgjDLTwnezahDqt08R8tGUrHuG3KuoC5HI + +bcSxBySBwBkAz5Un1bV7ixFxLHCsSsRG5H8MXC5yFO45JAyRkfxGpfBfiOe0jvoZ2M39nly + rMSHbb5mQWO7g7OM5IzjJAAG3p/heW31OfVCV8qWIKACd+QIxyMYx8h7ntUXh3wa1lLfNcbW + ivXJAUtnaxkyDwMHD9ie/NAHM2mn3GsadLq0t1L5jxTHYCBDtQMhUx4xlgp5GMEg4JGT1Hwt + /wCQdB/20/8ARr1iweCtSgtX0lZYfs537W/eCXBO4LwAAGPDZ3YDMPmAArqvBmiPolpHZylS + 8e/JQkr8zswxkA9D6UAbdFFFABRRRQAUUUUAFFFFABRRRQB5V4+/5DNn/wBu/wD6PavVa8q8 + ff8AIZs/+3f/ANHtXqtABRRRQAUUUUAFFFFABRRRQB5Pf31pZazcvfhTEYkA3xmQbtkWOArc + 4B5xWr8P9PEl5c6haqUsZBtQHKhmBXLKn90ENjpjdtAHzAW9J06VNaubgowiaBQHKkITiHgN + jBPB/I0aBp0vh3UJbVEY2l0PMUqpKRvySpIARQcEYAJx5YzQAQeLL3XjLNpiRGCI7QZ9weRg + MnaARgcjG7HUEkchWf8AC0FuLWOaFM3NxI0UcRJKhwQOXIUYwynjGd2MjBI5fTvCMWjNJb31 + lPOQ5McsAZgydBkI4CnjOCS3zc4wM6d/4UeOC0v7S2aNoJjM9vvLNg7TncxznEajaFJy2MZB + yAdRBPqvzxOlvu2KY5FZ/L3bgGRlJ3klckEAAEAEnPHL/Bv7T5R2eV9m859+7f5u7y1xtx8u + Pu9eevtXa6J4jbVnKC3miRVJLToI+cjaoGSWyMkntgf3hXL/AAzEuh79Lmhl3GeQiURnyMBQ + M7zjg7OOOcj1oAz59Slv11MQRW6NAZFd/LKu0bebv+YE5c7FIzgZyT2q94GuJrbSZJZBE0SQ + zGJSGJODIXEgPBBPQDtnNQ6PpM0f9sbo3HneZ5eUYb8+djbx82cjpnqPWtPw9p0sWitbsjCX + yLkbCpD5YyYG3GcnIx60AVNO8ZrYWEEkUMYubx3WOKJfLjLh/L3HngD5c85JwMgZK6Efiq70 + q5hs9QSLbcnCSQF8BhxtKsCSSSo7AZzk845WfwhPc6dZOYWdrZ5TJAco7I0hY9cMCQoAABY7 + sjpzq6DolnPcxeTp88ewlzJOZIwhTBTALsHJbjHGOuCM4ANWTxVd6rczWenpFttjh5Jy+Cx4 + 2hVAIIIYdwcZyOM5vwtkaW51B5F2OZlLLkNtJeXK5HBweM96LBpfCd9ds0E00V0wkV4I9+CS + zbSM44LEckHgHbhuJfhhZXEM17LdRtG8sitypCk7pC20nIIBPUE8Y5oA9AooooAKKKKACiii + gAooooA8/wDjX/x5x/8AXwv/AKBJR8FP+POT/r4b/wBAjo+Nf/HnH/18L/6BJR8FP+POT/r4 + b/0COgD0CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvm/wZraaJdx3koYpHvyEALf + MjKMZIHU+tfSFfP/AMLf+QjB/wBtP/RT0Aegf8Lrs/7k3/fKf/HKP+F12f8Acm/75T/45Wxq + Pj+KyuHsBDPLLGASIYw/BCnP3gcfMAeOtWvDfjKDX2eKPcksRIaOUBXGOCcAngHg9weoGRkA + 53/hddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyuq8S+JYvDsX2mfdtLBQEGWJOTgZIHQE8kdPX + AM2ga2mtwJeRBgkm7AcAN8rFTnBI6j1oA4//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xytPW + PiPFpDMJoLgKrlQ5iARiM/dYsMg4yPUc1Ybx0kUEt5LBcRpBsyJYgjNvbaNuWwcHryMZFAGJ + /wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlbGnePFv2QJbXQWUrhzD8mGxhiwY/LznPpzX + UUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45W7qHjmG2kaCJJZ3jOHFvGZNh7BjkDJ + 56E4IIOCKseH/F8Gulo4yyyx53xyLtkXBK8jp164JxkA4JxQBzX/AAuuz/uTf98p/wDHKP8A + hddn/cm/75T/AOOVsaj4/isrh7AQzyyxgEiGMPwQpz94HHzAHjrWxomr/wBqoZfLliwxG2dN + jHAByBk8c9fUGgDj/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyt3XvHEWjzrZGOWSV03AQ + oHyMsOm4HI2knjpRofjqDVpms9skUyjOydQjHjPAyeQOcHBxyMgHABhf8Lrs/wC5N/3yn/xy + j/hddn/cm/75T/45Wm3xHiMstvHBcSNA5VzFEHAIJHZuhwcZxW/Yaqt1CLp1aJcMSJxsZQpI + JYE8DjPXpzQBxv8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlaafEmG4JNvDcTopxvhhLJnAJ + HJByM85A/LBq/L4ygSz/ALWG4w4BwAN/LhCMEgZDcHnHHBPGQDnf+F12f9yb/vlP/jlH/C67 + P+5N/wB8p/8AHK6LUfGttp1vHezMVWZAyLjLtld2MDPPIBOdoJGTyKND8Xx6tK1r5csUqpv2 + zx7CVzt3Dk8A8c49s4OADnf+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcq7c/E+K1ZUktr + pWkOEDQhSx4GAC/J5HT1FacnjJIbV9QlimjSJgCskYWQ5KgEKWwRluuexoA5/wD4XXZ/3Jv+ + +U/+OUf8Lrs/7k3/AHyn/wAcq63xRgiVJZYbiOKQqBI8QCfNyDkMcjHPGSR0Brq5tQjiiN0W + HlKhcsPmG0DduGM5GOeOvagDh/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK6Dwp41h8T+Z5 + Cuvlbc+YFH3s4xhm/umotf8AHSaIzrLBcFI9uZEiBi+YDGHLAdTj68UAYn/C67P+5N/3yn/x + yj/hddn/AHJv++U/+OV0Xh/xautthIZ0UpuDyx7UI4xhgxyTnI9Rk1N4X8UReJIjcQhgquVI + cAHIAPYtx81AHL/8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5WxN8QYSxFvFPcKpIL28Rd + Aw6ruJGT0PGRggg1peHvE8HiBDLbtnbjcpGGUkZwR/UZBIOCcUAcr/wuuz/uTf8AfKf/AByj + /hddn/cm/wC+U/8Ajlavhr4kW3iCX7LEHV9pI8wIAcYyBhiScc4x0BPatO28URXF3JpYDebE + gYkgbMEKeDnOfnHYd6AOX/4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8Axyu41G9Wwie4fJWJ + GYgdcKCTjOOeK5e1+JSXaiWK1u3Q5wyQhlODg4IfHWgDP/4XXZ/3Jv8AvlP/AI5R/wALrs/7 + k3/fKf8AxyuoTxREbs6WQyyhNwLABHGAflOcsevb+FvSiw8URX9zLYRhi0AG9wAY8nHy7gT8 + 3JGCByrelAHL/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OVpt8R4jLLbxwXEjQOVcxRBwCCR + 2bocHGcVf07xrbajbyXsLFlhQs64w64XdjBxzwQDnaSDg8GgDnf+F12f9yb/AL5T/wCOUf8A + C67P+5N/3yn/AMcroP8AhNYfsX9r7X8r0wu//WeX03Y6+/T8qzG+KMESpLLDcRxSFQJHiAT5 + uQchjkY54ySOgNAFL/hddn/cm/75T/45R/wuuz/uTf8AfKf/AByuluvF0NtPDZtu/wBJXMcg + 2+UeuBv3ck8YAB+8vrT38URC7GlgM0pTcSoBRBgn5jnKnp2/iX1oA5f/AIXXZ/3Jv++U/wDj + lH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhd + dn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDwr/hNY + f7W/tfa/lemF3/6ny+m7HX36flXa/wDC67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf + 8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hdd + n/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/ + 8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8 + Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8A + hddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf + /HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCO + Uf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDh + ddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ + AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A + 45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4 + XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/f + Kf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/4 + 5R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+ + F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3 + yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45 + R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8Ajlcv8Q/iHb+JLdbeFZAyyhiXCgYC + sOzNz81e0V5/8a/+POP/AK+F/wDQJKAD4Kf8ecn/AF8N/wCgR16BXn/wU/485P8Ar4b/ANAj + r0CgArlPil/yDp/+2f8A6NSurrlPil/yDp/+2f8A6NSgDlfgZ/y9f9sf/aleq15V8DP+Xr/t + j/7Ur1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP9Z/ + 5D1r/wBe7fynrE0zSrt9WuIVuts6wgtL5KHcMRfLszgdRyPT3rq9T0CebVre/VcwRwlWbcvB + Il4xnJ+8Og71UvtJu9L1KTU7aHz0nhVSPMSLaRtGMsSTwgPQfex25AK954vk1W6ltormOzit + iVLSiNnkfcQcByBtG09DnoT97CzaB41mv7S83spns0fEkYBRsI21xnIJLIT0C4IwOoqvc+EZ + tLu57lLWK8iuWLASMgdG6nl1wASzcAE4AyRjnYstGleyuUNvFBNOkqrHCFHG0iMMw+UtknnO + MHtyAAcuviDU1sF1rz0Kq3MZiX5l8wpksB1zxhdo2jOd2c2tc8U3+kxwawzo0E7Lm3CgbVdS + yjzMbidoyTwA3QFeKt/8Itc/2L/Zuz/SP7m5f+e+/wC9nb93nr+tHi/wtc6hpttZRJuli8nc + u5RjbEytySAcE44NAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAV5/wDGv/jzj/6+F/8AQJK9Arz/AONf/HnH/wBfC/8AoElAHVeE/wDjztv+veH/ANAW + tasnwn/x523/AF7w/wDoC1rUAFFFMmmWFS7kBVBJJOAAOSST0AoAfRUNpdLdos0ZykihlOCM + hhkHB56VFcapHbSR2ztiSffsGCc7BluQMDA9SPagC3RRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUVXfUYkkFuXUSsMhCwDkc8hc5I4P5GgCxRUN1dpaKZZWVEGMs5CqMnAyTx1qra+I + ba7YRRTRO5zhUkRmOBk4AOelAGhRVd9RiSQW5dRKwyELAORzyFzkjg/kadcXaW23zGVd7BV3 + EDLHooz1J7DrQBNRVeXUI4ZEt2YCSUMUB/i2Y3Y9xkHHXGT0BxYoAKKKKAPKvH3/ACGbP/t3 + /wDR7V6rXlXj7/kM2f8A27/+j2r1WgAooooAKKKqahqken7PNbb5sixrwTlmztHAOM46nj3o + At0UVU0vVI9VjW5gbdG+cHBGcEg8EA9Qe1AFuiiigAooooAKKKKACiiigAooooAKKKKACiiq + 6ajE8htw6mVRkoGBcDjkrnIHI/MUAWKKqX2rQ6fjz5Ej3Zx5jqucYzjJGcZFPstRiv13wurq + DglGDDPXGQTzzQBYoqvbajFdMyRurNGcOFYMVPIwQDweD19DTJ9VigEhZ1/cLukAOWUYLZKj + JGQMjjntQBboqG0ulu0WaM5SRQynBGQwyDg89KmoAKKKKAPP/jX/AMecf/Xwv/oElHwU/wCP + OT/r4b/0COj41/8AHnH/ANfC/wDoElHwU/485P8Ar4b/ANAjoA9AooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAr5/+Fv8AyEYP+2n/AKKevoCvn/4W/wDIRg/7af8Aop6APQNG/wCQ + 9df9e6/ygpnxAiEGoadcJkSPLsJBIyodPl69PnYH1Bwcird34XvrfUJtUtDBiVFXExk6BUB4 + UdcpxyeKu6L4SlNwNUv5FkuFUqixjbGgJbgHgtw2BuHGTnccEAGF4r1GK+1a2t5XVIrMeYzM + wTDnDhcuQCDhOF5wW54O1/wsu0s5brS0ZWRJDJEQQ5ZThSS6/L02ccHJPHBA0tA8EMJ7m6v0 + ilNw4ZAf3uwAt8uXQcAFQMdh0GBQfBDWOoR6hZiOOHZtkQMyZzkEhVUrgDaccAsuTg/NQBS+ + Nf8Ax5x/9fC/+gSVq/FL/kHT/wDbP/0alP8AiH4Xl8SW628JUMsoYlyQMBWHYNz81XfGeiPr + dpJZxFQ8mzBckL8rqxzgE9B6UAZXgnVbuSK3he12weSg83zkPAj+VtgGfmwOO2eeldB4humt + LaeaM4eOGRlOAcFUJBweOtYWh2WqWCw27/ZTDEEUkebv2LgHGcDdgfTNdVNCsylHAKsCCCMg + g8EEHqDQByXwntVh0+N1GDI0jNyeSHKZ9uFA49PWszUIha69AUyPOgJfBPzYWQDIz0+ReOmQ + D15qxpPhK/8ADO+GxkheB23AXAcMp6dY+vAXJ45HCjnOx4d8KtYzSajcOHupwAxUbUVcL8ij + PIG0DceSAOAc5AOSbV/7K1u5l8uWXMKDbAm9hlYTkjI446+pFegaJq/9qoZfLliwxG2dNjHA + ByBk8c9fUGsfT/C8tvqc+qEr5UsQUAE78gRjkYxj5D3PauooA808W3EltrNtJBH5sgtzhN4T + OfOB+Y8DAyfwxVjw6W1/U3vLkCGazTYsGcvghgXLEAMvznBX1XOBgvt6h4XluNTg1QFfKiiK + kEnfkiQcDGMfOO470ar4XlN9DqlqVUgbZwxI3pwOij5mxn7xxlU9KAOS8K6jc2d5qH2a38/d + cHd+9WLbh5cfeBznJ6dMe9avxZvpF05Nw2NNJGJEyGx8rOV3Y5wyjkYzj0NP0/wvqOj3FzcW + xtyt1KWxKZSQNzFfugc/Nz1rpZtHbWLU2l/t3SAh/ILBRhsqVLc5GAeeM9iOKAKWt6rP4dQJ + bWvmW8EIJbzlTaEB+XDAscKAc85z61ieKdd/t7RXvduzzNvy7t2Ns4XrgemelSt4c1SCBtOS + W3kgMflq0qukgUoExhARx2J3E9Sewt3Xgd10s6PE6s/GHcFF/wBb5hyBuI4470AZmqeF5tYs + bG4tSBPaxRMgYgA/u1PcEbtyrjOF65rQ8L+Opbqf+zb6Ew3JDFcA7H2ls4znAwODllbBwRwD + ek0q+s4LaK0kiDwRqkiygmN8IFzuA3DaRxjGc89MGvo/hW4ku/7Vv3jaVEKRpCGCKMfe3MQS + eWyCD1zngAAGZ8R/+PzTf+vj/wBnhrV+KX/IOn/7Z/8Ao1Kf4t8Ly6xcWlxGVC2su5wxIJG5 + DxgHn5T1x2q74z0R9btJLOIqHk2YLkhfldWOcAnoPSgDz/UdXnurG202eJbe3nWFPtDvvXao + Vgdqj5S2ARuOMZzgAsux8TZl0uxh0qMjMpjjHmHHyRY+Yt8qg5C5JwME8dxvaj4R/tDTl02T + b5iQoFbsJI1ABBKkgEjBOM7SR3rHt/Bd3e3FtPfGKSK3iKMu55N5wwD7XTG45XcSeSufQAAy + bK5t9E1WA28qyQzwJCWDrIQygIoxH0J2R8kYOWx0+XqPil/yDp/+2f8A6NSqvjH4eLqCRmxS + KGeOQMHUGPjB/wCea9c7SDjjBwRk51/F2iy67ZvaLtWWQJ1YlAVdWI3bckcHB2jPoKALHhP/ + AI87b/r3h/8AQFrzDw7dNa6HduhwTMV6A8OIkYc+oJH8ua9X0Oyawt4bd8FookUkdMqoBxnH + HFc14S8CNp9lLpt2VYTOxzHzgMqgEblHzArkcHBwaANjwTara2NuiDAMKN1J5cb2PPqST/Li + uX8NxC01u8hjyEaIOVycFm8ti2CeuXbHpkgYFW9H8P6n4fj+x2z28kKElTMsiuN3JGEyMbic + ck89egG14W8KroQkcuZJrhy0khG3JySMKCQAMn8Se2AADyXw7C+nWketQgFrW7YOMKCyOka4 + 3HPHJUcEjeWGMGuz8N3S3et3E0ZyklqjKcEZDLAQcHnpWx4H8Gto9pJY3W1xK7k7C2CroqkZ + IUg8Hp+dZ/gfwDceH7p7maRZEMRjUgtvwGTbkEYACrjAY44A4oA6fxZ/x53P/XvN/wCgNXIf + DfVbuO1ghS13QbmHm+cg4Mjbm2EZ+XJ4744612+uWTX9vNbpgNLE6gnpllIGcZ45rktA0TVt + EgSziNoUj3YLmYt8zFjnAA6n0oAr/FSUWMlpeQ5+1rLhAoPzr3U7RkjJAC5GQ7AA5OLfwiSN + 7RrgEtNJK5mZuW3A8DcRkjaQ3U8s3PJAsf8ACHy3upf2nclDFEuIkU7iCPulsoB1LN1JVsYJ + Ao8O+D5dBvZpoin2SfnZnDqeowAmMAlgAGHykE5IxQBzXhXX/wCyLzUP3M0u+4P+oj34w8vX + kYznj1wa0NK0KW0tNRv5xsa9jlcRnlkG2RgCeOTv6YGMc8kgbvhLwvLo9xd3EhUrdS7kCkkg + bnPOQOfmHTPetrXLJr+3mt0wGlidQT0yykDOM8c0Aecf8y5/n/n6qHUdXnurG202eJbe3nWF + PtDvvXaoVgdqj5S2ARuOMZzgAsvTf8IVN/ZP9kbk831y2z/XeZ1256e3X860NR8I/wBoacum + ybfMSFArdhJGoAIJUkAkYJxnaSO9AGT8QfCn+gxvAWEmnqpRs4bagAbkFQCAobOM5XCjmm/D + Owa+afXJQd107BAW3YQNyM55GQFGQCAnHBrfj0q4msGsp2UztA8ZYFipJUqrEsNxJGCxx1zg + U/wZoj6JaR2cpUvHvyUJK/M7MMZAPQ+lAEXhvSLmxmuZbiTfHNJmJd7tsXc5xhgAvBHAyOPY + V0Fc/wCG9IubGa5luJN8c0mYl3u2xdznGGAC8EcDI49hXQUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFef/ABr/AOPOP/r4X/0CSvQK8/8AjX/x5x/9fC/+gSUAHwU/485P+vhv/QI69Arz + /wCCn/HnJ/18N/6BHXoFABXKfFL/AJB0/wD2z/8ARqV1dcp8Uv8AkHT/APbP/wBGpQByvwM/ + 5ev+2P8A7Ur1WvKvgZ/y9f8AbH/2pXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAV5/8AGv8A484/+vhf/QJK9Arz/wCNf/HnH/18L/6BJQB1XhP/ + AI87b/r3h/8AQFrWrJ8J/wDHnbf9e8P/AKAta1ABXL/EOZmt0tFJU3c8UO4H7oc5JxxkEAgj + IyD1rqK5T4jfuYIrw/ctbqCVwPvFQ23A7E5YdSB70AW/EWuHRRDaW0atLO2yJOQihRy52qfl + TjIGPlzg8Gucae8fUrJL1I1Km52PCxKMDCMjaxLAqepOM54HGTt+MLeSCW21ONGl+yu4aOMZ + crMu0sPUrgcY5zyQATWYb2fWL+zuDbSxQR/aMNIPm+aPB3KM+XyMDcfmzkUAbGtT6kHc2iQe + Wg+USs5dztBJG0hQMnaAxHIJJAIrP1jXJdd0try2VVEkUvmLLk4RVdZApXq2R8pOAR1A6Vi6 + vookuZmvrae6lkf9wYyRAsf/ACzUurLsOSQ+Qcfe5yS2x4Z0qX+xjaFGWVobhQjja2WaTaDu + xjOR1oAd4b1ibR7AXd95fkRwQmPyQ5cgqAAwbjccqOMDOckDms24+Ik9jtuZWtHhLDdHBNvu + FVv+BbWK8Z2jB7YHzCxFBJ4h0ttNEUsUsUEKjzo9gdkAOFJIyCUxk4xkE+lVIbxAgifSSbnI + UgW6CAtuwSJSDhe+cEdtxHzUAekUVj6t4gNhcW9mEL/ajIMhgNvlgEnB6jnnkHA4BOBWxQB5 + 1p/jTU7y2/tIQw+RGpZvmYM4VmDlPmO3aBzuzyMjdnaOtutSnvLeOexVS0wRh55IVVZd2WC5 + JPRcA9TnoDXP+HtOli0VrdkYS+RcjYVIfLGTA24zk5GPWq+taVLLZ2SSJK1vHHH9ohiH71iE + XYNvBIDD5hkEZzjIyoBt6Br9w1w+m3qIJVjEqtCT5bJkKeGO4EN+fPAwC1G78RX9xeT2FnHE + VhMWZJSwCh4y2CA2SSeAVHGORzkZvgrSRbX7TQW0tvbtakDzd2S3mLknJbaeDhc5wA3Q10Gg + 2jxX99KysEk+zbWIIVtsZBwehweuOlAGTaeKdS1ZT9mgiV4N6Tea2VMqEZRArZ6c5Y7ecbuM + tpnx7ELKPUypHnHaiFgMvkrtLn5QuVJ3HA2jOM8U/wAEWj232vzFZd99Oy7gRlTtwwz1B7Hp + XM23hme60i3iWPM8E3meVKuA2JX+Vg5XAIbJz1HHfNAF6z8dz288UNw1rLHO4jzaSFnVmICk + qzcqe+Bx1znAbva4LTL+GaSFY9MZJC6bmeBI0jxyzCTbyVxxwpPbBwK6V/EBW9GmBCcweaXD + Dj5iuCpxxx1BJyRxjJABsV5VNzv8Uj+G8XBH8Vsv7g7UP8T553Y6ZG3v2/je8mtbSQ2ys0zj + aojV2YbjgkbOQQuSDwAQPYHItfhekMQtvtNzs2kMqShYzn72E2kAEk8ZPXkmgCx8TJlm0yZ0 + IKsIiCDkEGRCCCOoNc/q76f4gQWulIv2vejI8UTQ+XtYFpGfauFA47ncVwCcYluba5udFezk + ik8+ErHt2csElQqVC53KEwNw64J56nb+IGksUTUrZSbq1dCuxWZnUthoyFIJXnJ68bhwGJoA + x/F+jNqmokRcTxWKyxHjiSOfK8Egc8r83AzkjipdX8Qp4ggsLuMY3ahAGXIJVhuyDj8x0JBB + wM1sQwtLqgugreU1gAGKMoyZd205Aw2Odp5HcVzniHw3PZX0RgVntri8inYKrt5bocOSeQA+ + 8sTx0xwF5AOg+Iv+iQJqK/fs5o3GOGZSwRo93VQwbnqDjBBrq65T4lfvrT7GPv3U0MSE/dDF + w2T3Awp6An2rq6ACiiigDyrx9/yGbP8A7d//AEe1eq15V4+/5DNn/wBu/wD6PavVaACiiigA + rl74reapBEQQba2llBB6mRhFgjHQAE9epHpz1FcvfBbPVIJSSTc20sQAHQxsJck56EEjp1A9 + eACKTxBe38032JImgtn2N5jMru6jLqp6KRnaCw255yRkDP8AB11PbaTA1sI92ZMtOxWNFDyM + zNjkjjHHQnJ4BqxbWd/oUs8VvEk0dzM0qyNIECNJ1DryWC4H3eSO+Thc8+E7r+yoLIx7nim3 + Sw+YF3p5jkpvBxzkHrxjP3gBQBq6D4smv3ksWa3e4EJkje3dng67Qr87gQ2CcZyp7Ec5/wAP + PtnmXG7yfK+2T+bjfv8AMwM7O23OMZ5xn2qx4X0KeG+N69tHbxNbFAkTIcN5gPzbcZY4JyBj + btBOQat+G7S60m4mgaEGCe5ll84SrwHAIHl43E5AB9z3AyQDEuPiTO4ku4TamBHO2N5Stw6K + cFgCRgtyQCu7/Zbjd6Bp16t/ElwmQsqKwB64YAjOM881wVt4Yl0QG2FhDdIGYpKXiV9pYlVf + zEyWA6kfLjAHQ10qahLaz2unqsXMLtME4CBFVVKDIIUudoyDwO2DgA0tcvWsLea4TBaKJ2AP + TKqSM4xxxXJWfi++Q2s9zHEtteMiDyyWkDOvyE5YABj83G4qvB+br1fiG1a7tp4Yxl5IZFUZ + AyWQgDJ461z99oE8ttp8IX57aa1aQbl+URphznODg+mc9s0AS+I9au7KTEbWkUXRTdSMGcgA + swCkAAFtuOuRnoRTb/xsx0w6xAoDYXCycgHzBGw+UjI64PHYkDpWfrPh+4a9lufs0dysqRrE + 00g2RYGGzGwJI3fMdozjODliKZ/wi1z/AGL/AGbs/wBI/ubl/wCe+/72dv3eev60AW7zxPqG + ktG9zBE0dw2xEic+YsjDMaMzfKc9CVGBy3oGu+H9eumupNOvljEgiWRGh3bCu7a2SzE5yQAM + Doe2M2PF+lyah9m8pd3lXkMjcgYVd248kZxnoOfaj+y5P7S+27f3X2Py92R97zd2MZz05zjH + vQBy9x8SZ3El3CbUwI52xvKVuHRTgsASMFuSAV3f7LcbvQNOvVv4kuEyFlRWAPXDAEZxnnmu + CtvDEuiA2wsIbpAzFJS8SvtLEqr+YmSwHUj5cYA6GulTUJbWe109Vi5hdpgnAQIqqpQZBClz + tGQeB2wcAHQV5vbB4mi8REkLLcv5gcLERBNthiLNnlU2qwGCDuzngset8Y2s97avbWw/eTYT + JKhVVjhyd3bbkfKC3PA7jH1H4VWLxOsMQWUowQmSXAYg7SfmPAPsfpQBX+IFzBa3djJd7TAP + tO7eu9eUUDK4OecdvejwaILy+mu7AbbUQojYVkR5c5yq4A+VeDwCCc4+bJtw6fd3s2n3U8eH + gWcTfMhwWQIrfKQDvIzhQducHpVuz0J9M1CS5iH+j3Uf7wDYNsqHhiODhgT03EsSW4wQAcfp + v/Enmn1kfdTUJ4p/+uUjJhu5+R8HCjc2cZwK6rw7/wAhHUP+3X/0Uam8N6A0SXkNyvyXN1Ow + G4fNHIAM5U5GRn0I9qz/AIe+HLnRpLn7TyreSkb/AC/MsIZFO1ScfLt68+uTmgC78PCsMElm + gO20uZ4gSclgHLAnAHPzY/DPfA6iuX+HgWaCS8Qnbd3M8oBGCoLlQDgnn5c/jjtk9RQAUUUU + Aef/ABr/AOPOP/r4X/0CSj4Kf8ecn/Xw3/oEdHxr/wCPOP8A6+F/9Ako+Cn/AB5yf9fDf+gR + 0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV832vh6/tGEsUNwjjOGSORWGRg4I + GelfSFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFA + Hz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn + /p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f + 8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP + /I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFA + Hz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn + /p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f + 8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP + /I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFA + Hz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn + /p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f + 8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP + /I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFA + Hz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn + /p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f + 8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP + /I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFA + Hz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn + /p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f + 8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP + /I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFA + Hz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn + /p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f + 8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP + /I9fQFFAHz//AMTn/p8/8j0f8Tn/AKfP/I9fQFFAHz//AMTn/p8/8j1XvdO1S/XZMl06g5Ad + ZWGemcEHnmvoiigDh/hFp0thaOkyMjGdiA6lTjYgzggccV3FFFABXKfFL/kHT/8AbP8A9GpX + V1ynxS/5B0//AGz/APRqUAeVeBf7R/e/2Z/seZ/qv9rb/rPx6fj2rq/+Kj/z9lo+Bn/L1/2x + /wDaleq0AeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCf + stH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHl + X/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7 + LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR + /wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/x + Uf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16 + rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8A + FR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/ + AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0U + AeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LXP+Nf7W8lf7R/1XmDH+p+9tbH+r56Z9v0 + r3WvP/jX/wAecf8A18L/AOgSUAc/pP8Ab/kx+R/qvLTZ/wAe/wB3aNv3uemOvPrVv/io/wDP + 2Wu/8J/8edt/17w/+gLWtQB5V/xUf+fstQ3dr4hu0aGQZSRSrDNsMhhgjI56V63RQB5JaWvi + G0RYYxhI1CqM2xwFGAMnnpU3/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH + /FR/5+y16rRQB5ENP18Sm62jzSgTd/o2doJbb7DJycdeM9Bix/xUf+fsteq0UAeVf8VH/n7L + R/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7L + VeDT9ft3eZFAeUqXb/RsnaoVefQAcDp1PUnPrtFAHlX/ABUf+fstH/FR/wCfsteq0UAeVf8A + FR/5+y0f8VH/AJ+y16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHj9xpev3Mkdy65kg37Dm3GN4 + w3AODkeoPtVv/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPn/X/7R+2Q/av+Pv8Ad+V/ + qv752fd+X72ev48V1f8AxUf+fstHj7/kM2f/AG7/APo9q9VoA8q/4qP/AD9lo/4qP/P2WvVa + KAPKv+Kj/wA/Zaqahpev6hs81d3lSLIvNuMMudp4IzjPQ8e1ewUUAeVf8VH/AJ+y0f8AFR/5 + +y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstMEPiEMXAG4gAnFrkgZIGfQZOPq + fWvWKKAPKv8Aio/8/ZaP+Kj/AM/Za9VooA8q/wCKj/z9lo/4qP8Az9lr1WigDyr/AIqP/P2W + j/io/wDP2WvVaKAPKv8Aio/8/ZaYIfEIYuANxABOLXJAyQM+gycfU+tesUUAeVf8VH/n7LR/ + xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LUN3a+IbtGhkGUkUqwzbDIYYIyO + elet0UAeSWlr4htEWGMYSNQqjNscBRgDJ56VN/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0 + UAeFeNf7W8lf7R/1XmDH+p+9tbH+r56Z9v0rtfgp/wAecn/Xw3/oEdHxr/484/8Ar4X/ANAk + o+Cn/HnJ/wBfDf8AoEdAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFcp/wtLT + v+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/ + z2/8hy//ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/AOIo + A6uiuU/4Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDEUf8A + C0tO/wCe3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4Wlp3/ + AD2/8hy//EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5Dl/8A + iKAOrorlP+Fpad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv/wAR + R/wtLTv+e3/kOX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP+Fpa + d/z2/wDIcv8A8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5 + Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xF + H/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/h + aWnf89v/ACHL/wDEUf8AC0tO/wCe3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/ + 5Dl/+IoA6uiuU/4Wlp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/ + APEUf8LS07/nt/5Dl/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKAOror + lP8AhaWnf89v/Icv/wARR/wtLTv+e3/kOX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv+e3/ + AJDl/wDiKAOrorlP+Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAh + y/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iKAOro + rlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C0tO/ + 57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe3/kOX/4igDq6K5T/AIWlp3/P + b/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A4igD + q6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5Dl/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR/wAL + S07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv/wARR/wtLTv+e3/kOX/4igDq6K5T/haWnf8A + Pb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP+Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX/wCI + oA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH + /C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3 + /Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe3/kO + X/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy//EUf + 8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5Dl/8AiKAOrorlP+Fp + ad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv/wARR/wtLTv+e3/k + OX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP+Fpad/z2/wDIcv8A + 8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU + /wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8A + kOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL + /wDEUf8AC0tO/wCe3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiu + U/4Wlp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/n + t/5Dl/8AiKAOrorP0TX4NbQzWzb0DFSdrLyADjDAHoRWhQAVynxS/wCQdP8A9s//AEaldXXK + fFL/AJB0/wD2z/8ARqUAcr8DP+Xr/tj/AO1K9Vryr4Gf8vX/AGx/9qV6rQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/ABr/AOPOP/r4X/0CSvQK + 8/8AjX/x5x/9fC/+gSUAdV4T/wCPO2/694f/AEBa1qyfCf8Ax523/XvD/wCgLWtQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlXj7 + /kM2f/bv/wCj2r1WvKvH3/IZs/8At3/9HtXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/ABr/AOPOP/r4X/0CSj4Kf8ecn/Xw + 3/oEdHxr/wCPOP8A6+F/9Ako+Cn/AB5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAV81eFtC/t65Sy3bPM3fNt3Y2qW6ZHpjrX0rXz/8AC3/kIwf9tP8A0U9ADNZ8 + MWuj3BsZriQMpUFhbqUG4Bs/67dgA84GfQGuj1X4PJpcT3Ut1hI1JP7kZOOgGZQMk8AZ5JAo + 8R6N/a+o6hCBl1tVdMLubcggbAHXLAFeOee/Qy33iD/hJrWw03LF55FE2yTdIFiO0lhgn5h+ + 8y3A255xmgDF8KeAYfE/meRO6+Vtz5kCj72cYxM3901D4p8F2/ht1hmuHZ3XdiO3BwM4BJaV + RyQemenOOM938OP+PzUv+vj/ANnmrmlkg8RPqN3JKiGVdkAMiR7whDKdshyM+XHknA5YcH7o + Bof8KM/6ef8AyD/9srn9I8Aw6rbS6hHO4jg37g0ChjsQOcATEdDxyOa9N+GusDU7GI8boh5b + AAjGzhevUlNpJHGT26DkvAH/ACBrz/t4/wDRC0Ac54V8DW/iVnSG4ZWjAJEkKgkHIyAJmyB3 + 9Mj1oh8BxXH2kRyyu1m4V1S2DMxLFPlAm5A2knOOOa0PDsp8NpY6wMCGUSQzYAHWVyGJALE4 + GeBnEYXPIFdR8OP+PzUv+vj/ANnmoA83Tw3E8htx9qMqjJQWYLgcclfPyByPzFaGt+A4tHWA + ySylrofIi2wLg/L8pUzD5vmAwM85Fdxo3/Ieuv8Ar3X+UFRfFKRornT3jXe4mYquQu4h4sLk + 8DJ4z2oA5TRPhn/armLdcRYUndPabFOCBgHzTzz09Aaz/DXhS28QS/ZYrh1faSPMgQA4xkDE + xJOOcY6AntXtWhajc3m77Tb+Rt27f3qy7s5z90DGMDr1z7V474dhfTrSPWoQC1rdsHGFBZHS + NcbjnjkqOCRvLDGDQBbtvhpFcXcmli4bzYkDEmAbMEKeD5uc/OO3rUPir4fQeGVRp7liZCQo + SAE/LjJ5lAwMjvnngdcdd4bulu9buJozlJLVGU4IyGWAg4PPSqN7c2+t6rObiVY4YIHhDF1j + JZgUYYk6kb5OQMDC56/MAVdO+DK38SXCXJCyorAGHnDAEZxIeea5y28KW092dN+0OsgkaPc0 + CBNy5GM+dnkjC8ZJIGK9F+EOp+batZMV320jD5eRtclgdwJVstuAKnGAPqeNk0t7l9Ru4cCa + zu1lU4UnCPMW5boB94jnO0DB4oALn4aRW93HpZuG82VCwIgGzADHk+bnPyHt6VDrHw9h06T7 + MJ5JpgATHBbGR1U/xH94AB0755Bxg5ro4dZXWtWsbtOBJascc8ECcMuSBnBBGcc4yOK0Pg7/ + AKTDPevzLNcNvbpnChhwOBy7HgDr7CgDirDwBFeRzy+dKjWq7pI5bbbIBtLg483HIBxyPfAI + Jz7Xwql2oliF26HOGSyDKcHBwRPjrXt/iz/jzuf+veb/ANAauQ+G+q3cdrBClrug3MPN85Bw + ZG3NsIz8uTx3xx1oAz/+FGf9PP8A5B/+2VyN14Yto2cQzSzrEMu8FruRevVjKvHyk5+6RyCe + a+g68st4b74emQRxCeyZ2fg5dRg4JIGQdqgsSpTjAIJNAGfL8JYYoPtzXgEOwPuMJHysARxv + zk5GBjJPGM1z8vhSGIeYz3AhyP3xsyItrEAPnzc7TkEcZPpniu28baxH4i/s5Uyba6nyykbS + drIhBI5BG5hwcdwTwa9NoA8SufhpFb3celm4bzZULAiAbMAMeT5uc/Ie3pRrfw0i0eWC3kuG + LXT7UKwAgHKjnMo4+YdM966LxbcSW2s20kEfmyC3OE3hM584H5jwMDJ/DFVfFWo3N5eaf9pt + /I23A2/vVl3ZeLP3QMYwOvXPtQBzmveA4tHnWyMsskrpuAhtg+Rlh084HI2knjpUtn8OFuIp + rh3niW3QsRNa7CwAYnbmbkjb7dRXUeLbiS21m2kgj82QW5wm8JnPnA/MeBgZP4YrptSvZ7uw + unuYfJcQzAL5iyZHln5srx1yMe3vQB41/YEPl/as3Plf3/si7Ou373n468devFdKfhTE1udQ + S63xLGz5SHkhQSQAZBzxjBxg8HFd18Lf+QdB/wBtP/Rr1yXhqIWsWsWqZEUQlCLkkDiZe5PO + FAJ6nAzQBS0D4TJrcCXkVwwSTdgPAA3ysVOcSkdR61X0T4aRaxLPbx3DBrV9rloAATlhxiU8 + fKeuO1ehfC3/AJB0H/bT/wBGvWV8OP8Aj81L/r4/9nmoA5Lwv8NIvEkRuIbhgquVIeAA5AB7 + Stx81VNe8BxaPOtkZZZJXTcBDbB8jLDp5wORtJPHSu4+Cn/HnJ/18N/6BHVTxbcSW2s20kEf + myC3OE3hM584H5jwMDJ/DFAHP6F8K/7X3fPNFs2/6+12Zznp+9OcY59Mitb/AIUZ/wBPP/kH + /wC2V3UUt1qltKskf2adldUHmh8Ep8r7kHHJ+oxmpfC2nzafbJBcv5kq7tzbmbOWJHzMATgE + DmgDgP8AhRn/AE8/+Qf/ALZR/wAKM/6ef/IP/wBsr1WigDyr/hRn/Tz/AOQf/tlH/CjP+nn/ + AMg//bK9VooA8q/4UZ/08/8AkH/7ZR/woz/p5/8AIP8A9sr1WigDyr/hRn/Tz/5B/wDtlH/C + jP8Ap5/8g/8A2yvVaKAPKv8AhRn/AE8/+Qf/ALZR/wAKM/6ef/IP/wBsr1WigDyr/hRn/Tz/ + AOQf/tlH/CjP+nn/AMg//bK9VooA8q/4UZ/08/8AkH/7ZR/woz/p5/8AIP8A9sr1WigDyr/h + Rn/Tz/5B/wDtlH/CjP8Ap5/8g/8A2yvVaKAPKv8AhRn/AE8/+Qf/ALZR/wAKM/6ef/IP/wBs + r1WigDyr/hRn/Tz/AOQf/tlH/CjP+nn/AMg//bK9VooA8q/4UZ/08/8AkH/7ZR/woz/p5/8A + IP8A9sr1WigDyr/hRn/Tz/5B/wDtlH/CjP8Ap5/8g/8A2yvVaKAPKv8AhRn/AE8/+Qf/ALZR + /wAKM/6ef/IP/wBsr1WigDyr/hRn/Tz/AOQf/tlH/CjP+nn/AMg//bK9VooA8q/4UZ/08/8A + kH/7ZR/woz/p5/8AIP8A9sr1WigDyr/hRn/Tz/5B/wDtlH/CjP8Ap5/8g/8A2yvVaKAPKv8A + hRn/AE8/+Qf/ALZR/wAKM/6ef/IP/wBsr1WigDyr/hRn/Tz/AOQf/tlH/CjP+nn/AMg//bK9 + VooA8q/4UZ/08/8AkH/7ZR/woz/p5/8AIP8A9sr1WigDyr/hRn/Tz/5B/wDtlH/CjP8Ap5/8 + g/8A2yvVaKAPKv8AhRn/AE8/+Qf/ALZR/wAKM/6ef/IP/wBsr1WigDyr/hRn/Tz/AOQf/tlH + /CjP+nn/AMg//bK9VooA8q/4UZ/08/8AkH/7ZR/woz/p5/8AIP8A9sr1WigDyr/hRn/Tz/5B + /wDtlH/CjP8Ap5/8g/8A2yvVaKAPKv8AhRn/AE8/+Qf/ALZR/wAKM/6ef/IP/wBsr1WigDyr + /hRn/Tz/AOQf/tlH/CjP+nn/AMg//bK9VooA8q/4UZ/08/8AkH/7ZR/woz/p5/8AIP8A9sr1 + WigDyr/hRn/Tz/5B/wDtlH/CjP8Ap5/8g/8A2yvVaKAPKv8AhRn/AE8/+Qf/ALZR/wAKM/6e + f/IP/wBsr1WigDyr/hRn/Tz/AOQf/tlH/CjP+nn/AMg//bK9VooA8q/4UZ/08/8AkH/7ZR/w + oz/p5/8AIP8A9sr1WigDyr/hRn/Tz/5B/wDtlH/CjP8Ap5/8g/8A2yvVaKAPKv8AhRn/AE8/ + +Qf/ALZR/wAKM/6ef/IP/wBsr1WigDyr/hRn/Tz/AOQf/tlH/CjP+nn/AMg//bK9VooA8q/4 + UZ/08/8AkH/7ZR/woz/p5/8AIP8A9sr1WigDyr/hRn/Tz/5B/wDtlH/CjP8Ap5/8g/8A2yvV + aKAPKv8AhRn/AE8/+Qf/ALZR/wAKM/6ef/IP/wBsr1WigDyr/hRn/Tz/AOQf/tlc/wCNfhv/ + AMIxCtz53mbpAmPL29VY5zub+76V7rXn/wAa/wDjzj/6+F/9AkoAPgp/x5yf9fDf+gR16BXn + /wAFP+POT/r4b/0COvQKACuU+KX/ACDp/wDtn/6NSurrlPil/wAg6f8A7Z/+jUoA5X4Gf8vX + /bH/ANqV6rXlXwM/5ev+2P8A7Ur1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAK8/+Nf8Ax5x/9fC/+gSV6BXn/wAa/wDjzj/6+F/9AkoA2PDHh6OW + 0t3LS5aCInFzOo5QdAJAAPYDA7Vpf8I1F/em/wDAq4/+OUeE/wDjztv+veH/ANAWtagDJ/4R + qL+9N/4FXH/xyj/hGov703/gVcf/ABytaigDJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/AByt + aigDJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABytaigDJ/4RqL+9N/4FXH/xyj/hGov703/g + Vcf/ABytaigDJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABytaigDJ/4RqL+9N/4FXH/xyj/h + Gov703/gVcf/ABytaigDJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABytaigDJ/4RqL+9N/4F + XH/xyj/hGov703/gVcf/ABytaigDJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABytaigDJ/4R + qL+9N/4FXH/xyj/hGov703/gVcf/ABytaigDJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/AByt + aigDJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABytaigDJ/4RqL+9N/4FXH/xyj/hGov703/g + Vcf/ABytaigDJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABytaigDx/xvpiQataQgvtbyMlpZ + GbmZhw7MWHtgjB5HNelf8I1F/em/8Crj/wCOVwHj7/kM2f8A27/+j2r1WgDJ/wCEai/vTf8A + gVcf/HKP+Eai/vTf+BVx/wDHK1qKAMn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcrWooA + yf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxytaigDJ/wCEai/vTf8AgVcf/HKP+Eai/vTf + +BVx/wDHK1qKAMn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcrWooAyf8AhGov703/AIFX + H/xyj/hGov703/gVcf8AxytaigDJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHK1qKAMn/ + AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcrWooAyf8AhGov703/AIFXH/xyj/hGov703/gV + cf8AxytaigDJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHK1qKAMn/AIRqL+9N/wCBVx/8 + co/4RqL+9N/4FXH/AMcrWooAyf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxytaigDJ/wCE + ai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHK1qKAMn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/ + AMcrWooA8y+LukJZWiOhkJM6j55pZB9x+zuwzx1xmrvwU/485P8Ar4b/ANAjo+Nf/HnH/wBf + C/8AoElHwU/485P+vhv/AECOgD0CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvn/4 + W/8AIRg/7af+inr6Ar5/+Fv/ACEYP+2n/op6APWNP8Ly2+pz6oSvlSxBQATvyBGORjGPkPc9 + qx/Cfw1bRb571tnlDzPKVWcsu44XOQAcISDknk9+tegUUAcVpvhC5086hIjJvvGJiId1K5Mn + JITIIDgjGeRjI61a8LeA4dPtkguYoZJV3bm8tWzliR8zKCcAgc11dFAHJeCvCc3h2W4Ulfs0 + r7o1V3JXBOBtZcZKkAncT8o69RX8MeCptKsLjT5GQyT+btKlio3xhBklQeo54PFdrRQByml+ + DCum/wBkXBXcVcFkyVBLl1YfdJ2nBxxnGOlV/h54PuPDzTvcurtOUOVZmOV3liSyjk7vfvXZ + 0UAcvp/heW31OfVCV8qWIKACd+QIxyMYx8h7ntUXjjwvcaxLbXFsYw1q7NiUsATlCv3QePl5 + 6V1tFAGJon2/eftn2fy9px5Hmbt2RjO/jGM++cVm+B/BraPaSWN1tcSu5Owtgq6KpGSFIPB6 + fnXW0UAef+DPAVz4euJLp3SUGFo0yzhjgrsByp2jC44LbegBAq74P8ArYROL9IppnlZt5XzD + gherOoOcgn8c967OigDj9C8HSaLfy3UOxbWZceWrMCDgHds27fvbgBkYDHGPu1Y8JeF5dHuL + u4kKlbqXcgUkkDc55yBz8w6Z711FFAHnmifDebStQW8V1NtEZNiln3qrq+FAIIwGc/xc8t1O + KtweDLrQZ5bjTXi8u4OWjnVgq4OV2mPsMsAOAAQDuPI7iigDmo9KvryC5iu5Ii88bJGsQIjT + KFc7iNx3E85zjHHXAydA0TVtEgSziNoUj3YLmYt8zFjnAA6n0ru6KACuKu9G1a7jaykmtzHJ + lWl2MJSjHn5QNmdvGP8Ax7PzV2tFAHH6p8N4r6yi04NtaDBWQLk5P3+Cc4cknAYYOOwxQLXW + ZFETSWy/dBkRXaTAIywVhsJI7YA9MdR2FFAHL6h4XluNTg1QFfKiiKkEnfkiQcDGMfOO470e + LfC8usXFpcRlQtrLucMSCRuQ8YB5+U9cdq6iigDjPEnhe7uL6LVLQxZii24mL9TvB4UdMPxy + Oa0BZX1/b3Fvd+QGliZYzD5mMsrA7t2eOR0966OigDgtF8O6rpcCWEclukan/WAO8gDOWYgM + uwnkjBA47g81v6B4Ph0e1OnjLrIG8wkkbi67WPB+UY4AB4HcnJO9RQBwmk+GNS8O77ezkhe3 + 3ZQXHmblB5I+QY69ecE/MApJFbfhDwgvh1XO9pJZm3SSNkFiCccZPqcnJJJJJ6AdBRQB554X + 8L6p4biNvCbUqzliXMpOSAOwXj5at6z4Xvri7g1SEwebFAFYOZNm8hw2ABnb8/GSD613FFAH + PwW9/cwzxXBhWR4yImgMgwxVhkluRg4wRz19qteFtPm0+2SC5fzJV3bm3M2csSPmYAnAIHNa + 1FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/8a/+POP/AK+F + /wDQJK9Arz/41/8AHnH/ANfC/wDoElAB8FP+POT/AK+G/wDQI69Arz/4Kf8AHnJ/18N/6BHX + oFABXKfFL/kHT/8AbP8A9GpXV1ynxS/5B0//AGz/APRqUAcr8DP+Xr/tj/7Ur1WvKvgZ/wAv + X/bH/wBqV6rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFef/Gv/jzj/wCvhf8A0CSvQK8/+Nf/AB5x/wDXwv8A6BJQB1XhP/jztv8Ar3h/9AWtauX8 + MeIY4rS3QrLlYIgcW07DhB0IjII9wcHtWl/wksX92b/wFuP/AI3QBrUVk/8ACSxf3Zv/AAFu + P/jdH/CSxf3Zv/AW4/8AjdAGtRWT/wAJLF/dm/8AAW4/+N0f8JLF/dm/8Bbj/wCN0Aa1FZP/ + AAksX92b/wABbj/43R/wksX92b/wFuP/AI3QBrUVk/8ACSxf3Zv/AAFuP/jdH/CSxf3Zv/AW + 4/8AjdAGtRWT/wAJLF/dm/8AAW4/+N0f8JLF/dm/8Bbj/wCN0Aa1FZP/AAksX92b/wABbj/4 + 3R/wksX92b/wFuP/AI3QBrUVk/8ACSxf3Zv/AAFuP/jdH/CSxf3Zv/AW4/8AjdAGtRWT/wAJ + LF/dm/8AAW4/+N0f8JLF/dm/8Bbj/wCN0Aa1FZP/AAksX92b/wABbj/43R/wksX92b/wFuP/ + AI3QBrUVk/8ACSxf3Zv/AAFuP/jdH/CSxf3Zv/AW4/8AjdAGtRWT/wAJLF/dm/8AAW4/+N0f + 8JLF/dm/8Bbj/wCN0Aa1FZP/AAksX92b/wABbj/43R/wksX92b/wFuP/AI3QBrUVk/8ACSxf + 3Zv/AAFuP/jdH/CSxf3Zv/AW4/8AjdAGtRWT/wAJLF/dm/8AAW4/+N0f8JLF/dm/8Bbj/wCN + 0AcB4+/5DNn/ANu//o9q9Vrx/wAb6mk+rWkwD7V8jIaKRW4mY8Iyhj7YByeBzXpX/CSxf3Zv + /AW4/wDjdAGtRWT/AMJLF/dm/wDAW4/+N0f8JLF/dm/8Bbj/AON0Aa1FZP8AwksX92b/AMBb + j/43R/wksX92b/wFuP8A43QBrUVk/wDCSxf3Zv8AwFuP/jdH/CSxf3Zv/AW4/wDjdAGtRWT/ + AMJLF/dm/wDAW4/+N0f8JLF/dm/8Bbj/AON0Aa1FZP8AwksX92b/AMBbj/43R/wksX92b/wF + uP8A43QBrUVk/wDCSxf3Zv8AwFuP/jdH/CSxf3Zv/AW4/wDjdAGtRWT/AMJLF/dm/wDAW4/+ + N0f8JLF/dm/8Bbj/AON0Aa1FZP8AwksX92b/AMBbj/43R/wksX92b/wFuP8A43QBrUVk/wDC + Sxf3Zv8AwFuP/jdH/CSxf3Zv/AW4/wDjdAGtRWT/AMJLF/dm/wDAW4/+N0f8JLF/dm/8Bbj/ + AON0Aa1FZP8AwksX92b/AMBbj/43R/wksX92b/wFuP8A43QBrUVk/wDCSxf3Zv8AwFuP/jdH + /CSxf3Zv/AW4/wDjdAGtRWT/AMJLF/dm/wDAW4/+N0f8JLF/dm/8Bbj/AON0Aa1FZP8AwksX + 92b/AMBbj/43R/wksX92b/wFuP8A43QByvxr/wCPOP8A6+F/9Ako+Cn/AB5yf9fDf+gR1S+L + urpe2iIgkBE6n54ZYx9x+7oozz0zmrvwU/485P8Ar4b/ANAjoA9AooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAr58+Gcoi1CFznCiUnALHiJ+gAJJ9gMntX0HXz/8AC3/kIwf9tP8A + 0U9AHsv/AAmNvv8AI/e+Zt3bfs8+7bnG7b5ecZ4z0zViHX45bgWIDb2gEwJXaNpbbgg4YNns + Rx354rH/AOYz/wBw/wD9r1XvYHn1fajmP/QOWVVLY87oNwKg5xyVbjIABIIAOo1TVI9Kja5n + bbGmMnBOMkAcAE9SO1W64KXxZcPov9phgJ8Abgo7TCMnaQRkjrxjJ4A4xa1fX5bG7eO4kaCA + iMQOI1aFmIO4SMQSDnsGT5VJyvDEA627ultEaaQ4SNSzHBOAoyTgc9Kz7DxRb3zJGjNulUsm + +OSMOAASVLqobgg8Z456UeLP+PO5/wCveb/0Bq5C3Z7hNLguQqQfunR0YsTJHGDErFlQJuye + BvLEbRj71AHZXviKGyl+yuWMpTftSKSQ7c7d3yK3GRirFrqsV1ELtHUxFS2/OFwOpOcYxjnO + MYIOMVy97ctb6vuSNpD9gxhCgP8Aruvzsgx+Ofas3UQdDtTDcMsb6neEuA65ijmI8wbmBDbV + GC2AAWyOgJAO60vVI9VjW5gbdG+cHBGcEg8EA9Qe1V08RwPIYAxJV9hIRzGH4+QybdgbJAxu + zuIXrxWF4S1SIXl3aQsjJIyzoY235LqFlJYFgMOB8pweeBtxivZGbwKnlSgSWCv8sgIEkSu3 + RkwN43t1XJxk46KADsru6W0RppDhI1LMcE4CjJOBz0otLpbtFmjOUkUMpwRkMMg4PPSqviG6 + a0tp5ozh44ZGU4BwVQkHB461zTa1cztpsSybftcLtKdikkiJWyMjAOScdgcZVgNpAO1orn/B + 2qSX6zpK24wXUsQYgBiqEYJ2gDPOOAB7Zqve3s8+o/YElMcX2TzDtRC27zduQWBweg5DDGcA + EhgAdRRXm8niS8trO5u2mDPZXJiGI0USYkQEuOeCGwAmwjuWPI6rXNQWKVYTPIjFNwS3h81y + AcFm/dy4XoF4Xndy3RQDT1DVI9P2ea23zZFjXgnLNnaOAcZx1PHvVuuCtfFlxcWdhdFgJJ7u + OOQhR8y73U8EHBO0EkY56YHFS6jq9y0uoqkxRLOJHQKiE5MJfGWU/KSORjPTDKAQQDuKK8/8 + USPqUOnXRdlM1xaEqgTaGdS28blY5GcAElcdVJ5roNWvRbulu1xKr+XnbDCJZGAOC7gRSAAn + AGFQZ3deAoBq6pqkelRtczttjTGTgnGSAOACepHardcFL4suH0X+0wwE+ANwUdphGTtIIyR1 + 4xk8AcYl1HV7lpdRVJiiWcSOgVEJyYS+Msp+UkcjGemGUAggHcUVxmpeK5SligJRr1N7vFGZ + GUKiuypHh8ls4yQ20ZJB6iKXxfcaZb3Uro0gtynlSTRtDvEpxgqVXJjJwSAu4Y4XOSAdRe62 + lpPDZsG33PmbSANo8tdxzznp0wD+FWru6W0RppDhI1LMcE4CjJOBz0rjb6zltdQ09ZpTKcXP + LIqnPlDd9wAbTxgYJHOWbIx0Xiz/AI87n/r3m/8AQGoAsS61DFB9uZwIdgfccj5WAI4xnJyM + DGSeMZp/9qR+T9t3fuvL8zdg/d27s4xnpzjGfauKbXI4ItMspHVEkjikkYuq4EMaugO4HAaQ + DnIztIHU4u+B5IbyG50sbWihllVQjFgYZiWT5wxyTlhwcjHOD1AOlv8AWobCE3kjgQgKd4yw + wxAUjaDkHI6U/UNUj0/Z5rbfNkWNeCcs2do4BxnHU8e9cFb2w8QQ2ujzAN5DzpM0bFdv2VDE + pG4fMT5iNnpnquMgXdFvv7bexgkLboIXllSVMsZIiLdWJPIIfew5zkAkA4IAO7rP1fW00ryv + MDHz5kiXaAcM+cE5I4456n2qp40hMtnPhmXbDKTt2/MAjfKdytwe+MH0IrktQgeOx0wByWa5 + sypdVIXMZwMIEyo9zuPdqAPSKK5Kz8QS2T38UjGVbJEdSwVXO6IuVJRVXGV4O3IzzniqOl+I + rl/s04Ms32hlEsf2Z0jRZeQ6SbBxH0OWcOOcjqADu6Kz/EN01pbTzRnDxwyMpwDgqhIODx1r + krjVby2hsbsThjdPCjo0SeX++Thht2vkdSN2GbptX5aAO9orj7bXXtnvbeefEdr5BErqm8CV + MsMKqqTxhPlPzEZD/dp+h65I981jvkkiNt5mZ4vKcMJNuAPLiypB7g8jg9RQB1tFedXniW7h + t7y+Ev8Ax6XjIibE2lRIi7WOMkYbjaVbqSxyNvS/2pJ/aX2Ld+6+x+ZtwPvebtznGenGM49q + ANq7ultEaaQ4SNSzHBOAoyTgc9Kq6Nq/9qIJhG6IyqymTZ8wYZBAR2I49cdfrjlJb6bVbPUf + MkYeRNdou1UGUROEOVPHPJ4b/aqxpdx9hs7RHuJFMsSFQkSySnEanaqrG3yKMkkoW5GXHRgD + s6K4S38ay21jdXjfvGtrh40LrsYjcoUuoC8jfyAF6Y4OTWh4h0qeKzn33Lvi3kLZjiXJCHgY + ThTzkct02uuDuAOrorhIr6bSrPTvLkY+fNaI25UOEdOUGFHHHB5b/arb/tST+0vsW7919j8z + bgfe83bnOM9OMZx7UAdBRXGaTrc7LeXkshZLOe5CxhUXcsa5Cs20nA4xjBBzuLAgCvpfiK5f + 7NODLN9oZRLH9mdI0WXkOkmwcR9DlnDjnI6gA7us/SNbTVfN8sMPImeJtwAyyYyRgnjnjofa + sfT72e+v7q3MpWG3NuVVUTJ3puI3EH5Tzn+LptZcEGXxW02mxGazRi0k8ZmMSh5NmArMitkb + sKq9CMZJHVgAdHRWT4a1NNRi82Kbz03EByoV+MZDABRkHp8q/KV4P3mwtX1+Wxu3juJGggIj + EDiNWhZiDuEjEEg57Bk+VScrwxAOzorlLnxK2jS3cdw6sscInhBwrbTlTGWChfvgBeCx3Dlj + 0z7/AFi60owC8kljgNvmWaOONyJiRlXwjgKPurheSRy3JAB3dFcJrtu9zfae4nY+Ys5DRiPa + MQrkplX4fr8xfg8EVY1HxBLc3U9mkkkK26IAYbczlnkXcGbEb7VXpt4LcndxgAHZ0VxWoeJL + trWzmx5E891HG6umRgl1OVbBAOAcZBxwG71LHNdJftphuGMbW4lDGOPzVw+wqCFCcnklkPHA + APzUAdhRWD4G1iTWLOK6mwZGDAkDGdrsucepxk44z0AHFUtOurjX2uWSZoFhmeFFRI3GYxy7 + F1JOSR8o24Axkk5oA29a1tNJVXcMxkkSNFQDczOeAMkAdzkkDjrnFWrWYzKHZWQnPyvtLDnv + sZh78E/nXnWrak/iC20++LNGZbyFSqbCoZWkXzBuUnPHAJKgcEE8n0iFCihSSxAAJOMnHc4A + GT7AD0FAD6K80XxBerpa6z5+XVuUMUexl80pg4Gc+6lRtGMbsuegTVZ7O8ezklUp9jM26RFC + owcqcBSp8sDnDMWwPv8AUkA6uqlvqkdzJJbI2ZINm8YIxvGV5Iwcj0J965Wz8Rt9rtYYpZZY + rlZc+fCIxhUDoyERRZz3+8MHtkGpbjX50k1NA3FrDG0Xyr8pMLOT055Gec/lQB2FFcVpetXK + S2Akk3i+hdnBRVUFYldSu0Zz/eySDk4VRgCpprPpd3qVyZHf7PHC5B8seZiFiAxEYxjHG0D3 + 3UAegUVwml+Irl/s04Ms32hlEsf2Z0jRZeQ6SbBxH0OWcOOcjqNO9vZ59R+wJKY4vsnmHaiF + t3m7cgsDg9ByGGM4AJDAA6iiuK0bxM1/Z2088zRyTeYMQRB5HMbEZC7JOAFJfCdSMFRwXaT4 + jmuLK8mLEvbPcrG7IFfEa7kLLtA3DPI2jpyM5oA7OiuK0vWrlJbASSbxfQuzgoqqCsSupXaM + 5/vZJBycKowBd0m9n1yS4kWUxLbztCiKiMpMfVnLDcQxP3VKYAwGyd1AHUUVxmo+IJbm6ns0 + kkhW3RADDbmcs8i7gzYjfaq9NvBbk7uMDoPDeoy6jbxzzxmKVgdyEEYIJGcNyAcZAPQHqetA + GhNMsKl3ICqCSScAAckknoBVLTNeh1PHlFuV3DfG8e5ePmXeq7hyMkZAyM9RlniTQ1123ks2 + YqJAPmHOCpDA47jIGRxkdx1rCTxXPoym31BFMqwyPG8bfJMYU3uMYyhxjqME5xjgEA7CiuE0 + vxFcv9mnBlm+0Molj+zOkaLLyHSTYOI+hyzhxzkdQ2fxRcXjXMkTSK1vK0ccUds0yOYuTvcI + eZOmAybBg89SAd7WTf8Aii3sWeN2bdEoZ9kckgQEEgsUVgvAJ5xxz0q9p1y11EkrqUZ0Vih6 + qWAJU5A5HToPpXOfDD57COU8vI0rOx+8zGRhuJ6k4A5PPFAHS2t2l2oliZXQ5wyEMpwcHBHH + Wpq4Tw/dNY2momI7fs9xeeWABtQKu5QFPAAPOMY9qmi1q5so7K8kk8wXbQxuhRVUGZcq6lRk + FcfMCSGycBBgAA7WivOrXxjc3cA1KLzXcyEi2S3dojGG2FRMI87sfNv3Yz8uztXQeJNQnju7 + S0hk2Lcefv8AlVjhEBGNw4I5x2zjcGA2kA6WiuP8SaubJZlS5l82CHdtjhVwDsJUyMInALEE + nmMbcYUfeOf4okfUodOui7KZri0JVAm0M6lt43KxyM4AJK46qTzQB2txqkdtJHbO2JJ9+wYJ + zsGW5AwMD1I9qt1yXirxBLoctsqsWTyrppAQoL+TDvXJC/Kc/wB0Ae2OKqXmr3OnWSay0xck + RyPCURYyspA2KQu9SocYYs2SvIOcUAdxRXL3t7PPqP2BJTHF9k8w7UQtu83bkFgcHoOQwxnA + BIYZkHiS8vNNgvYwzSPIBKYUVpPLV2VmVDkFjtHYgZJwAMgA7usxPElu9wdODjz1GShBHYNw + SME4OcAk4z6HDPDWppqMXmxTeem4gOVCvxjIYAKMg9PlX5SvB+83FajGYby/1CNd0tm1pIMb + QSvlESrlgcAxk9OcgEZIAoA7jXPElvoSq9y4QOcLwWJx14UE4Hc4wMj1FadeZfECZNahubtC + HitkijjYFGTfJIjyspGTkLsXOQPvDHWuv1zUFilWEzyIxTcEt4fNcgHBZv3cuF6BeF53ct0U + A3qK4KXxZcPov9phgJ8Abgo7TCMnaQRkjrxjJ4A4xsWOoTwX5sJJPMRrUS8qq7W8woQu0Z24 + 7MWYYHzHnIB0tFef/wDCU3P9i/2lv/0j+/tX/nvs+7jb93jp+tafinWja+f5dxIJYYiwSGEO + q/KSvmMY5MEkE8sg244HLEA3dX1tNK8rzAx8+ZIl2gHDPnBOSOOOep9qdrWsR6PC93NnZGMn + AyTkgAAepJA7D1IHNcr4jvWv7fTbh8Bpbu0YgdMspJxnPHNWPitCXsJXDMAuzKjbtbMiYzlS + eOo2ke+RQB1FlctcLueNoznGHKE/X5GcY/HPHSrFc1rN9NaSWumxyNuuWk3TMqFwsQ3kBQoT + LA7QduAOcE807TdRltr1tMkcyqYBMrsFV1+bYUOxVVhnkHAI6HPBAB0dFcv8P72fVLaO9uJS + 5cONoRFXhyATgZLcY4IXGPlyCx6igAooooAKKKKACvP/AI1/8ecf/Xwv/oElegV5/wDGv/jz + j/6+F/8AQJKAD4Kf8ecn/Xw3/oEdegV5/wDBT/jzk/6+G/8AQI69AoAK5T4pf8g6f/tn/wCj + Urq65T4pf8g6f/tn/wCjUoA5X4Gf8vX/AGx/9qV6rXlXwM/5ev8Atj/7Ur1WgAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK8/8AjX/x5x/9fC/+gSV6 + BXn/AMa/+POP/r4X/wBAkoA6rwn/AMedt/17w/8AoC1rVk+E/wDjztv+veH/ANAWtagAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPK + vH3/ACGbP/t3/wDR7V6rXlXj7/kM2f8A27/+j2r1WgAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP/AI1/8ecf/Xwv/oElHwU/485P + +vhv/QI6PjX/AMecf/Xwv/oElHwU/wCPOT/r4b/0COgD0CiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACvn/wCFv/IRg/7af+inr6Ar5/8Ahb/yEYP+2n/op6APcP7ET7T/AGhlvM8n + ysZG3bv35xjOc++MdqP7ET7T/aGW8zyfKxkbdu/fnGM5z74x2rQooA5//hCofsX9kbn8r1yu + /wD1nmdduOvt0/OrGs+GV1cGOWSTynKl4wV2NtIPUqXUHaMhGUd+pJOxRQBX1GyW/ie3fIWV + GUkdcMCDjOeeaozeHI5YI7PLAQeVsf5S6mLG1huUjPGDxyCR0Na1FAGf/Yifaf7Qy3meT5WM + jbt3784xnOffGO1FxoiXM8d65YtArhFyAoL8M3AySRxySMdBnmtCigCjdaUtxNFdFmDQiQAK + cKwkABDDHIG0EcjkA1SuPCy3e1JpZZIlYHynKFDt+6GIQO4BwcMzZIBbdW3RQBX1GyW/ie3f + IWVGUkdcMCDjOeeaz4/C8SNbOC2bJGVORyGQId3HJwO2Oa2KKAM/SNETSvN8ssfPmeVtxBwz + 4yBgDjjjqfej+xE+0/2hlvM8nysZG3bv35xjOc++Mdq0KKAOfn8FQzQT2ZZ9l1MZXIK7gxZW + wPlwBlR1BPvVjVPDK30v2pZJIpfKMRaIqCUJ3Y+ZWwQeQVw3v0xsUUAc/B4Khhggswz7LWYS + oSV3FgzNg/LgjLHoAferEnheJ2uXJbN6iq/I4CoUG3jg4PfPNbFFAGPc+F4riCG0JYC2MRjc + Ebw0QwrcgqTjrlSOenTDL7wst24uBLKkohMTSRlAzKSDzlCAc85QKQTx2xt0UAc//wAIVD9i + /sjc/leuV3/6zzOu3HX26fnViTwvE7XLktm9RVfkcBUKDbxwcHvnmtiigDHm8LxSRQwgsrWo + URSKQJF2gL1wQQwGGBBUjqOmJToKzxvBcM06ygBvN29B0ACKigg87gN2cc/KuNOigDBg8JKk + sN08ssklsGCGRlPDLtwQFGT33feJ+8WAAGtqNkt/E9u+QsqMpI64YEHGc881YooAx9K8Lxad + IJ1LMyQJCu4j5UTsNoGSSMknJz0wOKtDSlFwb0M24xCMrn5CAxYNjH3hkgHPQnjmr1FAGPYe + FYLG5l1BARLOAD0CjpuwAByxALE5OeRjJyaJ4Xi0eWe4jLFrp9zhiCAcseMAcfMeue1bFFAE + N3ardo0MgykilWGSMhhgjI56Vjjwihiht3kkZbWWOSMnYCPKGFU7UGV/8e/2q3qKAMyDw/FF + LPcHLG7CB1bBTCKUAAx0IPOc5qLT/Dn2ELGk0vlIfljLLtAByq7tnmbV4wC/QbTlcg7FFAFf + UbJb+J7d8hZUZSR1wwIOM555rPn8LxTRW9uS220eJkIIyTEMLu45B74x7YrYooAwb3wbBem5 + Mm4/bBGHGQMeUMIVwOCOvOQSOmOKfp/hZbS4bUGllklaPy/3hTaFyDgBEUDkduOScZOa26KA + Ofn8FQzQT2ZZ9l1MZXIK7gxZWwPlwBlR1BPvVjUvDK3k63yySRTIhTdGV5UnO0q6spAJJHHX + nsMbFFAGJZ+EorSGe0VnKXTSMxZtzAyrtbDEZ6dC2456k0S+FI2W3Cu6PZrtjdSpbBTYQQys + pyAM/L1HGK26KAMHTPBsFlBJZtuljndnfziGYlgMnIC8/KCD1B5zmrFv4fCo0MsssyNGY8Ss + PusMNyioSSP4myw5wRls61FAHPz+DI7i3SxeSUrCyNG4ZVkQxjC4Kqo4GeSCec5zgixZeGVt + rj7eZJHlMXlkuVwRu3Z2qqgHjHy4HcjcSTsUUAZmm+H4rBZkGWW4lkkcPgjMmAy4wPl46HPu + TUWn+HPsIWNJpfKQ/LGWXaADlV3bPM2rxgF+g2nK5B2KKAM+y0RLSea8UtvufL3AkbR5a7Rj + jPTrkn8KsXtobldodkIOQyEZHbowZSMHowI7jkAixRQBn6LoiaSrIhZjJI8js5G5mc8k4AA7 + DAAHHTOar6z4ZXVwY5ZJPKcqXjBXY20g9SpdQdoyEZR36kk7FFAHNeJNJbULuzID7I2kd2Rg + FATY6qwI53SKmBnoCcfxLpaxon9pqyGSRFdCjhCuGU5HR1fB5PK4J7k4XGnRQBj3fheKbyCh + aNrQERMhBKqV2FcSBwQRjqCeOD1y668PLJKbuJ3hkZQrmLZhwPu7ldHBK9A2M4OM44rWooAy + b3w6l6sKSM58iZZQxYFmZSTzkYwSTwoAHRcAAVN/Yifaf7Qy3meT5WMjbt3784xnOffGO1aF + FAGfoGiJokCWcRYpHuwXILfMxY5wAOp9KqT+FlLSPDLLD5/LrCUClsEFxuRirEdSpBOATzzW + 3RQBj3HhWCSOC3UFI7WVJECYHKZwDkHIOST3J5zmtiiigDn/APhCofsX9kbn8r1yu/8A1nmd + duOvt0/OrV34aiu5mupNxMluYGXOFKM249BnPbOenvzWtRQBzlj4JS1lhuDLK5tUKRq5TYFK + lOiovOD16nAyTircnheJ2uXJbN6iq/I4CoUG3jg4PfPNbFFAGPH4XiRrZwWzZIypyOQyBDu4 + 5OB2xzTv+EcjE8l0C379VWVDtaNwqlRkMpPQ4wpAOOQec61FAGPp/hz7CFjSaXykPyxll2gA + 5Vd2zzNq8YBfoNpyuQbH9iJ9p/tDLeZ5PlYyNu3fvzjGc598Y7VoUUAc5beB4bWOCKN5Fa0M + hjcFC483O8EMhQg5/u5GBg9cy6b4PisLeayDyMtwZC7OwL5kUKxztHPGeQeeua3qKAMePwvE + jWzgtmyRlTkchkCHdxycDtjmg+GVSR5YpJIhMQZEjKhGPQtypZWYcMyFScA53c1sUUAZN14e + WSU3cTvDIyhXMWzDgfd3K6OCV6BsZwcZxxUy6RhopPMl/c78jf8AK5cclxjBweVAwF6KAMAa + FFAEN1b/AGhSmWXOMMhwwIOQR269iCD0YEEg5sXhlGk8+dmnbYUXzghVVbO/CoirlhwxIJI4 + zjIrYooAx9P8OfYQsaTS+Uh+WMsu0AHKru2eZtXjAL9BtOVyCHw2I5Hmglkh80gusfllC3d9 + siPhj/ERjdgE5PNbFFADIYhEoQZwoAGSWPHqSSSfcnJ71iN4SVGlaCWWETklxGy4LNnLjerl + WOeqleg9BW9RQBiavpS2thNaW6YUW8qoiAk5KHgdSSSfcknuTVLw74XXybWScyMYYoysUh+R + H2DLYI3blOdu4kJkhQuBjqKKAMS38LLabkhlljiZifKQoEG77wUlC6AnJwrLgkldtW73REu5 + 4bxi2+28zaARtPmLtOeM9OmCPxrQooA5/VfBkd+0ziSWP7SqLKImUBggIHLKxHBwQpAI6g5O + bFz4XiuIIbQlgLYxGNwRvDRDCtyCpOOuVI56dMbFFAGTe+HI754ZpSztbrIo3bdriVNjbxtw + cjsMD2xxVVfBke1bd5JXt42ysLspjwCSqk7d7KpxhWYjgA5AroKKAM/+xE+0/wBoZbzPJ8rG + Rt279+cYznPvjHaq+neGV023SyhkkURElXBXf8xYnOV2EfMRgqR0P3gCNiigDP0XRE0lWRCz + GSR5HZyNzM55JwAB2GAAOOmc0yDw/FFLPcHLG7CB1bBTCKUAAx0IPOc5rTooA5xPAlulmdJB + YRMclhtEhO8PknbgngDp90AVb1Twyt9L9qWSSKXyjEWiKglCd2PmVsEHkFcN79MbFFAHP/8A + CFQ/Yv7I3P5Xrld/+s8zrtx19un51of2In2n+0Mt5nk+VjI27d+/OMZzn3xjtWhRQByjfDqF + oGsfNmFuzbhGHXap3BuCVzj/AGWLDndjfhhb1XwZHftM4klj+0qiyiJlAYICByysRwcEKQCO + oOTnoKKAMefwvFNFb25LbbR4mQgjJMQwu7jkHvjHtirGv6ImtwPZylgkm3JQgN8rBhjII6j0 + rQooAz9W0RNS2MSySRNuSRCA6nvgkEEMOGUggjqOmGaboK2cjXLM0kzgAvJt3BR0QBVVVXPJ + AAyeTnjGnRQBn6BoiaJAlnEWKR7sFyC3zMWOcADqfStCiigAooooAKKKKACvP/jX/wAecf8A + 18L/AOgSV6BXn/xr/wCPOP8A6+F/9AkoAPgp/wAecn/Xw3/oEdegV5/8FP8Ajzk/6+G/9Ajr + 0CgArlPil/yDp/8Atn/6NSurrlPil/yDp/8Atn/6NSgDlfgZ/wAvX/bH/wBqV6rXz/4F/tH9 + 7/Zn+x5n+q/2tv8ArPx6fj2rq/8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io + /wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9 + Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCK + j/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8A + z9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK + 8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8 + /ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/Z + aP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv + +Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2W + gD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Vrz/AONf/HnH/wBf + C/8AoElZX/FR/wCfstc/41/tbyV/tH/VeYMf6n721sf6vnpn2/SgD1/wn/x523/XvD/6Ata1 + eP6T/b/kx+R/qvLTZ/x7/d2jb97npjrz61b/AOKj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2Wg + D1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8A + P2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/i + o/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2 + Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4q + P/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loAPH3/IZs/8At3/9HtXqtfP+v/2j9sh+ + 1f8AH3+78r/Vf3zs+78v3s9fx4rq/wDio/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr + /io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9V + oryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9l + oA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/ + AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/ + 4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaANX41/8ecf/Xwv/oElHwU/485P+vhv/QI64rxr + /a3kr/aP+q8wY/1P3trY/wBXz0z7fpXa/BT/AI85P+vhv/QI6APQKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAK+f/AIW/8hGD/tp/6KevoCvn/wCFv/IRg/7af+inoA9L+IHipEtJ + 44JGWWNkXcm9QGDoWQSABSwUnKhtwGcjg46fUtZi04qshO6QkKqqzu2Bk4VAzEAdTjA79RXn + t7YzWukvo/kytPG2PkjZkI84SB1fowIIGB84OcqACR0Gv6fJBfpfgyrE1uYi1ugldWDlxuQp + IdpHGVUkMADgHkAu6742i061GoRAyqwBXaGCn5gpy4VghGejYJIK9a05NdijVZDv+fOFEUpk + wpwT5YTeADjkrjkc8jPJax4eL6bdRWwldp5fN/eqFdjuRnITahA+U4BUEkHaCCudjXdUmc27 + Qealu7Sea6QsZVwp2Dy3jZgGbOTs9OQDyAX5NajvLeW4ik2iNZAXKEtGyA5JjYA5XrtIyfoa + wr3V2juNNYzExSRTs7/6tHCwqwdl4AH8WD92qXh6zlewvwySh5pLplWVNsjB4xtO0ADJP90Y + zkCifR3m/sxHidkS1mWVQCCN1uq7CSVCljkDJXnuKAOw0zXodTx5Rbldw3xvHuXj5l3qu4cj + JGQMjPUZ0K4rw1JNpTyQp50tlDbhk82FklDAn90u5UL5AOOMD5VBHfr7S4+0osuGXeoO1xhh + kZwR2I7j1oAmooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/4 + 1/8AHnH/ANfC/wDoElegV5/8a/8Ajzj/AOvhf/QJKAD4Kf8AHnJ/18N/6BHXoFef/BT/AI85 + P+vhv/QI69AoAK5T4pf8g6f/ALZ/+jUrq65T4pf8g6f/ALZ/+jUoA5X4Gf8AL1/2x/8Aaleq + 15V8DP8Al6/7Y/8AtSvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigArz/41/8AHnH/ANfC/wDoElegV5/8a/8Ajzj/AOvhf/QJKAOq8J/8edt/17w/ + +gLWtWT4T/487b/r3h/9AWtagAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKAPKvH3/IZs/8At3/9HtXqteVePv8AkM2f/bv/AOj2r1Wg + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKAPP/jX/wAecf8A18L/AOgSUfBT/jzk/wCvhv8A0COj41/8ecf/AF8L/wCgSUfBT/jzk/6+ + G/8AQI6APQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+dfAWqR6VexXM7bY035OC + cZjYDgAnqR2r6Kryr/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8A + EVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv + /wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8 + hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/P + b/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWn + f89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCF + pad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/ + AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDi + KP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/ + AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ + 5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/ + AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/5 + 7f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS0 + 7/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/w + tLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1 + X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tl + AHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/ + +2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8A + kH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz + /wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf + 9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4 + UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2y + j/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg/ + /bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8A + yD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5 + /wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP + +nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8 + KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFc + r/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8A + EVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv + /wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8 + hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/P + b/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWn + f89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCF + pad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/ + AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDi + KP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/ + AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ + 5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/ + AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/5 + 7f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS0 + 7/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/w + tLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1 + X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tl + AHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/ + +2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4UZ/08/8A + kH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2yj/hRn/Tz + /wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg//bKP+FGf + 9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8AyD/9so/4 + UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5/wDIP/2y + j/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP+nn/AMg/ + /bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8KM/6ef8A + yD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFcr/woz/p5 + /wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8AEVyv/CjP + +nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiKP8AhaWnf89v/Icv/wARXK/8 + KM/6ef8AyD/9so/4UZ/08/8AkH/7ZQB1X/C0tO/57f8AkOX/AOIo/wCFpad/z2/8hy//ABFc + r/woz/p5/wDIP/2yj/hRn/Tz/wCQf/tlAHVf8LS07/nt/wCQ5f8A4ij/AIWlp3/Pb/yHL/8A + EVyv/CjP+nn/AMg//bKP+FGf9PP/AJB/+2UAdV/wtLTv+e3/AJDl/wDiK4/4oeM7TW7ZIbaT + e4mViNjrwEcZyygdSKm/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsoA1fgp/x5yf8AXw3/AKBH + XoFc/wCCvCn/AAjELW2/zN0hfO3b1VRjGW/u+tdBQAVynxS/5B0//bP/ANGpXV1ynxS/5B0/ + /bP/ANGpQByvwM/5ev8Atj/7Ur1WvKvgZ/y9f9sf/aleq0AFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/AMa/+POP/r4X/wBAkr0CvP8A41/8ecf/ + AF8L/wCgSUAdV4T/AOPO2/694f8A0Ba1q5fwx4ejltLdy0uWgiJxczqOUHQCQAD2AwO1aX/C + NRf3pv8AwKuP/jlAGtRWT/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45QBrUVk/8I1F/em/8 + Crj/AOOUf8I1F/em/wDAq4/+OUAa1FZP/CNRf3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jlAGtRW + T/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45QBrUVk/8I1F/em/8Crj/AOOUf8I1F/em/wDA + q4/+OUAa1FZP/CNRf3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jlAGtRWT/wjUX96b/wKuP8A45R/ + wjUX96b/AMCrj/45QBrUVk/8I1F/em/8Crj/AOOUf8I1F/em/wDAq4/+OUAa1FZP/CNRf3pv + /Aq4/wDjlH/CNRf3pv8AwKuP/jlAGtRWT/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45QBrU + Vk/8I1F/em/8Crj/AOOUf8I1F/em/wDAq4/+OUAa1FZP/CNRf3pv/Aq4/wDjlH/CNRf3pv8A + wKuP/jlAGtRWT/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45QBrUVk/8I1F/em/8Crj/AOOU + f8I1F/em/wDAq4/+OUAcB4+/5DNn/wBu/wD6PavVa8f8b6YkGrWkIL7W8jJaWRm5mYcOzFh7 + YIweRzXpX/CNRf3pv/Aq4/8AjlAGtRWT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOUAa1 + FZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5QBrUVk/8ACNRf3pv/AAKuP/jlH/CNRf3p + v/Aq4/8AjlAGtRWT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOUAa1FZP/AAjUX96b/wAC + rj/45R/wjUX96b/wKuP/AI5QBrUVk/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8AjlAGtRWT + /wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOUAa1FZP/AAjUX96b/wACrj/45R/wjUX96b/w + KuP/AI5QBrUVk/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8AjlAGtRWT/wAI1F/em/8AAq4/ + +OUf8I1F/em/8Crj/wCOUAa1FZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5QBrUVk/8A + CNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8AjlAGtRWT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj + /wCOUAa1FZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5QByvxr/484/8Ar4X/ANAko+Cn + /HnJ/wBfDf8AoEdUvi7pCWVojoZCTOo+eaWQfcfs7sM8dcZq78FP+POT/r4b/wBAjoA9Aooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK5T4pf8g6f/tn/ + AOjUrq65T4pf8g6f/tn/AOjUoA5X4Gf8vX/bH/2pXqteVfAz/l6/7Y/+1K9VoAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP8A41/8ecf/AF8L/wCg + SV6BXn/xr/484/8Ar4X/ANAkoA6rwn/x523/AF7w/wDoC1rVk+E/+PO2/wCveH/0Ba1qACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + 8q8ff8hmz/7d/wD0e1eq15V4+/5DNn/27/8Ao9q9VoAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/AONf/HnH/wBfC/8AoElHwU/4 + 85P+vhv/AECOj41/8ecf/Xwv/oElHwU/485P+vhv/QI6APQKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAK8U/4XXef3If++X/+OV7XXz18OLRLu/hilVXQ+ZlXAZTiNiMg8daANr/h + dd5/ch/75f8A+OUf8LrvP7kP/fL/APxyu21TUdG0qRraeOFZExkfZs4yARyIyOhHetDRrLS9 + aXzLaK3cDriJAw5IGVKgjODjIGeo4oA85/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcr + vtcbSNDZUuY4EZxkDyAxx0zhUOB6Z64OOhrSu/DthaI00lvCEjUsx8lDgKMk4C56UAeX/wDC + 67z+5D/3y/8A8co/4XXef3If++X/APjldX/wkug/3Yf/AAFP/wAbrT1dtI0hUeeOALMCUIgD + hgMHIKI3HzD654oA4H/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxyuwtNb0O7dYY0hLyMFUfZ + iMljgDJjx1rpf+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlegKmk + tOLBY7cznPyrCrcrnIJCkAjacgkH25FXdQ0PT9Oja4mggWNBkkxJ/wDE8k9AByTwOaAPMv8A + hdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyu+0NtI1xmS2jgdkGSPICnHTOGQZHrjpkZ6ina2m + k6JgXMduhOML5Ks2Dnnaqk44POMZ4zmgDz//AIXXef3If++X/wDjlH/C67z+5D/3y/8A8cr1 + X/hE7P8A594f+/Kf/E1la6mlaDt+0xQp5m7b/o4bO3GfuofUdaAPP/8Ahdd5/ch/75f/AOOU + f8LrvP7kP/fL/wDxyvTdP0PT9RjW4hggaNxkERJ/8TwR0IPIPB5rNtp9IupzYJHCZwzLt+z4 + 5TO4ZKY4we/0oA4T/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvS9T0jTdLQzTxW6IO7 + RRjJwTgDGScA4AyT2FZWmaloupuIYlty56BoAmSSAAC6KCSTwByfSgDif+F13n9yH/vl/wD4 + 5R/wuu8/uQ/98v8A/HK9G1my0vRV8y5it0B6ZiQseQDhQpJxkZwDjqeKZodvpeuqz20UDhDh + v3KqRnpwyg4PY4wcH0NAHnn/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDP + vD/35T/4muautc0O1YxsLckY+5AHXkZ4ZEIP4H260Acf/wALrvP7kP8A3y//AMco/wCF13n9 + yH/vl/8A45XcareaNpTKkyQAugdcW4cFWzhgUQjBx61Y0JNK17d9mihfy9u7/RwuN2cfeQeh + 6UAef/8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV1f8Awkug/wB2H/wFP/xutO7bSLSB + L544PJlICsIA2SQTjCoSDwc5HBGDg0AcD/wuu8/uQ/8AfL//AByj/hdd5/ch/wC+X/8AjldX + /wAJLoP92H/wFP8A8brbmsdMhnSwaGETyLuVfIXkDdznZgfdPU9qAPOf+F13n9yH/vl//jlH + /C67z+5D/wB8v/8AHK7C71vQ7R2hkSEPGxVh9mJwVOCMiPHWrc0+kQwJftHCIJG2q32fqRu4 + xsyPunqO1AHCf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OV6hdeHrC0Uyyw26IMZZ441UZOB + kkY61hafq+iahIsEaQF3OFBt9uT2GWQDJ7c8ngc0AcZ/wuu8/uQ/98v/APHKP+F13n9yH/vl + /wD45XoeuW+l6EqvcxQIHOF/cqxOOvCqTgdzjAyPUVdtPDthdos0dvCUkUMp8lBkMMg4K56U + AeX/APC67z+5D/3y/wD8co/4XXef3If++X/+OV1f/CS6D/dh/wDAU/8Axurf9o6N5P23y4fK + 8zy932b+Lbuxjy89Oc4x70AcT/wuu8/uQ/8AfL//AByj/hdd5/ch/wC+X/8AjleoXXh6wtFM + ssNuiDGWeONVGTgZJGOtc/a65od0wjUW4Jz9+AIvAzyzoAPxPt1oA4//AIXXef3If++X/wDj + lH/C67z+5D/3y/8A8cr0vVNH07So2uZ4IVjTGT5CnGSAOApPUjtUWiWOma2hmtoYXQMVJ8hV + 5ABxhkB6EUAec/8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6NoljpmtoZraGF0DFSfI + VeQAcYZAehFX/wDhE7P/AJ94f+/Kf/E0AeVf8LrvP7kP/fL/APxyj/hdd5/ch/75f/45Xqv/ + AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/ + 75f/AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13 + n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A3y// + AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C67z+5 + D/3y/wD8co/4XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNAHlX/ + AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/K + f/E0AeVf8LrvP7kP/fL/APxyj/hdd5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7P/n3 + h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/flP/ia + P+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jleq/8ACJ2f/PvD/wB+ + U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ + 2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C67z+5D/3y/wD8co/4XXef3If++X/+OV6r + /wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNAHlX/AAuu8/uQ/wDfL/8Axyj/AIXXef3I + f++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E0AeVf8LrvP7kP/fL/APxyj/hd + d5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE0AeVf8AC67z+5D/AN8v + /wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/wuu8/ + uQ/98v8A/HKP+F13n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V + /wALrvP7kP8A3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/v + yn/xNAHlX/C67z+5D/3y/wD8co/4XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/5 + 94f+/Kf/ABNAHlX/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDPvD/35T/4 + mj/hE7P/AJ94f+/Kf/E0AeVf8LrvP7kP/fL/APxyj/hdd5/ch/75f/45Xqv/AAidn/z7w/8A + flP/AImj/hE7P/n3h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/w + idn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jle + q/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A3y//AMco/wCF13n9 + yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C67z+5D/3y/wD8co/4 + XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNAHlX/AAuu8/uQ/wDf + L/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E0AeVf8Lrv + P7kP/fL/APxyj/hdd5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE0Ae + Vf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/ + 78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/ + +feH/vyn/wATQB5V/wALrvP7kP8A3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/ + +Jo/4ROz/wCfeH/vyn/xNAHlX/C67z+5D/3y/wD8co/4XXef3If++X/+OV6r/wAInZ/8+8P/ + AH5T/wCJo/4ROz/594f+/Kf/ABNAHlX/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjleq/ + 8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E0AeVf8LrvP7kP/fL/APxyj/hdd5/ch/75f/45 + Xqv/AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5 + /ch/75f/AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP + +F13n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A + 3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C6 + 7z+5D/3y/wD8co/4XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJriPi7odvYWiPDFGjGdQS + iKpxsc4yAOOKAOl+HniiXxJbtcTBQyylQEBAwFU9y3PzV1Fef/BT/jzk/wCvhv8A0COvQKAC + uU+KX/IOn/7Z/wDo1K6uuU+KX/IOn/7Z/wDo1KAOV+Bn/L1/2x/9qV6rXlXwM/5ev+2P/tSv + VaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/AONf + /HnH/wBfC/8AoElegV5/8a/+POP/AK+F/wDQJKANjwx4hjitLdCsuVgiBxbTsOEHQiMgj3Bw + e1aX/CSxf3Zv/AW4/wDjdHhP/jztv+veH/0Ba1qAMn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLc + f/G61qKAMn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ABuj/hJY + v7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ + ABuj/hJYv7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLcf/G61qKAMn/hJYv7 + s3/gLcf/ABuj/hJYv7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLcf/G61qKA + Mn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLc + f/G61qKAMn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ABuj/hJY + v7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ABuj/hJYv7s3/gLcf/G61qKAMn/hJYv7s3/gLcf/ + ABuj/hJYv7s3/gLcf/G61qKAPH/G+ppPq1pMA+1fIyGikVuJmPCMoY+2Acngc16V/wAJLF/d + m/8AAW4/+N1wHj7/AJDNn/27/wDo9q9VoAyf+Eli/uzf+Atx/wDG6P8AhJYv7s3/AIC3H/xu + taigDJ/4SWL+7N/4C3H/AMbo/wCEli/uzf8AgLcf/G61qKAMn/hJYv7s3/gLcf8Axuj/AISW + L+7N/wCAtx/8brWooAyf+Eli/uzf+Atx/wDG6P8AhJYv7s3/AIC3H/xutaigDJ/4SWL+7N/4 + C3H/AMbo/wCEli/uzf8AgLcf/G61qKAMn/hJYv7s3/gLcf8Axuj/AISWL+7N/wCAtx/8brWo + oAyf+Eli/uzf+Atx/wDG6P8AhJYv7s3/AIC3H/xutaigDJ/4SWL+7N/4C3H/AMbo/wCEli/u + zf8AgLcf/G61qKAMn/hJYv7s3/gLcf8Axuj/AISWL+7N/wCAtx/8brWooAyf+Eli/uzf+Atx + /wDG6P8AhJYv7s3/AIC3H/xutaigDJ/4SWL+7N/4C3H/AMbo/wCEli/uzf8AgLcf/G61qKAM + n/hJYv7s3/gLcf8Axuj/AISWL+7N/wCAtx/8brWooAyf+Eli/uzf+Atx/wDG6P8AhJYv7s3/ + AIC3H/xutaigDJ/4SWL+7N/4C3H/AMbo/wCEli/uzf8AgLcf/G61qKAPMvi7q6XtoiIJAROp + +eGWMfcfu6KM89M5q78FP+POT/r4b/0COj41/wDHnH/18L/6BJR8FP8Ajzk/6+G/9AjoA9Ao + oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/8Ahb/yEYP+2n/op6+gK+f/AIW/8hGD + /tp/6KegDsG1+DRNbuZrltiGFFB2s3JWE4woJ6A1oeCrT+0NQudYhXbayKUQkbS7ZTcwX0JU + kk4JJ9dwGhpmgTw6tcX7LiCSEKrbl5IEXGM5H3T1Haui1t5UgkNuCZtjBANv3iMKfnIXAPJz + 2HQ9CAeYXelt4wl1G8XJWJPLhwPNBMZDfI3GC2zouf8AW9/4uo0/Wf7X0Z5icutrKj5bc25E + Zck9csAG55579TU8LfC22+zJ9th/0j5t/wC8b+8dv3H2/dx0/nUXh3wtdaXDf6fsbypVl8gl + ozklWQZIIILDb1AAwfu9wDB0/wAUrBpK6e8EhMoeNZHVVg3O7EHzGOMr16cFeoxkel+EdDbQ + 7WOzdgzIDkjplmLEDPYZxnjPXA6Vj6D4SaXShpd0NjlZAeQ20mRnRvlbBwcHGeeh71oeBYbm + 2tEgvE2SRfIPmVsqMbT8nAwPl9flyetAHP8AwU/485P+vhv/AECOvQK4/wCF+gT6JbPDcrsc + zMwG5W4KIM5UkdQa7CgDzI6LDo+tWkFugRPIc4GTkkTZJJJJP1PQAdAKu/FD/SZrCyfmKa4+ + demcMijkcjh2HBHX2FVL221G5v4tV+x48mMps+0RHOQ4zu7ff9D0963vFvh2bWo7e9jAW6tS + JFiYhkLfKzRlhjkFQAcgHvgHIAMz4hfub/TpU+V2mKlhwxXfGNpI5xhm46cn1NUvjHosMEP2 + xUAmlnjDPySQsbgDk8DgZxjOBnOK1Y9GuvEN5DeXsQghtRlI/MWQs5Od25MYAwpOePlAAO5s + V/iVpt7ry/YoLfMaSK4l82MbvkII2EgjBYjr296APQK86+KVqt3c6fDIMpJMysMkZDPECMjn + pXa6Jez3aF7mHyXDEBfMWTIwPmyvHXIx7e9c/wCNdAn1K5sZoV3JBNukO5Rgb4znBIJ4U9M0 + Ac54X8RPoWn3ls5JlsXZVKhSoMjFVxnGQJNzHcOh79Bn+FtLXTtQ05Rgl7QyEgYyZFmbn1IB + C57gDp0rT8bfDubVtQW4jVjBL5XmsHQFcHY2AeeEAPQ8/lXQanoE82rW9+q5gjhKs25eCRLx + jOT94dB3oAz/APkL640UvKWUIaNeq7iEO4g5Gcv1GD8q+nNv4uaYl1YtOw+eBlKkYz8zBCM4 + zgg5wMcgelHiDwzcW16us2IV22hZYi5QuOF4JO37uODgAqGwx4pmq6Ze+LlW1uIhawBw0mJh + I7gZwq7RtAB67u+0gHbggGPrlldStY69HH9oZLeLzE2jOcZ3ADnJLkjap2FQ3Tiuo8GeLrXx + CXkhURzkKZFIUOcDAO4ffUZwCeR3AyM2NWurzTXRLS3SW3EeNqusTKwPH3vl27eAAM5zyBjO + f4U8PTi7n1e7VY5J1CrGjbtqjA+Y4wThFwQccnIHQAEXxd1N7GxKxnHnSLGx5B2kMxAwR124 + PUEEjHNdPp+jxWMC2SqDEqbcMAcjGDkYAJbktxySaz/GvhkeI7ZrYEBwQyE5wGHrjsQSO+M5 + wSBWRa6pqtlELc2iyyRqVEv2hdrFeFcqx3HPBOSCefu5wADH8UXS6TrFq6Rsyx22BHAm5sYm + UBVGOB+gFd7omr/2qhl8uWLDEbZ02McAHIGTxz19Qa4/XNJvlv7fU44VmMVuFcJIsa7yJAwB + c5wN2Rx04611Whajc3m77Tb+Rt27f3qy7s5z90DGMDr1z7UAeYeBPFyaJYTJLBLKhkckhAYf + mRFCM5OBk8Hg8EcHOK7r4aeH20S0COys0reZ8hBUBlUABgSG4GcjjnjI5NX4deFpNPs5bK8T + b5sj5XcDlWRVPKE4zgjrmrXw+0u50aOSxuF/dxSN5L5X5lYk/dUkjn5vmOfmx2oAyvhx/wAf + mpf9fH/s81Gs/wDIetf+vdv5T1oeCtAn025vppl2pPNujO5Tkb5DnAJI4YdcUanoE82rW9+q + 5gjhKs25eCRLxjOT94dB3oA5rwr4pttBvNQ+0vs8y4O35WbO15c/dB9R1q18VtUj1XTormBt + 0b3AwcEZwsgPBAPUHtW34K0CfTbm+mmXak826M7lORvkOcAkjhh1xR8UNAn1u2SG2Xe4mViN + yrwEcZyxA6kUAZ/i/wD4mmqWemy8wBTKV7Mw3kBgcgj5MdM4Zhnnjuri0S52+YqtsYMu4A4Y + dGGehHY9a5Xxr4UmvZYdSsyouLfsxYB1GSFyDjrkEcBgxywAqVdb1KZlH2NY13ZctOkh2gEl + VAK/Meiknbn72BkgA5/VrH/hL9Tkts/urW3dM48xPMkUjOMgKwLeucxdsfLsfCrVGubT7NJk + S2rtGwY5cDOVyp5UDJUD/Z49Bm+Ffhwt2kk2qw5uJJnbPmEZDAHOIm2/e3f/AKsVa8KeFpvD + l/OsSN9ilUbTuQ4YAMM5O/AJZRwTyM5+9QBF8R/+PzTf+vj/ANnho+Nf/HnH/wBfC/8AoEla + HjXQJ9SubGaFdyQTbpDuUYG+M5wSCeFPTNHxQ0CfW7ZIbZd7iZWI3KvARxnLEDqRQBn+L/8A + iaapZ6bLzAFMpXszDeQGByCPkx0zhmGeeOg8e6YmoWM6yD7kbSKeMhowWBGQcZxg98EjPNZ/ + jXwpNeyw6lZlRcW/ZiwDqMkLkHHXII4DBjlgBUWqDUfEcbWRgW1STG+RpxIduRuVVjAOSPU7 + SMg4yDQBiXN0114dDuckKq9AOEnCKOPQAD+fNM8DOPDdzHCwCw6jbQMjc/6xUGQWYgZLFuBn + lkAxnFdR4o8ME6a2m2i5IWMKMqpO11JJPyjJwSTxk57mq+r+FZbuwt0jAW8tEhaPO3h41Xcu + SCMHHrtLBcnAoA534e/af7Kn+xf8fH2j5Pu+kW77/wAv3c9f516VpPmeTH5/+t8tN/T720bv + u8dc9OPSuF8MaBf6Jps0MS7LozbkG6NuD5YJySV6Buv+Fd1pPmeTH5/+t8tN/T720bvu8dc9 + OPSgC3RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/8AGv8A484/+vhf/QJK9Arz/wCN + f/HnH/18L/6BJQAfBT/jzk/6+G/9Ajr0CvP/AIKf8ecn/Xw3/oEdegUAFcp8Uv8AkHT/APbP + /wBGpXV1ynxS/wCQdP8A9s//AEalAHK/Az/l6/7Y/wDtSvVa8q+Bn/L1/wBsf/aleq0AFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/wAa/wDjzj/6 + +F/9Akr0CvP/AI1/8ecf/Xwv/oElAHVeE/8Ajztv+veH/wBAWtasnwn/AMedt/17w/8AoC1r + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQB5V4+/5DNn/27/8Ao9q9Vryrx9/yGbP/ALd//R7V6rQAUUUUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/wAa/wDjzj/6+F/9Ako+ + Cn/HnJ/18N/6BHR8a/8Ajzj/AOvhf/QJKPgp/wAecn/Xw3/oEdAHoFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFfP/wALf+QjB/20/wDRT19AV8//AAt/5CMH/bT/ANFPQB9AUViX + Hiby3liSCaT7Pjc0aptyUD4Xc6ljgjIAJ6ccjN3RdYj1iFLuHOyQZGRgjBIII9QQR6ehI5oA + vUUVU/tD999l2P8A6vfv2/u/vbdu7P3u+MdOaALdFFFABRRVS31Dz5JINjr5Wz5mXCNuGflb + POOjehoAt0UUUAFFFMimWUZUgjJGQc8qSCPqCCD6HigB9FZ+iar/AGohnAXZ5kioVbeGVHKb + s4AGSCQBkYxz6S2+oefJJBsdfK2fMy4Rtwz8rZ5x0b0NAFuiiszVNb+wyRwCOSR5Q5AjC8BN + uSS7KAPmGOevHUjIBp0Vg2vjCKdbhikiNZgmRHUB8BSwIwxUhgDj5uevQglp8YrE0KTQzRC5 + YKjSKm3cw+VW2OxUnoAQD1zgA4AOgorM1fX49LaKJwxadwo2LnGWVdzHgBQzqPXLDANP1bW0 + 03YpDPJK21I0ALse+ASAAo5ZiQAOp6ZANCiq9ldm5XcUZCDgq4GR36qWUjB6qSOx5BAlEyli + gI3AAkZ5AOQDj0ODj6H0oAfRRRQAUVn6lqv2R4YFCl55CoBbaQqozswGCTgDGOBkjJGa0KAC + iiqmn6h9s3/I6eXIyfvF27tuPmXk5U54PegC3RRRQAUVn6bqv295kULsgkEYYNuJYIrMCMYG + 0tjqTkHIGKIdV864ktFCkRRozMG+YNIWwu3HHC5yTnkcYOaANCiiigAoopkUyyjKkEZIyDnl + SQR9QQQfQ8UAPorP0TVf7UQzgLs8yRUKtvDKjlN2cADJBIAyMY59NCgAooqpp+ofbN/yOnly + Mn7xdu7bj5l5OVOeD3oAt0UUUAFFFFABRRVTUNQ+x7Pkd/MkVP3a7tu7PzNyMKMcntQBbooo + oAKKKKACiiq816qRG4TLqELAR/MWGMjbjqT29aALFFYl/wCJfIECJGxnu/uRufLIAAZy5w23 + YDyACSeADzjYhLFQXADYGQDkA9wCQMj3wPoKAH0VU/tD999l2P8A6vfv2/u/vbdu7P3u+MdO + at0AFFFFABRTIpllGVIIyRkHPKkgj6ggg+h4qlomq/2ohnAXZ5kioVbeGVHKbs4AGSCQBkYx + z6AGhRRTHmVCASAWOACcZOCcD1OAT9ATQA+iimRTLKMqQRkjIOeVJBH1BBB9DxQA+is/RNV/ + tRDOAuzzJFQq28MqOU3ZwAMkEgDIxjn00KACiiucufGggSWf7PO0UDurOqx4/dttYgGQMVB7 + gYGDnGDgA6Oise58TKhhEUck32lGdPLC/dUKdxLsm0HcMZ78dcAu0XxEmqtLCFeOSBgHSVQG + G4ZU5UsCDg4IPPXoQSAa1FZmma/HqMstvGGzAQCzLhWyWU7SeSAyMpOAMg4zUR8TK8jxRRyS + iEgSPGFKKepXlgzMo5ZUDEZAxu4oA2KKKqaXqH9oRrPsePdn5ZV2uMEjlcnGcZHtigC3RRRQ + AUUUUAFFFVP7Q/ffZdj/AOr379v7v723buz97vjHTmgC3RRRQAUUVn6tqbWRhRE3maYJ94Lt + G1nZ+Qc7QpOOM9jmgDQoorP0TVf7UQzgLs8yRUKtvDKjlN2cADJBIAyMY59ADQooooAKKKKA + CiszX9aGlIjABnlljjRSSoLSNjlgrYAGTnHbHUitCaZYVLuQFUEkk4AA5JJPQCgB9FUdb1Rd + KgkumxiJGbBO3JA4XPqxwB7noatwlioLgBsDIByAe4BIGR74H0FAD6KKYJlLFARuABIzyAcg + HHocHH0PpQA+iiigAorBuPFKwJdTkL5doSoPmffcIrFfu4U7mCDliWyMA8HbhLFQXADYGQDk + A9wCQMj3wPoKAH0UUUAFFFFABRRRQAUUUUAFFFFABXn/AMa/+POP/r4X/wBAkr0CvP8A41/8 + ecf/AF8L/wCgSUAHwU/485P+vhv/AECOvQK8/wDgp/x5yf8AXw3/AKBHXoFABXKfFL/kHT/9 + s/8A0aldXXKfFL/kHT/9s/8A0alAHlXgX+0f3v8AZn+x5n+q/wBrb/rPx6fj2rq/+Kj/AM/Z + aPgZ/wAvX/bH/wBqV6rQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstc/wCNf7W8lf7R/wBV + 5gx/qfvbWx/q+emfb9K91rz/AONf/HnH/wBfC/8AoElAHP6T/b/kx+R/qvLTZ/x7/d2jb97n + pjrz61b/AOKj/wA/Za7/AMJ/8edt/wBe8P8A6Ata1AHlX/FR/wCfstH/ABUf+fsteq0UAeVf + 8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fst + eq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ + ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR + /wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqt + FAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB8/6//aP2yH7V/wAf + f7vyv9V/fOz7vy/ez1/Hiur/AOKj/wA/ZaPH3/IZs/8At3/9HtXqtAHlX/FR/wCfstH/ABUf + +fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCf + stH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHl + X/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7 + LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR + /wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB4V41 + /tbyV/tH/VeYMf6n721sf6vnpn2/Su1+Cn/HnJ/18N/6BHR8a/8Ajzj/AOvhf/QJKPgp/wAe + cn/Xw3/oEdAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/wALf+QjB/20/wDR + T19AV8//AAt/5CMH/bT/ANFPQB6R4ciu72G4u7WaPbczzvEZI3dsZ8tPmLDaBsGAUbAxwfuj + M8O+IE05YL1j5VqbGYLEZASZIJRk4witI4OcgAk5+p7C18HW1qoiQOIxn5PPmMeCckFC5Ug5 + 5BBBycg5rP1LwqNYu4hNGotLSP8AdrwAztjjaCf3ahRwQvPGGWgDQ8IW80cAluSxlnZpGVix + Cb+RGoblQox8pzg55rNv5r26e+FqQrRCBISSMFgvmycNkbiHAyQAfl54JHW1mL4cgRXRVI8y + VpSVd1be3DMGDBlJHHykDBI6EggHP2jy3lrPLYNIl0pEZjmlMwSSJsuoaQuCWBxnO0/KflOc + VbvWltdPuryEyiRR5LxyTu/lyhthKuxbkbwcqcMAv3Tmuqi8OQRR+QqkDeXyHcSb2zl/M3b9 + xBIJ3ZK/L04oXw3brC9nsBilLFwxLFixyWLEli2f4icjAwRgUAUr+5eO7tLKI5RVlklBcl9q + J5aE5bLAs/fJLDOflJrKvNRu2tLyVP8AWSXTRQ4bHyl0twQd3ynIY9QN3zYwa6Wz0GGzfzkD + b9pXc0juSGIJzuY5J2qNx5wqrnaABDF4Wtoo4rZU/d28gkjG5vlYEkHOcnljwSR7UAZVi72e + pGzEjtG1mJGEjFsuJSu4Z4XIP3UCr6LwMY8etyXFg2sNJIJ5XcW6Rt0JcpHF5f3JTkEklC+3 + OOVBHcf2XH5323b+98vy92T93duxjOOvOcZ965UeFBcSwKtu0KQTeazeaGQFckJEuWIV3O5v + ljyqjIDYAAOq8hbWHy5HbYkeGd3IbAXBYuMEHHJbjnniuS8PIdC0z+0ZHLTGB5MySyNGTITI + gKswXcSQDgAlicE5ye1mhWZSjgFWBBBGQQeCCD1BrMbwvbtAbBlYwHHytJI3C4wASxIA2jAB + A9uTQBztray6FcafaeYx8yKVJQXLIfKiUrtU4VQpHBChiPvEkkl80t/eRTSwjJ+3OAgcIXgj + xEyqxJ2ElSSQVIO5l5IB6q40uO5kjuXXMkG/YckY3jDcA4OR6g+1VIfC9vBGlvGrIkW7bskk + VgGO5hvVg2CeSM4JA44GABvhWaK6gFzA0jRzHcPOdnZcAKVy5JwCp7kZJIOCKzLiGa71Jnt5 + UAgtUVg4aQBpZGb7iumCQgJJOcbeCCCOj0/T49OjW3hULGgwAP8APJPUk8k8nmmW+lx20kly + i4kn2bzknOwYXgnAwPQD3oA4KaBr/T5bkkx3eoyxxPvbb8yyiHywAAQoUNkYLbchi2M10d9p + c2oSR3F4Yo7e1bzdiMz5ZQ2HaRlj2hOCBgg87uMY0n8OQOACpIWfzwC7nEmSdw+bgZJO37uS + TireoWCahG0EgJRxhgGZcjuMqQcHvzyODxQB5lqN0dStrvUSJVnm2NCTDNhIYWWRMOEYKW27 + iQ+zODlecd1rWk/2qIry3dRPDloXPzRkOMFSB1Vxxkcjqp7HVu7VbtGhkGUkUqwyRkMMEZHP + Ss2XwlbyL5W1gmwIVSWVFKhQg3BXAY7QFy2SQACcAUAHhHXG1y1jvHUKzg5A6ZVipIz2OM45 + x0yetZWh6ULq8u7ouzIksaIFnk4ZEDupAbBUM/CnIB3DaBweqhhWFQiABVAAAGAAOAAB0Aqp + aaNFZyPPGCrSklgGbYScZbZnZuOBlsZPc8mgDgrG6v8AxPGbyIPG8sg8lvOC28ccZPVFJaRm + YFW3IQcgjCjFdHHM2s3txauzLDapENqOyFnkBbfvQqwAHy7clT97qK0rXwvb2hBRWCqxYJ5k + nlA53ZERbYMNyMLwcEYIFPufDkFzI07KdzhQ+13VXC5wHVWCuMHHzA5HB44oAxYdNa5uxamV + mjtLYBm8zE7NM+QrOgU4CxKeNrHjcWDHOfp+sXNxoqzoxe5kHlqxOGy83kqd2R8wBGGJ68nP + NdfY6LDYO8sSBWlCBsZxiNdqALnAAHHAFV4vC1tFHFbKn7u3kEkY3N8rAkg5zk8seCSPagDK + sXez1I2Ykdo2sxIwkYtlxKV3DPC5B+6gVfReBjNstYubqOxt5GKPfPPI7Kc/uxukEY5JUMrA + KQwZABjmutu9Agu3aaRcvJCYWO5hmNjkrgHHXv196ZP4cgmWKMqQLcYjKu6Oo27cB1YNgjg8 + 8980AYviLzNCjWO3lkDXdzDGpkbzvK3feYeYGZgQvKs2MnK47sjljtNQ+zJNKEht2llV5i8Y + IO1cmRmYfK7MwyBxG3at2Xw3byR+QUG3eHyCQ+8YxJvBD7+OWzuPcnJplt4WtrZZI0TAnUrJ + lmLOCWJyxJJPzt82c9s4AwAUvAMDC1FxIoWS6d5nAOQTKxKkcnA2beO3fnNc+mrSQLLexBRJ + qF+sEcoO9RGv7tJAuSGI2t6ZJzyuBXe2lqtoiwxjCRqFUZJwFGAMnnpWevha2SBbIJiKNtyA + M25WDFtwfO4HJPIOecdOKAMjRw1nqDWcckkkKWiF/MkaXEu/gksTtZk52jaCOccDGTHrclxY + NrDSSCeV3FukbdCXKRxeX9yU5BJJQvtzjlQR3Fjpcdjkxr8zY3MSWdsZxudiWbGcDJOBwOK5 + UeFBcSwKtu0KQTeazeaGQFckJEuWIV3O5vljyqjIDYAAOq8hbWHy5HbYkeGd3IbAXBYuMEHH + JbjnniuS8PIdC0z+0ZHLTGB5MySyNGTITIgKswXcSQDgAlicE5ye1mhWZSjgFWBBBGQQeCCD + 1BrMbwvbtAbBlYwHHytJI3C4wASxIA2jABA9uTQBztray6FcafaeYx8yKVJQXLIfKiUrtU4V + QpHBChiPvEkknMsbq/8AE8ZvIg8byyDyW84Lbxxxk9UUlpGZgVbchByCMKMV6BcaXHcyR3Lr + mSDfsOSMbxhuAcHI9Qfaqlr4Xt7QgorBVYsE8yTygc7siItsGG5GF4OCMECgDWrzeLU7qOKC + /vt32ORGaTypWRo2lmYxvlGEjJsdVCBjgdVyoB9Cu7VbtGhkGUkUqwyRkMMEZHPSs2TwjbSK + sZQ7FCDZvfYfLwF3Ju2uQFAywJIAByAKAMTxG8ukNE8zSNp6RKkjLKUlV9wUSsUKu4IIBAJH + VtuQM3opzHfw6fucrBZs+5pDlyXWMFwMBiApOTnlsgAjNaV/4cgv2LSqTkqWXe4RiuMFkDBG + PAHzA8AA8ACn32gQX7iaRcuFK5DMuVJBKMFIDqSPutlevHJoA5pvFUtlZ3eqEK4Fw4h+bKFA + yQqwwTxkFiBjcckYDA07w/pt6s0MsnmKqo32jzpg/mO4JwkaFkRUYDBGw7TjHBz0Z0CBoDZM + u6Jt2VdmYksxYksxLZ3HOc5B5Bp1lo8dm29dxbGMySSSkA8kAyM2AcDOMZwM5wMAGB4Gg/tF + W1VpZWE8srRo8jBETe6hdgYqTj1yBxtAxk6Wq3Mv2u1gj/1Z855MHBwiBFHUZG6QcYPIB4wa + 0NL0uPSo1toF2xpnAyTjJJPJJPUnvTJtFhmlNy6AyNEYiTkgoTuKlSdpBPtnt0oA5rwu8rT/ + AGa+aQXkQaTKykwyxktGG8tTsUAkcbVbIVupYVp+NNUksY4o4G2SXFxFEHwG2bzkttIIbgEY + 465zxWhY6DDYuZ0DGRlClpJHkbaCTtDSMxAyc4GAT16CpdS0uPUlEcq5AZWGCVYMpyGDKQVI + 9QQe3Q0Acv4seXw5GJLNpGluXSFEllMiBm3EOPNLHdxjG4J0LA4p+lxz6Q0t5L5otYrc5Sab + zpmaMbjJ95lXI3LgOASASBxjak8LW0i7GTOWVi5ZjLuQ5VvNz5mVzgHdkDgccVMmgwqjwkMy + zKVcvI7sVII272Ytjk4AOASSMEmgDkrSxNjpb3ktxK0slsXDvPIu0soZFUb8AhsDPViSOjba + u3+mS6BpxigLG4McMXMsjLuYrFlN7AJyx242gcZGBiuil0WGWD7CyAw7Am05PyqABznORgYO + cg85zUV3okTxorK0nkOJEBkZn3rkr8zvyecAM2314HABzt9piX2riOQvtWzMigSyLtYyCMld + rDblRggYB6kZ5rPsb6a5gg0YTM1y00onkSRi6RwytuO/7ylvlVCwwQcHGRXRaFp0tvLdajIh + VrgptiBUuBCpVctu2bn64zheMsecN8G+GP7MD3k6qLu5ZnkIOQu9i2xfQDjPJye5AXAAybVp + 4H1C4wPLtokEQJO0skTStlc9fnUEjGRgdRWfaifS7jT4ZJJC88UonDyFwSkSsBjJUFT/ABKA + T1YsSSeil8LW0sctsyfu7iQySDc3zMSCTnORyo4BA9qt3Glx3Mkdy65kg37DkjG8YbgHByPU + H2oA4ePW5LiwbWGkkE8ruLdI26EuUji8v7kpyCSShfbnHKgjuPIW1h8uR22JHhndyGwFwWLj + BBxyW4554rlR4UFxLAq27QpBN5rN5oZAVyQkS5YhXc7m+WPKqMgNgDspoVmUo4BVgQQRkEHg + gg9QaAOK8PIdC0z+0ZHLTGB5MySyNGTITIgKswXcSQDgAlicE5yS1tZdCuNPtPMY+ZFKkoLl + kPlRKV2qcKoUjghQxH3iSST0TeF7doDYMrGA4+VpJG4XGACWJAG0YAIHtyat3Glx3Mkdy65k + g37DkjG8YbgHByPUH2oA5JtRGoLe3dzJIkNtLJGixSGNl8tQCwZSodnYjar5APAzk1XtLFtV + ksN8zsxt5J5h5zox3gbSBGV24aVguMfICuSBiulu/Blpdlmkjz5jFmXe4Qsy7S+wNt3Y/ixu + zznPNXbnRoriVbpgRKgwGVmQ4yG2naRuXIztbI68cmgCaaNIYirsRGqEFi7AhQOSXJ3Agc7s + 575zzXH+HkOhaZ/aMjlpjA8mZJZGjJkJkQFWYLuJIBwASxOCc5PazQrMpRwCrAggjIIPBBB6 + g1mN4Xt2gNgysYDj5WkkbhcYAJYkAbRgAge3JoA521tZdCuNPtPMY+ZFKkoLlkPlRKV2qcKo + UjghQxH3iSSTmWN1f+J4zeRB43lkHkt5wW3jjjJ6opLSMzAq25CDkEYUYr0C40uO5kjuXXMk + G/YckY3jDcA4OR6g+1VLXwvb2hBRWCqxYJ5knlA53ZERbYMNyMLwcEYIFAGnNMsKl3ICqCSS + cAAckknoBXnVlFdW+n28Mrh4rx1SQoreaq3TM28ysWXOWAOY/wCLAbOGr0K7tVu0aGQZSRSr + DJGQwwRkc9KryaNE8K2ZBESBAoDMpHlkFMMCGyCo5znigDnUtpIL/babGjtbOOLy3lZQpdyR + 0STnbGuc4JG05NUtWim0KGVi4e/1F1XMSv8AKFTB2qpLlYl3EOqlsldwNdlb6XHbSSXKLiSf + ZvOSc7BheCcDA9APenmwQyi5IPmBCgO5sBSQx+XO3JIGTjPAGcCgDj9BWOxvooYSyQmyMarJ + HJEWeKQMWw6IGbDkkrk/eJAzzY1Df4WnSSHa1vfXSrIjZ3LJLkF1b0OMspzgjC4DfL0V9osN + +6SyoGaIOFznGJF2uCucEEccg1FbeHYbeRbgBmkQMFMksku3djdjzGbBOMEjBxx0oAl1y9aw + t5rhMFoonYA9MqpIzjHHFclqU1xpa28t4XNotvEs5SUrIk2QpkZkIdwS2CAxHVsZAz2GqaXH + qsbW067o3xkZIzggjkEHqB3qvf8AhyC/YtKpOSpZd7hGK4wWQMEY8AfMDwADwAKALtpb/ZkW + LLNsUDc5yxwMZJ7k9z61yXhd5Wn+zXzSC8iDSZWUmGWMlow3lqdigEjjarZCt1LCuwmhWZSj + gFWBBBGQQeCCD1BqlY6DDYuZ0DGRlClpJHkbaCTtDSMxAyc4GAT16CgDhLG6v/E8ZvIg8byy + DyW84Lbxxxk9UUlpGZgVbchByCMKMVvaFB/a91c3hll8uKfyki8xlQNEqbmwrYILZwDxjO4E + njXtfC9vaEFFYKrFgnmSeUDndkRFtgw3IwvBwRggVb0/S49P3+Uu3zZGkbknLNjceScZx0HH + tQBwun3lxc21tpJdxcyyS+c4cmRI4ZmDneCSCSAikgqeVzWhr/iGfTRqFyB8kCwRxYPAZhlm + wdwyDKp6AMAB2JrpdN0CDTXlmhXa87bpDuY5OSc4JIHLHpimf8I3bmOW3KAx3Ds8gJJyz4y3 + J4PAIxjBGRg0AUp7A6NG1+ZJXeGGRnUyHy5CF3E7G3hORkbMbc45Xiuf0OO/1PyLw70Z5BLI + zTDyTEcARRwqzDlDnLqGDAktk5HYW+gQQ7jt3F1KlpWaVip6pukLHb/s525ycZJpmn+HYbAq + Yw37sYUPLJIq8Y+VXZgpxxkAHBI6EigDmm1Eagt7d3MkiQ20skaLFIY2Xy1ALBlKh2diNqvk + A8DOTVS1tm1ebT1aVjIttLPKScPtnCjCsFwAWYqAMFUHBBCmuou/Blpdlmkjz5jFmXe4Qsy7 + S+wNt3Y/ixuzznPNWL/w5BfyC4kU+aoADq7o4A3cBkYED5znHXvnAwAc1a6y2lnUXVy0NsE8 + oyu0i+Z5fzpvZixO/aCu7gnAAJrK0o3EbDS0hk8uxgQukM4jZppU3/NIXUhMluEJ5GeRhR3U + vhu3kt/7OKDyMAbASOhDDkEHORknOSeucmi58Ow3EjXBDLI4UMY5ZIt23O3PlsuSM4BOTjjp + QAeG7Sezt44bpw8yghmBJzydvJAJO3GSRknk561zTaiNQW9u7mSRIbaWSNFikMbL5agFgylQ + 7OxG1XyAeBnJrtYYVhUIgAVQAABgADgAAdAKx7vwZaXZZpI8+YxZl3uELMu0vsDbd2P4sbs8 + 5zzQBi2jz3i2EPmOVnjkmncNtfBQHbkYwu6XAAGVAUqVK7hUi8SS6ZY3025ma2upooi7bmUF + lVcs24ttL5+bOcYzjp2v9lx+d9t2/vfL8vdk/d3bsYzjrznGfeq//CN25jltygMdw7PICScs + +MtyeDwCMYwRkYNAHO32kFryztmdpdu+ebdIfvRqFjkCFjsBkY4VMKehBC8aHxDgNzaGBH2S + SyRRp85QEyOEKnb94FS2Rg8ZOOK1bPQILN/PRf3m0qXLMzkEg4ZmJLfdGNxOAMDA4qXUtLj1 + JRHKuQGVhglWDKchgykFSPUEHt0NAGF4gs/JWCwgchp7lCTJI0jhYv3rMpkL8jy1AyCuTyOc + 1iXuvy6F/aSozMtuLfyg7lyrTKFJ3SbiQCQ205HGBjJrtX0aJ3imYEvbhhGxZiRuXa2ST8xI + HVsnv1qKfw3b3BmLoD9qCiXJJ3bBheM8EdiMHPPXmgDn72IWd1aWnnymaUs0uJDtYRrvJMbM + wQM6gAIANu9elTaHpQury7ui7MiSxogWeThkQO6kBsFQz8KcgHcNoHB2rDw5BYSG4jU+awIL + s7u5B28FnYkj5BjPTtjJzLaaNFZyPPGCrSklgGbYScZbZnZuOBlsZPc8mgDK8TahJ59rYRsU + Fy8hdh12RJuZB3BbP3lIZcZFVdCuo0u7pVmkMNqiAiWXfGrOCZDuYlsKIwPmb5WMnAzW/qWj + RaiVaQHdGSVZWZHXIwcMhVgCOozg9+gqK08N29nC9pGgWKUEMoJ5ygQ85zkqBk9SeTySaAOK + htmurO3gdF8zU7vzZk3YyhczMy/PkAIqdDkA4++a9IrPTQIEMLhebVSsXzN8oKhCOvPAxzn8 + 60KACiiigAooooAKKKKACiiigAooooAK8/8AjX/x5x/9fC/+gSV6BXn/AMa/+POP/r4X/wBA + koAPgp/x5yf9fDf+gR16BXn/AMFP+POT/r4b/wBAjr0CgArlPil/yDp/+2f/AKNSurrlPil/ + yDp/+2f/AKNSgDlfgZ/y9f8AbH/2pXqteVfAz/l6/wC2P/tSvVaACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/wCNf/HnH/18L/6BJXoFef8Axr/4 + 84/+vhf/AECSgDqvCf8Ax523/XvD/wCgLWtWT4T/AOPO2/694f8A0Ba1qACiiigAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8q8ff8AIZs/ + +3f/ANHtXqteVePv+QzZ/wDbv/6PavVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigAooooA8/8AjX/x5x/9fC/+gSUfBT/jzk/6+G/9Ajo+ + Nf8Ax5x/9fC/+gSUfBT/AI85P+vhv/QI6APQKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAK+f/AIW/8hGD/tp/6KevoCvn/wCFv/IRg/7af+inoA+gKK5TUfHX2VZ7hYt0FrMI5G37 + WJygbapXkqWIIJUHAKscnbbi8SyJPFazw+X9p83y/wB4HYeVz84A2jK8jaz4PB9QAdBRWDJ4 + ikuXmitIhKbc4ctJ5altudiMFcFh0YNt2nGeuRVk1aHV/sQmjIa4lMsSljlRErOkhKcEkbfl + J4399poA6iiuU1Hx19lWe4WLdBazCORt+1icoG2qV5KliCCVBwCrHJ2zXmu3AvxYRIhUW7Sf + PIVDAuqgnETEFSGGBkEHJIIxQB0tFcvq/jdbZplgVZBaJumZpfLVWPCxg7W3OcEYwADhSdxw + LVx4qUC28pCz3oyisdmF8veWJwQAMqGxk4JKhiMEA3qK5+z8YI8E93Muz7LJJHIAwYFo+ysd + ud2QBkKSTjHch8Qzo0Ia3+S5YBT5mHXI3nejKu0iMMxClvmXbnkGgDoKK5TUfHX2VZ7hYt0F + rMI5G37WJygbapXkqWIIJUHAKscnbq6nrv2aVLKJd88qswG7aiquMs7AMVB6KdpBbjjrQBrU + Vzk/it4GS1aIC7ldgsXmqVKrkmXeBkJtBIyockEBTjNW/DHiJddjeQAAxyvGdrb0JXHzK2Bu + Uggg4H07kA2KKwb/AF6eO6FjBAJP3QkaRpCiLlmUA4R+Tt4xyfTAJqrq/jdbZplgVZBaJumZ + pfLVWPCxg7W3OcEYwADhSdxwADqKK5xfFxvSI7OIyyeQkxDOEUCQZVCwD4kPBCkAEc7sCnp4 + r821jvQm1p5FSNJW2Ft8mxDnDdV+fgNxnGRzQB0FFZ7ayouRYDlzC0p68AOqL2wdxJ78benI + rnLfxAllbrd2MBkN7dyAKHYbmJcGTLA4BEeSMAKDzjBoA7OisG/8StZtFalFa7nJ2xLJ8oUZ + JcuUBChQT93JOQoOCRVtPHsUtu92ykmOcw7YmEm98gDyz8u8EEEcA4zxxyAdFcXaW23zGVd7 + BV3EDLHooz1J7DrU1cfPczXuo21vIFQwRzTOqSM6MrjykIJRPmBLcEYCnhiSRW7rOuLppjjC + l5Z32Ig9cElj1IRf4mAbaDnBoA06KxLPWZ5pZLV4VV449+4S7ozu4jGdgYZIcH5Pl25+bcKr + +Ctcn1qFbqRVEchkKkOS/EjBVK+WowBxncScAkZJwAdHUMl2kTLEzKHkztUkBm2jJwOpwOuO + lYF5rtwL8WESIVFu0nzyFQwLqoJxExBUhhgZBBySCMVU1XW2gu55ol8z7FajcpYRqvmZkfnY + zMxWNNuPlA3ZIPBAOworB1DxfFawRXABZ7oJ5MWQru0gG0dSABkbm6D3JAL9A8R/2nJPasqr + JbMobY/mIdwJ4bapyCCGBXgjqewBt0VzV5rtwL8WESIVFu0nzyFQwLqoJxExBUhhgZBBySCM + VL9utlu7idhiS0t0EkmWOFffIV24wcBQ2RknOO2KAOgorkh43lPkf6OSbyJniVZV3EqqsQ24 + KqqQchgxOMZQE7RdtfFyqblLoLEbPYXIcumJF3LglVJPbG3rgDJNAHQUVy+neNTczQQPGEF2 + jvFiQM4VRuVnQABQ6gkYZuRg9DjV1zXF0tVAUvNKdsUS/edv6KOrMeFHJ7AgGnVd9RiSQW5d + RKwyELAORzyFzkjg/kazNL19717i1aNVnttmQJC0beYm5fn2Aj0PycdRnpWP8N3lvEl1B1Xb + dyySBt5aQANsWMgoMquDtO7gHAUZNAHZ0VyninX7XS50lnRmktoXlBQncokdIeFJCtu3Hqfl + 29ORVu68UNp0D3tzGvlIsbK0EolDiRtvG5Y+mQc9CDweCKAOgorBm8QyWkEt5MkYjjiDo0c+ + 9HyDhQxRcE4XBwQdwxk8VbudaFrJb2zgebclhgEkDZGXYg7RkA4HO0nOccEUAadFcvq/jdbZ + plgVZBaJumZpfLVWPCxg7W3OcEYwADhSdxwOg069W/iS4TIWVFYA9cMARnGeeaAHR3aSs0Ss + pePG5QQWXcMjI6jI6Z61NXD6N4oMAF0VLw316yLJuAbJJjjIj2j5AkaglmD53HaeM9Bc68zT + tY26B5URXcs+yNQxICllVyHPUKVGV5zxigDYorlI/HBPlxvD5cs8kkcYkkUJui2hwXUMR85Z + EwpLEA4G4Y6OwlklQNMgR8sCobeOGIBDYGQQAegIzgjNADvtab/I3L5m3dtyN23ON23rjPGe + mamrj7a+lm1G6EcSO0MdugZ22AKQ0hBYK7ZZm6BduF5IIG6xH49iktYbwKfMuTtih3Dcz7tm + 3PQKG6scADGRkhaAOoorlF+IMVuLj7SFRrRlU+W/mKxcEhVJCEtkEEEDGMk4Bxb0jxQ11cHT + 5o1SVYVlISUSgAkAox2rhhkHAyCDnPTIB0FFcpD4680Q3Ai/0e4uDCj7/mJLOquEKj5Tt5yV + YHPykAFug1XU00uJ7qU4SNST0ycdAMkDJPAGeSQKALdFY9trEzFZJYRHAyM28yAMgADDzEZU + 2nGc7S+0jB45rP8A+E0bMUxhItridYo3LYkbeDtk8srwhI4ywbb823kCgDqKK5zVPFjWz3EU + MYk+yRLJIWfYBlWbb91iW2gEYG05ILKQA0Q8ZuPJmeArBdSxxxsZFMh81dysY1BULnj7+4Dn + b2oA6imTTLCpdyAqgkknAAHJJJ6AViXPiKT7U2nwRCQpErs5k2opZjhGwrEEqMjAJOR8u3LD + F1zxI2rWcsC4ine5+yYJ3oXLhWw23O0oTyVBHOBnGQDtYZlmUOhBVgCCDkEHkEEdQafXL6v4 + 3W2aZYFWQWibpmaXy1VjwsYO1tznBGMAA4UnccBmoeKZXls0tkUreKzjzH2khYixRsI+37yk + EE5IK4A5IB1dFcpqPjn7P5ojRHNrHunJm2orHpErbCXYkEdFGcAkMdout4qWYwRwIXluYvNV + WO0KmAcyFQ5UHOAQrAt8ue9AGx9rTf5G5fM27tuRu25xu29cZ4z0zU1cp4Qne+uby7bhfMjh + C7i21oFPmAZA+Us5KngnklQTXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABXn/wAa/wDjzj/6+F/9Akr0CvP/AI1/8ecf/Xwv/oElAB8FP+POT/r4b/0COvQK8/8Agp/x + 5yf9fDf+gR16BQAVynxS/wCQdP8A9s//AEaldXXKfFL/AJB0/wD2z/8ARqUAcr8DP+Xr/tj/ + AO1K9Vryr4Gf8vX/AGx/9qV6rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFef/ABr/AOPOP/r4X/0CSvQK8/8AjX/x5x/9fC/+gSUAbHhjw9HLaW7l + pctBETi5nUcoOgEgAHsBgdq0v+Eai/vTf+BVx/8AHKPCf/Hnbf8AXvD/AOgLWtQBk/8ACNRf + 3pv/AAKuP/jlH/CNRf3pv/Aq4/8Ajla1FAGT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCO + VrUUAZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5WtRQBk/8ACNRf3pv/AAKuP/jlH/CN + Rf3pv/Aq4/8Ajla1FAGT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOVrUUAZP/AAjUX96b + /wACrj/45R/wjUX96b/wKuP/AI5WtRQBk/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8Ajla1 + FAGT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOVrUUAZP/AAjUX96b/wACrj/45R/wjUX9 + 6b/wKuP/AI5WtRQBk/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8Ajla1FAGT/wAI1F/em/8A + Aq4/+OUf8I1F/em/8Crj/wCOVrUUAZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5WtRQB + k/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8Ajla1FAGT/wAI1F/em/8AAq4/+OUf8I1F/em/ + 8Crj/wCOVrUUAeP+N9MSDVrSEF9reRktLIzczMOHZiw9sEYPI5r0r/hGov703/gVcf8AxyuA + 8ff8hmz/AO3f/wBHtXqtAGT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOVrUUAZP8AwjUX + 96b/AMCrj/45R/wjUX96b/wKuP8A45WtRQBk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDj + la1FAGT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOVrUUAZP8AwjUX96b/AMCrj/45R/wj + UX96b/wKuP8A45WtRQBk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjla1FAGT/AMI1F/em + /wDAq4/+OUf8I1F/em/8Crj/AOOVrUUAZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45Wt + RQBk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjla1FAGT/AMI1F/em/wDAq4/+OUf8I1F/ + em/8Crj/AOOVrUUAZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45WtRQBk/wDCNRf3pv8A + wKuP/jlH/CNRf3pv/Aq4/wDjla1FAGT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOVrUUA + ZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45WtRQB5l8XdISytEdDISZ1HzzSyD7j9ndhn + jrjNXfgp/wAecn/Xw3/oEdHxr/484/8Ar4X/ANAko+Cn/HnJ/wBfDf8AoEdAHoFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/wt/wCQjB/20/8ART19AV83+DNbTRLuO8lDFI9+ + QgBb5kZRjJA6n1oA9oTw/cJZmIeULpp/OJG4RF/PEvJxuIwAvrwBnHNaTafK14LosvkLbsgX + +Le7qzHp0IUDr1HTqa5X/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKALdz4Uu0jurSB4g + l3NLIXYtvAlXmPZtIGSMF9xwpJC7sAa9r4fa3ngI2mC1tjGhbmXeSgLdNuNiYyMHlhjBrnf+ + F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA0L3wjNd6dLYnyhcTyNI5XcIyzTeZnO3d93A + GQTwBnAzWxb2E8F3JcEq0MyRqMkq6eWH4ACkOCzZyWUjJHOBXL/8Lrs/7k3/AHyn/wAco/4X + XZ/3Jv8AvlP/AI5QBoWXhB7GWaQRW8hluGlSWXPmJvwcbfLOdhyRiRc+qk8bU2mPNdx3TBDF + FC4XOfMEkjLk9MAbVxkHPJHQ1yv/AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAXZ/BMs9 + reWZZQ11cvKhGSACyMobgYJ24OM4zkZ6Vej0K4vbyO/uSipAsgjjiJbBdVUsXZFLZG7Iwu3C + 4zlqxP8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKANC98IzXenS2J8oXE8jSOV3CMs03mZzt + 3fdwBkE8AZwM1oX2jzJeDUoAj/6OYikjtHj5w4YMEfPcYwMep7c//wALrs/7k3/fKf8Axyj/ + AIXXZ/3Jv++U/wDjlAGnqXhSW5uVvZFguCIDGySKY0B8zergETc4JB/MHnA6XT4WhjVGCqQM + bYxhFHZR7KMDOBnGdq5wOH/4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA6XStEe0u7q8Yrs + ufJ2gE7h5aFTnjHXpgn8KyrLwg9jLNIIreQy3DSpLLnzE34ONvlnOw5IxIufVSeM/wD4XXZ/ + 3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoAseJ7SbQ/t2oo6hLmKP5iXDoyKY1Cqo5LEjDbl2E5II + XnT1Pws8lva28TKXs5IHG/Kq/kjaQSNxXI56N6e9c/dfGCwu1MUsMrocZV442U4ORkF8dal/ + 4XXZ/wByb/vlP/jlAHQWulXCSz3r+UZXhRIupVSu9ipO1W27mXJyS2C2F+VFqWnhF7Z7Bl2B + bKOQSAZGWkjCkr8vOWySTg8561lf8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QBsa54Wa8u1v + hHFMvkeWY5zgAh9wcHZJk8kdBj1Oal1rw/LfQwKnlrJbTxShBlY8Rk4jDAEgBTjdt5I+6oOB + hf8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB0ulaRLHcS3twUZpI41QIuDGFLlkDEZYE + kHdxuP8ACoAFM17RZbme2vYdpa2MuUdigYSptzuCvgjHTbz6jHPO/wDC67P+5N/3yn/xyj/h + ddn/AHJv++U/+OUAbeh+HJ7T7TcSyr9putvzIuUTamFwpAztJI5J3KFJwSa0vDlpLZW8dvMF + DRIqAoxYEIoG7lVwTjpzj1Ncl/wuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHUW9hPBdy + XBKtDMkajJKunlh+AApDgs2cllIyRzgVUXQZ3hvYZGUvdPMUIzgK0YjjDfKOQFGcA+uSawv+ + F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA0L3wa8yWWRFIbOMo8cpPlvujCZ3bG6FQRle + fYiui0e1a1j8spHGAThIfuKD2zhcknJJ2r1xg43Hjf8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HKAOot7CeC7kuCVaGZI1GSVdPLD8ABSHBZs5LKRkjnArPu/D9xLDehfKE125Ct82PL2LGo + Y4zuChjxkBjnoSKx/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygDqptMdJ4JYQixRRyxsv + IIVthUIAMcFBnPAHQemRqPhOfUba8tpHXfczl0IzgKvl+WrcDBxGASM46/MazP8Ahddn/cm/ + 75T/AOOUf8Lrs/7k3/fKf/HKAOo0PTGsmYiGCBSORByWI6Eny48BeeMNnPVcfNDr2iy3M9te + w7S1sZco7FAwlTbncFfBGOm3n1GOed/4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA2Htm8O + w3epyMpnlBfJ4QbExFF1XcAflDYVnzyM1d8FaZ/ZllBBhgRGCwfhgz/OwIwMYLEY6jvzXJXP + xa066ZXkgkZozlC0cTFTwcgl+DwOnoKsf8Lrs/7k3/fKf/HKAOguNImeea52wurxxxor7gTG + N5kVm2ttyzA8BgwUAgH5hFo2gTaZBJDiJvMmkbyWLeUscmf3Stt4A6/6vByV2jO4Yn/C67P+ + 5N/3yn/xyj/hddn/AHJv++U/+OUAXW8Eyy2E+nllVp5XkRVyY4wXDrGDhfl+XqFGCxIU451Y + NLnuLpLy4Ee2OKRVVSW2s7JyCUUklVOWyODtCjDM/O/8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5QBoWXhB7GWaQRW8hluGlSWXPmJvwcbfLOdhyRiRc+qk8dRqKSPE6wkLKUYIT0DEHa + TweAfY/SuH/4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA2LvwvLNb2VuCu60lt2cknBES4b + bxyT2zj3xRPoN1b3FzcWzRj7WIRufduj8sFSQm0hzjkZZRnggjrj/wDC67P+5N/3yn/xyj/h + ddn/AHJv++U/+OUAXW8HSw2K6WqxSARMMysRskbcS6ny2yAXO3hCoHU7uOr062a1iSJ2LsiK + pc9WKgAsck8nr1P1rh/+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA1bbR7+yM6xvERcz + M4kcuXjDHbgKVIfbGq7QSoDZByoFRX/gNYxaLAqPHaeaDHOTtcSjli21+Q3zY245424ArP8A + +F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKANXV/Cr6jBFCEhTybhJRCufKKrnchbb/Fkkny8 + c7dp5Y6enWMtnFIsUUELEEokeSm/H3mYLHweAQFyAPvHIC8v/wALrs/7k3/fKf8Axyj/AIXX + Z/3Jv++U/wDjlAGrP4Rc29lapsBtJoJHxkKfLB3kYXksTnkDPUnNafi7Q21y1ks0YKzgYJ6Z + VgwBx2OMZ5x1welcv/wuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHUXNlcanFLBN5cayx + OgCbpCCwxv3ny+Ofu7fffzgZln4YmnW1iuSgjsthCxsz+YyJtRiSsZTaecDcGzg9Ocr/AIXX + Z/3Jv++U/wDjlH/C67P+5N/3yn/xygDdbw/LLHeh/LEt2ZArLn7nlCOMMSM5GCTjIBJI64qx + cafcXMtpKzIFh3tMq5wXaIoCmQTgFm6kcHnJrmv+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/ + AMcoA0NNaWWe9ubMRMzzCMmVpEw0MSDoFbcAxbgBDwfmYEbZbfwa1s9uQyuiTSzzlwNzzOmF + dVAIXaScAEAcHlhmsW3+MFhbbvLhlXexZtscYyx6scPyT3PWpf8Ahddn/cm/75T/AOOUAaFl + 4QexlmkEVvIZbhpUllz5ib8HG3yznYckYkXPqpPGxd2E/wBrju0KtEsTRlGJUrvdGZwQrbiQ + oG07RwMHk1y//C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAaFl4QexlmkEVvIZbhpUllz + 5ib8HG3yznYckYkXPqpPGhfaJMLwahAUObcwkSFht+cOHAAO/v8ALlOn3hnjn/8Ahddn/cm/ + 75T/AOOUf8Lrs/7k3/fKf/HKAOg07SLjSrVoojE100juXdSqOXkLFmCDOdnGB0IAyQK6CvP/ + APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uT + f98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vl + P/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/ + AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k + 3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP + /jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Ao + rz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5 + N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+ + U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aor + z/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/ + AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/ + 75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK + 8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P + +5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CvP/AI1/8ecf/Xwv + /oElH/C67P8AuTf98p/8crl/iH8Q7fxJbrbwrIGWUMS4UDAVh2ZufmoA6j4Kf8ecn/Xw3/oE + degV5/8ABT/jzk/6+G/9Ajr0CgArlPil/wAg6f8A7Z/+jUrq65T4pf8AIOn/AO2f/o1KAOV+ + Bn/L1/2x/wDaleq15V8DP+Xr/tj/AO1K9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACvP/jX/AMecf/Xwv/oElegV5/8AGv8A484/+vhf/QJKAOq8 + J/8AHnbf9e8P/oC1rVy/hjxDHFaW6FZcrBEDi2nYcIOhEZBHuDg9q0v+Eli/uzf+Atx/8boA + 1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+ + Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+ + Eli/uzf+Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA1qKyf+Eli/uzf+At + x/8AG6P+Eli/uzf+Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA1qKyf+El + i/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA + 1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+ + Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+ + Eli/uzf+Atx/8boA1qKyf+Eli/uzf+Atx/8AG6P+Eli/uzf+Atx/8boA4Dx9/wAhmz/7d/8A + 0e1eq14/431NJ9WtJgH2r5GQ0UitxMx4RlDH2wDk8DmvSv8AhJYv7s3/AIC3H/xugDWorJ/4 + SWL+7N/4C3H/AMbo/wCEli/uzf8AgLcf/G6ANaisn/hJYv7s3/gLcf8Axuj/AISWL+7N/wCA + tx/8boA1qKyf+Eli/uzf+Atx/wDG6P8AhJYv7s3/AIC3H/xugDWorJ/4SWL+7N/4C3H/AMbo + /wCEli/uzf8AgLcf/G6ANaisn/hJYv7s3/gLcf8Axuj/AISWL+7N/wCAtx/8boA1qKyf+Eli + /uzf+Atx/wDG6P8AhJYv7s3/AIC3H/xugDWorJ/4SWL+7N/4C3H/AMbo/wCEli/uzf8AgLcf + /G6ANaisn/hJYv7s3/gLcf8Axuj/AISWL+7N/wCAtx/8boA1qKyf+Eli/uzf+Atx/wDG6P8A + hJYv7s3/AIC3H/xugDWorJ/4SWL+7N/4C3H/AMbo/wCEli/uzf8AgLcf/G6ANaisn/hJYv7s + 3/gLcf8Axuj/AISWL+7N/wCAtx/8boA1qKyf+Eli/uzf+Atx/wDG6P8AhJYv7s3/AIC3H/xu + gDWorJ/4SWL+7N/4C3H/AMbo/wCEli/uzf8AgLcf/G6ANaisn/hJYv7s3/gLcf8Axuj/AISW + L+7N/wCAtx/8boA5X41/8ecf/Xwv/oElHwU/485P+vhv/QI6pfF3V0vbREQSAidT88MsY+4/ + d0UZ56ZzV34Kf8ecn/Xw3/oEdAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/ + AMLf+QjB/wBtP/RT19AV8/8Awt/5CMH/AG0/9FPQB9AUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAeVfHP/l1/wC23/tOvVa8q+Of/Lr/ANtv/adeq0AFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAV5/wDGv/jzj/6+F/8AQJK9Arz/AONf/HnH/wBfC/8AoElAB8FP+POT/r4b/wBA + jr0CvP8A4Kf8ecn/AF8N/wCgR16BQAVynxS/5B0//bP/ANGpXV1ynxS/5B0//bP/ANGpQByv + wM/5ev8Atj/7Ur1WvKvgZ/y9f9sf/aleq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABXn/AMa/+POP/r4X/wBAkr0CvP8A41/8ecf/AF8L/wCgSUAd + V4T/AOPO2/694f8A0Ba1qyfCf/Hnbf8AXvD/AOgLWtQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlXj7/AJDNn/27/wDo9q9Vryrx + 9/yGbP8A7d//AEe1eq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQB5/wDGv/jzj/6+F/8AQJKPgp/x5yf9fDf+gR0fGv8A484/+vhf + /QJKPgp/x5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8Awt/5 + CMH/AG0/9FPX0BXz/wDC3/kIwf8AbT/0U9AHsula293d3VmwXZbeTtIB3HzELHPOOvTAH41o + W+rQ3LtBHIjSJncqupYYODlQcjB4PvXL6dbNdXuqRIxRnS3UOOqloWAYYI5HXqPrVLRYU8PP + b295aokgZY4rmAAo7FCuGIAcEg4+YEM2WwAuQAdrcatDbOsEkiLI+Nqs6hjk4GFJycnge9Sy + XaRMsTMoeTO1SQGbaMnA6nA646VwWq6MdIe4uLu3W6tpndzIoBnjUqBtw3O1eApVhtALHHAG + nq90t3faZNGcpItyynBGQ0KkHB56UAdV9rTf5G5fM27tuRu25xu29cZ4z0zUV9q0On48+RI9 + 2ceY6rnGM4yRnGRXP/8AMZ/7h/8A7XrmrO0udcuLuRVtJjHcPH/pYd3VUJCBVXIVevOAWbcS + SRQB6bDMsyh0IKsAQQcgg8ggjqDXL+IPFa/6P9jmRt95BHJ5bI/yvuyD1xnHXg8cGuav/Ds2 + l2UemzsoS61CNSImZlWN+dimQEjDLkdfcnJzp+MfDVtYS2dzDEqSG9t0JQbRtyzfdGFzkdcZ + 7ZxQB3tVL7VodPx58iR7s48x1XOMZxkjOMirdcJ4Y0yHXLi8uboLNLHcPEqybWVI0PyYQjAy + c845wcclsgHa/a02efuXy9u7dkbduM7t3TGOc9MVXh1y3mcQpLGZGAIUOpYgruBAByQV5+nP + SuFs0W0XWLOEgwxozKBtwrSRP5gG0DgFduP4duOuc1NX8N2+n6Ol7CgWcJbyiQE7w7FASGzk + Dk8fdB5AzzQB6Xc6jFasqSOqtIcIGYKWPAwATyeR09RVis/UtAg1J4ppl3PA26M7mGDkHOAQ + Dyo65rQoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooA8q+Of8Ay6/9tv8A2nXa6zqklte2dsjYjn+0bxgHOyMFeSMjB9CPeuK+ + Of8Ay6/9tv8A2nXQeNtLj1W9sLadd0b/AGnIyRnEakcgg9QO9AHVWOrQ6hnyJEk24z5bq2M5 + xnBOM4NPstRiv13wurqDglGDDPXGQTzzXJXdpDpOp2iWypG00c6yrGFXKhdyZUdPmU/MACcY + yQMVUk1T/hEZr6MtlXj+1RAjIDO3lsGwAfmkKgDkBeSQcmgDure7S53eWytsYq20g4YdVOOh + Hcdaih1NJpZLVTl4lQtjGB5m7A65BwucEdCD3rM8EaCdDtI7ZgBJjc+AB8zHJBIJyV4XOeQB + 24qDwVdNdG8dzki+lXoBwioijj0AA/nzQB0tFedXniW7ht7y+Ev/AB6XjIibE2lRIi7WOMkY + bjaVbqSxyNux4p1o2vn+XcSCWGIsEhhDqvykr5jGOTBJBPLINuOByxAOtorj9Z8Qz/ZrG4iZ + UkuprZW+XcuJUJYYJzjPoQcfxDrRHNdJftphuGMbW4lDGOPzVw+wqCFCcnklkPHAAPzUAdhR + XBR+NJ2022ujjzrmUQlwhbblnXzBGPvNhc7RwWPAx8tbGgapM9w9s3myQeWHWWaFoWDZCmM/ + u0Df3gQARyOeoANrUtTTTlDufvMqqoxuZmOFQZIGSfUgDqSACRFpmsC+Z4SjxyRbdyyAZw4O + 1gVZlIOCODwQQcVleNZPPENjHt+0TSboSxwEaEGTzM7HHBABGAWDEZAyaxPC+s/ZX2yIzahc + XCRzrJIisBHGT5iqoAMYUZHHzE43NwSAegVRstahvpJIInDPAQHAzwWzgZxgng5wTgjBwaNb + 1RdKgkumxiJGbBO3JA4XPqxwB7noa4LRdWhtJrG4WRHkuI3jnO9WcNOwmUbEI2/vSwztwAcM + ehoA7i98RQ2Uv2VyxlKb9qRSSHbnbu+RW4yMUS+JLeO3/tEuPIwDvAJ6kKOACc5OCMZB64wa + 5+9eVNXzCqs32DkO5QY87rkI/Ptj8fXn74K+i3M+T5s05eZSNuyQzIGTbklQMDAY5I5OM4AB + 6BL4kt47f+0S48jAO8AnqQo4AJzk4IxkHrjBqwupo0xs8/vFjWTBxyrMy5HOTgrzxgZHPNea + +NP+JHBd6YeIptk1v2AzKnmxDoBtPzKqg4Ukk812GuXTQ6hYopwJFulbgcgIj49uVB49PSgD + dttRiumZI3VmjOHCsGKnkYIB4PB6+hqxWfpugQaa8s0K7XnbdIdzHJyTnBJA5Y9MVoUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/wAa/wDjzj/6+F/9Akr0CvP/AI1/ + 8ecf/Xwv/oElAB8FP+POT/r4b/0COvQK8/8Agp/x5yf9fDf+gR16BQAVynxS/wCQdP8A9s// + AEaldXXKfFL/AJB0/wD2z/8ARqUAcr8DP+Xr/tj/AO1K9Vr5/wDAv9o/vf7M/wBjzP8AVf7W + 3/Wfj0/HtXV/8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCf + stAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fst + H/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ + ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQ + B6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/x + Uf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAV + H/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq + 0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/ + AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5 + +y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rXn/xr/wCPOP8A6+F/9AkrK/4qP/P2 + Wuf8a/2t5K/2j/qvMGP9T97a2P8AV89M+36UAev+E/8Ajztv+veH/wBAWtavH9J/t/yY/I/1 + Xlps/wCPf7u0bfvc9MdefWrf/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH + /FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH + /FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH + /FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH + /FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH + /FR/5+y0AHj7/kM2f/bv/wCj2r1Wvn/X/wC0ftkP2r/j7/d+V/qv752fd+X72ev48V1f/FR/ + 5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/ + 5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/ + 5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/ + 5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/ + 5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aavxr/484/8Ar4X/ANAk + o+Cn/HnJ/wBfDf8AoEdcV41/tbyV/tH/AFXmDH+p+9tbH+r56Z9v0rtfgp/x5yf9fDf+gR0A + egUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/wDwt/5CMH/bT/0U9fQFfP8A8Lf+ + QjB/20/9FPQB7UvhqLfcStub7YqrIpPy4VCmBgAjIPPP0xVLT/BEdtIs0k08/lnKrcS+Yit2 + cLgfMOcHtnI5wR0dFAHNXfgSO5dnM1wscjEtEsxER3HLjbjOHJJYA9zjFXdb8KwavGkLAp5J + BjaLCOm3GNpxwOBxjHAPUAjYooA5/RPBUWkzG8V5XlaMozSvvLDcDknGcgAKMYGAOM80zVvA + 0N/MbxXlhmYYZ4JChYYUAHIPA2jpj3zXR0UAc/F4IgS1k08l2SZizs75kLEg7y3TIIHbBxyD + k5qJ8OIN8dxJJNJLFIrrJLLvbCHITkY2556ZznmurooAK5/VPBcd9I1ykk0MkmN5glKb9oAX + IOR8oHGAOpzmugooAx7PwrBZWrabGCsboysRjed67WYnHLH6YHAAwAKL7wvFe2g0tiwiCRrk + Eb8RlSOcEZ+UZ4rYooAx9b8LxaxLBcSFg1q+5ApABOVPOQePlHTHetiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDyr45/ + 8uv/AG2/9p12/ifwbB4kKGfd+6DgBSB98AZPB5GAR2z1BHFcR8c/+XX/ALbf+069VoAxNE8J + x6U5uN8sspUr5k8hdgpIOwdBjIz0zknmsrxjoP8Abl3aRbGKws0kjFcxhfl+Q5GGLlQMBsqM + kqQeOwooAKxNDsDp89zEExHJIsysCSCZV2uvI6hkLcE8OOnStuigDn5/BUM0E9mWfZdTGVyC + u4MWVsD5cAZUdQT70ar4Mjv2mcSSx/aVRZREygMEBA5ZWI4OCFIBHUHJz0FFAGPP4Ximit7c + ltto8TIQRkmIYXdxyD3xj2xVj+xE+0/2hlvM8nysZG3bv35xjOc++Mdq0KKAMGDwbBDarpvz + FIySjkgSK24sHVgBhlJ4IHTg5Gc6FlpzW7b3lkkOMDfsAGevEaICTgckEjtjJzeooAz9W0RN + S2MSySRNuSRCA6nvgkEEMOGUggjqOmMyXwPFNJ9reSVrkEbZt4DqBj5QqqI9p5yChzubPWuj + ooAz9c0RNaj+zSlvLLKWCkDcFOdpOCQCQM7SDxwRTtZ0pdViNuzMgYqd0Z2uCjBwQcHByBV6 + igDP/sRPtP8AaGW8zyfKxkbdu/fnGM5z74x2qjf+Dob2Oe3JZY7p1dgmwYZduWX5erbQWznJ + yRgk1vUUAYninwjD4lRYp9w2NkMm0N0wRkq3B4yO5A9KLiwN3fRysnyW0LlWJPLzHbgDGDtV + DnJP3xx3rbooAx9E8LxaPLPcRli10+5wxBAOWPGAOPmPXPatiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAK8/wDjX/x5x/8AXwv/AKBJXoFef/Gv/jzj/wCvhf8A0CSg + A+Cn/HnJ/wBfDf8AoEdegV5/8FP+POT/AK+G/wDQI69AoAK5T4pf8g6f/tn/AOjUrq65T4pf + 8g6f/tn/AOjUoA5X4Gf8vX/bH/2pXqteVfAz/l6/7Y/+1K9VoAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP8A41/8ecf/AF8L/wCgSV6BXn/xr/48 + 4/8Ar4X/ANAkoA6rwn/x523/AF7w/wDoC1rVk+E/+PO2/wCveH/0Ba1qACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8q8ff8hmz/7d + /wD0e1eq15V4+/5DNn/27/8Ao9q9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigDz/AONf/HnH/wBfC/8AoElHwU/485P+vhv/AECO + j41/8ecf/Xwv/oElHwU/485P+vhv/QI6APQKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAK+evhxdpaX8MsrKiDzMs5CqMxsBknjrX0LXzf4M0RNbu47OUsEk35KEBvlRmGMgjqPSgD + 3r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/3 + 0n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KU + s/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A + 43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35 + v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8A + hSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A + 4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/ + AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln + /wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/x + VH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+I + f+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Es + s/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6 + AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf + 99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/C + lLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/ + AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9 + +b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/ + AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/ + AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q + /wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZ + Z/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/ + 8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCf + iH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/h + LLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/x + ugDn/jLq0OofZ/IkSTb5ufLdWxnZjOCcZwa9K/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n + /wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wp + Sz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4S + yz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8A + f5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8A + CWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T + /wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4U + pZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8A + fSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv + /ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+ + /wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj + /hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD + /wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV + /wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8A + vpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj + /hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N + /wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAV + XK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4 + h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8A + iqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8 + /EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3Q + B1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm + /wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8A + G6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/ + 783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ + ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/ + +fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T + /wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAll + n/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8A + jdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf + 9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n + /wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wp + Sz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4S + yz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8A + f5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8A + CWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T + /wCN0AdV/wAJZZ/8/EP/AH+T/wCKriPi7rlvf2iJDLG7CdSQjqxxscZwCeOau/8AClLP+/N/ + 30n/AMbrl/iH8PLfw3brcQtIWaUKQ5UjBVj2VefloA6j4Kf8ecn/AF8N/wCgR16BXn/wU/48 + 5P8Ar4b/ANAjr0CgArlPil/yDp/+2f8A6NSurrlPil/yDp/+2f8A6NSgDlfgZ/y9f9sf/ale + q15V8DP+Xr/tj/7Ur1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAK8/wDjX/x5x/8AXwv/AKBJXoFef/Gv/jzj/wCvhf8A0CSgDqvCf/Hnbf8AXvD/ + AOgLWtXL+GPD0ctpbuWly0EROLmdRyg6ASAAewGB2rS/4RqL+9N/4FXH/wAcoA1qKyf+Eai/ + vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1q + Kyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH + /wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL + +9N/4FXH/wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1qKyf+Eai/vTf+BVx/ + 8co/4RqL+9N/4FXH/wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1qKyf+Eai/ + vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1q + Kyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH + /wAcoA1qKyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcoA4Dx9/yGbP/ALd//R7V6rXj/jfT + Eg1a0hBfa3kZLSyM3MzDh2YsPbBGDyOa9K/4RqL+9N/4FXH/AMcoA1qKyf8AhGov703/AIFX + H/xyj/hGov703/gVcf8AxygDWorJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHKANaisn/ + AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcoA1qKyf8AhGov703/AIFXH/xyj/hGov703/gV + cf8AxygDWorJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHKANaisn/AIRqL+9N/wCBVx/8 + co/4RqL+9N/4FXH/AMcoA1qKyf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxygDWorJ/wCE + ai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHKANaisn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/ + AMcoA1qKyf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxygDWorJ/wCEai/vTf8AgVcf/HKP + +Eai/vTf+BVx/wDHKANaisn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcoA1qKyf8AhGov + 703/AIFXH/xyj/hGov703/gVcf8AxygDWorJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDH + KAOV+Nf/AB5x/wDXwv8A6BJR8FP+POT/AK+G/wDQI6pfF3SEsrRHQyEmdR880sg+4/Z3YZ46 + 4zV34Kf8ecn/AF8N/wCgR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//C3/ + AJCMH/bT/wBFPX0BXz/8Lf8AkIwf9tP/AEU9AH0BRWDrHjmz0eT7PPKFkABICu2M9M7VOD3w + ecYPQircviS3jt/7RLjyMA7wCepCjgAnOTgjGQeuMGgDTooooAKKKKACiiigAorP0jW01Xzf + LDDyJnibcAMsmMkYJ4546H2rQoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigArz/wCNf/HnH/18L/6BJXoFef8Axr/484/+vhf/AECSgA+Cn/HnJ/18N/6BHXoFef8A + wU/485P+vhv/AECOvQKACuU+KX/IOn/7Z/8Ao1K6uuU+KX/IOn/7Z/8Ao1KAOV+Bn/L1/wBs + f/aleq15V8DP+Xr/ALY/+1K9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACvP/AI1/8ecf/Xwv/oElegV5/wDGv/jzj/6+F/8AQJKAOq8J/wDHnbf9 + e8P/AKAta1ZPhP8A487b/r3h/wDQFrWoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigDyrx9/wAhmz/7d/8A0e1eq15V4+/5DNn/ANu/ + /o9q9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigDz/wCNf/HnH/18L/6BJR8FP+POT/r4b/0COj41/wDHnH/18L/6BJR8FP8Ajzk/ + 6+G/9AjoA9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/8Ahb/yEYP+2n/op6+g + K+f/AIW/8hGD/tp/6KegD0MSTeDJrid4DNbXErSmWEDzEyGYqyk8quOuQoBJzltou6/ryWml + ve6aVRBt8spGFUZlCthGXHXPb396sXGsalbSSILRZUDnY6TrHlP4QVfJ3DueBnoMcnM1HwhP + /Z1xbAK9zczGVgjYTc0qkhS+3ACr3Oc55PFAGn4y1qa2kt7G3dYnu3Yea+DtCbSQFIwWbOBn + qeOpBFLwVfXc93dW9zcLMlttUbUQAl8nOVAIKhSGXnBJGeOanjhG1G8Sy8lrlFtzJ5PmiBQd + +0Sb8gscZXaRwDkdTjT8G3q2THSjbG2kCGUKJFlUqWC7i4OSxPGDnAA5xgUAc/pWp6reWf8A + a3nxhY0ZghjB8wRu2/cQo2nAwNvUY+6ctW14j8dCzt7dwRE16gYOwMixDarMcKMuw3AKMAE8 + tgDBfoegT2uktYOuJzDOu3cp5cvtGQcc5Hf61FqHhq6FvZTW20XVlGBtcjaQYgrpwCCSVAB3 + AYJO4cEAGf4W8avNeJZfaVu451b5vJMDRsilum0BgwGOpOfTHzaBvr7xDJcC0lWCO2kaNSY1 + cyOo+YMSW2gHoQvIboSMVpaZqmoXkyrLbLBCAxctKsjHj5QuzGDnrkEYzyDjOfHaXuhzTxWs + KyxXMplWR5Qux5AA+5cZZQRkBRnbxkk8AEXgZJ3t75QVW5N3cgEZ2CQqvIyCdob1B46iuo0C + GeGBEu2V5xu3MnCn5jjHyr0GB0FYXhbTrvS7e6aRF+0yTzyIAQUYso24+bIUsOjEHHXFbugT + TzQI92qpOd25U5UfMcY+Zu2D1NAGhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFef8Axr/484/+vhf/AECSvQK8/wDjX/x5x/8AXwv/AKBJQAfBT/jzk/6+G/8AQI69 + Arz/AOCn/HnJ/wBfDf8AoEdegUAFcp8Uv+QdP/2z/wDRqV1dcp8Uv+QdP/2z/wDRqUAcr8DP + +Xr/ALY/+1K9Vryr4Gf8vX/bH/2pXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAUUUUAFFFFABRRRQAV5/wDGv/jzj/6+F/8AQJK9Arz/AONf/HnH/wBfC/8AoElAGx4Y + 8QxxWluhWXKwRA4tp2HCDoRGQR7g4PatL/hJYv7s3/gLcf8Axujwn/x523/XvD/6Ata1AGT/ + AMJLF/dm/wDAW4/+N0f8JLF/dm/8Bbj/AON1rUUAZP8AwksX92b/AMBbj/43R/wksX92b/wF + uP8A43WtRQBk/wDCSxf3Zv8AwFuP/jdH/CSxf3Zv/AW4/wDjda1FAGT/AMJLF/dm/wDAW4/+ + N0f8JLF/dm/8Bbj/AON1rUUAZP8AwksX92b/AMBbj/43R/wksX92b/wFuP8A43WtRQBk/wDC + Sxf3Zv8AwFuP/jdH/CSxf3Zv/AW4/wDjda1FAGT/AMJLF/dm/wDAW4/+N0f8JLF/dm/8Bbj/ + AON1rUUAZP8AwksX92b/AMBbj/43R/wksX92b/wFuP8A43WtRQBk/wDCSxf3Zv8AwFuP/jdH + /CSxf3Zv/AW4/wDjda1FAGT/AMJLF/dm/wDAW4/+N0f8JLF/dm/8Bbj/AON1rUUAZP8AwksX + 92b/AMBbj/43R/wksX92b/wFuP8A43WtRQBk/wDCSxf3Zv8AwFuP/jdH/CSxf3Zv/AW4/wDj + da1FAGT/AMJLF/dm/wDAW4/+N0f8JLF/dm/8Bbj/AON1rUUAZP8AwksX92b/AMBbj/43R/wk + sX92b/wFuP8A43WtRQB4/wCN9TSfVrSYB9q+RkNFIrcTMeEZQx9sA5PA5r0r/hJYv7s3/gLc + f/G64Dx9/wAhmz/7d/8A0e1eq0AZP/CSxf3Zv/AW4/8AjdH/AAksX92b/wABbj/43WtRQBk/ + 8JLF/dm/8Bbj/wCN0f8ACSxf3Zv/AAFuP/jda1FAGT/wksX92b/wFuP/AI3R/wAJLF/dm/8A + AW4/+N1rUUAZP/CSxf3Zv/AW4/8AjdH/AAksX92b/wABbj/43WtRQBk/8JLF/dm/8Bbj/wCN + 0f8ACSxf3Zv/AAFuP/jda1FAGT/wksX92b/wFuP/AI3R/wAJLF/dm/8AAW4/+N1rUUAZP/CS + xf3Zv/AW4/8AjdH/AAksX92b/wABbj/43WtRQBk/8JLF/dm/8Bbj/wCN0f8ACSxf3Zv/AAFu + P/jda1FAGT/wksX92b/wFuP/AI3R/wAJLF/dm/8AAW4/+N1rUUAZP/CSxf3Zv/AW4/8AjdH/ + AAksX92b/wABbj/43WtRQBk/8JLF/dm/8Bbj/wCN0f8ACSxf3Zv/AAFuP/jda1FAGT/wksX9 + 2b/wFuP/AI3R/wAJLF/dm/8AAW4/+N1rUUAZP/CSxf3Zv/AW4/8AjdH/AAksX92b/wABbj/4 + 3WtRQBk/8JLF/dm/8Bbj/wCN0f8ACSxf3Zv/AAFuP/jda1FAHmXxd1dL20REEgInU/PDLGPu + P3dFGeemc1d+Cn/HnJ/18N/6BHR8a/8Ajzj/AOvhf/QJKPgp/wAecn/Xw3/oEdAHoFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/wALf+QjB/20/wDRT19AV8//AAt/5CMH/bT/ + ANFPQB9AUUUUAZOt+FbXW8G5jVyMYblWwM8blIOOTxnGecZp+h+G7fQlZLZAgc5bksTjpyxJ + wOwzgZPqa06KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAK8/+Nf8Ax5x/9fC/+gSV6BXn/wAa/wDjzj/6+F/9AkoAPgp/x5yf9fDf+gR16BXn + /wAFP+POT/r4b/0COvQKACuU+KX/ACDp/wDtn/6NSurrlPil/wAg6f8A7Z/+jUoA5X4Gf8vX + /bH/ANqV6rXlXwM/5ev+2P8A7Ur1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAK8/+Nf8Ax5x/9fC/+gSV6BXn/wAa/wDjzj/6+F/9AkoA6rwn/wAe + dt/17w/+gLWtWT4T/wCPO2/694f/AEBa1qACiiigAooooAKKKKACiiigAooooAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooA8q8ff8hmz/AO3f/wBHtXqteVePv+QzZ/8A + bv8A+j2r1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKAPP/jX/AMecf/Xwv/oElHwU/wCPOT/r4b/0COj41/8AHnH/ANfC/wDoElHw + U/485P8Ar4b/ANAjoA9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5vtfD1/aMJY + obhHGcMkcisMjBwQM9K+kKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Hqv + e6dql+uyZLp1ByA6ysM9M4IPPNfRFFAHD/CLTpbC0dJkZGM7EB1KnGxBnBA44ruKKKACua+I + 9o93YTRRKzufLwqAsxxIpOAOeldLRQB862Ok6lp+fIjuY92M+Wkq5xnGcAZxk1a/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f + +R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKA + Pn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP + /T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/4nP/AE+f+R6+gKKAPn//AInP/T5/5Ho/ + 4nP/AE+f+R6+gKKAPn//AInP/T5/5Hqve6dql+uyZLp1ByA6ysM9M4IPPNfRFFAHz5DDq8Kh + EF2FUAAATAADgAAdAKf/AMTn/p8/8j19AUUAfP8A/wATn/p8/wDI9H/E5/6fP/I9fQFFAHz/ + AP8AE5/6fP8AyPR/xOf+nz/yPX0BRQB8/wD/ABOf+nz/AMj0f8Tn/p8/8j19AUUAfP8A/wAT + n/p8/wDI9H/E5/6fP/I9fQFFAHz/AP8AE5/6fP8AyPR/xOf+nz/yPX0BRQB8/wD/ABOf+nz/ + AMj0f8Tn/p8/8j19AUUAfP8A/wATn/p8/wDI9H/E5/6fP/I9fQFFAHz/AP8AE5/6fP8AyPR/ + xOf+nz/yPX0BRQB8/wD/ABOf+nz/AMj0f8Tn/p8/8j19AUUAfP8A/wATn/p8/wDI9H/E5/6f + P/I9fQFFAHz/AP8AE5/6fP8AyPR/xOf+nz/yPX0BRQB8/wD/ABOf+nz/AMj0f8Tn/p8/8j19 + AUUAfP8A/wATn/p8/wDI9H/E5/6fP/I9fQFFAHz/AP8AE5/6fP8AyPR/xOf+nz/yPX0BRQB8 + 63Gk6lcus8kdy0iY2sySlhg5GGIyMHke9Wv+Jz/0+f8AkevoCigD5/8A+Jz/ANPn/kej/ic/ + 9Pn/AJHr6AooA+f/APic/wDT5/5Ho/4nP/T5/wCR6+gKKAPn/wD4nP8A0+f+R6P+Jz/0+f8A + kevoCigD5/8A+Jz/ANPn/kej/ic/9Pn/AJHr6AooA+f/APic/wDT5/5Ho/4nP/T5/wCR6+gK + KAPn/wD4nP8A0+f+R6P+Jz/0+f8AkevoCigD5/8A+Jz/ANPn/kej/ic/9Pn/AJHr6AooA+f/ + APic/wDT5/5Ho/4nP/T5/wCR6+gKKAPn/wD4nP8A0+f+R6P+Jz/0+f8AkevoCigD5/8A+Jz/ + ANPn/kej/ic/9Pn/AJHr6AooA+f/APic/wDT5/5Ho/4nP/T5/wCR6+gKKAPn/wD4nP8A0+f+ + R6P+Jz/0+f8AkevoCigD5/8A+Jz/ANPn/kej/ic/9Pn/AJHr6AooA+f/APic/wDT5/5Ho/4n + P/T5/wCR6+gKKAPne907VL9dkyXTqDkB1lYZ6ZwQeea9Q+EWnS2Fo6TIyMZ2IDqVONiDOCBx + xXcUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFcp/wtLTv+e3/kOX/wCIoA6u + iuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH/C0t + O/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3/Pb/ + AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe3/kOX/4i + gDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy//EUf8LS0 + 7/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5Dl/8AiKAOrorlP+Fpad/z + 2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv/wARR/wtLTv+e3/kOX/4 + igDq6K5T/haWnf8APb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP+Fpad/z2/wDIcv8A8RR/ + wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCF + pad/z2/8hy//ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/ + AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDE + Uf8AC0tO/wCe3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4W + lp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5D + l/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv + /wARR/wtLTv+e3/kOX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP + +Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8A + nt/5Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Ic + v/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K + 5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07 + /nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8A + yHL/APEUf8LS07/nt/5Dl/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKA + OrorlP8AhaWnf89v/Icv/wARR/wtLTv+e3/kOX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv + +e3/AJDl/wDiKAOrorlP+Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb + /wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iK + AOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C + 0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe3/kOX/4igDq6K5T/AIWl + p3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A + 4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5Dl/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR + /wALS07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv/wARR/wtLTv+e3/kOX/4igDq6K5T/haW + nf8APb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP+Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX + /wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/z2/8hy// + ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4 + Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe + 3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy/ + /EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5Dl/8AiKAOrorP + 0TX4NbQzWzb0DFSdrLyADjDAHoRWhQAUUVU1TVI9Kja5nbbGmMnBOMkAcAE9SO1AFuiuU/4W + lp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5D + l/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv + /wARR/wtLTv+e3/kOX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP + +Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8A + nt/5Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Ic + v/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K + 5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07 + /nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8A + yHL/APEUf8LS07/nt/5Dl/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKA + OrorlP8AhaWnf89v/Icv/wARR/wtLTv+e3/kOX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv + +e3/AJDl/wDiKAOrorlP+Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb + /wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iK + AOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C + 0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe3/kOX/4igDq6K5T/AIWl + p3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A + 4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5Dl/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR + /wALS07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv/wARR/wtLTv+e3/kOX/4igDq6K5T/haW + nf8APb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP+Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX + /wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/z2/8hy// + ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4 + Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ACHL/wDEUf8AC0tO/wCe + 3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA6uiuU/4Wlp3/AD2/8hy/ + /EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS07/nt/5Dl/8AiKAOrorl + P+Fpad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKAOrorlP8AhaWnf89v/Icv/wARR/wtLTv+ + e3/kOX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv+e3/AJDl/wDiKAOrorlP+Fpad/z2/wDI + cv8A8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/AAtLTv8Ant/5Dl/+IoA6 + uiuU/wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad/wA9v/Icv/xFH/C0tO/5 + 7f8AkOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFH/C0tO/57f+Q5f/AIigDq6K5T/haWnf89v/ + ACHL/wDEUf8AC0tO/wCe3/kOX/4igDq6K5T/AIWlp3/Pb/yHL/8AEUf8LS07/nt/5Dl/+IoA + 6uiuU/4Wlp3/AD2/8hy//EUf8LS07/nt/wCQ5f8A4igDq6K5T/haWnf89v8AyHL/APEUf8LS + 07/nt/5Dl/8AiKAOrorlP+Fpad/z2/8AIcv/AMRR/wALS07/AJ7f+Q5f/iKAOrorlP8AhaWn + f89v/Icv/wARR/wtLTv+e3/kOX/4igDq6K5T/haWnf8APb/yHL/8RR/wtLTv+e3/AJDl/wDi + KAOrorlP+Fpad/z2/wDIcv8A8RR/wtLTv+e3/kOX/wCIoA6uiuU/4Wlp3/Pb/wAhy/8AxFH/ + AAtLTv8Ant/5Dl/+IoA6uiuU/wCFpad/z2/8hy//ABFH/C0tO/57f+Q5f/iKAOrorlP+Fpad + /wA9v/Icv/xFH/C0tO/57f8AkOX/AOIoA6uiuU/4Wlp3/Pb/AMhy/wDxFbeia/BraGa2begY + qTtZeQAcYYA9CKANCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvmrwtoX9vXKWW7Z + 5m75tu7G1S3TI9Mda+la+f8A4W/8hGD/ALaf+inoA6v/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/y + D/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/ + 6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH + /wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf + 9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1Wig + Dyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDI + P/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/ + AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDk + H/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/ + 08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9V + ooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/ + APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8A + CjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/ + +2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ + /wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaK + APKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ + ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/wo + z/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A + 7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4U + Z/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9Voo + A8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/y + D/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/ + 6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH + /wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf + 9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1Wig + Dyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDI + P/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/ + AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDk + H/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/ + 08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9V + ooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/ + APbK9VooA8q/4UZ/08/+Qf8A7ZXP+Nfhv/wjEK3PneZukCY8vb1VjnO5v7vpXutef/Gv/jzj + /wCvhf8A0CSgA+Cn/HnJ/wBfDf8AoEdegV5/8FP+POT/AK+G/wDQI69AoAK5T4pf8g6f/tn/ + AOjUrq65T4pf8g6f/tn/AOjUoA8q8C+Bf+Eq83975flbP4N+d+7/AGlxjbXV/wDCjP8Ap5/8 + g/8A2yj4Gf8AL1/2x/8Aaleq0AeVf8KM/wCnn/yD/wDbKP8AhRn/AE8/+Qf/ALZXqtFAHlX/ + AAoz/p5/8g//AGyj/hRn/Tz/AOQf/tleq0UAeVf8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZXqt + FAHlX/CjP+nn/wAg/wD2yj/hRn/Tz/5B/wDtleq0UAeVf8KM/wCnn/yD/wDbKP8AhRn/AE8/ + +Qf/ALZXqtFAHlX/AAoz/p5/8g//AGyj/hRn/Tz/AOQf/tleq0UAeVf8KM/6ef8AyD/9so/4 + UZ/08/8AkH/7ZXqtFAHlX/CjP+nn/wAg/wD2yj/hRn/Tz/5B/wDtleq0UAeVf8KM/wCnn/yD + /wDbKP8AhRn/AE8/+Qf/ALZXqtFAHlX/AAoz/p5/8g//AGyj/hRn/Tz/AOQf/tleq0UAeVf8 + KM/6ef8AyD/9so/4UZ/08/8AkH/7ZXqtFAHlX/CjP+nn/wAg/wD2yj/hRn/Tz/5B/wDtleq0 + UAeVf8KM/wCnn/yD/wDbKP8AhRn/AE8/+Qf/ALZXqtFAHlX/AAoz/p5/8g//AGyj/hRn/Tz/ + AOQf/tleq0UAeVf8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZXqtFAHlX/CjP+nn/wAg/wD2yj/h + Rn/Tz/5B/wDtleq0UAeVf8KM/wCnn/yD/wDbKP8AhRn/AE8/+Qf/ALZXqtFAHlX/AAoz/p5/ + 8g//AGyj/hRn/Tz/AOQf/tleq0UAeVf8KM/6ef8AyD/9so/4UZ/08/8AkH/7ZXqtFAHlX/Cj + P+nn/wAg/wD2yj/hRn/Tz/5B/wDtleq0UAeVf8KM/wCnn/yD/wDbKP8AhRn/AE8/+Qf/ALZX + qtFAHlX/AAoz/p5/8g//AGyj/hRn/Tz/AOQf/tleq0UAeVf8KM/6ef8AyD/9sqjF8J7eWT7O + t9GZckbAil8rnI2+bnIwc+lex14JqFq0VxeanGMvZ3ytgkbcNLJyRwT8yqOD0J+oAOguvgul + opllu1RBjLPEFUZOBkmTHWorf4RQ3KNPHeo0aZ3MqKVGBk5YS4GByfauj8Y6guvzWWmRMDFc + kTSA713RKNyjIxwwDcdQwU/L1rH8Af8AIGvP+3j/ANELQBU/4VFD5f2r7anlf39i7Ou373m4 + 68devFPsvg5FfrvhvFdQcEpGGGeuMiU881Y/5lz/AD/z9VL8NZ/7EuBp7btl5bwzRZbI3GPL + 4AGBk7uTg4QA5yDQBSsvg5FfrvhvFdQcEpGGGeuMiU881De/Ce3sG2TX0aMRkB0VTjpnBlHH + FWPBGsto2j3N1H99ZmC9OC6xIG5BBwTnGOcYrq/BvhC3NpFNPGk0s6iV3lQOxMnzdW3HgED3 + IJxkmgDl4fgisyh0ugVYAgiLIIPIIIk5BrM/4VxZ/wDQRh/8c/8Aj1dN4GhOiald6TGcwBRI + oOflJ2EAZY9nwT1baDx0rl/A+raZaWkkd+qtKXcgGIs5UooAVwPlOc4+YYPOR1oA1Yfgisyh + 0ugVYAgiLIIPIIIk5BqvffCKHT8efepHuzjzEVc4xnGZRnGRXZ/DDR59KsxHcZBZ2ZVJOVVg + MAg/dOcnHbPODkDJ+JsKzXenI4BVpyCCMggvECCD1BoA5+y+E9vftshvo3YDJCIrHHTOBKeO + afffCKHT8efepHuzjzEVc4xnGZRnGRXQfEHw3FpMH9q2arBPbshDRLtBBbaV2jC878kkHIG0 + 8Gsrx5qS3X9lXdyF2Ph5BtJXB8lnG3kkYzxzxxzQBRsvhPb37bIb6N2AyQiKxx0zgSnjmopv + hlaQsUfUIgykgghAQRwQQZeCK9F8K3un37O9gsYZAAxSHyzhskDJVcg7f0rjfCv2P7ZqH23y + f+Pg7PP2f35d2N/4Zx7UAZ8nwttolWVr+IJJnaxVArbTg4Pm4OD1x0p1l8J7e/bZDfRuwGSE + RWOOmcCU8c1ofEOW1ifTnTy/sqyyE+WFaPaHj38KCCOuQByc967Dwre6ffs72CxhkADFIfLO + GyQMlVyDt/SgDhb34ORWC75rxUUnALxhRnrjJlHPFV/+FW22zz/t8Xl7tu7am3djO3d5uM45 + x1xXQeArRPFbT6tdqshaQxxpIA6xqoDYGeP4gM7QeCc5Y11sXg+ziLkQR4kKllKgplAQpCHK + ggE9AM5OaAPLP+FcWf8A0EYf/HP/AI9V69+DkVgu+a8VFJwC8YUZ64yZRzxWh4B0O3urvUEk + ijZY58IGRWCjfKMAEcDgdPQVX8XldH1M399E01q8ahOCyqduMYbCE5Vjtz0bf1FAENr8F0u1 + EsV2roc4ZIgynBwcESY61N/woz/p5/8AIP8A9sruvCX2Nomk0/b5UkjMdu4DccA/K3K8AYXA + GMEDBrboA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8A + CjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/ + +2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ + /wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaK + APKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ + ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4UZ/08/wDkH/7ZR/wo + z/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A + 7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/yD/8AbK9VooA8q/4U + Z/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/6ef/ACD/APbK9Voo + A8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH/wC2Uf8ACjP+nn/y + D/8AbK9VooA8q/4UZ/08/wDkH/7ZR/woz/p5/wDIP/2yvVaKAPKv+FGf9PP/AJB/+2Uf8KM/ + 6ef/ACD/APbK9VooA8q/4UZ/08/+Qf8A7ZR/woz/AKef/IP/ANsr1WigDyr/AIUZ/wBPP/kH + /wC2Uf8ACjP+nn/yD/8AbK9VooA8K8a/Df8A4RiFbnzvM3SBMeXt6qxznc3930rtfgp/x5yf + 9fDf+gR0fGv/AI84/wDr4X/0CSj4Kf8AHnJ/18N/6BHQB6BRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABXz/8AC3/kIwf9tP8A0U9fQFfP/wALf+QjB/20/wDRT0AfQFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFAFTVNUj0qNrmdtsaYycE4yQBwAT1I7VX0PxJb66rPbOHCHDcFSM9OGA + OD2OMHB9DWP8Uv8AkHT/APbP/wBGpXK+Af8AiRXsdsP9XfWcMgC8/MI8ksTyOVk4BI+YcegB + 3Wt+M7TRHENzJscqGA2O3BJGcqpHUGtiaZYVLuQFUEkk4AA5JJPQCvB/EUg1a3n1c8ma+VF3 + KAyokTlRkeoKgj1UEkmvSPirqjW1p9mjyZbp1jUKcORnLYUcsDgKR/tc+hAN3QvFNtr277M+ + /wAvbu+Vlxuzj7wHoelTalr8GmvFDM21522xjaxycgYyAQOWHXFcJpNj/wAIhqcdtn91dW6J + nHlp5kagZxkhmJX1zmXvn5rfxH/4/NN/6+P/AGeGgDpdb8Z2miOIbmTY5UMBsduCSM5VSOoN + W9b1+DREE1y2xCwUHazckE4woJ6A1554+0caxqsVocZktHC5JADATFCSOcBgD/Q9Kx/EWt/2 + hpEUDjbLa3CROpGCNkcgU7SSRkDBzj5g2BxQB6Xqnj2y0qRraeXbImMjZIcZAI5CkdCO9S6J + 4ztNbcw20m9wpYjY68AgZyygdSKz/il/yDp/+2f/AKNStXwn/wAedt/17w/+gLQBlf8AC0tO + /wCe3/kOX/4itDUvGdppqRTTSbUnXdGdjnIwDnAUkcMOuK8/+F/if+yrZ4vIuJczMd0EW9Rl + EGCcjnjp6EVrfFK1W7udPhkGUkmZWGSMhniBGRz0oA7W51+C1gF+7YgKq27ax4fG04Azzkdv + rVq0ulu0WaM5SRQynBGQwyDg89K8ie9a10u70abAmtHXA6bkaZTuGeSMnrgDayetddqGs/2R + oyTA4drWJEw21tzoq5B65UEtxzx26gA3dK8XWurStbW8geRASQA2MKQpIYjaRkjoTnqOKsa3 + r8GiIJrltiFgoO1m5IJxhQT0BrzK00tvB8unXjZCyp5c2R5QBkJb525yV39Gx/qu38O78a/+ + POP/AK+F/wDQJKAOwttfguoDfo2YArNu2sOEzuOCM8YPb6U6w1qG/hF5G4MJDHecqMKSGJ3A + YAwetedWjjQBqOisAqtFPNB15Voz8oLHLEKB0B5V8k4rK85riw03TSSIrqdw5U4bAnwB6Y+f + PIPIU9qAPQ/+Fkafv8nz13btudr7c5x9/btx/tZxjnOKta34ztNEcQ3MmxyoYDY7cEkZyqkd + Qa05dOilj+zsimLAGwqCmFxgbcYwMDHpXnni3UP7P1m2n2PJttz8sS7nOfOHC5GcZyfbNAHa + 6F4ptte3fZn3+Xt3fKy43Zx94D0PSptb1+DREE1y2xCwUHazckE4woJ6A0aJq/8AaqGXy5Ys + MRtnTYxwAcgZPHPX1Brj/jX/AMecf/Xwv/oElAG7p/xDsNQkWCOYF3OFBR1yewyygZPbnk8D + mrGt+M7TRHENzJscqGA2O3BJGcqpHUGuK8V3o8ayQaWkTwSbi5e5URsEAIIVcktnrgEcqM8A + lZfFuof2frNtPseTbbn5Yl3Oc+cOFyM4zk+2aAO10LxTba9u+zPv8vbu+Vlxuzj7wHoelRaz + 40s9Gbyp5VV/7oDOw4B5CAkZBGM4z2ph8StNaTXqRSRtCkhC3CbCSibgcA8qenUdDWV8KLJU + sxdHLS3Luzs3LEh2Uc9SOM8k8lj3oA6PRtfg1pfMtpFcDrjhhyQMqcEZwcZAz1HFGm6/BqTy + wwtueBtsg2sMHJGMkAHlT0zXFS2w0vXoxD8ouoWaQYGCcOTjjjJjDE9Sc84OKl+HH/H5qX/X + x/7PNQB2E2vwQzpYM2J5F3Ku1uQN3OcYH3T1PaiHX4Jp3sFbM8a7mXa3AO3nOMH7w6HvXH6z + /wAh61/692/lPRo3/Ieuv+vdf5QUAbd38R7C0doZJsPGxVh5chwVOCMhcda0rPxJb3sDX0bh + oUDFmAPGwZbK43Agc4xkjBHUV514a8SroV3qLvFLIpnYkwpvChXlJLEkYHP6H0q34b0cw2F/ + qPyqt5FKyRoQQiqsmBkYGfmxgAbcc4OVAB0X/C0tO/57f+Q5f/iK1dd8U22g7ftL7PM3bflZ + s7cZ+6D6jrXIfDfxP5FrBZ+RcNlmHmLFmL5pG5356DPzHHGDUvxH/wCPzTf+vj/2eGgDotH8 + c2esSfZ4JQ0hBIBV1zjrjcoye+BzjJ6A1vVxXxW0xGtGvgNs8DRlHXAf74XG7GcDcSACPmwa + 6Xw9dNd20E0hy8kMbMcAZLICTgcdaANCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP8A41/8ecf/AF8L + /wCgSV6BXn/xr/484/8Ar4X/ANAkoAPgp/x5yf8AXw3/AKBHXoFef/BT/jzk/wCvhv8A0COv + QKACuU+KX/IOn/7Z/wDo1K6uuU+KX/IOn/7Z/wDo1KAOV+Bn/L1/2x/9qV6rXlXwM/5ev+2P + /tSvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArzrw34ae7k1SCZGRLmQ + hGeM7TlpcOucBtpIYYPocjivRaKAPLPhToFwJ3urxZAYYljjEyNwGJ+6X6BQCMDs3bvY8EaT + NbaTdwSRusj+ftVkYMcwqBhSMnJ4HvXpdFAHmn9kzf2B9l8t/N/ubG3/APHxu+7jPTnp05q9 + rXh6Waws7mJCbqxSF1Qg5O1V3oVyvPyg4+98u0cmu9ooA8y8F+FJb3S7iwmVonklYqJFKchY + ypOQTt3Lg4HTOOa0PDnia40SBLK7tbhpIQFDQxiRCoHy/MpAyB8pxnpknJIHe0UAcl4P8OzR + Tz6reALPcHCoCG2IDwpZcKSQF7ZwoOcsQMn4b+HGl0+ayu42QSyvw6bWwUQBgGHUEZBxwR7V + 6HRQByXw5a4t4XsLpGDWrlVdlYK6ZONrN94DBAwAAu2s/wCJNtKbixuI4pJFglZnESFyAGjP + bucHGcV3tFAHn+vXN14zX+z4YJYIWZDLLcKEOASdoQ5LcgHKnrwcA5pnj7TGtZdPa3ikeK1f + JESNIQqGLA784XjJ5x1r0OigDE0TxP8A2q5i8i4iwpO6eLYpwQMA5PPPT0Brl/B/hhZru/e7 + gBVp8xmaLIILyElSw5B46e1eh0UAeeeP9La1msHtoGaK3lZmW3jzgB42PCjAJwcdMnNdRoni + f+1XMXkXEWFJ3TxbFOCBgHJ556egNbdFAHm/h6K48DSTWrwSzWsjlomgUSMMYHzAbSCVwDnA + yp2ggk12Hh/XZNXMjNBJDGhUIZhtdsjLfJ2A4wckHPqCBsUUAcP4B06W1u9QeRGVZJ8oWUqG + G+U5BI5HI6eorT1nxO1nJJay2k0sRUbWhQSq4YfMGHAXB4wScjnABGelooA4r4baBJYfaLuW + PyftUgZYuPlUZZenT7+NpCkbenOB2tFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQB5/wDGv/jzj/6+F/8AQJKPgp/x5yf9fDf+gR0fGv8A484/+vhf/QJKPgp/x5yf9fDf + +gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8Awt/5CMH/AG0/9FPX0BXz + /wDC3/kIwf8AbT/0U9AH0BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQBz/j3S5NVspbaBd0j7MDIG + cSKTySB0B71y/jLwTPqdjZxxITPboisu5AADGA/JIBIZQBg9z17ekUUAeb+IfBM76XbafAha + WN1Z1LIMFlcvySAQGbAwTx69a0PE3hmXxBqEImjLWMSMGJZVyzKSSNrB8ZCDtyDxjk9xRQB5 + v4r+Gi2ixXGlRkTxyqcb8jAyQ371iMhgMfU5B7avjDRJ9WuLC4ijO2GXdICyAqC0Z5+bkjaf + u56cdq7OigDj9T0CebVre/VcwRwlWbcvBIl4xnJ+8Og71znxB8AXN3M0lkgaK4KvIoKLiRAy + hvm28EMTwTlixbtXqdFAHP8Aj3S5NVspbaBd0j7MDIGcSKTySB0B71oeHrVrS2ghkGHjhjVh + kHBVACMjjrWhRQB5p4KttR8MQtbfY/M3SF8/aIl6qoxj5v7vrWt4q0W51ebT7lY8eTIHlG9T + sy0RIzkbsbT0Bzj3FdrRQB558SfBU+ot9pslBaVPLmXKLuVWV1bLY5BUAndnAUAYzRrnhm51 + GLT7ExkwwiE3HzIB8oVSM7t2VG/O3g5GCT09DooA888WfCq3a3Y2MRE4KlQJDzyAwPmMRjBJ + 7HIHPYzeNdEvNe0+CIRk3KuhkUtGOVR1ZshtuCTkYPQ9ByB3tFAHGfEbwrLqqrc2gH2iMOh+ + 6N0cqlWXLDqM8ZIwCxHzEVlD4ez3mnW0GRFd2zuykseN0hJG5CcH7rAgEgjHGSa9IooA48a3 + qsqiMWaJIdoLvOrRg5G5iindjrwGJH+10NTxPpN2upQ6nbQ+ckUO0jzEj5PmDGWOeAwPT2ru + 6KAMnQtRubzd9pt/I27dv71Zd2c5+6BjGB1659qxfihoE+t2yQ2y73EysRuVeAjjOWIHUiuw + ooA5T4g+HJNVjjntv+Pm2kV4+nPIyPmIXsG5z93HesrXNNvWv7fVYrff5duAyebGuGYSBl3E + 87d/UDBr0CigDE02efWElhvbbyUZduPOWTcHBDDKYK4H8+Olc14f0/UfCStZpCt1FuLIwmEZ + UEnKkPnGcBsDgEn5mzx6BRQB5lpuotaaqZ9SjZJZwkcGBviXcBlQx/iGQpKfLuZ84BzWg2g3 + nhy8lu7JBPDdEtIjOkbBskj5mxxljjGeCQwyA1dvcWiXO3zFVtjBl3AHDDowz0I7HrU1AHGa + T4buL+9Gs3gERRNscKsHK8Mp3MFAI5LDGT8wyRtwX6ZoE8OrXF+y4gkhCq25eSBFxjOR909R + 2rsKKAOP8FaBPptzfTTLtSebdGdynI3yHOASRww64rP03wtc6Ut/p8aZtpo5GgO5RhnTGzBJ + buBuYgfJn+KvQKKAPP8AwtLqOg2yWX2Lf5e75vtMS53MW6c+uOtW/iDotzfTWdzbR+Z9mkZ2 + G9U6NGQMsR12noDiu1ooA4TVNLv/ABbi2uI1tbYMpfEokkfG7gFflx04YcHDDdjFdxDCsKhE + ACqAAAMAAcAADoBT6KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP8A41/8ecf/AF8L/wCgSV6BXn/x + r/484/8Ar4X/ANAkoAPgp/x5yf8AXw3/AKBHXoFef/BT/jzk/wCvhv8A0COvQKACuU+KX/IO + n/7Z/wDo1K6uuU+KX/IOn/7Z/wDo1KAOV+Bn/L1/2x/9qV6rXlXwM/5ev+2P/tSvVaACiiig + AooooAKKKKACiiigAooooAqap53lt9m2ebxt83ds6jOdvPTOMd8Vx/8Aberfaf7PxaeZ5Pm5 + xNt279mM5znPtjHeu7rlP+Yz/wBw/wD9r0AEuqXdtc2NtOyBp/tPmiIZQ7FymC43DHGeRznt + XR2WoxX674XV1BwSjBhnrjIJ55rkvG2lx6re2FtOu6N/tORkjOI1I5BB6gd6dpunx6ZqzQwK + I45LIOyJ8qFhLtDbRwCB6DuT1JyAdRfatDp+PPkSPdnHmOq5xjOMkZxkVL9rTZ5+5fL27t2R + t24zu3dMY5z0xXmtnaXOuXF3Iq2kxjuHj/0sO7qqEhAqrkKvXnALNuJJIrQtvAl1FZfY98W5 + boSrGTI0BQYPlHd823dlsfNk9TkkgA7iy1GK/XfC6uoOCUYMM9cZBPPNQy65bxSfZ2ljEuQN + hdQ+Wxgbc5ycjHrXJWurx2KXUcdv9kvEtWkKgKUIQPsZSvyNgtycDk7edpxhaf4SutatFKpZ + MJkz5reaZ9zHJYycneGzu5IzlcY4oA9Yqve6jFYLvmdUUnALsFGeuMkjnimaTbvbQxxSndIk + aBmyTlgoDHJ5OT3PNcraaXHrGp3bXKrILeOBEV1VlAkXeTgjrnOD6EjpjABpaBrT395dxbw0 + MQtzHjbjEkZYkMByD15J9q1Zdct4pPs7SxiXIGwuofLYwNuc5ORj1riNKtV8PyaqlqNghhiZ + OS2D5Lvn5s5555z+VZmn+ErrWrRSqWTCZM+a3mmfcxyWMnJ3hs7uSM5XGOKAOt8eeJDpixQR + SpFLNNGpZtrMkbE5k2scYBGCTx16HkbGjXGy3Esk6zBQxaYbVQgE5PykqAo4PPbJrlfF2jqk + Wni4VXmFzaxSORuLDDbgWYZKk5OD16kUeOoWgks9OtxEkUryHy5BsgZk2sgYJgkbjkL0ZiMg + 0AdlY6tDqGfIkSTbjPlurYznGcE4zg0y91y3sG2TSxoxGQHdVOOmcEjjiuS0XwfdW15Feutt + EiK6utr5ibwynAKkbThsHt75wMN8B6Pb+ILQ3V0qzzTvJ5jOFLqc7QoIAKAKAQARjOVwMUAb + ur+M4dMuYrJ2T95v3sZFXy9qhl3A/wB/OBkj2zWxLqMUUf2hnURYB3lgEw2MHdnGDkY9a4zX + fD9vFfafCIk2FZ1IKhtwjhUIGJyW2gcZzitPxZ4cku/Ie3WN0tixNvIMRuCu0AdVDKOEyMAn + OQBggHRWt2l2oliZXQ5wyEMpwcHBHHWm3WoxWhAkdULBiAzBchBliMnoo5PoOTWJ4PvoJfNg + ihNvLG6mWIgABmUAFdvylSF4IxnG7HzZOb420uPVb2wtp13Rv9pyMkZxGpHIIPUDvQB06a5b + vGbgSxmJTguHUoDxwWzgHkfmKsWt2l2oliZXQ5wyEMpwcHBHHWuFk8K2r6r9m8tREbVZjGMr + GZEk2KxQEKcKSMYwcnI5OdDwfarYXt/bRDbErQMqAnaDJGSxA6DJ9OwA6ACgDqre7S53eWyt + sYq20g4YdVOOhHcdabFqMUsf2hXUxYJ3hgUwucndnGBg59K5zwB/y+f9hC4/9lrC8P6HLrGk + W0ULKGSUuVlyY3CTOdjgdVPXGDkgDjqADuk1y3eM3AljMSnBcOpQHjgtnAPI/MVn+E/FsXiG + JZAVWVgxMQkDOoViuSODg8HoOorN8PNbXMklhLaLBO0aNJEVRomVWO1gVGxsFuTgHJxzt4Z8 + KtOiSxiuAiiVhIC4UByPNbgtjJHA/IUAafj3VJNKspbmBtsibMHAOMyKDwQR0J7Vq/2tD5n2 + XzE83+5vXf03fdznpz06c1z/AMUv+QdP/wBs/wD0alZXjjQLTw9ZefbxpHLDJG0TdX3eYD95 + sl+MnacjA6cDAB3V1dpaKZZWVEGMs5CqMnAyTx1ptlqMV+u+F1dQcEowYZ64yCeea4fxf51/ + qMVlH5LKtuZFjut3llizKTtX7zBRwDkAbiADzV3wn4VudMunu5RBHHJFtMdr5ioWDDa2xhgE + DI49emSSQDs6o2WuW9+2yGWN2AyQjqxx0zgE8c1gfEq4KQRQlzHHPcxxysCF/dsG3fMeg45P + pweCQdeHwpaQSJcxwokke7aY12feGDkLgHj1Bx2xQBm+HfEuVuXu5VVY72aJC5VAFXBVc8ZP + Xrk11Fef+E/Ctrqj3s08au5vLiPLZOFyp4GcA5Jwwww7GsdtRlGjWiBwPOnETmRiFKb5BtZg + dwTCgHBB2jHTigD0qy1y3v22QyxuwGSEdWOOmcAnjmpr3UYrBd8zqik4Bdgoz1xkkc8VwkXg + q8aeC4KWkPkyqxNqJI3K5+demCCOOfpkAnN62to9Y1O6iutsgt44hFFIFZQJFVnYKR1zgbvQ + 4PG3ABoeM9fNrYSX1pIpI2bXTa68yKpx1B7j/wCvW7c6jFasqSOqtIcIGYKWPAwATyeR09RX + H+PdFh0nTLlLdAiu6OQM43NJGDgE8DgcDAHYVL4aiju724nucfboztCZ3LHFgbTGSeQwOWbC + kFiNq7juAOovtWh0/HnyJHuzjzHVc4xnGSM4yKsQzLModCCrAEEHIIPIII6g15lZ2lzrlxdy + KtpMY7h4/wDSw7uqoSECquQq9ecAs24kkii/8OzaXZR6bOyhLrUI1IiZmVY352KZASMMuR19 + ycnIB0viDxWv+j/Y5kbfeQRyeWyP8r7sg9cZx14PHBrq64Lxj4atrCWzuYYlSQ3tuhKDaNuW + b7owucjrjPbOK72gCjLrlvFJ9naWMS5A2F1D5bGBtznJyMetUvFvihPDsBuG2s/G2MuEZvmU + HHBJwDk4BrhdZnj1eC4ntrBXgPmt9pZ1RyRl2kAYbyA2cAHkDbgcqNLxfCt3oqXEgDyrBbkO + w3OC5j3EMect39e9AHd2WoxX674XV1BwSjBhnrjIJ55p11dpaKZZWVEGMs5CqMnAyTx1ptlp + 0VguyFFRSckIoUZ6ZwAOeK4fxf51/qMVlH5LKtuZFjut3llizKTtX7zBRwDkAbiADzQB3Flq + MV+u+F1dQcEowYZ64yCeeahl1y3ik+ztLGJcgbC6h8tjA25zk5GPWua8J+FbnTLp7uUQRxyR + bTHa+YqFgw2tsYYBAyOPXpkknndZnj1eC4ntrBXgPmt9pZ1RyRl2kAYbyA2cAHkDbgcqAD1K + aZYVLuQFUEkk4AA5JJPQCq9jq0OoZ8iRJNuM+W6tjOcZwTjODXD31wb4aVazufKuEDSBiP3j + JGjIGLZ3BnOCD94n1wR2Fl4atrCX7TDEqSFNhKDaNud33Rhc5HXGe2cUAZXgvxL9rs4JbuVf + OnLgbiqFiJCoAUYyeg4Hp611FeVeH/CtrNo0l20amVoZmLnJYGJn2kc/LjAzjG7o2a9C8MTN + NaW7uSWaCIkk5JJQEkk9SaAMfW9bvPtg0+zEP/HuJSZw/wDfKEAofp29eafpviSezmFlqSxo + 8pPkvET5b4C5XDEsGBPGcBjwOcbmf8xn/uH/APtejxv+/ksrZeZGvEkA/wBmEEyHJ44BHGcn + sDQBu3uuW9g2yaWNGIyA7qpx0zgkccVNqMzQxO6FQyoxBkOEBAJBYjoo7+1cPqc8eqzzpb2C + 3W1tksrusZ3hdhVWcZ+UAcqRg845DM/w9M0uhMWJJ+zXIyTnhfMAH0AAA9BxQBq3OtTJcafF + vUrcJMZPLwUYrEGBViCduTkYPI65roLLUYr9d8Lq6g4JRgwz1xkE881w9r/rdG/695f/AEnS + iTVP+ERmvoy2VeP7VECMgM7eWwbAB+aQqAOQF5JByaAO6t7tLnd5bK2xirbSDhh1U46Edx1r + K1XW3tLu1s1C7LnztxIO4eWgYY5x165B/CmeCNBOh2kdswAkxufAA+ZjkgkE5K8LnPIA7cVS + 8Rf8hHT/APt6/wDRQoA3bnXLe1LCSWNShUMGdVwWBKg5PBIBI9QMircMyzKHQgqwBBByCDyC + COoNcPYaBBqmqXsk8ayGL7Pt38qN0RByvQ9B1Bx1HNV9C0Rr+yvtNgcoFu5448liFVSp2Zzn + a3IPX7xJByQQDuLHVodQz5EiSbcZ8t1bGc4zgnGcGmTa5bwqXeWMKrlCS6gBxyUJJ4YenWua + 8P3EVhcpbT2q2906OEeEDyZFG0tgrjBO3cFYZUY5y2DV8HeGra/lvLmaJXkF7cIC43DblW+6 + crnJ64z2zigDuoZlmUOhBVgCCDkEHkEEdQaqRa5byyfZ1ljMuSNgdS+Vzkbc5yMHPpXnsOqt + YaVem1fCQXUkcLIQcRtInRuSeHOGyTzkHgUT+Bbu+iRYksY8bGjlg81ZBt5VhIAS2R3Oc9eu + CAD0q6u0tFMsrKiDGWchVGTgZJ461heIPHFvpdu13G8cpBAVVlX5jlQwBG7lQwJ4PHXrWfrC + LqOqRWdwQYUtjIsTbSjSFmTlSDuITJA7YyMfNml8Q/ClpYWVxcxQosjeVyF6YkUfKOi5B52g + Z75oA7B9WS5hkntpIm2K2GLgxhgufmZTwBwT3xUtpd/uVnlZP9WGZkP7v7uWYMf4e4J7Vma/ + p0VhY3KQoqKYJiQihRnyyM4AHPFcrfKt7HpWnzOVt7iIeYobbvMcSFFJ64LHGAeSRj5gCADv + bHVodQz5EiSbcZ8t1bGc4zgnGcGmXOuW9qWEksalCoYM6rgsCVByeCQCR6gZFcl4r0uDR57G + e2VIpTdKmI1RdySfK5IAycDAz/Du9SKLDQINU1S9knjWQxfZ9u/lRuiIOV6HoOoOOo5oA7iG + ZZlDoQVYAgg5BB5BBHUGmXF2ltt8xlXewVdxAyx6KM9Sew61zHw5iFvHc2658uG9nRASTtUb + cKMk8ck/Uk9TTvH3/Ln/ANhC3/8AZqAOlku0iZYmZQ8mdqkgM20ZOB1OB1x0qK61aG0JWWRE + IUMQ7qpCk7QxyemeM9M8da5/xF/yEdP/AO3r/wBFCqWq6LDq2rqlwgdUsg4BzjcsxAyAeRye + DkHuKAOt/taHy/tXmJ5X9/euzrt+9nHXjr14rM8J+LYvEMSyAqsrBiYhIGdQrFckcHB4PQdR + WR4a0qJLvULHYptw1uwiI3RguhZiFOQMkDtxgAcAYd8KtOiSxiuAiiVhIC4UByPNbgtjJHA/ + IUAP8Ta/PZ2V1cpJF5kU21DD8+1fMQbXDZHmYJ3DGBxiuwryrU/+Qdqf/YQk/wDRsVeq0AUb + nXLe1LCSWNShUMGdVwWBKg5PBIBI9QMipr3UYrBd8zqik4Bdgoz1xkkc8Vx+m6JBqOp3zzxr + IUFsF3qGA3R88HIz8o5xkduprP1OG41fUriBBbyeQkYRLsMwVXVWYoi8ElsbmIJHygHHFAHo + VrdpdqJYmV0OcMhDKcHBwRx1qvLrlvFJ9naWMS5A2F1D5bGBtznJyMetclpOiXPhqC+uHMSb + 42kjSAuY0ZUckhZBgZO3jkcYwAAKseGvCVnqllE0qLK0qBnkODIXY7nzIuGyGyOucDBzzQBo + TeOLeG7Ni7xhViLGQyqAHD7TEQejDr1z7VoTai0NwUd4hCsBcgtiYENguQTgRgd/Wuam0O3m + 1co8UZVrIuQUUguZsFyCOWPr1q3NCs2rlHAKtpxBBGQQZsEEHqDQBU8M+IZNYupGN1GI0nlR + LdVjJdEX5XDZ3kH72RkHBxgcDqNIu3ufN8xom2TOq+SScKMYV89JB/EOnSua+H2kwo11KI0D + x306owRdyqAo2g4yBgngcc1jyahJp9hqc0LFXF/KAw6jc8anB7HBPPUdRzQB38WuW8sn2dZY + zLkjYHUvlc5G3OcjBz6VNe6jFYLvmdUUnALsFGeuMkjnivN5/At3fRIsSWMeNjRyweasg28q + wkAJbI7nOevXBG3aaXHrGp3bXKrILeOBEV1VlAkXeTgjrnOD6EjpjABpaBrT395dxbw0MQtz + HjbjEkZYkMByD15J9q6OuK8E6XHpV7f20C7Y0+zYGScZjYnkknqT3rtaACiiigAooooAKKKK + ACiiigAooooA8/8AjX/x5x/9fC/+gSUfBT/jzk/6+G/9Ajo+Nf8Ax5x/9fC/+gSUfBT/AI85 + P+vhv/QI6APQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+f/AIW/8hGD/tp/6Kev + oCvmrwt9p+0p9i/4+Pm2fd/und9/5fu56/zoA+laK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj + /wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivK + v+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1 + WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2 + WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4q + P/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9l + o/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/ + AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/ + 4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVa + K8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/Za + APVaK8q/4qP/AD9lo/4qP/P2WgD1WivFP+Ep1r7T/Zu//SP7m2D+7v8AvY2/d56/rWt/xUf+ + fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+ + fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+ + fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+ + fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+ + fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LWfDr+uTTvYK2Z413Mu234B285xg/eH + Q96APZaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/Z + aP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv + +Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2W + gD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/ + AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVa8/wDjX/x5x/8AXwv/AKBJWV/xUf8An7LX + P+Nf7W8lf7R/1XmDH+p+9tbH+r56Z9v0oA7X4Kf8ecn/AF8N/wCgR16BXn/wU/485P8Ar4b/ + ANAjr0CgArlPil/yDp/+2f8A6NSurrlPil/yDp/+2f8A6NSgDlfgZ/y9f9sf/aleq18/+Bf7 + R/e/2Z/seZ/qv9rb/rPx6fj2rq/+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/ + AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/ + 4qP/AD9lo/4qP/P2WgD1Ws/+xE+0/wBoZbzPJ8rGRt279+cYznPvjHavOv8Aio/8/ZaP+Kj/ + AM/ZaAPRb3REu54bxi2+28zaARtPmLtOeM9OmCPxo/sRPtP9oZbzPJ8rGRt279+cYznPvjHa + vOv+Kj/z9lo/4qP/AD9loA7LVvA0N/MbxXlhmYYZ4JChYYUAHIPA2jpj3zRF4Ghig+yq8oPm + mXzRIRNvYEFt2MZKkqeMEe/Ncb/xUf8An7LR/wAVH/n7LQB3uh+GI9JZpd8ksrDHmTv5jhRz + sBwMLnnA6nrnAxjt8MYFDRxS3EUUnWOKbEfICnhgxOQOck+nTiua/wCKj/z9lo/4qP8Az9lo + A9PtLVbRFhjGEjUKoyTgKMAZPPSsfXPCEerSrdeZLFKqbN0Emwlc7tp4PAPPGPfOBjiP+Kj/ + AM/ZaP8Aio/8/ZaAO68PeEIPD7SPbBlE2zKltyjYDjGeecknJPtgVlN8MYFDRxS3EUUnWOKb + EfICnhgxOQOck+nTiua/4qP/AD9lo/4qP/P2WgDv7zw1FdJBD8ypayRugU94hhQSwJIx17+9 + P8QeHYdfi+z3AJXOQQSCGwQGGO4yeuR6g157/wAVH/n7LR/xUf8An7LQB2WmeCI7KZbt5p5n + jDBPPl3hd4wxAwOSOPT2yAQ278CRyu0sU1xB5jFmWCYqrMxyzkENyfbAwBxXH/8AFR/5+y0f + 8VH/AJ+y0Advqvg6G/WFA0kRthiNoXKuqlQpXJzwQBnvx15OX6l4WW/SJDLMjwrtEkchWQgg + BgzYwdxUE8dR25rhf+Kj/wA/ZaP+Kj/z9loA9C0PQI9HVghZ3c5eSVt8jY4XLeijgDoB7kkv + vdES7nhvGLb7bzNoBG0+Yu054z06YI/GvOv+Kj/z9lo/4qP/AD9loA9F/sRPtP8AaGW8zyfK + xkbdu/fnGM5z74x2ostES0nmvFLb7ny9wJG0eWu0Y4z065J/CvOv+Kj/AM/ZaP8Aio/8/ZaA + Owv/AABBdyvcBpY/Ox5qRSbI5OudwAydwJBwRnJPUkmWPwVFFapp6PKqwsWSRH2yqSWJIZQB + yHZenQ+vNcV/xUf+fstH/FR/5+y0Ad7ofhiPSWaXfJLKwx5k7+Y4Uc7AcDC55wOp65wMQ6B4 + Qj0Ji0MkpjIYCJ5N0S7m3fKuOCPUknk5yTmuI/4qP/P2Wj/io/8AP2WgD0XX9ETW4Hs5SwST + bkoQG+VgwxkEdR6Vj6f8PLeyZWDStHG++OJ5SYkYNuDKoxyOepOcnOSc1yX/ABUf+fstH/FR + /wCfstAHe+IvCsOvBDLuV4jlHjYq6klSSOoz8o6g47YPNQ6H4Qj0mVrrzJZZWTZunk3kLndt + HA4J55z7Yyc8R/xUf+fstH/FR/5+y0AelappceqxtbTrujfGRkjOCCOQQeoHesrS/By2Eizt + PcTFM7RPKXUEgruAwOcEjnsT3riv+Kj/AM/ZaP8Aio/8/ZaAPRdI0RNK83yyx8+Z5W3EHDPj + IGAOOOOp96qWvhCCG0GlsGeAZ4dsMfn38lNvQ+mK4X/io/8AP2Wj/io/8/ZaAOqsvh3FbNEz + TXEiwMrJHLLmMFBhTtCjG3tj6dMitDW/CcequLjfLFKFC+ZBIUYqCTsPUYyc9M5A5rhf+Kj/ + AM/ZaP8Aio/8/ZaAO1k8FRS2r6e7ysszBnkd90rEFSCWYEcBFXp0HrzWheaIlzLHdgsksXG5 + CAWU9Y2yCGUnnHUHlSDXnX/FR/5+y0f8VH/n7LQB2WreBob+Y3ivLDMwwzwSFCwwoAOQeBtH + THvmnxeCIEtZNPJdkmYs7O+ZCxIO8t0yCB2wccg5OeK/4qP/AD9lo/4qP/P2WgDqk+HEG+O4 + kkmklikV1kll3thDkJyMbc89M5zzXV15V/xUf+fstZ+t6/rmiIJrltiFgoO23bkgnGFBPQGg + Durv4cQXO5PMmWF8/uUlxCCechMcYb5gOm7tjitW58NRXVoNMfcYhGqZzhsJjacgYyCAemM9 + RjivOrS68Q3aLNGcpIoZTi2GQwyDg89Km/4qP/P2WgD0XRNI/spDF5ksuWJ3TvvYZAGAcDjj + p6k1X8ReFYdeCGXcrxHKPGxV1JKkkdRn5R1Bx2wea4L/AIqP/P2Wj/io/wDP2WgDt9D8IR6T + K115kssrJs3TybyFzu2jgcE8859sZOaV38OILncnmTLC+f3KS4hBPOQmOMN8wHTd2xxXK/8A + FR/5+y0f8VH/AJ+y0Ad7deFYbq3jsn3bYAnlsGKurIu1XBXHzDr0xntTNE8LLpbmYyzTOVKg + zyF9oJBYAYAGSBn6D3zwv/FR/wCfstH/ABUf+fstAHe2PheKytDpaljEUkXJI34kLE84Az8x + xxWhp1kthElumSsSKoJ64UADOMc8V5l/xUf+fstH/FR/5+y0Adrrfg1NVmF55s0UgjEeYJAm + VDFsH5Sep9ccDirGh+FYdIZpV3PM4w0srF5GA6Ak9AOBwBkAZziuC/4qP/P2Wj/io/8AP2Wg + DstQ8DQ3kjSh5Y1kOZIopCkUhPDFlA6sOGwRnr1yat2PheKytDpaljEUkXJI34kLE84Az8xx + xXBf8VH/AJ+y0f8AFR/5+y0Ad7H4XiRrZwWzZIypyOQyBDu45OB2xzWP4x0H+3Lu0i2MVhZp + JGK5jC/L8hyMMXKgYDZUZJUg8c1/xUf+fstH/FR/5+y0Aeq1n3uiJdzw3jFt9t5m0AjafMXa + c8Z6dMEfjXnX/FR/5+y0f8VH/n7LQB6LZaIlpPNeKW33Pl7gSNo8tdoxxnp1yT+FVE8JRJHN + AGfFxM0pIbDK5KsCpAGNpUEZzyOciuF/4qP/AD9lo/4qP/P2WgDt9H8IR6dJ9oaSWaRQQhuJ + PM2Z+9t4GC3AJ64GOhOea0TwKL2W5unaeCU3c4DRMYy8bFWXqDlc5II6984GM3/io/8AP2Wj + /io/8/ZaAPRbbQILWA2CLiAqy7dzHh87hknPOT3+lc//AMKxgx5Pm3Hkbs+T537rG7dt24zj + PvnvnPNc1/xUf+fstH/FR/5+y0Ad/rvhuPWdrOXSSPdskico67sbsEccgYOQeM4xVJPA0Jhl + tpXll88KGeWQs4CHKAHAACsSw46k5yOK43/io/8AP2Wj/io/8/ZaAO9tfDSw28lk8ssizBwW + lfe4DrtIBI4A6jg8k0XXhWG6t47J922AJ5bBirqyLtVwVx8w69MZ7VwX/FR/5+y0f8VH/n7L + QB2ujeCotNl+1s8s0u3ar3D+YyjnIXgYzn+YGMnOhZaIlpPNeKW33Pl7gSNo8tdoxxnp1yT+ + Fedf8VH/AJ+y0f8AFR/5+y0Aei6RoiaV5vllj58zytuIOGfGQMAcccdT70a7oUWuRG2nGVbo + R95T2YHsR/8AWOQSD5JqHinWtPmSylfbLLt2rtgOdzFV5AIGSMcmtb/io/8AP2WgDsNP8BxW + c8d6ZJpJYt2Gmk3khlK7TkdBkkYxyTnPAGr/AGIn2n+0Mt5nk+VjI27d+/OMZzn3xjtXnX/F + R/5+y0f8VH/n7LQB6LZaIlpPNeKW33Pl7gSNo8tdoxxnp1yT+FUdA8IR6ExaGSUxkMBE8m6J + dzbvlXHBHqSTyc5JzXEf8VH/AJ+y0f8AFR/5+y0AdrP4Khmgnsyz7LqYyuQV3BiytgfLgDKj + qCfeugryr/io/wDP2Wj/AIqP/P2WgD0Wy0RLSea8UtvufL3AkbR5a7RjjPTrkn8Ko694Oh1i + RbktJHMgwJIXKOF+b5e4wdxzxntnHFcR/wAVH/n7LR/xUf8An7LQB3vh/wAMR6IZHV5JJJip + d5n3udowozgcDnHGeeuAMZn/AArmBf3aS3CQf88VnYRYP3lwcnDc7vm7nGK5X/io/wDP2Wj/ + AIqP/P2WgDt9c8IR6tKt15ksUqps3QSbCVzu2ng8A88Y984GL39iJ9p/tDLeZ5PlYyNu3fvz + jGc598Y7V51/xUf+fstH/FR/5+y0Aei6RoiaV5vllj58zytuIOGfGQMAcccdT71DZ+GorVJ4 + fmZLqSR3DHvKMMAVAIGOnf3rgP8Aio/8/ZaP+Kj/AM/ZaAOl/wCFYwY8nzbjyN2fJ8791jdu + 27cZxn3z3znmtLXPCEerSrdeZLFKqbN0Emwlc7tp4PAPPGPfOBjiP+Kj/wA/ZaP+Kj/z9loA + 7rw94Qg8PtI9sGUTbMqW3KNgOMZ55ySck+2BW3XlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/ + AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqt + FeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQBq/Gv/AI84/wDr4X/0CSj4 + Kf8AHnJ/18N/6BHXFeNf7W8lf7R/1XmDH+p+9tbH+r56Z9v0rtfgp/x5yf8AXw3/AKBHQB6B + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/8Lf8AkIwf9tP/AEU9fQFfP/wt/wCQ + jB/20/8ART0AfQFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFAHlX/Mx/5/59a9Vryr/mY/8/8APrXqtABRRRQAUUUUAFFFFABRRRQA + UUUUAcP8XdRlsLRHhdkYzqCUYqcbHOMgjjiote8N3OgxnULW6nkMALNHcSeYjKMbu6gALuJ4 + JPG3BwaZ8a/+POP/AK+F/wDQJKu+M/Gdt9mktoZFmmuEaNEibeSXwn8AbBG7IBxuxgUAWLb4 + iQypaSMjg3zFVA2kKyuEOTkcZPBAyRzgHitO58URW93HpZDebKhYEAbMAMeTnOfkPY9q8613 + S28OR6V5+QsErNI2MhS0iSFfl3ZI+YDH3tpIFaVzqsWpa7bNA6uqQspKHK52StgEcHhh0z6d + QaAOr1nxrFpsv2RUlml27mS3TzGUcYLcjGc/yzjIzd8P+Iodfi+0W5JXOCCCCGwCVOe4yOmR + 6E15rpvmWN/fRG7WzZpd/wA6RuHVmZl+ZyACA4OM5OenynHVfDvSY7drm6juBcGaXDsI9g3r + uZsckEHfnK/L6ZoA7OiiigAooooAKKKKACiiigAooooAK8/0b/kPXX/Xuv8AKCvQK8/0b/kP + XX/Xuv8AKCgD0CiiigAooooAKwfGviYeHLZrkAFyQqA5wWPrjsACe2cYyCRW9XFfF3THvrEt + GM+TIsjDknaAykjAPTdk9AACc8UAOh8F3F7EJbi7uFuXQFhHIEjVscDYgxhehwRuIJyM1sar + 4hTw7FH9oZpJW2oBGo8yRuASqA468nnAyAOSAa+n+PrO5gW6eaNCU3Mhcb1IHzLt4YkHIGB8 + 3UDkVzWv6hHBqtjqbsFtpYCFc8DkPjIPIH7xeSABnnocAHS6T45hv5hZsksMzDKpPGULDDEk + YJ4G09ce2apXHxPt4nmhEczPbswcJGG4QkM+Q2Aqkck46jjrjK8V3aa9f2EdoyymGQySeWQy + qoeM5LDgfdPGc9BjJGZfhx/x+al/18f+zzUAaFx8UrSONbhFlkUqC/lpny8naA5JAUkggDJz + jI4IJ2L/AMVQWlqdTBLw4Ugx4JO5gvQkcgnkHBHIPIxXBeAP+QNef9vH/ohaP+Zc/wA/8/VA + HRN8VLZFSVo5xDIVAlMX7vJ6jOeSuCDgHlTjPel8R/8Aj803/r4/9nhrK1vX7Q6IlrFInmNH + CuxfvblZWfKjkcqxLEYJ5ycjMvia1a0fRoZBh42jVhkHBUwAjI460AdhrPjWLTZfsipLNLt3 + MlunmMo4wW5GM5/lnGRmlqPjyOexe+tBI5wyjZHkxv5ZbLg8bV43Ebl+tcfpvmWN/fRG7WzZ + pd/zpG4dWZmX5nIAIDg4zk56fKcbGhaIq22ozQT/AGp7hZVYpEU/eBHJAAJDbi4xt49M0Aav + w78WSa1CqTpKZNrkytGFibD4AVhgEgEDGB0PpT5/iZbRMxCSvDG4Vp0j3QA8A/OD0GR0HP8A + DnIzk+C5lv8ASDYxMrTmC4Hlh13/ADM4GRngHcOTgciud8Mz+dYeS2opDHtlVoWiQsASxYAk + h23A5G3PJwORQB6bqviy30u3W+kY+VIAUwpJbcpZQBjgkD+LA9SK4LxV4iXV7zTwI5YnjuBl + J0KNhni2sOoIJUjr1B9sw65pi6JDpcwffbwzFjLtK8SOsqnZkt90H16diQKt+N9eh1K/0+KB + 1fy5lJZGVl+eRABkE8jYcj0I9aAPUKKKKACiiigArz/41/8AHnH/ANfC/wDoElegV5/8a/8A + jzj/AOvhf/QJKAD4Kf8AHnJ/18N/6BHXoFef/BT/AI85P+vhv/QI69AoAK5T4pf8g6f/ALZ/ + +jUrq65T4pf8g6f/ALZ/+jUoA5X4Gf8AL1/2x/8Aaleq15V8DP8Al6/7Y/8AtSvVaACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/41/8AHnH/ANfC + /wDoElegV5/8a/8Ajzj/AOvhf/QJKAOq8J/8edt/17w/+gLWtWT4T/487b/r3h/9AWtagAoo + ooAKKKKACiiigAooooAK888VGW91aCwE0sUUkBJEMhTkeac9xn5QDx0r0OvNPFun/wBoazbQ + b3j3W5+aJtrjHnHhsHGcYPtmgDs9I0VdCV3eeWRSASbmXeFC5JIJAwOefoPSsf8A4WdBjzvK + uPI3Y87yf3WN23duznGfbPbGeKqeK/CzWWn3SJLNMWVG/fyB9ojcOxGQMcZJ9cDHNRf8JXaf + 2R5fnJv+x+Xs3fPu8vZjZ9773fGMfNnbzQB0WoeMoLJrZTuYXpAjKgY+bbgncQQPnHYnrxU1 + z4oit7uPSyG82VCwIA2YAY8nOc/Iex7V5lfWj6LBpMlyrIsMzs5IJ2hpVkGcZwSoJ29eCMZB + FbVzqsWpa7bNA6uqQspKHK52StgEcHhh0z6dQaAOj1H4hQWNw+nlJXmQAhY0D7shWwoDZyFO + TkAYB56Z0PDPiqDxHGZoCflOGVsB19MgE8HsQSD06ggcvo3/ACHrr/r3X+UFZ/hm1a7fWYYx + l5GkVRkDJYzgDJ460AaevfEO3v7a4jiWVozFInnCI+TuaPhS3UElgvKjkjtzWl8Lf+QdB/20 + /wDRr1yuieKLe10R4GdfNEcyeXkB8yMwBCkgkYcEkZ4z3BFdV8Lf+QdB/wBtP/Rr0AdXRRRQ + AUUUUAFFFFABRRRQAUUUUAeVePv+QzZ/9u//AKPavVa8q8ff8hmz/wC3f/0e1eq0AFFFFABR + RRQAUUUUAFFFFAHm8sEusavcWRuJ44kiVgIZSmDtiHTkYO4k8dat+Cbye3vrnTTK08EQyJJC + XZWO35C+TzyQR6qSAvzCsxtAg1vW7mG5XeghRgNzLyFhGcqQehNafgWU6BczaFJgAEyQNgAu + p6gthd7AY6A42uM4UAAGrqnxCgsZJIVSWbyBmRoEDonXIZtwwRg57DkZyCBdufGNrBa/2lvz + Cc7SAQzEEjaFbBzkH06ZOACa818DGWxSW1N8lo8czBo5I4mycBSwdyAeVxgE4xnuMwzaRHok + dhexy+bbC8Z2l2FMZMYxsJLH/VMenb6ZAPQ4PH8c29PIuFljRX8pocSMpYJuVc8gE85I4zjO + DjH+GvjafVl8q5WWR2kbEqxKIlAQHazLgA5z27iuws/EFvfP5MMqSPtLYjYPgKQCSVyByw69 + e3Q44r4O3aWsD2cjKs/2h/3bECThEz8h54wc8dj6UAUReW2lS399aLcNcoZUf5Y3RWkLtvwO + QitHyW6AjIOeDwLbW81lcXk0colMEwmmOf3iuXLbCzFWYBRk4Hzdeppuif8AMb/7a/8AtetX + w1/yAW/697r+clAFjwrqFl4b0/7bG0ggkdmAl2mQt9zaAuASdnHtkkgZxq6T45hv5hZsksMz + DKpPGULDDEkYJ4G09ce2a8yuo2jsdMug3lpHNKDJgNsLTblbZ1bAQnGO2O4rpTpq6rd2vm6i + k8kcheNI4U52bXYFo2wuQv8AF6cZ5oA6jVvHMNhMbNUlmmUZZIIy5UYUgnJHB3Dpn3xXO/C2 + 6W7udQmjOUkmVlOCMhnlIODz0pnhHUYtEv8AUIrp1iaSUOu9goKlnYfMTjOHU4znnpwcHwnv + Vv7i/uEyFllRgD1wzSkZxnnmgD0iiiigAooooAKKKKACiiigDz/41/8AHnH/ANfC/wDoElHw + U/485P8Ar4b/ANAjo+Nf/HnH/wBfC/8AoElHwU/485P+vhv/AECOgD0CiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACvn/4W/8AIRg/7af+inr6Ar5/+Fv/ACEYP+2n/op6APoCiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACuCtNYli1e7Qt + I8UVtuESktyFiPypnG45OPUn3rva8/0b/kPXX/Xuv8oKAIvCHj6e9uZ4Zo5nQzKsYWFf3QLs + MSEYK4GM5z90/j0us+NYtNl+yKks0u3cyW6eYyjjBbkYzn+WcZGea8C3aWF/qEUzLG8lwuxX + IVm3PIRtBwTkMMY65HqKx9N8yxv76I3a2bNLv+dI3DqzMy/M5ABAcHGcnPT5TgA9C0/xfBqF + s+oRFmjiViw24YFUDsuDgEgHscZ71ir8WbRlWbZMI2baXMfyK2T8pIbrj5sLuO0+uQMzR9Jj + t7TUrqO4FwZklDsI9g3qjs2OSCDvzlfl9M1S/wCZc/z/AM/VAHVSfEq0ilWFt4SRiqzFcQMV + 4OHzyAeCwGAec7ea6uvKvH3/ACBrP/t3/wDRDV6rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5V/wAzH/n/AJ9a9Vryr/mY/wDP/PrXqtABRRRQ + AUUUUAFFFFABRRRQAUUUUAV73Tor9dkyK6g5AdQwz0zgg881DZaHb2Db4Yo0YjBKIqnHXGQB + xxV6igCG6tEu1MUqq6HGVcBlODkZB461Xg0O3t2V0ijVowQpVFBUHJIBA4B3Hp6n1q9RQBUv + tJh1DHnxpJtzjzEVsZxnGQcZwKltbRLRRFEqogzhUAVRk5OAOOtTUUAFFFFABRRRQAUUUUAF + FFFABRRRQAV5/o3/ACHrr/r3X+UFegV5/o3/ACHrr/r3X+UFAHoFFFFABRRRQAUUUUAZk3hi + 0mYu8ERZiSSYkJJPJJJHJNXbq0S7UxSqrocZVwGU4ORkHjrU1FAFSx0mHT8+RGke7GfLRVzj + OM4AzjJp9tp0VqzPGiq0hy5VQpY8nJIHJ5PX1NWKKAKlvpMNsjQRxosb53KqKFORg5UDByOD + 7VleKfDP9oWT6fbBI923aMbUGJA54UHGcHoOtdBRQBj6H4cisEhLxxmeKJFMgQbsqgQ4YgNj + Ax9OK0LnTorpleRFZozlCyhip4OQSODwOnoKsUUAVL7SYdQx58aSbc48xFbGcZxkHGcCpbW0 + S0URRKqIM4VAFUZOTgDjrU1FAFGy0O3sG3wxRoxGCURVOOuMgDjim3Xh62u2MssMTucZZ40Z + jgYGSRnpWhRQBDdWiXamKVVdDjKuAynByMg8daqx+HraLbthiGxty4jQbW4+YccH5RyOeB6V + oUUAFFFFABRRRQAV5/8AGv8A484/+vhf/QJK9Arz/wCNf/HnH/18L/6BJQAfBT/jzk/6+G/9 + Ajr0CvP/AIKf8ecn/Xw3/oEdegUAFcp8Uv8AkHT/APbP/wBGpXV1ynxS/wCQdP8A9s//AEal + AHK/Az/l6/7Y/wDtSvVa8q+Bn/L1/wBsf/aleq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQBw+rajKmtW1uHYRNAxKBiEJxNyVzgngfkKzLL4jTtfyxtF + cNAIxthWBfNU4T5mHXHXqx+8Pwt6z/yHrX/r3b+U9RW12mm65cy3DLGj267WkIRTxEOC2AeV + PT0PoaAOl1nxrFpsv2RUlml27mS3TzGUcYLcjGc/yzjIzLp/i+DULZ9QiLNHErFhtwwKoHZc + HAJAPY4z3rz3TfMsb++iN2tmzS7/AJ0jcOrMzL8zkAEBwcZyc9PlONXR9Jjt7TUrqO4FwZkl + DsI9g3qjs2OSCDvzlfl9M0Aaa/Fm0ZVm2TCNm2lzH8itk/KSG64+bC7jtPrkC1J8SrSKVYW3 + hJGKrMVxAxXg4fPIB4LAYB5zt5rlf+Zc/wA/8/VHj7/kDWf/AG7/APohqAPVaKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/41/wDHnH/18L/6BJXoFef/ + ABr/AOPOP/r4X/0CSgDqvCf/AB523/XvD/6Ata1ZPhP/AI87b/r3h/8AQFrWoAKKKKACiiig + AooooAKKKKACq76dE8guCimVRgOVBcDngNjIHJ/M1YooAKz/APhHrbf5/kxeZu3bvLTduznd + uxnOec9c1oUUAQ3Vol2pilVXQ4yrgMpwcjIPHWq8Gh29uyukUatGCFKooKg5JAIHAO49PU+t + XqKAK6adEkhuAiiVhguFAcjjgtjJHA/IUW2nRWrM8aKrSHLlVCljyckgcnk9fU1YooAzz4et + ixl8mLe27c3lpuO8ENk4ydwJz65OatWtolooiiVUQZwqAKoycnAHHWpqKACiiigAooooAKKK + KACiiigAooooA8q8ff8AIZs/+3f/ANHtXqteVePv+QzZ/wDbv/6PavVaACiiigAooooAKKKK + ACiiigCumnRJIbgIolYYLhQHI44LYyRwPyFD6dE8guCimVRgOVBcDngNjIHJ/M1YooAo3uh2 + 9+2+aKN2AwC6Kxx1xkg8c1Y+yJs8javl7du3A27cY27emMcY6YqaigCpY6TDp+fIjSPdjPlo + q5xnGcAZxk0yLQ7eKT7QsUYlyTvCKHy2cndjOTk59avUUAVE0mGPftjQednzMIo35zndx82c + nrnqfWnxadFFH9nVFEWCNgUBMNnI24xg5OfWrFFAFeLTooo/s6ooiwRsCgJhs5G3GMHJz61D + ZaHb2Db4Yo0YjBKIqnHXGQBxxV6igCje6Hb37b5oo3YDALorHHXGSDxzU1tp0VqzPGiq0hy5 + VQpY8nJIHJ5PX1NWKKACiiigAooooAKKKKACiiigDz/41/8AHnH/ANfC/wDoElHwU/485P8A + r4b/ANAjo+Nf/HnH/wBfC/8AoElHwU/485P+vhv/AECOgD0CiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACvn/4W/8AIRg/7af+inr6Ar5/+Fv/ACEYP+2n/op6APoCiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACq6adEkhuAiiVhguFAcjj + gtjJHA/IVYooAoy6HbyyfaGijMuQd5RS+Vxg7sZyMDHpT77SYdQx58aSbc48xFbGcZxkHGcC + rdFAFeLTooo/s6ooiwRsCgJhs5G3GMHJz60z+yYfL+y+Wnlf3Ni7Ou77uMdeenXmrdFAFS40 + mG5RYJI0aNMbVZFKjAwMKRgYHA9qt0UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAeVf8zH/AJ/59a9Vryr/AJmP/P8Az616rQAUUUUAFFFFABXO + a7NJc3drZxsVUF5pdj7X2xgBARnlHdsEYOccYwTXR1y5hYauHIO02BAOOCRMCRn1GRn6j1oA + u6l40s9MlFpNKqyHbwQxA3dMsAQvryRgcng5rH8H+JUstMhvL2U8lwXcs7E+Y4A7sTgds4A9 + BVXQNatrF79L11WQ3MhYTfeaLbiMAMMuu3O1Rng8DDDOZpestpWj2rx7BJJM0aSS42xl3lBk + 5B6DI+hOcjIIB3GneLrXUYpLmGQNHCCXOGBUAbs7SA2MA445wQOQax/CfxEh1qR7ZmXzDNII + gqON0ajKsScgEgHOSOnQVleFLkzaq+65W6K2ZHmIioo/eKdo2ZBxnOQe+OorS8CajEkl3bl1 + ErX9wQhYByOOQuckcH8jQBp3Xj6xtJTavMokVgpGG2g+hYDaMd8njnOMGugrx/RrJri2ktLi + /ihJkkWaKWOJm3hjkl2YFycAhwTg4AOV49Q8PRrFbQJG29BDGFbBXcAgw2DyMjnHagCprPjS + z0ZvKnlVX/ugM7DgHkICRkEYzjParEviS3jt/wC0S48jAO8AnqQo4AJzk4IxkHrjBrnfDWrQ + 6ZPex3ciRzm6Zv3rqGMbKDF8xPIAzhc/LnBAzXP3nzaPeSJ/qJLpmhxwvlmdAML/AAjIb5cD + 1xzQB6FpHiS31hnS3cOYiA2AcDOcYJABBweQSK53x7Je6VHLqEFztjTZiLyYzjJVD85yepJ6 + e1dlDCsKhEACqAAAMAAcAADoBXL/ABS/5B0//bP/ANGpQBMug34Qob3LllIb7NHwAG3LjODu + JBz22+5rJ8Ki/wBSeR5Lv5La6eJl+zx/OIyM8jBXcDjvj1Nd3XKeAP8Al8/7CFx/7LQBSHjC + aztb68fDtb3ckcYIAAXciqDtAyBuz6npkdRp6BYX0ZjnmuknjdfmURKowVyGR0xu5wBkAFST + wcVmeGr+Gwhv5bkgQi/uA+VLDDFFwVAOQc46VSluINJu7f8AsuVSLibbLbxN5ke1uXlwpIQq + MdMDAGBtVgQDotCmktru6s5GLKSk0W99z7ZAQ4AzwiOuAMDGec5Bro65cQsdXLgHaLAAnHAJ + mJAz6nBx9D6V1FABRRRQAUUUUAFef6N/yHrr/r3X+UFegV5/o3/Ieuv+vdf5QUAegUUUUAc4 + 80l5qIiViIbWDc4R8ZklJCq655ARSy8cHnPIBq+J/HNrClxZpMBcLFKBjcMOEJADgbQwPHXO + 7j73FS6BCyajfkggMLUgkYyPLYZHqMgj6giuU0zWraLSJre4dRckTiRJP9aZSx2kqRuZs7fm + 5xjkjacAHXWniqDSbO2mvJNplhj5bczMdgJOACT7n1IyckVdTxdavbnUBIDApwWAY4OQuCuN + wOSO3Qg9Oa5S81p7G206CJ44XngUGeXb+7RI42YDcMZbjqcEgDqQyzfDqcz3V8xmE5zADKFC + BtquOAOMDGMjg4yOtAGl4G8cp4iRY3ZftIVmdEVwoAfaCC2R0K/xHr+Vu18fWN3KLVJlMjMV + Aw20n0DEbTntg88YzkVz/ga8FzpX2S3dftIhuNqK4EgJZ9p6gryRgnHUc1zlvZR6jYxwy6jE + sKoG8owRB0K8kD5g5bOeQMvknndyAex1U1TVI9Kja5nbbGmMnBOMkAcAE9SO1FxqkdtJHbO2 + JJ9+wYJzsGW5AwMD1I9q5/4pf8g6f/tn/wCjUoA09K8XWurStbW8geRASQA2MKQpIYjaRkjo + TnqOKh1jxzZ6PJ9nnlCyAAkBXbGemdqnB74POMHoRWbrdokGo6dsVVwtyvygD5Vi+VeOwycD + oMnFZ+u+IXF3PbpcRWcduqszFEeSVnRTkK2M7VAHGW6DnICgHZX+tQ2EJvJHAhAU7xlhhiAp + G0HIOR0rPs/HNleyNBHMpZAxOcquE+8QxAUgDngngE9ATXEf8y5/n/n6roviBp0RWyQou0Xs + CAbRgIcgpjH3TgZHTgelAG7oXim217d9mff5e3d8rLjdnH3gPQ9Kq2vj6xu5RapMpkZioGG2 + k+gYjac9sHnjGcisTWLVm1KcW4xLJpb7SpCsX8zap3cc8AAk8YHPFcvb2Ueo2McMuoxLCqBv + KMEQdCvJA+YOWznkDL5J53cgHsdFVP7Uj877Fu/e+X5m3B+7u25zjHXjGc+1Y/jy9aG2+zpj + zLt1gUt90GXIJOOQAueRnnHBFAGb4T8TT3dxsnLeVdxvLB5iLGVCysBGMD5yY9r5ycDnkHdV + rxdeXP2m0sraXyftHn7m8tZP9WqsOG/EcEdawtYhvtFjgu5xbrDYvH/qBI0uw4iZAZcjBVuc + kHgHORWh4xtV1a809EkZVkFyRJA+1seWrAqwzwf1BoAu6BqF1aXb6XdyLN+5EySBRG2NwQqV + UY65I5+pOcLm/DrxZcX22K9YMbhGeFtoXOxikicBQWGAwABO0kk9AJfB9q2i31zYSFpGlRJU + lc7nZF+TDHceVJwOATgk4G0DM0HTHuNIt7qAf6RatJJHjOTiV98fyjcQ65G0EbjgE4oA2LW4 + uNdtr6IOwljuZ0iMZEbDy9pRdwxwTwSeSCcnvXR+H9T/ALUt4rrKkyRqW2fdDEfMByehyMZy + MYPNc58ML1b+K5uEyFlvZmAPXDBCM4zzzVv4ZQtFp0AYEHDnBGOGkYg/Qggj1HNAHUV5/wDG + v/jzj/6+F/8AQJK9Arz/AONf/HnH/wBfC/8AoElAB8FP+POT/r4b/wBAjr0CvP8A4Kf8ecn/ + AF8N/wCgR16BQAVynxS/5B0//bP/ANGpXV1ynxS/5B0//bP/ANGpQByvwM/5ev8Atj/7Ur1W + vKvgZ/y9f9sf/aleq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQBXfTonkFwUUyqMByoLgc8BsZA5P5mob3Q7e/bfNFG7AYBdFY464yQeOavUUAVL7SYdQ + x58aSbc48xFbGcZxkHGcCnxadFFH9nVFEWCNgUBMNnI24xg5OfWrFFAFT+yYfL+y+Wnlf3Ni + 7Ou77uMdeenXmi40mG5RYJI0aNMbVZFKjAwMKRgYHA9qt0UAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/8AGv8A484/+vhf/QJK9Arz/wCNf/HnH/18 + L/6BJQB1XhP/AI87b/r3h/8AQFrWrJ8J/wDHnbf9e8P/AKAta1ABRRRQBn+INT/su3lusqDH + GxXf90sB8oPI6nAxnJzgc1n2V6vhqyie+kYMFXe0rGR978lcjJbBJAxnCj0BNV/ibC0unThQ + ScIcAZ4WRST9AASfQc1X8Z3S2l3YSznFusku4sD5YfYBET2BByVJ6cnIAJoAZo/iVNY1LNvK + Xg+xE7QWChxNgkocYbHqM4x2IrTuvH1jaSm1eZRIrBSMNtB9CwG0Y75PHOcYNY+l6hBfaw8l + uysPsWHZMEFvMX+IcMdu0ZyfTtgYXiDxC92t4ouIraKJpYhAER5JTk72OcMN7N95c45J+6WI + B1XjLxynh94Ydy73kjLhlc4hJYM4K8ZBHA5P+yauz+ObO3hS8eUCKUsEO18naSG+XbuwCOTj + HT1Gea1iZYbHS3cgKs9kSScAARkkknoBTfE9z59/Bcx3SQxNbuIpiElj3q/7wDcdqkqQC3Gc + bcnpQB2+j61DrEfn27h0yRkZGCOoIIBB+o6YPQir1cf4F0+O2luZVuUuZJfKZzEiooPzgH5C + VJbknoe5+9mul0vVI9VjW5gbdG+cHBGcEg8EA9Qe1AFLWPF1ro7eVcSBG2B8EMcqW2jGAcnP + Yc4BOMAmpYvElvJb/wBohx5GCd5BHQlTwQDnIwBjJPTORWK8KvrIJAJWwyCRnB84jI9DgkfQ + kViadqK6FZ6hOkasIb+XYhGEBDxhDgdlOCAMdOCOoAOw0Pxda64zJbSB2QZIwynHTOGAyPXH + TIz1FQ6n45s9LdoZpQrxlQy7XJ+ddw4CnIx1IyBwDgkVxun3bzajZLLdpdOFmJESIFQtEcjc + nDZI74IABwM10fh6FTqeoOQNwFsAccgGPJGfQ4GfoPSgC7eePrGzWOR5l2zLuXAZiRnGSFBI + 5yOccgjqDi7rniS30JVe5cIHOF4LE468KCcDucYGR6iuK0vTolstVARQBPdADaOBGuUHTop5 + X0PIqlKrxyWEhuFtkOnoI5JFSRd4A3gBzhCVI+bjI+XJzigD0fR9ah1iPz7dw6ZIyMjBHUEE + Ag/UdMHoRV6uP8C6fHbS3Mq3KXMkvlM5iRUUH5wD8hKktyT0Pc/ezXS6XqkeqxrcwNujfODg + jOCQeCAeoPagDP8AFl9JbxpFAWWWeaONWVA+3J3MxU8EBFbP9OoPB2stq1qksvEq5SQHG4Oh + 2tkADaTjdtwMZrC1h7nVdQxZiLdp6AZn8wfNcLkkeWeQEUDnGCTweCH+FrqXTb2axuzEJLlV + nRYBiPPKP97DFm2hiOejNxzQBk6Xfalc2P8AbAulO1XcxPAgUiJiGBdcHkKegHpkdaveJ/FF + 2wspLLCtcxSSmMqH3bI0l2fd3EkZA24JJ7dRy9n4YefSFvUllbbudoGkPkMscrbhtBUjgbjg + 5JBxyQR2Wo3q397pdwmQsqXDAHrhoVIzjPPNAFjWvE5kis7q1bCXN1ArcKTtfduQ/eAIIwcH + IIIzVhJpLPUTEzEw3UG5A75xJEQGVFzwCjBm45POeCBx+uwto11BpuD5Ml/BPCcfKoLESx9g + ArEFVUcBsk5NdXr8LPqNgQCQouiSBnA8tRk+gyQPqQKAOoooooAKKKKAPKvH3/IZs/8At3/9 + HtXqteVePv8AkM2f/bv/AOj2r1WgAooooAK5zXZpLm7tbONiqgvNLsfa+2MAICM8o7tgjBzj + jGCa6OuXMLDVw5B2mwIBxwSJgSM+oyM/UetAF3UvGlnpkotJpVWQ7eCGIG7plgCF9eSMDk8H + NY/g/wASpZaZDeXsp5Lgu5Z2J8xwB3YnA7ZwB6Cquga1bWL36XrqshuZCwm+80W3EYAYZddu + dqjPB4GGGczS9ZbStHtXj2CSSZo0klxtjLvKDJyD0GR9Cc5GQQDuNO8XWuoxSXMMgaOEEucM + CoA3Z2kBsYBxxzggcg1j+E/iJDrUj2zMvmGaQRBUcbo1GVYk5AJAOckdOgrK8KXJm1V91yt0 + VsyPMRFRR+8U7RsyDjOcg98dRWl4E1GJJLu3LqJWv7ghCwDkcchc5I4P5GgDTuvH1jaSm1eZ + RIrBSMNtB9CwG0Y75PHOcYNdBXj+jWTXFtJaXF/FCTJIs0UscTNvDHJLswLk4BDgnBwAcrx6 + Lo2oQWUVpaCTcZYVER2sN4jjBLYwdvHOCfbrQBq3d0tojTSHCRqWY4JwFGScDnpWPp/jmz1G + VbWGUNI4yAFf+7v67cAgdQTkHg88VY8Wf8edz/17zf8AoDVyF/aJHaaSyqoIuLTBAAPzrub/ + AL6IyfU8nmgDp9Y8c2ejyfZ55QsgAJAV2xnpnapwe+DzjB6EVoX+tQ2EJvJHAhAU7xlhhiAp + G0HIOR0rjdd8QuLue3S4is47dVZmKI8krOinIVsZ2qAOMt0HOQFyv+Zc/wA/8/VAHb2fjmyv + ZGgjmUsgYnOVXCfeIYgKQBzwTwCegJqxoXim217d9mff5e3d8rLjdnH3gPQ9KwviBp0RWyQo + u0XsCAbRgIcgpjH3TgZHTgelTJCqaySAAWsMkgYyfOAyfU4AH0AFAF268fWNpKbV5lEisFIw + 20H0LAbRjvk8c5xg10FeP6NZNcW0lpcX8UJMkizRSxxM28MckuzAuTgEOCcHAByvHoujahBZ + RWloJNxlhURHaw3iOMEtjB28c4J9utAG3XFW3iacX3zlvsks0sCB0VFV4lT5g+MtvcOqjPr3 + G0b/AIq1v+xLWW8xkxr8oxkbmIVc8jjJGec4zjmuIvfD+o6XZeQPsojtB5qsvmtIGiPmFhvB + XcTntjBI4BoA6LxdeXP2m0sraXyftHn7m8tZP9WqsOG/EcEdaNA1C6tLt9Lu5Fm/ciZJAojb + G4IVKqMdckc/UnOFyvELp4kuNNeKR0SZbghomCyL+7UkbhuAII2sOe4qx4PtW0W+ubCQtI0q + JKkrnc7IvyYY7jypOBwCcEnA2gAEXh/xZcfbJIrlgbZ7maGI7QNjxkFVLAKMOpwudzMw4xyT + sWN7JqN1fWLuwjjWEJswrJ5sZLEMBnOeQTnB6ViaRon9swX8AO2QahO0bZwVkXaUYNgkc8Ej + nBOKf8OdVbVbm9uHUo7C2DqRtw6IyOMEkgbgcZ5x15oA3/BN9Jd2qCcgzRFo5MNuIaNivzHJ + +YgAk55zkcEVvVy/gSFkF2SCA1/cEEjGRkDI9RkEfUEV1FABRRRQB5/8a/8Ajzj/AOvhf/QJ + KPgp/wAecn/Xw3/oEdHxr/484/8Ar4X/ANAko+Cn/HnJ/wBfDf8AoEdAHoFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFfN/gzW00S7jvJQxSPfkIAW+ZGUYyQOp9a+kK+f/hb/wAh + GD/tp/6KegD0D/hddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8A + jlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A + 4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn + /wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/ + AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A + +F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/ + 3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/ + +OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A + /hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf + 98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+ + OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAP + P/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3 + /fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T + /wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP + /wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8A + fKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/v + lP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDw + r/hNYf7W/tfa/lemF3/6ny+m7HX36flXa/8AC67P+5N/3yn/AMcrK/5mP/P/AD616rQB5/8A + 8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+ + U/8AjlegUUAef/8AC67P+5N/3yn/AMcrE1z4oW13PbXkSS77aRsh1TaY5F2yYw+d2MbeQOuc + 163RQB5pcfFXTbl1nkt3aRMbWaKIsMHIwxfIweR70f8AC1dN8v7L9nfyv7nlRbOu77u/HXnp + 15r0uigDzS1+Kum2hDRW7oQpUFIolIUncVGH6Z5x0zz1o/4Wrpvmfavs7+b/AH/Ki39Nv3t+ + enHXpxXpdFAHmV78T9Lv23zWzOwGAXhiY464yXPHNXf+F12f9yb/AL5T/wCOV6BRQB5le/E/ + S79t81szsBgF4YmOOuMlzxzVi6+MFhdqYpYZXQ4yrxxspwcjIL4616LRQB5//wALrs/7k3/f + Kf8Axyorr4wWF2pilhldDjKvHGynByMgvjrXotFAHn//AAuuz/uTf98p/wDHKit/jBYW27y4 + ZV3sWbbHGMserHD8k9z1r0WigDzdfi1pyK6CCQLKWLgRxYYtwxYb+Se+eveorL4n6XYNvhtm + RiMEpDEpx1xkOOOK9NooA8k0P4oW1pPc3kqS77mRcBFTaI412x5y+d2M7uSOmMVt/wDC67P+ + 5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75 + T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8Ajlcvp/xDt7fU59UKyeVLEFAA + XfkCMcjdjHyHue1e0V5/o3/Ieuv+vdf5QUAH/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCO + V6BRQB5JcfFC2+3R6hGku3yXilDKmdud6FQH67vvZOMdBmr03xP0uZzM9sxkYEFjDEWIK7SC + S+SCvH046V6bRQB5pcfFXTblFgkt3aNMbVaKIqMDAwpfAwOB7U+1+LWnWhJjgkQsFBKxxLkI + MKDh+ijgeg4FekUUAeaW/wAVdNtnaeO3dZHzuZYogxycnLB8nJ5PvTZfifpcsn2hrZjLkHeY + Yi+Vxg7t+cjAx6V6bRQB5fJ8VLKW4W8dZj5cZVFMcWFLn53zvzkgKvbAB67jVu6+MFhdqYpY + ZXQ4yrxxspwcjIL4616LRQB51J8YLCVllaGUvHnaxjjLLuGDg78jI6461DcfFXTbl1nkt3aR + MbWaKIsMHIwxfIweR716XRQB5p/wtXTfL+y/Z38r+55UWzru+7vx156deamuPjBYXO3zIZW2 + MGXdHGcMOjDL8Edj1r0WigDzr/hcFhv8/wAmXzNu3d5ce7bnO3dvzjPOOmary/E/S5ZPtDWz + GXIO8wxF8rjB3b85GBj0r02igDy+3+KllHPJesszPIqIuY4hsRedoO/J3MSxJPoMfLVuT4wW + ErLK0MpePO1jHGWXcMHB35GR1x1r0WigDzyb4y2MylHilKsCCCkZBB4IIMnINRD4tacChEEm + YgQh8uL5ARghfn+UY44xxxXpFFAHnUnxgsJWWVoZS8edrGOMsu4YODvyMjrjrRa/GCwtFEUU + MqIM4VI41UZOTgB8da9FooA8k1j4m2f2SWzsoWjaVSMeWiJ8+FYnY/Xb0OOuM8Vp6d8XbGwi + S3RJysSKoJWPOFAAzhxzxXpFFAHn/wDwuuz/ALk3/fKf/HK5f4h/EO38SW628KyBllDEuFAw + FYdmbn5q9orz/wCNf/HnH/18L/6BJQAfBT/jzk/6+G/9Ajr0CvP/AIKf8ecn/Xw3/oEdegUA + Fcp8Uv8AkHT/APbP/wBGpXV1ynxS/wCQdP8A9s//AEalAHmvw38aw+GPO89XbzfLx5YU/d3Z + zll/vCu1/wCF12f9yb/vlP8A45WV8DP+Xr/tj/7Ur1WgDz//AIXXZ/3Jv++U/wDjlH/C67P+ + 5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75 + T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9Ao + oA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8A + uTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8A + vlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9Aoo + A8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N + /wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3J + v++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKK + APP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuu + z/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wBy + b/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0Ci + gDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lr + s/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb + /vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr + 0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OVy/wAQ + /iHb+JLdbeFZAyyhiXCgYCsOzNz81e0V5/8AGv8A484/+vhf/QJKAKWh/F20sLeG3dJS0USK + SFTGVUA4y444q7/wuuz/ALk3/fKf/HK6rwn/AMedt/17w/8AoC1rUAef/wDC67P+5N/3yn/x + yj/hddn/AHJv++U/+OV6BRQB5vqPxdsb+J7d0nCyoykhY84YEHGXPPNZ+ifFK0S0jsruJnKI + qsAiNGQhwnDvycAE8fe6dq9YooA80tfirptoQ0Vu6EKVBSKJSFJ3FRh+mecdM89abN8T9Lmc + zPbMZGBBYwxFiCu0gkvkgrx9OOlem0UAeby/FrTpY/s7QSGLAGwxxFMLjA278YGBj0pn/C1d + N8v7L9nfyv7nlRbOu77u/HXnp15r0uigDzJfitYWsTw2sUkJYNgpDEAGIwG2hwCRx164xTtK + +LFhpcSWsUcwSNQB8keTjqThwMk8k45JJr0uigDzr/hcFhv8/wAmXzNu3d5ce7bnO3dvzjPO + OmaYvxa05FdBBIFlLFwI4sMW4YsN/JPfPXvXpFFAHmVt8T9LtSpjtmUoWKlYYlwWADEYfgkA + A+oGDViP4wWETNKsMoeTG5hHGGbaMDJ35OB0z0r0WigDzdfi1pyK6CCQLKWLgRxYYtwxYb+S + e+eveiX4tadLH9naCQxYA2GOIphcYG3fjAwMelekUUAeZL8VrC1ieG1ikhLBsFIYgAxGA20O + ASOOvXGKdpXxYsNLiS1ijmCRqAPkjycdScOBknknHJJNel0UAedW/wAYLC23eXDKu9izbY4x + lj1Y4fknuetEnxgsJWWVoZS8edrGOMsu4YODvyMjrjrXotFAHnVr8YLC0URRQyogzhUjjVRk + 5OAHx1qGH4q6bBs2W7r5W7ZiKIbd33tuH4z3x1716XRQB5vc/FrTrpleSCRmjOULRxMVPByC + X4PA6egrMt/ihbfbpNQkSXb5KRRBVTO3O9ywL9d33cHGOozXrdFAHn//AAuuz/uTf98p/wDH + KP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHhXifx + rDqt/b6hGriODytwYKGOyQucAMR0PHI5rtf+F12f9yb/AL5T/wCOVlePv+QzZ/8Abv8A+j2r + 1WgDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OVia58UL + a7ntryJJd9tI2Q6ptMci7ZMYfO7GNvIHXOa9booA80uPirpty6zyW7tImNrNFEWGDkYYvkYP + I96P+Fq6b5f2X7O/lf3PKi2dd33d+OvPTrzXpdFAHmlr8VdNtCGit3QhSoKRRKQpO4qMP0zz + jpnnrR/wtXTfM+1fZ383+/5UW/pt+9vz0469OK9LooA8yvfifpd+2+a2Z2AwC8MTHHXGS545 + pknxUspbhbx1mPlxlUUxxYUufnfO/OSAq9sAHruNeoUUAeeTfGWxmUo8UpVgQQUjIIPBBBk5 + BqJvi1pzqiGCQrEVKAxxYUrwpUb+CO2OnavSKKAPNLj4q6bcus8lu7SJjazRRFhg5GGL5GDy + Pej/AIWrpvl/Zfs7+V/c8qLZ13fd34689OvNel0UAedXHxgsLnb5kMrbGDLujjOGHRhl+COx + 60f8LgsN/n+TL5m3bu8uPdtznbu35xnnHTNei0UAeZXvxP0u/bfNbM7AYBeGJjjrjJc8c0yT + 4qWUtwt46zHy4yqKY4sKXPzvnfnJAVe2AD13GvUKKAPOrj4wWFzt8yGVtjBl3RxnDDowy/BH + Y9al/wCF12f9yb/vlP8A45XoFFAHmkPxV02DZst3Xyt2zEUQ27vvbcPxnvjr3qaT4wWErLK0 + MpePO1jHGWXcMHB35GR1x1r0WigDzq3+MFhbbvLhlXexZtscYyx6scPyT3PWq7fFqxtVle2g + ZZpATkxxqGfkqXKvkjJ578mvTaKAPKvCvxQs9EtYrPZMTGvzHahG5iWbHzjjJOOM4xnmtX/h + ddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHi/xD+Idv4k + t1t4VkDLKGJcKBgKw7M3PzV1HwU/485P+vhv/QI6PjX/AMecf/Xwv/oElHwU/wCPOT/r4b/0 + COgD0CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvn/wCFv/IRg/7af+inr6Ar5/8A + hb/yEYP+2n/op6APoCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigDyr/mY/wDP/PrXqteVf8zH/n/n1r1WgAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK8/0b/kPXX/Xuv8oK9Arz + /Rv+Q9df9e6/ygoA9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigArz/wCNf/HnH/18L/6BJXoFef8Axr/484/+vhf/AECSgA+Cn/HnJ/18N/6BHXoF + ef8AwU/485P+vhv/AECOvQKACuU+KX/IOn/7Z/8Ao1K6uuU+KX/IOn/7Z/8Ao1KAOV+Bn/L1 + /wBsf/aleq15V8DP+Xr/ALY/+1K9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACvP/AI1/8ecf/Xwv/oElegV5/wDGv/jzj/6+F/8AQJKAOq8J/wDH + nbf9e8P/AKAta1ZPhP8A487b/r3h/wDQFrWoAKKKKACiiigAooooAKKKKACiiigAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACiiigDyrx9/wAhmz/7d/8A0e1eq15V4+/5DNn/ + ANu//o9q9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigDz/wCNf/HnH/18L/6BJR8FP+POT/r4b/0COj41/wDHnH/18L/6BJR8FP8A + jzk/6+G/9AjoA9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/8Ahb/yEYP+2n/o + p6+gK+f/AIW/8hGD/tp/6KegD6AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooA8q/5mP8Az/z616rXlX/Mx/5/59a9VoAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvN7NJX1y6EL + KreQuS6FxjbDxgOnPvn8PT0ivP8ARv8AkPXX/Xuv8oKAOq+zXn/PaH/wHf8A+SKPs15/z2h/ + 8B3/APkitaigDJ+zXn/PaH/wHf8A+SKPs15/z2h/8B3/APkitaigDJ+zXn/PaH/wHf8A+SKP + s15/z2h/8B3/APkitaigDJ+zXn/PaH/wHf8A+SKPs15/z2h/8B3/APkitaigDJ+zXn/PaH/w + Hf8A+SKPs15/z2h/8B3/APkitaigDJ+zXn/PaH/wHf8A+SKPs15/z2h/8B3/APkitaigDJ+z + Xn/PaH/wHf8A+SKPs15/z2h/8B3/APkitaigDJ+zXn/PaH/wHf8A+SKPs15/z2h/8B3/APki + taigDJ+zXn/PaH/wHf8A+SKPs15/z2h/8B3/APkitaigDJ+zXn/PaH/wHf8A+SKPs15/z2h/ + 8B3/APkitaigDJ+zXn/PaH/wHf8A+SKPs15/z2h/8B3/APkitaigDJ+zXn/PaH/wHf8A+SKP + s15/z2h/8B3/APkitaigDJ+zXn/PaH/wHf8A+SK4j4uxXCWiGZ42Xz1wEiZDnY/OTK/Htj8f + X02vP/jX/wAecf8A18L/AOgSUAHwU/485P8Ar4b/ANAjr0CvP/gp/wAecn/Xw3/oEdegUAFc + p8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8AbP8A9GpQByvwM/5ev+2P/tSvVa8q+Bn/AC9f9sf/ + AGpXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/ + 8a/+POP/AK+F/wDQJK9Arz/41/8AHnH/ANfC/wDoElAGx4Yt7s2luUliC+RFgGByQNgwCROM + n3wPoK0vs15/z2h/8B3/APkijwn/AMedt/17w/8AoC1rUAZP2a8/57Q/+A7/APyRR9mvP+e0 + P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyR + R9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/ + +A7/APyRR9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kVrUUAZP + 2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8 + kVrUUAZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyRR9mvP+e0 + P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyR + R9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kVrUUAZP2a8/57Q/ + +A7/APyRR9mvP+e0P/gO/wD8kVrUUAeP+N45l1a0EjoZD5G1ljZVH75sZUyMTg9fmGRxx1r0 + r7Nef89of/Ad/wD5IrgPH3/IZs/+3f8A9HtXqtAGT9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A + /JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/n + tD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8 + kUfZrz/ntD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A/JFa1FAGT9mvP+e0 + P/gO/wD8kUfZrz/ntD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A/JFa1FAG + T9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A + /JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/n + tD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8kUfZrz/ntD/4Dv8A/JFa1FAGT9mvP+e0P/gO/wD8 + kUfZrz/ntD/4Dv8A/JFa1FAHmXxdiuEtEMzxsvnrgJEyHOx+cmV+PbH4+t34Kf8AHnJ/18N/ + 6BHR8a/+POP/AK+F/wDQJKPgp/x5yf8AXw3/AKBHQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABXz/8Lf8AkIwf9tP/AEU9fQFfP/wt/wCQjB/20/8ART0AfQFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/Mx/5/ + 59a9Vryr/mY/8/8APrXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAV5/o3/Ieuv8Ar3X+UFegV5/o3/Ieuv8Ar3X+UFAHoFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0 + CSvQK8/+Nf8Ax5x/9fC/+gSUAHwU/wCPOT/r4b/0COvQK8/+Cn/HnJ/18N/6BHXoFABXKfFL + /kHT/wDbP/0aldXXKfFL/kHT/wDbP/0alAHK/Az/AJev+2P/ALUr1WvKvgZ/y9f9sf8A2pXq + tABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/8a/8A + jzj/AOvhf/QJK9Arz/41/wDHnH/18L/6BJQB1XhP/jztv+veH/0Ba1qyfCf/AB523/XvD/6A + ta1ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAeVePv+QzZ/wDbv/6PavVa8q8ff8hmz/7d/wD0e1eq0AFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8a/8Ajzj/AOvhf/QJ + KPgp/wAecn/Xw3/oEdHxr/484/8Ar4X/ANAko+Cn/HnJ/wBfDf8AoEdAHoFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFfP/wt/wCQjB/20/8ART19AV8//C3/AJCMH/bT/wBFPQB9 + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAeVf8zH/n/n1r1WvKv+Zj/z/wA+teq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXm9nYre65dI5YAQKfkkeM/dh7oynHPTOK9Irz + /Rv+Q9df9e6/ygoA6r/hGov703/gVcf/AByj/hGov703/gVcf/HK1qKAMn/hGov703/gVcf/ + AByj/hGov703/gVcf/HK1qKAMn/hGov703/gVcf/AByj/hGov703/gVcf/HK1qKAMn/hGov7 + 03/gVcf/AByj/hGov703/gVcf/HK1qKAMn/hGov703/gVcf/AByj/hGov703/gVcf/HK1qKA + Mn/hGov703/gVcf/AByj/hGov703/gVcf/HK1qKAMn/hGov703/gVcf/AByj/hGov703/gVc + f/HK1qKAMn/hGov703/gVcf/AByj/hGov703/gVcf/HK1qKAMn/hGov703/gVcf/AByj/hGo + v703/gVcf/HK1qKAMn/hGov703/gVcf/AByj/hGov703/gVcf/HK1qKAMn/hGov703/gVcf/ + AByj/hGov703/gVcf/HK1qKAMn/hGov703/gVcf/AByj/hGov703/gVcf/HK1qKAMn/hGov7 + 03/gVcf/AByuI+LukJZWiOhkJM6j55pZB9x+zuwzx1xmvTa8/wDjX/x5x/8AXwv/AKBJQAfB + T/jzk/6+G/8AQI69Arz/AOCn/HnJ/wBfDf8AoEdegUAFcp8Uv+QdP/2z/wDRqV1dcp8Uv+Qd + P/2z/wDRqUAcr8DP+Xr/ALY/+1K9Vryr4Gf8vX/bH/2pXqtABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/wDGv/jzj/6+F/8AQJK9Arz/AONf/HnH + /wBfC/8AoElAGx4Y8PRy2lu5aXLQRE4uZ1HKDoBIAB7AYHatL/hGov703/gVcf8Axyjwn/x5 + 23/XvD/6Ata1AGT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOVrUUAZP8AwjUX96b/AMCr + j/45R/wjUX96b/wKuP8A45WtRQBk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjla1FAGT/ + AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOVrUUAZP8AwjUX96b/AMCrj/45R/wjUX96b/wK + uP8A45WtRQBk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjla1FAGT/AMI1F/em/wDAq4/+ + OUf8I1F/em/8Crj/AOOVrUUAZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45WtRQBk/wDC + NRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjla1FAGT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/ + AOOVrUUAZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45WtRQBk/wDCNRf3pv8AwKuP/jlH + /CNRf3pv/Aq4/wDjla1FAGT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOVrUUAZP8AwjUX + 96b/AMCrj/45R/wjUX96b/wKuP8A45WtRQB4/wCN9MSDVrSEF9reRktLIzczMOHZiw9sEYPI + 5r0r/hGov703/gVcf/HK4Dx9/wAhmz/7d/8A0e1eq0AZP/CNRf3pv/Aq4/8AjlH/AAjUX96b + /wACrj/45WtRQBk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jla1FAGT/wjUX96b/wKuP/ + AI5R/wAI1F/em/8AAq4/+OVrUUAZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45WtRQBk/ + 8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jla1FAGT/wjUX96b/wKuP/AI5R/wAI1F/em/8A + Aq4/+OVrUUAZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45WtRQBk/8I1F/em/8Crj/wCO + Uf8ACNRf3pv/AAKuP/jla1FAGT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OVrUUAZP/CN + Rf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45WtRQBk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKu + P/jla1FAGT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OVrUUAZP/CNRf3pv/Aq4/8AjlH/ + AAjUX96b/wACrj/45WtRQBk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jla1FAHmXxd0hL + K0R0MhJnUfPNLIPuP2d2GeOuM1d+Cn/HnJ/18N/6BHR8a/8Ajzj/AOvhf/QJKPgp/wAecn/X + w3/oEdAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/wALf+QjB/20/wDRT19A + V83+DNbTRLuO8lDFI9+QgBb5kZRjJA6n1oA+kKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/ + 3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/ + +OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A + /hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf + 98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+ + OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0Civ + P/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3 + /fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T + /wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP + /wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8A + fKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/v + lP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz + /wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7 + k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/7 + 5T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8 + /wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+ + 5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75 + T/45R/wuuz/uTf8AfKf/ABygDK/5mP8Az/z616rXhX/Caw/2t/a+1/K9MLv/ANT5fTdjr79P + yrtf+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5/ + /wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv + ++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/ + AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRX + n/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv+ + +U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p + /wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn + /wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/ + AL5T/wCOUAegV5/o3/Ieuv8Ar3X+UFH/AAuuz/uTf98p/wDHK5fT/iHb2+pz6oVk8qWIKAAu + /IEY5G7GPkPc9qAPaKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXX + Z/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xy + gD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/ + AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ + /wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAc + oA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOU + f8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12 + f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQK8/+Nf/AB5x/wDXwv8A6BJR/wALrs/7k3/fKf8A + xyuX+IfxDt/ElutvCsgZZQxLhQMBWHZm5+agDqPgp/x5yf8AXw3/AKBHXoFef/BT/jzk/wCv + hv8A0COvQKACuU+KX/IOn/7Z/wDo1K6uuU+KX/IOn/7Z/wDo1KAOV+Bn/L1/2x/9qV6rXhXw + 38aw+GPO89XbzfLx5YU/d3Zzll/vCu1/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8 + co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn// + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/ + AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3J + v++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFe + f/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wBy + b/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegV5/8a/+POP/AK+F/wDQ + JKP+F12f9yb/AL5T/wCOVy/xD+Idv4kt1t4VkDLKGJcKBgKw7M3PzUAepeE/+PO2/wCveH/0 + Ba1q8y0P4u2lhbw27pKWiiRSQqYyqgHGXHHFXf8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k + 3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFF + ef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXX + Z/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5 + N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAH + oFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ + /wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/ + AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOU + AegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12 + f9yb/vlP/jlAGV4+/wCQzZ/9u/8A6PavVa8K8T+NYdVv7fUI1cRweVuDBQx2SFzgBiOh45HN + dr/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+ + F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3 + yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45 + R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8/ + /wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf9 + 8p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/ + AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8// + AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8 + p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoAPjX/wAecf8A18L/AOgS + UfBT/jzk/wCvhv8A0COuX+IfxDt/ElutvCsgZZQxLhQMBWHZm5+auo+Cn/HnJ/18N/6BHQB6 + BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/APC3/kIwf9tP/RT19AV8/wDwt/5C + MH/bT/0U9AH0BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQB5V/wAzH/n/AJ9a9Vryr/mY/wDP/PrXqtABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/o3/Ieuv+vdf5QV6BXn+j + f8h66/691/lBQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABXn/xr/484/8Ar4X/ANAkr0CvP/jX/wAecf8A18L/AOgSUAHwU/485P8Ar4b/ANAj + r0CvP/gp/wAecn/Xw3/oEdegUAFcp8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8AbP8A9GpQByvw + M/5ev+2P/tSvVa8q+Bn/AC9f9sf/AGpXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAV5/8a/+POP/AK+F/wDQJK9Arz/41/8AHnH/ANfC/wDoElAH + VeE/+PO2/wCveH/0Ba1qyfCf/Hnbf9e8P/oC1rUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5V4+/5DNn/wBu/wD6PavVa8q8ff8A + IZs/+3f/ANHtXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAef/Gv/jzj/wCvhf8A0CSj4Kf8ecn/AF8N/wCgR0fGv/jzj/6+F/8A + QJKPgp/x5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/wDwt/5C + MH/bT/0U9fQFfP8A8Lf+QjB/20/9FPQB9AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8AMx/5/wCfWvVa8q/5mP8Az/z616rQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFe + f6N/yHrr/r3X+UFegV5vZpK+uXQhZVbyFyXQuMbYeMB0598/h6AHpFFZP2a8/wCe0P8A4Dv/ + APJFH2a8/wCe0P8A4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBr + UVk/Zrz/AJ7Q/wDgO/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8 + /wCe0P8A4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/ + AJ7Q/wDgO/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8/wCe0P8A + 4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/AJ7Q/wDg + O/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8/wCe0P8A4Dv/APJF + AGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/AJ7Q/wDgO/8A8kUf + Zrz/AJ7Q/wDgO/8A8kUAa1ef/Gv/AI84/wDr4X/0CSuq+zXn/PaH/wAB3/8AkiuI+LsVwloh + meNl89cBImQ52Pzkyvx7Y/H1ALvwU/485P8Ar4b/ANAjr0CvP/gp/wAecn/Xw3/oEdegUAFc + p8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8AbP8A9GpQByvwM/5ev+2P/tSvVa8q+Bn/AC9f9sf/ + AGpXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/ + 8a/+POP/AK+F/wDQJK9Arz/41/8AHnH/ANfC/wDoElAHVeE/+PO2/wCveH/0Ba1q5fwxb3Zt + LcpLEF8iLAMDkgbBgEicZPvgfQVpfZrz/ntD/wCA7/8AyRQBrUVk/Zrz/ntD/wCA7/8AyRR9 + mvP+e0P/AIDv/wDJFAGtRWT9mvP+e0P/AIDv/wDJFH2a8/57Q/8AgO//AMkUAa1FZP2a8/57 + Q/8AgO//AMkUfZrz/ntD/wCA7/8AyRQBrUVk/Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJ + FAGtRWT9mvP+e0P/AIDv/wDJFH2a8/57Q/8AgO//AMkUAa1FZP2a8/57Q/8AgO//AMkUfZrz + /ntD/wCA7/8AyRQBrUVk/Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJFAGtRWT9mvP+e0P/ + AIDv/wDJFH2a8/57Q/8AgO//AMkUAa1FZP2a8/57Q/8AgO//AMkUfZrz/ntD/wCA7/8AyRQB + rUVk/Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJFAGtRWT9mvP+e0P/AIDv/wDJFH2a8/57 + Q/8AgO//AMkUAa1FZP2a8/57Q/8AgO//AMkUfZrz/ntD/wCA7/8AyRQBrUVk/Zrz/ntD/wCA + 7/8AyRR9mvP+e0P/AIDv/wDJFAGtRWT9mvP+e0P/AIDv/wDJFH2a8/57Q/8AgO//AMkUAcB4 + +/5DNn/27/8Ao9q9Vrx/xvHMurWgkdDIfI2ssbKo/fNjKmRicHr8wyOOOtelfZrz/ntD/wCA + 7/8AyRQBrUVk/Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJFAGtRWT9mvP+e0P/AIDv/wDJ + FH2a8/57Q/8AgO//AMkUAa1FZP2a8/57Q/8AgO//AMkUfZrz/ntD/wCA7/8AyRQBrUVk/Zrz + /ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJFAGtRWT9mvP+e0P/AIDv/wDJFH2a8/57Q/8AgO// + AMkUAa1FZP2a8/57Q/8AgO//AMkUfZrz/ntD/wCA7/8AyRQBrUVk/Zrz/ntD/wCA7/8AyRR9 + mvP+e0P/AIDv/wDJFAGtRWT9mvP+e0P/AIDv/wDJFH2a8/57Q/8AgO//AMkUAa1FZP2a8/57 + Q/8AgO//AMkUfZrz/ntD/wCA7/8AyRQBrUVk/Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJ + FAGtRWT9mvP+e0P/AIDv/wDJFH2a8/57Q/8AgO//AMkUAa1FZP2a8/57Q/8AgO//AMkUfZrz + /ntD/wCA7/8AyRQBrUVk/Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJFAGtRWT9mvP+e0P/ + AIDv/wDJFH2a8/57Q/8AgO//AMkUAcr8a/8Ajzj/AOvhf/QJKPgp/wAecn/Xw3/oEdUvi7Fc + JaIZnjZfPXASJkOdj85Mr8e2Px9bvwU/485P+vhv/QI6APQKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAK+f8A4W/8hGD/ALaf+inr6Ar5/wDhb/yEYP8Atp/6KegD6AooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8q/5m + P/P/AD616rXlX/Mx/wCf+fWvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigArz/AEb/AJD11/17r/KCvQK8/wBG/wCQ9df9e6/ygoA9Aooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/AONf/HnH + /wBfC/8AoElegV5/8a/+POP/AK+F/wDQJKAD4Kf8ecn/AF8N/wCgR16BXn/wU/485P8Ar4b/ + ANAjr0CgArlPil/yDp/+2f8A6NSurrlPil/yDp/+2f8A6NSgDlfgZ/y9f9sf/aleq15V8DP+ + Xr/tj/7Ur1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAK8/wDjX/x5x/8AXwv/AKBJXoFef/Gv/jzj/wCvhf8A0CSgDqvCf/Hnbf8AXvD/AOgLWtWT + 4T/487b/AK94f/QFrWoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigDyrx9/yGbP/t3/APR7V6rXlXj7/kM2f/bv/wCj2r1WgAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP8A + 41/8ecf/AF8L/wCgSUfBT/jzk/6+G/8AQI6PjX/x5x/9fC/+gSUfBT/jzk/6+G/9AjoA9Aoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/wDhb/yEYP8Atp/6KevoCvn/AOFv/IRg + /wC2n/op6APoCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigDyr/mY/8/8APrXqteVf8zH/AJ/59a9VoAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP8ARv8AkPXX/Xuv8oK9Arze + zsVvdcukcsAIFPySPGfuw90ZTjnpnFAHpFFZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/4 + 5QBrUVk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jlAGtRWT/wjUX96b/wKuP/AI5R/wAI + 1F/em/8AAq4/+OUAa1FZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45QBrUVk/8I1F/em/ + 8Crj/wCOUf8ACNRf3pv/AAKuP/jlAGtRWT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OUA + a1FZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45QBrUVk/8I1F/em/8Crj/wCOUf8ACNRf + 3pv/AAKuP/jlAGtRWT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OUAa1FZP/CNRf3pv/Aq + 4/8AjlH/AAjUX96b/wACrj/45QBrUVk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jlAGtR + WT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OUAa1ef/Gv/AI84/wDr4X/0CSuq/wCEai/v + Tf8AgVcf/HK4j4u6QllaI6GQkzqPnmlkH3H7O7DPHXGaALvwU/485P8Ar4b/ANAjr0CvP/gp + /wAecn/Xw3/oEdegUAFcp8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8AbP8A9GpQByvwM/5ev+2P + /tSvVa8q+Bn/AC9f9sf/AGpXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAV5/8a/+POP/AK+F/wDQJK9Arz/41/8AHnH/ANfC/wDoElAHVeE/+PO2 + /wCveH/0Ba1q5fwx4ejltLdy0uWgiJxczqOUHQCQAD2AwO1aX/CNRf3pv/Aq4/8AjlAGtRWT + /wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOUAa1FZP/AAjUX96b/wACrj/45R/wjUX96b/w + KuP/AI5QBrUVk/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8AjlAGtRWT/wAI1F/em/8AAq4/ + +OUf8I1F/em/8Crj/wCOUAa1FZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5QBrUVk/8A + CNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8AjlAGtRWT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj + /wCOUAa1FZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5QBrUVk/8ACNRf3pv/AAKuP/jl + H/CNRf3pv/Aq4/8AjlAGtRWT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOUAa1FZP/AAjU + X96b/wACrj/45R/wjUX96b/wKuP/AI5QBrUVk/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8A + jlAGtRWT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOUAa1FZP/AAjUX96b/wACrj/45R/w + jUX96b/wKuP/AI5QBwHj7/kM2f8A27/+j2r1WvH/ABvpiQataQgvtbyMlpZGbmZhw7MWHtgj + B5HNelf8I1F/em/8Crj/AOOUAa1FZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45QBrUVk + /wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjlAGtRWT/AMI1F/em/wDAq4/+OUf8I1F/em/8 + Crj/AOOUAa1FZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45QBrUVk/wDCNRf3pv8AwKuP + /jlH/CNRf3pv/Aq4/wDjlAGtRWT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOUAa1FZP8A + wjUX96b/AMCrj/45R/wjUX96b/wKuP8A45QBrUVk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4 + /wDjlAGtRWT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOUAa1FZP8AwjUX96b/AMCrj/45 + R/wjUX96b/wKuP8A45QBrUVk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjlAGtRWT/AMI1 + F/em/wDAq4/+OUf8I1F/em/8Crj/AOOUAa1FZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A + 45QBrUVk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjlAHK/Gv/AI84/wDr4X/0CSj4Kf8A + HnJ/18N/6BHVL4u6QllaI6GQkzqPnmlkH3H7O7DPHXGau/BT/jzk/wCvhv8A0COgD0CiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACvn/4W/wDIRg/7af8Aop6+gK+f/hb/AMhGD/tp + /wCinoA+gKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKAPKv+Zj/wA/8+teq15V/wAzH/n/AJ9a9VoAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP9G/5D11/17r/ACgr0CvP9G/5 + D11/17r/ACgoA9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigArz/41/wDHnH/18L/6BJXoFef/ABr/AOPOP/r4X/0CSgA+Cn/HnJ/18N/6BHXoFef/ + AAU/485P+vhv/QI69AoAK5T4pf8AIOn/AO2f/o1K6uuU+KX/ACDp/wDtn/6NSgDlfgZ/y9f9 + sf8A2pXqteVfAz/l6/7Y/wDtSvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigArz/41/wDHnH/18L/6BJXoFef/ABr/AOPOP/r4X/0CSgDqvCf/AB52 + 3/XvD/6Ata1ZPhP/AI87b/r3h/8AQFrWoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigDyrx9/yGbP8A7d//AEe1eq15V4+/5DNn/wBu + /wD6PavVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK + KACiiigAooooA8/+Nf8Ax5x/9fC/+gSUfBT/AI85P+vhv/QI6PjX/wAecf8A18L/AOgSUfBT + /jzk/wCvhv8A0COgD0CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvm/wZraaJdx3k + oYpHvyEALfMjKMZIHU+tfSFfP/wt/wCQjB/20/8ART0Aegf8Lrs/7k3/AHyn/wAco/4XXZ/3 + Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k + 3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUA + ef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXX + Z/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5 + N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8Ajleg + UUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ + /wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/ + AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV + 6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12 + f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7 + k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6 + BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hdd + n/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz + /uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6B + RQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8A + hddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ + ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAeFf8JrD/AGt/a+1/K9MLv/1Pl9N2Ovv0/Ku1/wCF + 12f9yb/vlP8A45WV/wAzH/n/AJ9a9VoA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9A + ooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C + 67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/c + m/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDH + K9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C6 + 7P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3 + Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK + 9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67 + P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOVy+n/EO3t9Tn1QrJ5UsQUABd+QIxyN2M + fIe57V7RXn+jf8h66/691/lBQAf8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn// + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/ + AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAcrl/iH8Q7fxJb + rbwrIGWUMS4UDAVh2Zufmr2ivP8A41/8ecf/AF8L/wCgSUAHwU/485P+vhv/AECOvQK8/wDg + p/x5yf8AXw3/AKBHXoFABXKfFL/kHT/9s/8A0aldXXKfFL/kHT/9s/8A0alAHmvw38aw+GPO + 89XbzfLx5YU/d3Zzll/vCu1/4XXZ/wByb/vlP/jlZXwM/wCXr/tj/wC1K9VoA8//AOF12f8A + cm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9A + ooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C + 67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/c + m/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDH + K9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C6 + 7P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3 + Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK + 9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67 + P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXX + Z/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xy + vQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/ + AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ + /wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAc + r0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOU + f8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12 + f9yb/vlP/jlcv8Q/iHb+JLdbeFZAyyhiXCgYCsOzNz81e0V5/wDGv/jzj/6+F/8AQJKAKWh/ + F20sLeG3dJS0USKSFTGVUA4y444q7/wuuz/uTf8AfKf/AByuq8J/8edt/wBe8P8A6Ata1AHn + /wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/ + AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3 + yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/ + APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9 + yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf9 + 8p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFA + Hn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8A + cm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8 + p/8AHKP+F12f9yb/AL5T/wCOV6BRQB4V4n8aw6rf2+oRq4jg8rcGChjskLnADEdDxyOa7X/h + ddn/AHJv++U/+OVlePv+QzZ/9u//AKPavVaAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4X + XZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH + /C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz// + AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3y + n/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8A + jlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDxf4h + /EO38SW628KyBllDEuFAwFYdmbn5q6j4Kf8AHnJ/18N/6BHR8a/+POP/AK+F/wDQJKPgp/x5 + yf8AXw3/AKBHQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/8Lf8AkIwf9tP/ + AEU9fQFfP/wt/wCQjB/20/8ART0AfQFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/Mx/5/59a9Vryr/mY/8/8APrXqtABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/o3/Ie + uv8Ar3X+UFegV5/o3/Ieuv8Ar3X+UFAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQK8/+Nf8Ax5x/9fC/+gSUAHwU + /wCPOT/r4b/0COvQK8/+Cn/HnJ/18N/6BHXoFABXKfFL/kHT/wDbP/0aldXXKfFL/kHT/wDb + P/0alAHK/Az/AJev+2P/ALUr1WvKvgZ/y9f9sf8A2pXqtABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/8a/8Ajzj/AOvhf/QJK9Arz/41/wDHnH/1 + 8L/6BJQB1XhP/jztv+veH/0Ba1qyfCf/AB523/XvD/6Ata1ABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVePv+QzZ/wDbv/6PavVa + 8q8ff8hmz/7d/wD0e1eq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQB5/8a/8Ajzj/AOvhf/QJKPgp/wAecn/Xw3/oEdHxr/484/8A + r4X/ANAko+Cn/HnJ/wBfDf8AoEdAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFf + P/wt/wCQjB/20/8ART19AV8//C3/AJCMH/bT/wBFPQB9AUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8zH/n/n1r1WvKv+Zj/z + /wA+teq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABXm9mkr65dCFlVvIXJdC4xth4wHTn3z+Hp6RXn+jf8h66/691/lBQB1X2a8/57Q/8A + gO//AMkUfZrz/ntD/wCA7/8AyRWtRQBk/Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJFa1F + AGT9mvP+e0P/AIDv/wDJFH2a8/57Q/8AgO//AMkVrUUAZP2a8/57Q/8AgO//AMkUfZrz/ntD + /wCA7/8AyRWtRQBk/Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJFa1FAGT9mvP+e0P/AIDv + /wDJFH2a8/57Q/8AgO//AMkVrUUAZP2a8/57Q/8AgO//AMkUfZrz/ntD/wCA7/8AyRWtRQBk + /Zrz/ntD/wCA7/8AyRR9mvP+e0P/AIDv/wDJFa1FAGT9mvP+e0P/AIDv/wDJFH2a8/57Q/8A + gO//AMkVrUUAZP2a8/57Q/8AgO//AMkUfZrz/ntD/wCA7/8AyRWtRQBk/Zrz/ntD/wCA7/8A + yRR9mvP+e0P/AIDv/wDJFa1FAGT9mvP+e0P/AIDv/wDJFH2a8/57Q/8AgO//AMkVrUUAZP2a + 8/57Q/8AgO//AMkVxHxdiuEtEMzxsvnrgJEyHOx+cmV+PbH4+vptef8Axr/484/+vhf/AECS + gA+Cn/HnJ/18N/6BHXoFef8AwU/485P+vhv/AECOvQKACuU+KX/IOn/7Z/8Ao1K6uuU+KX/I + On/7Z/8Ao1KAOV+Bn/L1/wBsf/aleq15V8DP+Xr/ALY/+1K9VoAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP/AI1/8ecf/Xwv/oElegV5/wDGv/jz + j/6+F/8AQJKANjwxb3ZtLcpLEF8iLAMDkgbBgEicZPvgfQVpfZrz/ntD/wCA7/8AyRR4T/48 + 7b/r3h/9AWtagDJ+zXn/AD2h/wDAd/8A5Io+zXn/AD2h/wDAd/8A5IrWooAyfs15/wA9of8A + wHf/AOSKPs15/wA9of8AwHf/AOSK1qKAMn7Nef8APaH/AMB3/wDkij7Nef8APaH/AMB3/wDk + itaigDJ+zXn/AD2h/wDAd/8A5Io+zXn/AD2h/wDAd/8A5IrWooAyfs15/wA9of8AwHf/AOSK + Ps15/wA9of8AwHf/AOSK1qKAMn7Nef8APaH/AMB3/wDkij7Nef8APaH/AMB3/wDkitaigDJ+ + zXn/AD2h/wDAd/8A5Io+zXn/AD2h/wDAd/8A5IrWooAyfs15/wA9of8AwHf/AOSKPs15/wA9 + of8AwHf/AOSK1qKAMn7Nef8APaH/AMB3/wDkij7Nef8APaH/AMB3/wDkitaigDJ+zXn/AD2h + /wDAd/8A5Io+zXn/AD2h/wDAd/8A5IrWooAyfs15/wA9of8AwHf/AOSKPs15/wA9of8AwHf/ + AOSK1qKAMn7Nef8APaH/AMB3/wDkij7Nef8APaH/AMB3/wDkitaigDJ+zXn/AD2h/wDAd/8A + 5Io+zXn/AD2h/wDAd/8A5IrWooAyfs15/wA9of8AwHf/AOSKPs15/wA9of8AwHf/AOSK1qKA + PH/G8cy6taCR0Mh8jayxsqj982MqZGJwevzDI44616V9mvP+e0P/AIDv/wDJFcB4+/5DNn/2 + 7/8Ao9q9VoAyfs15/wA9of8AwHf/AOSKPs15/wA9of8AwHf/AOSK1qKAMn7Nef8APaH/AMB3 + /wDkij7Nef8APaH/AMB3/wDkitaigDJ+zXn/AD2h/wDAd/8A5Io+zXn/AD2h/wDAd/8A5IrW + ooAyfs15/wA9of8AwHf/AOSKPs15/wA9of8AwHf/AOSK1qKAMn7Nef8APaH/AMB3/wDkij7N + ef8APaH/AMB3/wDkitaigDJ+zXn/AD2h/wDAd/8A5Io+zXn/AD2h/wDAd/8A5IrWooAyfs15 + /wA9of8AwHf/AOSKPs15/wA9of8AwHf/AOSK1qKAMn7Nef8APaH/AMB3/wDkij7Nef8APaH/ + AMB3/wDkitaigDJ+zXn/AD2h/wDAd/8A5Io+zXn/AD2h/wDAd/8A5IrWooAyfs15/wA9of8A + wHf/AOSKPs15/wA9of8AwHf/AOSK1qKAMn7Nef8APaH/AMB3/wDkij7Nef8APaH/AMB3/wDk + itaigDJ+zXn/AD2h/wDAd/8A5Io+zXn/AD2h/wDAd/8A5IrWooAyfs15/wA9of8AwHf/AOSK + Ps15/wA9of8AwHf/AOSK1qKAMn7Nef8APaH/AMB3/wDkij7Nef8APaH/AMB3/wDkitaigDzL + 4uxXCWiGZ42Xz1wEiZDnY/OTK/Htj8fW78FP+POT/r4b/wBAjo+Nf/HnH/18L/6BJR8FP+PO + T/r4b/0COgD0CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvn/AOFv/IRg/wC2n/op + 6+gK+f8A4W/8hGD/ALaf+inoA+gKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKAPKv+Zj/z/wA+teq15V/zMf8An/n1r1WgAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK8/wBG/wCQ + 9df9e6/ygr0CvP8ARv8AkPXX/Xuv8oKAPQKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAK8/wDjX/x5x/8AXwv/AKBJXoFef/Gv/jzj/wCvhf8A0CSg + A+Cn/HnJ/wBfDf8AoEdegV5/8FP+POT/AK+G/wDQI69AoAK5T4pf8g6f/tn/AOjUrq65T4pf + 8g6f/tn/AOjUoA5X4Gf8vX/bH/2pXqteVfAz/l6/7Y/+1K9VoAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP8A41/8ecf/AF8L/wCgSV6BXn/xr/48 + 4/8Ar4X/ANAkoA6rwn/x523/AF7w/wDoC1rVk+E/+PO2/wCveH/0Ba1qACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8q8ff8hmz/7d + /wD0e1eq15V4+/5DNn/27/8Ao9q9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigDz/AONf/HnH/wBfC/8AoElHwU/485P+vhv/AECO + j41/8ecf/Xwv/oElHwU/485P+vhv/QI6APQKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAK+f8A4W/8hGD/ALaf+inr6Ar5/wDhb/yEYP8Atp/6KegD6AooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8q/5mP/P/AD616rXl + X/Mx/wCf+fWvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigArzezsVvdcukcsAIFPySPGfuw90ZTjnpnFekV5/o3/Ieuv8Ar3X+UFAHVf8A + CNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8Ajla1FAGT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj + /wCOVrUUAZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5WtRQBk/8ACNRf3pv/AAKuP/jl + H/CNRf3pv/Aq4/8Ajla1FAGT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOVrUUAZP/AAjU + X96b/wACrj/45R/wjUX96b/wKuP/AI5WtRQBk/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8A + jla1FAGT/wAI1F/em/8AAq4/+OUf8I1F/em/8Crj/wCOVrUUAZP/AAjUX96b/wACrj/45R/w + jUX96b/wKuP/AI5WtRQBk/8ACNRf3pv/AAKuP/jlH/CNRf3pv/Aq4/8Ajla1FAGT/wAI1F/e + m/8AAq4/+OUf8I1F/em/8Crj/wCOVrUUAZP/AAjUX96b/wACrj/45R/wjUX96b/wKuP/AI5W + tRQBk/8ACNRf3pv/AAKuP/jlcR8XdISytEdDISZ1HzzSyD7j9ndhnjrjNem15/8AGv8A484/ + +vhf/QJKAD4Kf8ecn/Xw3/oEdegV5/8ABT/jzk/6+G/9Ajr0CgArlPil/wAg6f8A7Z/+jUrq + 65T4pf8AIOn/AO2f/o1KAOV+Bn/L1/2x/wDaleq15V8DP+Xr/tj/AO1K9VoAKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP/jX/AMecf/Xwv/oElegV + 5/8AGv8A484/+vhf/QJKANjwx4ejltLdy0uWgiJxczqOUHQCQAD2AwO1aX/CNRf3pv8AwKuP + /jlHhP8A487b/r3h/wDQFrWoAyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/ + vTf+BVx/8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcrWoo + Ayf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH + /wAcrWooAyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/vTf+BVx/8co/4RqL + +9N/4FXH/wAcrWooAyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/vTf+BVx/ + 8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/ + vTf+BVx/8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcrWoo + Ayf+Eai/vTf+BVx/8co/4RqL+9N/4FXH/wAcrWooAyf+Eai/vTf+BVx/8co/4RqL+9N/4FXH + /wAcrWooA8f8b6YkGrWkIL7W8jJaWRm5mYcOzFh7YIweRzXpX/CNRf3pv/Aq4/8AjlcB4+/5 + DNn/ANu//o9q9VoAyf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxytaigDJ/wCEai/vTf8A + gVcf/HKP+Eai/vTf+BVx/wDHK1qKAMn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcrWooA + yf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxytaigDJ/wCEai/vTf8AgVcf/HKP+Eai/vTf + +BVx/wDHK1qKAMn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcrWooAyf8AhGov703/AIFX + H/xyj/hGov703/gVcf8AxytaigDJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHK1qKAMn/ + AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcrWooAyf8AhGov703/AIFXH/xyj/hGov703/gV + cf8AxytaigDJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHK1qKAMn/AIRqL+9N/wCBVx/8 + co/4RqL+9N/4FXH/AMcrWooAyf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxytaigDJ/wCE + ai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHK1qKAPMvi7pCWVojoZCTOo+eaWQfcfs7sM8dcZq7 + 8FP+POT/AK+G/wDQI6PjX/x5x/8AXwv/AKBJR8FP+POT/r4b/wBAjoA9AooooAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAr5/+Fv/ACEYP+2n/op6+gK+b/Bmtpol3HeShike/IQAt8yM + oxkgdT60AfSFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn + /wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegU + V5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/f + Kf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV + 5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm + /wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf + 98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5 + /wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn + /cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3 + /fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAeg + UV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/ + AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8A + fKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB + 6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/ + 3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uT + f98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QBl + f8zH/n/n1r1WvCv+E1h/tb+19r+V6YXf/qfL6bsdffp+Vdr/AMLrs/7k3/fKf/HKAPQKK8// + AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8 + p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U + /wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/ + APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uT + f98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vl + P/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/ + AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k + 3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQK8/wBG/wCQ9df9e6/y + go/4XXZ/3Jv++U/+OVy+n/EO3t9Tn1QrJ5UsQUABd+QIxyN2MfIe57UAe0UV5/8A8Lrs/wC5 + N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAH + oFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ + /wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/ + AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOU + AegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12 + f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7 + k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUA + egV5/wDGv/jzj/6+F/8AQJKP+F12f9yb/vlP/jlcv8Q/iHb+JLdbeFZAyyhiXCgYCsOzNz81 + AHUfBT/jzk/6+G/9Ajr0CvP/AIKf8ecn/Xw3/oEdegUAFcp8Uv8AkHT/APbP/wBGpXV1ynxS + /wCQdP8A9s//AEalAHK/Az/l6/7Y/wDtSvVa8K+G/jWHwx53nq7eb5ePLCn7u7Ocsv8AeFdr + /wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF1 + 2f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8A + HKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDj + lH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhd + dn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4X + XZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH + /C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz// + AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3y + n/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8A + jlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A + 4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn + /wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/ + AOOUf8Lrs/7k3/fKf/HKAPQK8/8AjX/x5x/9fC/+gSUf8Lrs/wC5N/3yn/xyuX+IfxDt/Elu + tvCsgZZQxLhQMBWHZm5+agD1Lwn/AMedt/17w/8AoC1rV5lofxdtLC3ht3SUtFEikhUxlVAO + MuOOKu/8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD + 0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ + ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/ + AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0 + CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/u + Tf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9 + yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9 + Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wAL + rs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAMrx9/yGbP8A7d// + AEe1eq14V4n8aw6rf2+oRq4jg8rcGChjskLnADEdDxyOa7X/AIXXZ/3Jv++U/wDjlAHoFFef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/ + AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3J + v++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45QAfGv/jzj/6+F/8AQJKPgp/x5yf9fDf+gR1y/wAQ/iHb+JLdbeFZ + AyyhiXCgYCsOzNz81dR8FP8Ajzk/6+G/9AjoA9AooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAr5/8Ahb/yEYP+2n/op6+gK+f/AIW/8hGD/tp/6KegD6AooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8q/5mP8Az/z616rX + lX/Mx/5/59a9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACvP9G/5D11/17r/KCvQK8/0b/kPXX/Xuv8oKAPQKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK8/8AjX/x5x/9fC/+gSV6BXn/AMa/ + +POP/r4X/wBAkoAPgp/x5yf9fDf+gR16BXn/AMFP+POT/r4b/wBAjr0CgArlPil/yDp/+2f/ + AKNSurrlPil/yDp/+2f/AKNSgDlfgZ/y9f8AbH/2pXqteVfAz/l6/wC2P/tSvVaACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/wCNf/HnH/18L/6B + JXoFef8Axr/484/+vhf/AECSgDqvCf8Ax523/XvD/wCgLWtWT4T/AOPO2/694f8A0Ba1qACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + A8q8ff8AIZs/+3f/ANHtXqteVePv+QzZ/wDbv/6PavVaACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8/8AjX/x5x/9fC/+gSUfBT/j + zk/6+G/9Ajo+Nf8Ax5x/9fC/+gSUfBT/AI85P+vhv/QI6APQKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAK+f/AIW/8hGD/tp/6KevoCvn/wCFv/IRg/7af+inoA+gKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPKv+Zj/ + AM/8+teq15V/zMf+f+fWvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigArz/Rv+Q9df9e6/ygr0CvN7NJX1y6ELKreQuS6FxjbDxgOnPvn8 + PQA9IorJ+zXn/PaH/wAB3/8Akij7Nef89of/AAHf/wCSKANaisn7Nef89of/AAHf/wCSKPs1 + 5/z2h/8AAd//AJIoA1qKyfs15/z2h/8AAd//AJIo+zXn/PaH/wAB3/8AkigDWorJ+zXn/PaH + /wAB3/8Akij7Nef89of/AAHf/wCSKANaisn7Nef89of/AAHf/wCSKPs15/z2h/8AAd//AJIo + A1qKyfs15/z2h/8AAd//AJIo+zXn/PaH/wAB3/8AkigDWorJ+zXn/PaH/wAB3/8Akij7Nef8 + 9of/AAHf/wCSKANaisn7Nef89of/AAHf/wCSKPs15/z2h/8AAd//AJIoA1qKyfs15/z2h/8A + Ad//AJIo+zXn/PaH/wAB3/8AkigDWorJ+zXn/PaH/wAB3/8Akij7Nef89of/AAHf/wCSKANa + isn7Nef89of/AAHf/wCSKPs15/z2h/8AAd//AJIoA1qKyfs15/z2h/8AAd//AJIo+zXn/PaH + /wAB3/8AkigDWrz/AONf/HnH/wBfC/8AoEldV9mvP+e0P/gO/wD8kVxHxdiuEtEMzxsvnrgJ + EyHOx+cmV+PbH4+oBd+Cn/HnJ/18N/6BHXoFef8AwU/485P+vhv/AECOvQKACuU+KX/IOn/7 + Z/8Ao1K6uuU+KX/IOn/7Z/8Ao1KAOV+Bn/L1/wBsf/aleq15V8DP+Xr/ALY/+1K9VoAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP/AI1/8ecf/Xwv + /oElegV5/wDGv/jzj/6+F/8AQJKAOq8J/wDHnbf9e8P/AKAta1cv4Yt7s2luUliC+RFgGByQ + NgwCROMn3wPoK0vs15/z2h/8B3/+SKANaisn7Nef89of/Ad//kij7Nef89of/Ad//kigDWor + J+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5IoA1qKyfs15/z2h/8B3/+SKPs15/z2h/8B3/+SKAN + aisn7Nef89of/Ad//kij7Nef89of/Ad//kigDWorJ+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5I + oA1qKyfs15/z2h/8B3/+SKPs15/z2h/8B3/+SKANaisn7Nef89of/Ad//kij7Nef89of/Ad/ + /kigDWorJ+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5IoA1qKyfs15/z2h/8B3/+SKPs15/z2h/8 + B3/+SKANaisn7Nef89of/Ad//kij7Nef89of/Ad//kigDWorJ+zXn/PaH/wHf/5Io+zXn/Pa + H/wHf/5IoA1qKyfs15/z2h/8B3/+SKPs15/z2h/8B3/+SKANaisn7Nef89of/Ad//kij7Nef + 89of/Ad//kigDWorJ+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5IoA4Dx9/yGbP/ALd//R7V6rXj + /jeOZdWtBI6GQ+RtZY2VR++bGVMjE4PX5hkccda9K+zXn/PaH/wHf/5IoA1qKyfs15/z2h/8 + B3/+SKPs15/z2h/8B3/+SKANaisn7Nef89of/Ad//kij7Nef89of/Ad//kigDWorJ+zXn/Pa + H/wHf/5Io+zXn/PaH/wHf/5IoA1qKyfs15/z2h/8B3/+SKPs15/z2h/8B3/+SKANaisn7Nef + 89of/Ad//kij7Nef89of/Ad//kigDWorJ+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5IoA1qKyfs + 15/z2h/8B3/+SKPs15/z2h/8B3/+SKANaisn7Nef89of/Ad//kij7Nef89of/Ad//kigDWor + J+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5IoA1qKyfs15/z2h/8B3/+SKPs15/z2h/8B3/+SKAN + aisn7Nef89of/Ad//kij7Nef89of/Ad//kigDWorJ+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5I + oA1qKyfs15/z2h/8B3/+SKPs15/z2h/8B3/+SKANaisn7Nef89of/Ad//kij7Nef89of/Ad/ + /kigDlfjX/x5x/8AXwv/AKBJR8FP+POT/r4b/wBAjql8XYrhLRDM8bL564CRMhzsfnJlfj2x + +Prd+Cn/AB5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//AAt/ + 5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9AH0BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5V/zMf8An/n1r1WvKv8AmY/8/wDP + rXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAV5/o3/Ieuv+vdf5QV6BXn+jf8h66/691/lBQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/wAa/wDjzj/6+F/9Akr0CvP/AI1/8ecf/Xwv + /oElAB8FP+POT/r4b/0COvQK8/8Agp/x5yf9fDf+gR16BQAVynxS/wCQdP8A9s//AEaldXXK + fFL/AJB0/wD2z/8ARqUAcr8DP+Xr/tj/AO1K9Vryr4Gf8vX/AGx/9qV6rQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/ABr/AOPOP/r4X/0CSvQK + 8/8AjX/x5x/9fC/+gSUAdV4T/wCPO2/694f/AEBa1qyfCf8Ax523/XvD/wCgLWtQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlXj7 + /kM2f/bv/wCj2r1WvKvH3/IZs/8At3/9HtXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/ABr/AOPOP/r4X/0CSj4Kf8ecn/Xw + 3/oEdHxr/wCPOP8A6+F/9Ako+Cn/AB5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAV8//AAt/5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9AH0BRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5V/zMf8A + n/n1r1WvKv8AmY/8/wDPrXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAV5/o3/Ieuv+vdf5QV6BXm9nYre65dI5YAQKfkkeM/dh7oynHP + TOKAPSKKyf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxygDWorJ/wCEai/vTf8AgVcf/HKP + +Eai/vTf+BVx/wDHKANaisn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcoA1qKyf8AhGov + 703/AIFXH/xyj/hGov703/gVcf8AxygDWorJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDH + KANaisn/AIRqL+9N/wCBVx/8co/4RqL+9N/4FXH/AMcoA1qKyf8AhGov703/AIFXH/xyj/hG + ov703/gVcf8AxygDWorJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHKANaisn/AIRqL+9N + /wCBVx/8co/4RqL+9N/4FXH/AMcoA1qKyf8AhGov703/AIFXH/xyj/hGov703/gVcf8AxygD + WorJ/wCEai/vTf8AgVcf/HKP+Eai/vTf+BVx/wDHKANaisn/AIRqL+9N/wCBVx/8co/4RqL+ + 9N/4FXH/AMcoA1q8/wDjX/x5x/8AXwv/AKBJXVf8I1F/em/8Crj/AOOVxHxd0hLK0R0MhJnU + fPNLIPuP2d2GeOuM0AXfgp/x5yf9fDf+gR16BXn/AMFP+POT/r4b/wBAjr0CgArlPil/yDp/ + +2f/AKNSurrlPil/yDp/+2f/AKNSgDlfgZ/y9f8AbH/2pXqteVfAz/l6/wC2P/tSvVaACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/wCNf/HnH/18 + L/6BJXoFef8Axr/484/+vhf/AECSgDqvCf8Ax523/XvD/wCgLWtXL+GPD0ctpbuWly0EROLm + dRyg6ASAAewGB2rS/wCEai/vTf8AgVcf/HKANaisn/hGov703/gVcf8Axyj/AIRqL+9N/wCB + Vx/8coA1qKyf+Eai/vTf+BVx/wDHKP8AhGov703/AIFXH/xygDWorJ/4RqL+9N/4FXH/AMco + /wCEai/vTf8AgVcf/HKANaisn/hGov703/gVcf8Axyj/AIRqL+9N/wCBVx/8coA1qKyf+Eai + /vTf+BVx/wDHKP8AhGov703/AIFXH/xygDWorJ/4RqL+9N/4FXH/AMco/wCEai/vTf8AgVcf + /HKANaisn/hGov703/gVcf8Axyj/AIRqL+9N/wCBVx/8coA1qKyf+Eai/vTf+BVx/wDHKP8A + hGov703/AIFXH/xygDWorJ/4RqL+9N/4FXH/AMco/wCEai/vTf8AgVcf/HKANaisn/hGov70 + 3/gVcf8Axyj/AIRqL+9N/wCBVx/8coA1qKyf+Eai/vTf+BVx/wDHKP8AhGov703/AIFXH/xy + gDWorJ/4RqL+9N/4FXH/AMco/wCEai/vTf8AgVcf/HKANaisn/hGov703/gVcf8Axyj/AIRq + L+9N/wCBVx/8coA1qKyf+Eai/vTf+BVx/wDHKP8AhGov703/AIFXH/xygDgPH3/IZs/+3f8A + 9HtXqteP+N9MSDVrSEF9reRktLIzczMOHZiw9sEYPI5r0r/hGov703/gVcf/ABygDWorJ/4R + qL+9N/4FXH/xyj/hGov703/gVcf/ABygDWorJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/AByg + DWorJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABygDWorJ/4RqL+9N/4FXH/xyj/hGov703/g + Vcf/ABygDWorJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABygDWorJ/4RqL+9N/4FXH/xyj/h + Gov703/gVcf/ABygDWorJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABygDWorJ/4RqL+9N/4F + XH/xyj/hGov703/gVcf/ABygDWorJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABygDWorJ/4R + qL+9N/4FXH/xyj/hGov703/gVcf/ABygDWorJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/AByg + DWorJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABygDWorJ/4RqL+9N/4FXH/xyj/hGov703/g + Vcf/ABygDWorJ/4RqL+9N/4FXH/xyj/hGov703/gVcf/ABygDlfjX/x5x/8AXwv/AKBJR8FP + +POT/r4b/wBAjql8XdISytEdDISZ1HzzSyD7j9ndhnjrjNXfgp/x5yf9fDf+gR0AegUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/wDwt/5CMH/bT/0U9fQFfP8A8Lf+QjB/20/9 + FPQB9AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAUUUUAeVf8AMx/5/wCfWvVa8q/5mP8Az/z616rQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef6N/yHrr/r3X+UFegV5/o3/Ieuv+ + vdf5QUAegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AV5/8a/+POP/AK+F/wDQJK9Arz/41/8AHnH/ANfC/wDoElAB8FP+POT/AK+G/wDQI69Arz/4 + Kf8AHnJ/18N/6BHXoFABXKfFL/kHT/8AbP8A9GpXV1ynxS/5B0//AGz/APRqUAcr8DP+Xr/t + j/7Ur1WvKvgZ/wAvX/bH/wBqV6rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFef/Gv/jzj/wCvhf8A0CSvQK8/+Nf/AB5x/wDXwv8A6BJQB1XhP/jz + tv8Ar3h/9AWtasnwn/x523/XvD/6Ata1ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVePv+QzZ/8Abv8A+j2r1WvKvH3/ACGbP/t3 + /wDR7V6rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFAHn/xr/484/8Ar4X/ANAko+Cn/HnJ/wBfDf8AoEdHxr/484/+vhf/AECSj4Kf + 8ecn/Xw3/oEdAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfN/gzW00S7jvJQxS + PfkIAW+ZGUYyQOp9a+kK+f8A4W/8hGD/ALaf+inoA9A/4XXZ/wByb/vlP/jlH/C67P8AuTf9 + 8p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/ + AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8// + AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8 + p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U + /wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/ + APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uT + f98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vl + P/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/ + AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k + 3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP + /jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0Cig + Dz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5 + N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+ + U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigD + z/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/ + AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/ + 75T/AOOUf8Lrs/7k3/fKf/HK9AooA8K/4TWH+1v7X2v5Xphd/wDqfL6bsdffp+Vdr/wuuz/u + Tf8AfKf/ABysr/mY/wDP/PrXqtAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3J + v++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAe + f/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wBy + b/vlP/jlegUUAef/APC67P8AuTf98p/8crl9P+Idvb6nPqhWTypYgoAC78gRjkbsY+Q9z2r2 + ivP9G/5D11/17r/KCgA/4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv+ + +U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQ + KKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ + ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/ + AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQK + KAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/u + Tf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9 + yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlcv8AEP4h2/iS3W3hWQMs + oYlwoGArDszc/NXtFef/ABr/AOPOP/r4X/0CSgA+Cn/HnJ/18N/6BHXoFef/AAU/485P+vhv + /QI69AoAK5T4pf8AIOn/AO2f/o1K6uuU+KX/ACDp/wDtn/6NSgDzX4b+NYfDHneert5vl48s + Kfu7s5yy/wB4V2v/AAuuz/uTf98p/wDHKyvgZ/y9f9sf/aleq0Aef/8AC67P+5N/3yn/AMco + /wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC6 + 7P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/ + AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HK + P+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67 + P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U + /wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xy + j/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8A + C67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vl + P/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAc + o/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5// + AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP + /jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8A + xyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A + 8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+ + U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/ + 8crl/iH8Q7fxJbrbwrIGWUMS4UDAVh2Zufmr2ivP/jX/AMecf/Xwv/oElAFLQ/i7aWFvDbuk + paKJFJCpjKqAcZcccVd/4XXZ/wByb/vlP/jldV4T/wCPO2/694f/AEBa1qAPP/8Ahddn/cm/ + 75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA + 8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P + +5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv + ++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKA + PP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz + /uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv+ + +U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQ + KKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ + ALk3/fKf/HK9AooA8K8T+NYdVv7fUI1cRweVuDBQx2SFzgBiOh45HNdr/wALrs/7k3/fKf8A + xysrx9/yGbP/ALd//R7V6rQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwu + uz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/v + lP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8 + co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn// + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAeL/EP4h2/iS3W3hWQ + MsoYlwoGArDszc/NXUfBT/jzk/6+G/8AQI6PjX/x5x/9fC/+gSUfBT/jzk/6+G/9AjoA9Aoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/wDhb/yEYP8Atp/6KevoCvn/AOFv/IRg + /wC2n/op6APoCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigDyr/mY/8/8APrXqteVf8zH/AJ/59a9VoAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP8ARv8AkPXX/Xuv8oK9Arz/ + AEb/AJD11/17r/KCgD0CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig + AooooAKKKKACvP8A41/8ecf/AF8L/wCgSV6BXn/xr/484/8Ar4X/ANAkoAPgp/x5yf8AXw3/ + AKBHXoFef/BT/jzk/wCvhv8A0COvQKACuU+KX/IOn/7Z/wDo1K6uuU+KX/IOn/7Z/wDo1KAO + V+Bn/L1/2x/9qV6rXlXwM/5ev+2P/tSvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigArz/AONf/HnH/wBfC/8AoElegV5/8a/+POP/AK+F/wDQJKAO + q8J/8edt/wBe8P8A6Ata1ZPhP/jztv8Ar3h/9AWtagAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPKvH3/IZs/+3f8A9HtXqteVePv+ + QzZ/9u//AKPavVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooA8/wDjX/x5x/8AXwv/AKBJR8FP+POT/r4b/wBAjo+Nf/HnH/18L/6B + JR8FP+POT/r4b/0COgD0CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvn/AOFv/IRg + /wC2n/op6+gK+f8A4W/8hGD/ALaf+inoA+gKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPKv+Zj/z/wA+teq15V/zMf8An/n1r1Wg + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK8 + 3s0lfXLoQsqt5C5LoXGNsPGA6c++fw9PSK8/0b/kPXX/AF7r/KCgDqvs15/z2h/8B3/+SKPs + 15/z2h/8B3/+SK1qKAMn7Nef89of/Ad//kij7Nef89of/Ad//kitaigDJ+zXn/PaH/wHf/5I + o+zXn/PaH/wHf/5IrWooAyfs15/z2h/8B3/+SKPs15/z2h/8B3/+SK1qKAMn7Nef89of/Ad/ + /kij7Nef89of/Ad//kitaigDJ+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5IrWooAyfs15/z2h/8 + B3/+SKPs15/z2h/8B3/+SK1qKAMn7Nef89of/Ad//kij7Nef89of/Ad//kitaigDJ+zXn/Pa + H/wHf/5Io+zXn/PaH/wHf/5IrWooAyfs15/z2h/8B3/+SKPs15/z2h/8B3/+SK1qKAMn7Nef + 89of/Ad//kij7Nef89of/Ad//kitaigDJ+zXn/PaH/wHf/5Io+zXn/PaH/wHf/5IrWooAyfs + 15/z2h/8B3/+SK4j4uxXCWiGZ42Xz1wEiZDnY/OTK/Htj8fX02vP/jX/AMecf/Xwv/oElAB8 + FP8Ajzk/6+G/9Ajr0CvP/gp/x5yf9fDf+gR16BQAVynxS/5B0/8A2z/9GpXV1ynxS/5B0/8A + 2z/9GpQByvwM/wCXr/tj/wC1K9Vryr4Gf8vX/bH/ANqV6rQAUUUUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQK8/+Nf8Ax5x/ + 9fC/+gSUAbHhi3uzaW5SWIL5EWAYHJA2DAJE4yffA+grS+zXn/PaH/wHf/5Io8J/8edt/wBe + 8P8A6Ata1AGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZr + z/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO/ + /wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP + +e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1 + FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4D + v/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZr + z/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO/ + /wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAHj/jeO + ZdWtBI6GQ+RtZY2VR++bGVMjE4PX5hkccda9K+zXn/PaH/wHf/5IrgPH3/IZs/8At3/9HtXq + tAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4D + v/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZr + z/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO/ + /wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP + +e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1 + FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4D + v/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZr + z/ntD/4Dv/8AJFa1FAGT9mvP+e0P/gO//wAkUfZrz/ntD/4Dv/8AJFa1FAHmXxdiuEtEMzxs + vnrgJEyHOx+cmV+PbH4+t34Kf8ecn/Xw3/oEdHxr/wCPOP8A6+F/9Ako+Cn/AB5yf9fDf+gR + 0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//AAt/5CMH/bT/ANFPX0BXz/8A + C3/kIwf9tP8A0U9AH0BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQB5V/zMf8An/n1r1WvKv8AmY/8/wDPrXqtABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/o3/Ieuv+vdf5QV + 6BXn+jf8h66/691/lBQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABXn/wAa/wDjzj/6+F/9Akr0CvP/AI1/8ecf/Xwv/oElAB8FP+POT/r4b/0C + OvQK8/8Agp/x5yf9fDf+gR16BQAVynxS/wCQdP8A9s//AEaldXXKfFL/AJB0/wD2z/8ARqUA + cr8DP+Xr/tj/AO1K9Vryr4Gf8vX/AGx/9qV6rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFef/ABr/AOPOP/r4X/0CSvQK8/8AjX/x5x/9fC/+gSUA + dV4T/wCPO2/694f/AEBa1qyfCf8Ax523/XvD/wCgLWtQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlXj7/kM2f/bv/wCj2r1WvKvH + 3/IZs/8At3/9HtXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAef/ABr/AOPOP/r4X/0CSj4Kf8ecn/Xw3/oEdHxr/wCPOP8A6+F/ + 9Ako+Cn/AB5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//AAt/ + 5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9AH0BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5V/zMf8An/n1r1WvKv8AmY/8/wDP + rXqtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAV5vZ2K3uuXSOWAECn5JHjP3Ye6Mpxz0zivSK8/wBG/wCQ9df9e6/ygoA6r/hGov703/gV + cf8Axyj/AIRqL+9N/wCBVx/8crWooAyf+Eai/vTf+BVx/wDHKP8AhGov703/AIFXH/xytaig + DJ/4RqL+9N/4FXH/AMco/wCEai/vTf8AgVcf/HK1qKAMn/hGov703/gVcf8Axyj/AIRqL+9N + /wCBVx/8crWooAyf+Eai/vTf+BVx/wDHKP8AhGov703/AIFXH/xytaigDJ/4RqL+9N/4FXH/ + AMco/wCEai/vTf8AgVcf/HK1qKAMn/hGov703/gVcf8Axyj/AIRqL+9N/wCBVx/8crWooAyf + +Eai/vTf+BVx/wDHKP8AhGov703/AIFXH/xytaigDJ/4RqL+9N/4FXH/AMco/wCEai/vTf8A + gVcf/HK1qKAMn/hGov703/gVcf8Axyj/AIRqL+9N/wCBVx/8crWooAyf+Eai/vTf+BVx/wDH + KP8AhGov703/AIFXH/xytaigDJ/4RqL+9N/4FXH/AMco/wCEai/vTf8AgVcf/HK1qKAMn/hG + ov703/gVcf8AxyuI+LukJZWiOhkJM6j55pZB9x+zuwzx1xmvTa8/+Nf/AB5x/wDXwv8A6BJQ + AfBT/jzk/wCvhv8A0COvQK8/+Cn/AB5yf9fDf+gR16BQAVynxS/5B0//AGz/APRqV1dcp8Uv + +QdP/wBs/wD0alAHK/Az/l6/7Y/+1K9Vryr4Gf8AL1/2x/8Aaleq0AFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/xr/484/8Ar4X/ANAkr0CvP/jX + /wAecf8A18L/AOgSUAbHhjw9HLaW7lpctBETi5nUcoOgEgAHsBgdq0v+Eai/vTf+BVx/8co8 + J/8AHnbf9e8P/oC1rUAZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45WtRQBk/8I1F/em/ + 8Crj/wCOUf8ACNRf3pv/AAKuP/jla1FAGT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OVr + UUAZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45WtRQBk/8I1F/em/8Crj/wCOUf8ACNRf + 3pv/AAKuP/jla1FAGT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OVrUUAZP/CNRf3pv/Aq + 4/8AjlH/AAjUX96b/wACrj/45WtRQBk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jla1FA + GT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OVrUUAZP/CNRf3pv/Aq4/8AjlH/AAjUX96b + /wACrj/45WtRQBk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jla1FAGT/wjUX96b/wKuP/ + AI5R/wAI1F/em/8AAq4/+OVrUUAZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45WtRQBk/ + 8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jla1FAHj/jfTEg1a0hBfa3kZLSyM3MzDh2YsPb + BGDyOa9K/wCEai/vTf8AgVcf/HK4Dx9/yGbP/t3/APR7V6rQBk/8I1F/em/8Crj/AOOUf8I1 + F/em/wDAq4/+OVrUUAZP/CNRf3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jla1FAGT/wjUX96b/wK + uP8A45R/wjUX96b/AMCrj/45WtRQBk/8I1F/em/8Crj/AOOUf8I1F/em/wDAq4/+OVrUUAZP + /CNRf3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jla1FAGT/wjUX96b/wKuP8A45R/wjUX96b/AMCr + j/45WtRQBk/8I1F/em/8Crj/AOOUf8I1F/em/wDAq4/+OVrUUAZP/CNRf3pv/Aq4/wDjlH/C + NRf3pv8AwKuP/jla1FAGT/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45WtRQBk/8I1F/em/8 + Crj/AOOUf8I1F/em/wDAq4/+OVrUUAZP/CNRf3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jla1FAG + T/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45WtRQBk/8I1F/em/8Crj/AOOUf8I1F/em/wDA + q4/+OVrUUAZP/CNRf3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jla1FAHmXxd0hLK0R0MhJnUfPNL + IPuP2d2GeOuM1d+Cn/HnJ/18N/6BHR8a/wDjzj/6+F/9Ako+Cn/HnJ/18N/6BHQB6BRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/wDC3/kIwf8AbT/0U9fQFfN/gzW00S7jvJQx + SPfkIAW+ZGUYyQOp9aAPpCivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF1 + 2f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8A + HKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDj + lH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhd + dn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4X + XZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH + /C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz// + AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3y + n/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8A + jlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A + 4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn + /wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/ + AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A + +F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/ + 3yn/AMcoAyv+Zj/z/wA+teq14V/wmsP9rf2vtfyvTC7/APU+X03Y6+/T8q7X/hddn/cm/wC+ + U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/ + 8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8 + Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/ + 75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf + /HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5/ + /wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv + ++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/ + AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BXn + +jf8h66/691/lBR/wuuz/uTf98p/8crl9P8AiHb2+pz6oVk8qWIKAAu/IEY5G7GPkPc9qAPa + KK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8A + uTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8A + vlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQK + K8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N + /wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3J + v++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0C + ivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuu + z/uTf98p/wDHKAPQK8/+Nf8Ax5x/9fC/+gSUf8Lrs/7k3/fKf/HK5f4h/EO38SW628KyBllD + EuFAwFYdmbn5qAOo+Cn/AB5yf9fDf+gR16BXn/wU/wCPOT/r4b/0COvQKACuU+KX/IOn/wC2 + f/o1K6uuU+KX/IOn/wC2f/o1KAOV+Bn/AC9f9sf/AGpXqteFfDfxrD4Y87z1dvN8vHlhT93d + nOWX+8K7X/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAH + oFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ + /wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/ + AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOU + AegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12 + f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7 + k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUA + egUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hdd + n/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz + /uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAe + gUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8A + hddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ + ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCO + UAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/h + ddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/u + Tf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFef/Gv/AI84/wDr4X/0CSj/AIXXZ/3Jv++U/wDj + lcv8Q/iHb+JLdbeFZAyyhiXCgYCsOzNz81AHqXhP/jztv+veH/0Ba1q8y0P4u2lhbw27pKWi + iRSQqYyqgHGXHHFXf+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP + /jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8A + xyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A + 8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+ + U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/ + 8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8 + Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/ + 75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf + /HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAZXj7/k + M2f/AG7/APo9q9VrwrxP41h1W/t9QjVxHB5W4MFDHZIXOAGI6Hjkc12v/C67P+5N/wB8p/8A + HKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDj + lH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhd + dn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4X + XZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH + /C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz// + AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygA+Nf8Ax5x/9fC/+gSUfBT/AI85P+vhv/QI65f4 + h/EO38SW628KyBllDEuFAwFYdmbn5q6j4Kf8ecn/AF8N/wCgR0AegUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAV8//C3/AJCMH/bT/wBFPX0BXz/8Lf8AkIwf9tP/AEU9AH0BRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + B5V/zMf+f+fWvVa8q/5mP/P/AD616rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFef6N/yHrr/AK91/lBXoFef6N/yHrr/AK91/lBQB6BR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/xr/wCP + OP8A6+F/9Akr0CvP/jX/AMecf/Xwv/oElAB8FP8Ajzk/6+G/9Ajr0CvP/gp/x5yf9fDf+gR1 + 6BQAVynxS/5B0/8A2z/9GpXV1ynxS/5B0/8A2z/9GpQByvwM/wCXr/tj/wC1K9Vryr4Gf8vX + /bH/ANqV6rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFef/Gv/AI84/wDr4X/0CSvQK8/+Nf8Ax5x/9fC/+gSUAdV4T/487b/r3h/9AWtasnwn/wAe + dt/17w/+gLWtQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAUUUUAFFFFAHlXj7/kM2f8A27/+j2r1WvKvH3/IZs/+3f8A9HtXqtABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/Gv/AI84 + /wDr4X/0CSj4Kf8AHnJ/18N/6BHR8a/+POP/AK+F/wDQJKPgp/x5yf8AXw3/AKBHQB6BRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/8Lf8AkIwf9tP/AEU9fQFfP/wt/wCQjB/2 + 0/8ART0AfQFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFAHlX/Mx/5/59a9Vryr/mY/8/8APrXqtABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/o3/Ieuv8Ar3X+UFegV5vZpK+u + XQhZVbyFyXQuMbYeMB0598/h6AHpFFZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kUAa1FZP + 2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kUAa1FZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8 + kUAa1FZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kUAa1FZP2a8/57Q/+A7/APyRR9mvP+e0 + P/gO/wD8kUAa1FZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kUAa1FZP2a8/57Q/+A7/APyR + R9mvP+e0P/gO/wD8kUAa1FZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kUAa1FZP2a8/57Q/ + +A7/APyRR9mvP+e0P/gO/wD8kUAa1FZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kUAa1FZP + 2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8kUAa1FZP2a8/57Q/+A7/APyRR9mvP+e0P/gO/wD8 + kUAa1ef/ABr/AOPOP/r4X/0CSuq+zXn/AD2h/wDAd/8A5IriPi7FcJaIZnjZfPXASJkOdj85 + Mr8e2Px9QC78FP8Ajzk/6+G/9Ajr0CvP/gp/x5yf9fDf+gR16BQAVynxS/5B0/8A2z/9GpXV + 1ynxS/5B0/8A2z/9GpQByvwM/wCXr/tj/wC1K9Vryr4Gf8vX/bH/ANqV6rQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQ + K8/+Nf8Ax5x/9fC/+gSUAdV4T/487b/r3h/9AWtauX8MW92bS3KSxBfIiwDA5IGwYBInGT74 + H0FaX2a8/wCe0P8A4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBr + UVk/Zrz/AJ7Q/wDgO/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8 + /wCe0P8A4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/ + AJ7Q/wDgO/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8/wCe0P8A + 4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/AJ7Q/wDg + O/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8/wCe0P8A4Dv/APJF + AGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/AJ7Q/wDgO/8A8kUf + Zrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8/wCe0P8A4Dv/APJFAGtRWT9m + vP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/AJ7Q/wDgO/8A8kUfZrz/AJ7Q + /wDgO/8A8kUAcB4+/wCQzZ/9u/8A6PavVa8f8bxzLq1oJHQyHyNrLGyqP3zYypkYnB6/MMjj + jrXpX2a8/wCe0P8A4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBr + UVk/Zrz/AJ7Q/wDgO/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8 + /wCe0P8A4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/ + AJ7Q/wDgO/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8/wCe0P8A + 4Dv/APJFAGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/AJ7Q/wDg + O/8A8kUfZrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8/wCe0P8A4Dv/APJF + AGtRWT9mvP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/AJ7Q/wDgO/8A8kUf + Zrz/AJ7Q/wDgO/8A8kUAa1FZP2a8/wCe0P8A4Dv/APJFH2a8/wCe0P8A4Dv/APJFAGtRWT9m + vP8AntD/AOA7/wDyRR9mvP8AntD/AOA7/wDyRQBrUVk/Zrz/AJ7Q/wDgO/8A8kUfZrz/AJ7Q + /wDgO/8A8kUAcr8a/wDjzj/6+F/9Ako+Cn/HnJ/18N/6BHVL4uxXCWiGZ42Xz1wEiZDnY/OT + K/Htj8fW78FP+POT/r4b/wBAjoA9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/ + +Fv/ACEYP+2n/op6+gK+f/hb/wAhGD/tp/6KegD6AooooAKKKKACiiigAooooAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8q/wCZj/z/AM+teq15V/zMf+f+ + fWvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigArz/Rv+Q9df8AXuv8oK9Arz/Rv+Q9df8AXuv8oKAPQKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAK8/+Nf/AB5x/wDXwv8A6BJXoFef/Gv/AI84 + /wDr4X/0CSgA+Cn/AB5yf9fDf+gR16BXn/wU/wCPOT/r4b/0COvQKACuU+KX/IOn/wC2f/o1 + K6uuU+KX/IOn/wC2f/o1KAOV+Bn/AC9f9sf/AGpXqteVfAz/AJev+2P/ALUr1WgAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK8/+Nf/AB5x/wDXwv8A + 6BJXoFef/Gv/AI84/wDr4X/0CSgDqvCf/Hnbf9e8P/oC1rVk+E/+PO2/694f/QFrWoAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDyr + x9/yGbP/ALd//R7V6rXlXj7/AJDNn/27/wDo9q9VoAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/41/8AHnH/ANfC/wDoElHwU/48 + 5P8Ar4b/ANAjo+Nf/HnH/wBfC/8AoElHwU/485P+vhv/AECOgD0CiiigAooooAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACvn/4W/8AIRg/7af+inr6Ar5/+Fv/ACEYP+2n/op6APoCiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDyr/ + AJmP/P8Az616rXlX/Mx/5/59a9VoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACvP9G/5D11/wBe6/ygr0CvN7OxW91y6RywAgU/JI8Z+7D3 + RlOOemcUAekUVk/8I1F/em/8Crj/AOOUf8I1F/em/wDAq4/+OUAa1FZP/CNRf3pv/Aq4/wDj + lH/CNRf3pv8AwKuP/jlAGtRWT/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45QBrUVk/8I1F/ + em/8Crj/AOOUf8I1F/em/wDAq4/+OUAa1FZP/CNRf3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jlA + GtRWT/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45QBrUVk/8I1F/em/8Crj/AOOUf8I1F/em + /wDAq4/+OUAa1FZP/CNRf3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jlAGtRWT/wjUX96b/wKuP8A + 45R/wjUX96b/AMCrj/45QBrUVk/8I1F/em/8Crj/AOOUf8I1F/em/wDAq4/+OUAa1FZP/CNR + f3pv/Aq4/wDjlH/CNRf3pv8AwKuP/jlAGtRWT/wjUX96b/wKuP8A45R/wjUX96b/AMCrj/45 + QBrV5/8AGv8A484/+vhf/QJK6r/hGov703/gVcf/AByuI+LukJZWiOhkJM6j55pZB9x+zuwz + x1xmgC78FP8Ajzk/6+G/9Ajr0CvP/gp/x5yf9fDf+gR16BQAVynxS/5B0/8A2z/9GpXV1ynx + S/5B0/8A2z/9GpQByvwM/wCXr/tj/wC1K9Vryr4Gf8vX/bH/ANqV6rQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQK8/+ + Nf8Ax5x/9fC/+gSUAdV4T/487b/r3h/9AWtauX8MeHo5bS3ctLloIicXM6jlB0AkAA9gMDtW + l/wjUX96b/wKuP8A45QBrUVk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjlAGtRWT/AMI1 + F/em/wDAq4/+OUf8I1F/em/8Crj/AOOUAa1FZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A + 45QBrUVk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjlAGtRWT/AMI1F/em/wDAq4/+OUf8 + I1F/em/8Crj/AOOUAa1FZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45QBrUVk/wDCNRf3 + pv8AwKuP/jlH/CNRf3pv/Aq4/wDjlAGtRWT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOU + Aa1FZP8AwjUX96b/AMCrj/45R/wjUX96b/wKuP8A45QBrUVk/wDCNRf3pv8AwKuP/jlH/CNR + f3pv/Aq4/wDjlAGtRWT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOUAa1FZP8AwjUX96b/ + AMCrj/45R/wjUX96b/wKuP8A45QBrUVk/wDCNRf3pv8AwKuP/jlH/CNRf3pv/Aq4/wDjlAGt + RWT/AMI1F/em/wDAq4/+OUf8I1F/em/8Crj/AOOUAcB4+/5DNn/27/8Ao9q9Vrx/xvpiQata + QgvtbyMlpZGbmZhw7MWHtgjB5HNelf8ACNRf3pv/AAKuP/jlAGtRWT/wjUX96b/wKuP/AI5R + /wAI1F/em/8AAq4/+OUAa1FZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45QBrUVk/8I1F + /em/8Crj/wCOUf8ACNRf3pv/AAKuP/jlAGtRWT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/ + +OUAa1FZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45QBrUVk/8I1F/em/8Crj/wCOUf8A + CNRf3pv/AAKuP/jlAGtRWT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OUAa1FZP/CNRf3p + v/Aq4/8AjlH/AAjUX96b/wACrj/45QBrUVk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jl + AGtRWT/wjUX96b/wKuP/AI5R/wAI1F/em/8AAq4/+OUAa1FZP/CNRf3pv/Aq4/8AjlH/AAjU + X96b/wACrj/45QBrUVk/8I1F/em/8Crj/wCOUf8ACNRf3pv/AAKuP/jlAGtRWT/wjUX96b/w + KuP/AI5R/wAI1F/em/8AAq4/+OUAa1FZP/CNRf3pv/Aq4/8AjlH/AAjUX96b/wACrj/45QBy + vxr/AOPOP/r4X/0CSj4Kf8ecn/Xw3/oEdUvi7pCWVojoZCTOo+eaWQfcfs7sM8dcZq78FP8A + jzk/6+G/9AjoA9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/8Ahb/yEYP+2n/o + p6+gK+f/AIW/8hGD/tp/6KegD6AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooA8q/5mP8Az/z616rXlX/Mx/5/59a9VoAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP9G/5D11/1 + 7r/KCvQK8/0b/kPXX/Xuv8oKAPQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAK8/8AjX/x5x/9fC/+gSV6BXn/AMa/+POP/r4X/wBAkoAPgp/x5yf9 + fDf+gR16BXn/AMFP+POT/r4b/wBAjr0CgArlPil/yDp/+2f/AKNSurrlPil/yDp/+2f/AKNS + gDlfgZ/y9f8AbH/2pXqteVfAz/l6/wC2P/tSvVaACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigArz/wCNf/HnH/18L/6BJXoFef8Axr/484/+vhf/AECS + gDqvCf8Ax523/XvD/wCgLWtWT4T/AOPO2/694f8A0Ba1qACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA8q8ff8AIZs/+3f/ANHtXqte + VePv+QzZ/wDbv/6PavVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooA8/8AjX/x5x/9fC/+gSUfBT/jzk/6+G/9Ajo+Nf8Ax5x/9fC/ + +gSUfBT/AI85P+vhv/QI6APQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+ZdA1t9 + EnS8iCl492A4JX5lKnOCD0PrX01WT/widn/z7w/9+U/+JoA8q/4XXef3If8Avl//AI5R/wAL + rvP7kP8A3y//AMcr1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/AN+U/wDiaAPKv+F13n9yH/vl + /wD45R/wuu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35T/4mgDyr/hdd5/ch + /wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJo + A8q/4XXef3If++X/APjlH/C67z+5D/3y/wD8cr1X/hE7P/n3h/78p/8AE0f8InZ/8+8P/flP + /iaAPKv+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/ + AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxyvVf+ETs/+feH/vyn/wAT + R/widn/z7w/9+U/+JoA8q/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcr1X/hE7P/AJ94 + f+/Kf/E0f8InZ/8APvD/AN+U/wDiaAPKv+F13n9yH/vl/wD45R/wuu8/uQ/98v8A/HK9V/4R + Oz/594f+/Kf/ABNH/CJ2f/PvD/35T/4mgDyr/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8A + xyvVf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJoA8q/4XXef3If++X/APjlH/C67z+5 + D/3y/wD8cr1X/hE7P/n3h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f/wCOUf8A + C67z+5D/AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/7 + 5f8A+OUf8LrvP7kP/fL/APxyvVf+ETs/+feH/vyn/wATR/widn/z7w/9+U/+JoA8q/4XXef3 + If8Avl//AI5R/wALrvP7kP8A3y//AMcr1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/AN+U/wDi + aAPKv+F13n9yH/vl/wD45R/wuu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35 + T/4mgDyr/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/8TR/widn + /wA+8P8A35T/AOJoA8q/4XXef3If++X/APjlH/C67z+5D/3y/wD8cr1X/hE7P/n3h/78p/8A + E0f8InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHK9V/4ROz/wCf + eH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxyvVf+ + ETs/+feH/vyn/wATR/widn/z7w/9+U/+JoA8q/4XXef3If8Avl//AI5R/wALrvP7kP8A3y// + AMcr1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/AN+U/wDiaAPKv+F13n9yH/vl/wD45R/wuu8/ + uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35T/4mgDyr/hdd5/ch/wC+X/8AjlH/ + AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJoA8q/4XXef3If + ++X/APjlH/C67z+5D/3y/wD8cr1X/hE7P/n3h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+F13n + 9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A + 4mgDyr/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxyvVf+ETs/+feH/vyn/wATR/widn/z7w/9 + +U/+JoA8q/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcr1X/hE7P/AJ94f+/Kf/E0f8In + Z/8APvD/AN+U/wDiaAPKv+F13n9yH/vl/wD45R/wuu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ + ABNH/CJ2f/PvD/35T/4mgDyr/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8A + n3h/78p/8TR/widn/wA+8P8A35T/AOJoA8q/4XXef3If++X/APjlH/C67z+5D/3y/wD8cr1X + /hE7P/n3h/78p/8AE0f8InZ/8+8P/flP/iaAPC/+E1m+2/2vtTzfTDbP9X5fTdnp79fyrf8A + +F13n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A + 3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C6 + 7z+5D/3y/wD8co/4XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNA + HlX/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94 + f+/Kf/E0AeVf8LrvP7kP/fL/APxyj/hdd5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7 + P/n3h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/fl + P/iaP+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jleq/8ACJ2f/PvD + /wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A3y//AMco/wCF13n9yH/vl/8A45Xq + v/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C67z+5D/3y/wD8co/4XXef3If++X/+ + OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNAHlX/AAuu8/uQ/wDfL/8Axyj/AIXX + ef3If++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E0AeVf8LrvP7kP/fL/APxy + j/hdd5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE0AeVf8AC67z+5D/ + AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/w + uu8/uQ/98v8A/HKP+F13n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wAT + QB5V/wALrvP7kP8A3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCf + eH/vyn/xNAHlX/C67z+5D/3y/wD8crHtviHcW93JqgWPzZUCkENswAo4G7OfkHc969t/4ROz + /wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxy + vVf+ETs/+feH/vyn/wATR/widn/z7w/9+U/+JoA8q/4XXef3If8Avl//AI5R/wALrvP7kP8A + 3y//AMcr1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/AN+U/wDiaAPKv+F13n9yH/vl/wD45R/w + uu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35T/4mgDyr/hdd5/ch/wC+X/8A + jlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJoA8q/4XXe + f3If++X/APjlH/C67z+5D/3y/wD8cr1X/hE7P/n3h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+ + F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDf + lP8A4mgDyr/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxyvVf+ETs/+feH/vyn/wATR/widn/z + 7w/9+U/+JoA8q/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcr1X/hE7P/AJ94f+/Kf/E0 + f8InZ/8APvD/AN+U/wDiaAPKv+F13n9yH/vl/wD45R/wuu8/uQ/98v8A/HK9V/4ROz/594f+ + /Kf/ABNH/CJ2f/PvD/35T/4mgDyr/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ET + s/8An3h/78p/8TR/widn/wA+8P8A35T/AOJoA8q/4XXef3If++X/APjlH/C67z+5D/3y/wD8 + cr1X/hE7P/n3h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f/wCOUf8AC67z+5D/ + AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OVj + +KPiHceJIhbzLGFVwwKBgcgEd2bj5q9t/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8A + iaAOV+Cn/HnJ/wBfDf8AoEdegVXstOisF2QoqKTkhFCjPTOABzxVigArlPil/wAg6f8A7Z/+ + jUrq6hurRLtTFKquhxlXAZTg5GQeOtAHz34U8azeGPM8hUbzdufMDH7ucYwy/wB41v8A/C67 + z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/ + 75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13 + n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8A + iaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8 + P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8A + CJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/7 + 8p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+ + feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDx + yvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8 + v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOU + f8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl/ + /jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8A + hdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/flP/ia + APKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD + /wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/w + idn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p + /wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs + /wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V + /wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7k + P/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlH/C67 + z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/ + 75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13 + n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8A + iaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8 + P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8A + CJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/7 + 8p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+ + feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDx + yvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlY/ij4h3HiSIW8 + yxhVcMCgYHIBHdm4+avbf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJoA8i074u3dhEl + uiRFYkVQSr5woAGcOOeKsf8AC67z+5D/AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/AD7w + /wDflP8A4mgDyr/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxyvVf+ETs/+feH/vyn/wATR/wi + dn/z7w/9+U/+JoA8q/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcr1X/hE7P/AJ94f+/K + f/E0f8InZ/8APvD/AN+U/wDiaAPKv+F13n9yH/vl/wD45R/wuu8/uQ/98v8A/HK9V/4ROz/5 + 94f+/Kf/ABNH/CJ2f/PvD/35T/4mgDyr/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvV + f+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJoA8q/4XXef3If++X/APjlH/C67z+5D/3y + /wD8cr1X/hE7P/n3h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f/wCOUf8AC67z + +5D/AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A + +OUf8LrvP7kP/fL/APxyvVf+ETs/+feH/vyn/wATR/widn/z7w/9+U/+JoA8q/4XXef3If8A + vl//AI5R/wALrvP7kP8A3y//AMcr1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/AN+U/wDiaAPK + v+F13n9yH/vl/wD45R/wuu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35T/4m + gDyr/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/8TR/widn/wA+ + 8P8A35T/AOJoA8q/4XXef3If++X/APjlH/C67z+5D/3y/wD8cr1X/hE7P/n3h/78p/8AE0f8 + InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHK9V/4ROz/wCfeH/v + yn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxyvVf+ETs/ + +feH/vyn/wATR/widn/z7w/9+U/+JoA8q/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcr + 1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/AN+U/wDiaAPC9X8azarcxahIqCSDZtChgp2OXGQW + J6nnkcVv/wDC67z+5D/3y/8A8cr1X/hE7P8A594f+/Kf/E0f8InZ/wDPvD/35T/4mgDyr/hd + d5/ch/75f/45R/wuu8/uQ/8AfL//AByvVf8AhE7P/n3h/wC/Kf8AxNH/AAidn/z7w/8AflP/ + AImgDyr/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8cr1X/hE7P8A594f+/Kf/E0f8InZ/wDP + vD/35T/4mgDyr/hdd5/ch/75f/45R/wuu8/uQ/8AfL//AByvVf8AhE7P/n3h/wC/Kf8AxNH/ + AAidn/z7w/8AflP/AImgDyr/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8cr1X/hE7P8A594f + +/Kf/E0f8InZ/wDPvD/35T/4mgDyr/hdd5/ch/75f/45R/wuu8/uQ/8AfL//AByvVf8AhE7P + /n3h/wC/Kf8AxNH/AAidn/z7w/8AflP/AImgDyr/AIXXef3If++X/wDjlH/C67z+5D/3y/8A + 8cr1X/hE7P8A594f+/Kf/E0f8InZ/wDPvD/35T/4mgDyr/hdd5/ch/75f/45R/wuu8/uQ/8A + fL//AByvVf8AhE7P/n3h/wC/Kf8AxNH/AAidn/z7w/8AflP/AImgDyr/AIXXef3If++X/wDj + lH/C67z+5D/3y/8A8cr1X/hE7P8A594f+/Kf/E0f8InZ/wDPvD/35T/4mgDyr/hdd5/ch/75 + f/45R/wuu8/uQ/8AfL//AByvVf8AhE7P/n3h/wC/Kf8AxNH/AAidn/z7w/8AflP/AImgDyr/ + AIXXef3If++X/wDjlH/C67z+5D/3y/8A8cr1X/hE7P8A594f+/Kf/E0f8InZ/wDPvD/35T/4 + mgDyr/hdd5/ch/75f/45R/wuu8/uQ/8AfL//AByvVf8AhE7P/n3h/wC/Kf8AxNH/AAidn/z7 + w/8AflP/AImgDyr/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8cr1X/hE7P8A594f+/Kf/E0f + 8InZ/wDPvD/35T/4mgDyr/hdd5/ch/75f/45R/wuu8/uQ/8AfL//AByvVf8AhE7P/n3h/wC/ + Kf8AxNH/AAidn/z7w/8AflP/AImgDyr/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8cr1X/hE + 7P8A594f+/Kf/E0f8InZ/wDPvD/35T/4mgDxLxR8Q7jxJELeZYwquGBQMDkAjuzcfNXofwU/ + 485P+vhv/QI66r/hE7P/AJ94f+/Kf/E1estOisF2QoqKTkhFCjPTOABzxQBYooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD/9k= + + + RPAS Technical Log + + + + + + /9j/4AAQSkZJRgABAgEAyADIAAD/4gxYSUNDX1BST0ZJTEUAAQEAAAxITGlubwIQAABtbnRy + UkdCIFhZWiAHzgACAAkABgAxAABhY3NwTVNGVAAAAABJRUMgc1JHQgAAAAAAAAAAAAAAAAAA + 9tYAAQAAAADTLUhQICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAABFjcHJ0AAABUAAAADNkZXNjAAABhAAAAGx3dHB0AAAB8AAAABRia3B0AAACBAAA + ABRyWFlaAAACGAAAABRnWFlaAAACLAAAABRiWFlaAAACQAAAABRkbW5kAAACVAAAAHBkbWRk + AAACxAAAAIh2dWVkAAADTAAAAIZ2aWV3AAAD1AAAACRsdW1pAAAD+AAAABRtZWFzAAAEDAAA + ACR0ZWNoAAAEMAAAAAxyVFJDAAAEPAAACAxnVFJDAAAEPAAACAxiVFJDAAAEPAAACAx0ZXh0 + AAAAAENvcHlyaWdodCAoYykgMTk5OCBIZXdsZXR0LVBhY2thcmQgQ29tcGFueQAAZGVzYwAA + AAAAAAASc1JHQiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWFlaIAAA + AAAAAPNRAAEAAAABFsxYWVogAAAAAAAAAAAAAAAAAAAAAFhZWiAAAAAAAABvogAAOPUAAAOQ + WFlaIAAAAAAAAGKZAAC3hQAAGNpYWVogAAAAAAAAJKAAAA+EAAC2z2Rlc2MAAAAAAAAAFklF + QyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAAFklFQyBodHRwOi8vd3d3LmllYy5jaAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAA + AC5JRUMgNjE5NjYtMi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAAAAAA + AAAAAC5JRUMgNjE5NjYtMi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAZGVzYwAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0 + aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAALFJlZmVyZW5jZSBWaWV3aW5nIENvbmRp + dGlvbiBpbiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHZpZXcAAAAA + ABOk/gAUXy4AEM8UAAPtzAAEEwsAA1yeAAAAAVhZWiAAAAAAAEwJVgBQAAAAVx/nbWVhcwAA + AAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAo8AAAACc2lnIAAAAABDUlQgY3VydgAAAAAAAAQA + AAAABQAKAA8AFAAZAB4AIwAoAC0AMgA3ADsAQABFAEoATwBUAFkAXgBjAGgAbQByAHcAfACB + AIYAiwCQAJUAmgCfAKQAqQCuALIAtwC8AMEAxgDLANAA1QDbAOAA5QDrAPAA9gD7AQEBBwEN + ARMBGQEfASUBKwEyATgBPgFFAUwBUgFZAWABZwFuAXUBfAGDAYsBkgGaAaEBqQGxAbkBwQHJ + AdEB2QHhAekB8gH6AgMCDAIUAh0CJgIvAjgCQQJLAlQCXQJnAnECegKEAo4CmAKiAqwCtgLB + AssC1QLgAusC9QMAAwsDFgMhAy0DOANDA08DWgNmA3IDfgOKA5YDogOuA7oDxwPTA+AD7AP5 + BAYEEwQgBC0EOwRIBFUEYwRxBH4EjASaBKgEtgTEBNME4QTwBP4FDQUcBSsFOgVJBVgFZwV3 + BYYFlgWmBbUFxQXVBeUF9gYGBhYGJwY3BkgGWQZqBnsGjAadBq8GwAbRBuMG9QcHBxkHKwc9 + B08HYQd0B4YHmQesB78H0gflB/gICwgfCDIIRghaCG4IggiWCKoIvgjSCOcI+wkQCSUJOglP + CWQJeQmPCaQJugnPCeUJ+woRCicKPQpUCmoKgQqYCq4KxQrcCvMLCwsiCzkLUQtpC4ALmAuw + C8gL4Qv5DBIMKgxDDFwMdQyODKcMwAzZDPMNDQ0mDUANWg10DY4NqQ3DDd4N+A4TDi4OSQ5k + Dn8Omw62DtIO7g8JDyUPQQ9eD3oPlg+zD88P7BAJECYQQxBhEH4QmxC5ENcQ9RETETERTxFt + EYwRqhHJEegSBxImEkUSZBKEEqMSwxLjEwMTIxNDE2MTgxOkE8UT5RQGFCcUSRRqFIsUrRTO + FPAVEhU0FVYVeBWbFb0V4BYDFiYWSRZsFo8WshbWFvoXHRdBF2UXiReuF9IX9xgbGEAYZRiK + GK8Y1Rj6GSAZRRlrGZEZtxndGgQaKhpRGncanhrFGuwbFBs7G2MbihuyG9ocAhwqHFIcexyj + HMwc9R0eHUcdcB2ZHcMd7B4WHkAeah6UHr4e6R8THz4faR+UH78f6iAVIEEgbCCYIMQg8CEc + IUghdSGhIc4h+yInIlUigiKvIt0jCiM4I2YjlCPCI/AkHyRNJHwkqyTaJQklOCVoJZclxyX3 + JicmVyaHJrcm6CcYJ0kneierJ9woDSg/KHEooijUKQYpOClrKZ0p0CoCKjUqaCqbKs8rAis2 + K2krnSvRLAUsOSxuLKIs1y0MLUEtdi2rLeEuFi5MLoIuty7uLyQvWi+RL8cv/jA1MGwwpDDb + MRIxSjGCMbox8jIqMmMymzLUMw0zRjN/M7gz8TQrNGU0njTYNRM1TTWHNcI1/TY3NnI2rjbp + NyQ3YDecN9c4FDhQOIw4yDkFOUI5fzm8Ofk6Njp0OrI67zstO2s7qjvoPCc8ZTykPOM9Ij1h + PaE94D4gPmA+oD7gPyE/YT+iP+JAI0BkQKZA50EpQWpBrEHuQjBCckK1QvdDOkN9Q8BEA0RH + RIpEzkUSRVVFmkXeRiJGZ0arRvBHNUd7R8BIBUhLSJFI10kdSWNJqUnwSjdKfUrESwxLU0ua + S+JMKkxyTLpNAk1KTZNN3E4lTm5Ot08AT0lPk0/dUCdQcVC7UQZRUFGbUeZSMVJ8UsdTE1Nf + U6pT9lRCVI9U21UoVXVVwlYPVlxWqVb3V0RXklfgWC9YfVjLWRpZaVm4WgdaVlqmWvVbRVuV + W+VcNVyGXNZdJ114XcleGl5sXr1fD19hX7NgBWBXYKpg/GFPYaJh9WJJYpxi8GNDY5dj62RA + ZJRk6WU9ZZJl52Y9ZpJm6Gc9Z5Nn6Wg/aJZo7GlDaZpp8WpIap9q92tPa6dr/2xXbK9tCG1g + bbluEm5rbsRvHm94b9FwK3CGcOBxOnGVcfByS3KmcwFzXXO4dBR0cHTMdSh1hXXhdj52m3b4 + d1Z3s3gReG54zHkqeYl553pGeqV7BHtje8J8IXyBfOF9QX2hfgF+Yn7CfyN/hH/lgEeAqIEK + gWuBzYIwgpKC9INXg7qEHYSAhOOFR4Wrhg6GcobXhzuHn4gEiGmIzokziZmJ/opkisqLMIuW + i/yMY4zKjTGNmI3/jmaOzo82j56QBpBukNaRP5GokhGSepLjk02TtpQglIqU9JVflcmWNJaf + lwqXdZfgmEyYuJkkmZCZ/JpomtWbQpuvnByciZz3nWSd0p5Anq6fHZ+Ln/qgaaDYoUehtqIm + opajBqN2o+akVqTHpTilqaYapoum/adup+CoUqjEqTepqaocqo+rAqt1q+msXKzQrUStuK4t + rqGvFq+LsACwdbDqsWCx1rJLssKzOLOutCW0nLUTtYq2AbZ5tvC3aLfguFm40blKucK6O7q1 + uy67p7whvJu9Fb2Pvgq+hL7/v3q/9cBwwOzBZ8Hjwl/C28NYw9TEUcTOxUvFyMZGxsPHQce/ + yD3IvMk6ybnKOMq3yzbLtsw1zLXNNc21zjbOts83z7jQOdC60TzRvtI/0sHTRNPG1EnUy9VO + 1dHWVdbY11zX4Nhk2OjZbNnx2nba+9uA3AXcit0Q3ZbeHN6i3ynfr+A24L3hROHM4lPi2+Nj + 4+vkc+T85YTmDeaW5x/nqegy6LzpRunQ6lvq5etw6/vshu0R7ZzuKO6070DvzPBY8OXxcvH/ + 8ozzGfOn9DT0wvVQ9d72bfb794r4Gfio+Tj5x/pX+uf7d/wH/Jj9Kf26/kv+3P9t////7gAO + QWRvYmUAZAAAAAAB/9sAQwAMCAgbChsiERckKiQcGyAkKygoICQpJSUxLyUpLiorKzkrKi4v + NDU1NTQvOzs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7/9sAQwENCwsQDhAbFBskMighKDI7NDIyMjs7 + Ozs7Ozs7Ozs7Ozs7Ozs7QEBAQEA7QEBAQEBAQEBAQEBAQEBAQEBAQEBA/9sAQwINCwsQDhAb + FBskMighKDI7NDIyMjs7Ozs7Ozs7Ozs7Ozs7Ozs7QEBAQEA7QEBAQEBAQEBAQEBAQEBAQEBA + QEBA/8AAEQgGpAiYAwAiAAERAQIRAv/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkK + C//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHw + JDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3 + eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY + 2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkK + C//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1Lw + FWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2 + d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW + 19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAAABEQIRAD8A9VooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii + gAooooAKKKKACiiigAooooAKKKKACiiigAoorzjVdMXU9Ua3ckK2MlcA8RA9wfSs6tRwS0vd + 2OzA4SOJlNOXKoxcm7X2t5o9HorzjXbFvB8kcts7YkzlX5B2Y64wCCG9MjqDnpN43thdX0ML + Zw6xqcdcNIwNZvENJ6aq34nVTyiNSUGp+5JSadtfd30v+p6DRXnGu2LeD5I5bZ2xJnKvyDsx + 1xgEEN6ZHUHPTtvEOo/2dbyTjOVXggA4LfKpweOCRmrjVvzXVmtznr5fy+ycJc0amkXa2qdn + da9TRory3R0bQZradshZk+YlsLh2I69MBdrEHoeuO3YeOtUk0633RHDO4XPcAhiceh469u3O + DSjXTi5NWsa18qlCvTpRlzKez2Wjs+r2OiorgdH8FwaxCLjzXaRwdxyMBzyQQRk4zzz83UYB + FdxZwmBFjZixVQCx6kgYJ79etVTnKWrVl6nPjMNSoPljPmknZpxasTUVx2v+B4ds15uffiR8 + ZXbnBbH3c4z7/jWP4Q8IRazE00jOCHK/KQBgBT3U+tQ6s1Ll5fx/4B0wy/DSoOt7V2TSfu9X + /wBvHpNFeceLNMX7XbWeTs8uFM8bsb2XPTGce34V0Fn8Pre1dZlaTKMGGSuMqcj+GmqspSaS + 28yamAoUqUJyqO8ldLl/4J09FcLrepS69c/2ZAxSNSQ7DPOBh89OB90DoT1PIxp2fgv+y3WW + 1ldQGG9XIIYZ5HAHQE4yDz0x1pqq5N2V0upM8vhShF1J8s5K6jZvTpd9L+j8zp6K4P8A5jH+ + f+eFX/iX/wAeyf8AXZf/AEF6XtvdlK2zsP8As399Rpc38SKle2176b6nW0Vwfiz/AJB1t/2x + /wDRTVH4AvDYStZOf9aiOuCSMlA+MY6lTyf9nHPFL6x76jbfqX/ZLeGnWUruLeluidm73+Z6 + BRXB+E/+Qjc/9tv/AEatHhP/AJCNz/22/wDRq0Kve2m7sFTKuT2nvfDBS23v03O8orhdb1KX + Xrn+zIGKRqSHYZ5wMPnpwPugdCep5GNOz8F/2W6y2srqAw3q5BDDPI4A6AnGQeemOtUqrk3Z + XS6mc8vhShF1J8s5K6jZvTpd9L+j8zp6K5/xzqP2K1YDOZCEGAD97JbOfVQR/nNc54aRtBvR + avkCWNQdzYG4qGz6N82VH1xknqTrcs1G3z9Qw+Wuth5VeazV2l3UbX6+Z6HRXB/FH/lh/wBt + P/ZK7yqjUvKUe1jGthPZ0KVW9+fm07Wdgoorg/hd/wAt/wDtn/7PRKpaUY97hRwntKFWre3J + y6d7ux3lFc/4y8RHRohsx5khIXPYDq3TBxkYB9c8gEVl2Xw9F0vm3kjmZuThgccYAJIbJHr0 + 7DpkzKo+blSu+ppRwUHSVWpPki3aOl27b6XWi7naUVwel3E3h68WxlkLxSBQu7J6ghdoydvz + fL6Y5I6ETa3qc+r3Y063coqH5nQnPAyxJXpjO3GfvdT0wvbq22t7WNXlMvaJKS5OXn5tbW/z + 8jtqK44fDaONQUldZRghuMAjHIAwR7fNx6mum0q3ktoljlbe65G71GTtJ98Yz157nrVwlJvV + WObEUaEI3hU5tbWs0/XroW6KKKs5QooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKpap + qq6cELBmMjqihcZy2cfeIHb1pNpK5UISnJRW5doqlZ6qty7QkMkigEq+MkHow2kgjPHB4PBx + V2hNMJwlB2YUUVHBcLcKHQhlPQqQRxx1FMVna5JRVDUNXFm8cO1neXdtCbf4ACeWZR0NSabq + a6grMoIKOyMGxkMvUcEg/gSKXMr2LdCagp20/wCHX5ot0UVDeXItUaZs4RSxx1woyab0IinJ + pImorIXxGoVJnR0ik24dtm0bh8pO1yQD0yRgEjOK16SkmXUozp7oKKr3d39m2/Kzb3C/IM4z + /EfRR3NQWeqfaZprbbjyPL5znO9c9McY+pocknYI0Zyi5JaJX/FL82i/RRVS51NbeWO3IO6b + ftIxj5Bk55/LrQ2kTCEpuy839yu/wLdFFFMkKKKKACiiigAoqNLhXYoCCy43AEEjPIyO2e1R + 2l39p3fKy7HK/OMZx/EPVT2NK6K5JWb/AK1LFFFFMkKKKKACiiigAoqhpOqf2h5ny7fKmePr + nO3HPQYznp+tR6rrf9mK0jxuY1xll2Ec4HQuG6nHT9KnnVr9DVYeo6ns7e92ujToqhJqjRI0 + rQyfLj5QEZjk44CO3TvnHFX6adyJU3Hf+v6uFFFFMkKKKrw3fmu8W1h5e35iMK24Z+U98d/Q + 0XGotpvsWKKKq6jqKWCeY+eoAAGWYnooHcn/ADxSbtqOMXNqK1bLVFV7W6M+QyMhGOHx0PfK + lh26ZyO4wRmxTTuKUXF2YUUUUCCiq8N35rvFtYeXt+YjCtuGflPfHf0NWKE7jlFxdmFFFFAg + ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAK841Wza91Rokcxs2MOucjEQPYjrjHWvR6wf + +EX/ANM/tLf/AMA2/wCxs+9n8elY14OaivNHo5Xio4aVWTdm4NLS+ulu/wCOhy1tA2lX6R3m + ZicCNmYnG5sI2CT0OeD0OSM4GZvG6u19CIyA5WPaT0B8xsHoe/sa6fxP4ZXXVVd21kJIbG7g + jkYyOuBz7e9V77wo17NDdtL80IjB+T7xRtxPBGM56YOKylRkk4ra6Z30syoSnTrSdpKEotWd + r9LdNepSh8I3F/Ks19KriMjCqMg9yCNqgZOM8HI44wKqfEi/MhjsVBJJD8DJJOVUDB+uRj0x + 3ruqwYvC+Ls6iz5POFC4A+XYMkk54+nPPA4rSpR93lXV6s5cJmK9sqtS1oRfJFKyv20273OO + 8TXr3sKIbZ4lgwAzbyAuAu3lR1wOSc8e9dtpdymtWsfnYIlXaQ2BuZc7sAe6kjHIxnjHGneW + wukaFs4dSpx1wwwa5yy8CLHC1pLIXRnDrtUIVYDBOctnI454Hbnmkqc4Sb3TXoVPGYfEUIxf + 7twldWvJ2e9r+eu/4mL4h8G/2IhvLaRh5eM5OG+Y7chlx6gYx0zz2rsPDeotqNvHO33mBB9y + pKk8AdcZx26Vht4De5wtxcySIDnac9cEAgszAdfT2rq7eBbdVjUYVQAB14AwOtFGm4ybtZdi + cxxcKtCEHP2k0781rWXbW19dSpr/APx7Tf8AXGT/ANBNYPw0/wCPZ/8Ars3/AKCldLf2v2uN + 4c48xGXOM43AjOKoeGtB/sSMw7t+XLZ27eoAxjJ9KuUW6il0sYUq9OOCqUm/eck0vQ5XxvbC + 6voYWzh1jU464aRga39K8Dw6ZKtwjOWXOAxUjkEdlHrTfEXhA6vKtyspjKKAMLk5BJBzuGOt + Ms/CdxA6yNdyMFYEqd2CAckffPXpWSptVG3G+ujO2WMhPC06ca3LaLUo2ev4GV4e/wBE1OeO + ThpPM2jrncwkHT/Z5/TrxXdPII+SQBkDnjknAH4k4FYPiLwbFrJ83JSTGNwGQenUcZwOAcj3 + yABUNh4MKSLNcTPMYyCgYkAH8WY9QDwR05yKuCnC8bXV9zDFVMNilGq58slFJxs3quz2s/N6 + HParpi6nqjW7khWxkrgHiIHuD6U3xf4Qi0aJZo2ckuF+YgjBDHso9K6v/hF/9M/tLf8A8A2/ + 7Gz72fx6VP4l0H+24xDu2YcNnbu6AjGMj1rN4e8Z6atux1wzdQq4dKbVOMIqS13V79PTY5rx + Z/yDrb/tj/6Kam6zC1nFZ6kgJMSRB8EgkYBA4yADyCf9oDmug1bwv/aFtHZ79vlbPm25ztUr + 0yMZznrV8aQr24sn+ZRGEJwOwA3AHODxkdcGqdGTb9Fb1RlDMaVOENb2nLmWvwy0/I47wXOt + xfzyKcqwlIPTgyKR1qTwn/yEbn/tt/6NWtbw14M/sSQzeZvyhXGzb1IOc7j6VY0nwv8A2fcy + Xm/d5u/5duMbmDdcnOMY6VMKU0o3XW7NMVjsNKVblldOCjHR6tfIwfD3+ianPHJw0nmbR1zu + YSDp/s8/p14runkEfJIAyBzxyTgD8ScCsHxF4Ni1k+bkpJjG4DIPTqOM4HAOR75AAqGw8GFJ + FmuJnmMZBQMSAD+LMeoB4I6c5FaQU4Xja6vucuKqYbFKNVz5ZKKTjZvVdntZ+b0MLxxfG9uo + 7UIXEOCVGdzbsMwBGTjaBzjI5ql4p1WW5eO7MDwtGQAzZIJB3KPmUDg5Pv36V2WieF/7Omkv + Gfc8u7gLtUbm3Hux6gY54960dZ0wapC9sSQHA5HYggj9Rz/MVm6E5KTvZvp+R1U80w1CdGCj + zRirOWvX4tP80cX8RbkXSW0y5w6uwz1wwQivQa46f4ftPFHbmbiIuQfL7PtOPvdiCc+/tVqz + 8J3EDrI13IwVgSp3YIByR989elXD2kZt8u9uxjiXhKuHp01VS5OfpLW7uunY6euD+F3/AC3/ + AO2f/s9d5XF2vw+ktM+VcsmcZ2KVzjp0eqqxlzxkle1zDAVaP1evSnLlc+Wzs3s23siP4nwM + ywyY+VS4J92AI/8AQTXaW863CrIpyrAEHpwRkdax7fwxvga1uZGm3MSGbO5eABgktjH9SCMZ + zmL4De2ytvcyRoTnaM9cAEkqyg9PT2pJTjJytuaSnhq1CFF1LOm3Z2dmm7+v4FDXpBf6nCkR + DGMoGx2KOzsM+w6/l14puiTDT9TlSXgylwORj52Dr37jp3yQMV0/h7wvFogJTLOwGWbr9B6D + POOfcnAo8Q+F4tbAL5V1Bwy9fofUZ5xx7EZNR7Gfxdb3sbf2jh7+w19nycnN1vve3by3Mfxl + p01usl8lw6qNmI1LAc7V6hvx6Vr+Dbhri0jdyWY78liSeHYdTWQPAUjqInunaIYBTBxgY4GX + IHTjg49K6bStMXTIlt0JKrnBbBPJJ7AetXThL2jlayt36mOMxFH6pGipqclLRqNvdStbZFui + iitzyQooooAKKKKACiiigAooooAKKKKACiiigAooooAK5/xgSBb7cE/aosAnAz82OcHH5H6V + 0FV7uxS72+YM+W4deSMMvQ8f/qqZx5otG2FqqlVU3sjFvYDamTUro7MRhAsJJO3cCfmIU7mb + jIC7R3z8wbplw8d4YMSKht922V/MOQ+NwO98cHGMj3HSt67tEvEMUgDKwwQf8/ke3UVWs9Di + tJDcID5jDBZndiRx/eY+gqHTfMmjpji6bpSjJO7Vl26W69NddfzMrQrc35nMryEJcyqoEjqA + Bjj5SD+BJA7AZOXeA4AlojjOW3ZyxI4dugJwPfAGe9bVpYpabvLGPMcu3JOWbqef/wBVNstN + jsciMEAnONzFRyTwpOF5PQAURptNP1FWxiqQqQV0m4tLpomn+dzH19Wa7tAhAb9/gsCw+4Ow + K/zqTwv/AKO01o3Mscm53HRzL8wbHY4GCBwMcE5rTvdKjvWV3B3R52lWZCN3B5Ujrin2Vilk + pSMYBJJ5JJJ6kk5JPuTQoPn5v62FLFQeGVPW6VtlvzN3vu1Z2ttfXoNubtoThY3cY6qYwPp8 + zqf0qLX/APj2m/64yf8AoJq/UdxAtwrRsMqwII6cEYPSraumc9Oooyi7bP7zDeQR6bkkAfZQ + OeOTHgD8ScCs6eTyYWhAlM1vbpu2SbEjPl8DAdd3TJIDemegHRW+hxQbcAkJjaHd3VcdCAzE + AjsQMjtTb7w/BelmkUkuAGwzKG29MhSAcdiazlTk18rHbSxlGEne9nLm281pa/a/Xe3S98q/ + v5Ghs5NxDSTW+4g4zuUlgcY4Pp0qjeO1tc3V0hYeS9szBMnchXDjbnHTnJ6Y4x1rqX0qJ1jj + K/LCVKDJ4KDC9+ce+feob3TFCzvGgMkyEEEnDEKVUdRj04x9aJU5P+vJjo42lFtW3uulrOcX + +SaI9Nka6mmmJPlqRGg+YDK58w7TwfmO3cP7pH1rax/x+Wn/AG3/APQBWjounf2dDHb8ZRRn + BJGTyx59SSalmsUmdJmGXi3bTk8bhg8dDketVytxXe6f43MPbwhXk18PLKK/8BcU/wBX8zmr + 13lkvvncCGNGQK7KAfKJzwQeo6Zwe4JxgurqbbDeSh3g+zqXETlGDkAlyFK5HtnAGTx36JtK + iYyMV5nAD8nkAbR344PbFRy6HFKojIIUIEwruuVAwFO1huA989T6mpdKWv8AXU3jjqS5bray + 2/upO2q1ur3+/sZWoTm4ms0SR/LlWQkqdpYbAQTgDr7AEZ+XacYqXmsS6Yl3GjE/ZzFsL/Mw + 83GRk9duflzn3yK09V0b7TPbEKPKiEobBC7cqAmMEEYI4K9MA8VpW2mx2yGJVG1ixYHLbi3U + ktknPvn0pckm30/4b/Mf1mhThTuubTbT/n43q+/Lpa2zMmwgngmQIsvlFSJPPkV+QMqww7EE + ng4wOnHcHhkNqUS3sjv5jsxwHIQAMV2hPu4wO4J5JznBGnaaPHaYKBvlGFDO7gcY4DMQOOMj + tkdCaF0aJXMoUgs24gM2wtx8xTO3PAOcZyM9eapU2rf1+hlUxdOSktm7apau17p+897rr0Ss + Y2h2Sx3lzgt8nk4y7nqhznLHd7bs47YqjaX8lxN9kLtsku7gEhiG2xKrKgbOVXPXGDjoRzXV + DTYxIbgAhyACQzAHAIGVBw2M8Eg4/AVE2hQsrJt4aTzDywO/+8DnIP0IpeydrLu/zNFjqbk5 + STd4xXo1G19++q/plKzka0u2swzGNoRIA7FyDu2YDMScEc4JPPTFYenXUiW9pcmRy8lwqNuc + kbSzgrjoenUgsOxwAB11npsdnuKA5cgsWZmY4GBlmJPA6DPFRJoUKIkIX5InDoMtwwJOc5ye + SevFDpyf4/oKGNpK+jd+W7stbKSd9era9balm8lEKM7EqFUksBkgAZJxg9PofpXNW18RcW3l + iVY51kJ82TeGGwMpALvjH4HnHrXUyRiQFWAIIwQeQQeoxWdbeHILZ1mVTvjGFJd2wMEYAZiM + YJ4qpxk2rGGFr0qcJqV7tNLtqml1Wz16+Wpi3rvLJffO4EMaMgV2UA+UTngg9R0zg9wTjE1p + ePqcsMEjMFNqsrbCULM2F5K4OBnOBjnrngVuNpUTGRivM4Afk8gDaO/HB7YpsujRSKiFSBEM + IVZlZRjbgMCG6deee9T7OV/67m/12k4pWeySdlp7qTa17r9dzM8HrtFwCSSLqXk4yfu88AD8 + gKd45/485f8AgH/oa1qWGmx6eCsShQzFiBnGTjPHbp0HFOvrFL9DDKMo2MjJHQ5HIweoquR+ + zcetjL61D65GtryqSfnpYzfGVw1vaSOhKsNmCpIPLqOoqrBC1/dXUTSSBUEW0I5XBZDyMfy6 + HqQcDG5fWKX6GGUZRsZGSOhyORg9RRDYpC7zKMPLt3HJ52jA46DA9KJQblfp/wAP/mFHFQp0 + HC3va2enVw/+Rf3nI2N7L5FpdGRy8lwqHLcbMsuNvQ9M7iC2e/TF+5uJL65mgIlKwqgUQOse + DIu4scuuT6dQOcjnnYTQoURIQvyROHQZbhgSc5zk8k9eKkutKjumErAhwCNyMyNgnOMoQSM9 + jUKlK1r9vyN546i6jko/zW02vK62a6ab9eo3RmmaFDcgCXB3Yx2JAPBI5GCcfp0rmNdv5Ivt + 212Hl/ZtuGI27sZxzxnvjrXYQQLAoRRgD8evJJJ5JJ5JPJPJ5qpcaFDc+ZvXPn7N/LDOz7vQ + 8Y9se9VOEnFJP+rNGOFxVKnWlOS0bWiX9+Mtr9k1v5FC1Zre9NvuZka3DkOxb5vMxu54Xjsu + F9uBV/WtIXVI/LJKspDKynlWHQ/5/DBwRP8AYU8z7Tj95s2Zyfu5zjHTr7Zp1zarcja2eDkE + EqQfUMpBHHHB6EjoapQ0aZlLEfvITV00ld+aOY1TxDPpaSwSFTMkaujqOCpcR5ZT0fnPGV/L + m7YQTwTIEWXyipEnnyK/IGVYYdiCTwcYHTjuNW30qK3DgLnzPvlyXLcYwSxJIxxjpTbTR47T + BQN8owoZ3cDjHAZiBxxkdsjoTUKnK92zoli6PI4xjZu99N7pLa+lnqt976bGZ4bDXDzyO7ny + 7mVVBc7QOOMd+vAOQMfKAc5rb5fK+w5ff9q8rf5n7zZ/rt+718vjH/7NdDaWKWm7yxjzHLty + Tlm6nn/9VNXTY1lN0FAkZdpYZ5HB5HTsOevGOlP2bsl95LxkPaSlbTRx8mtuu2rv3OW1LU5U + uJoFdgsk1rHweVEiMWK54UnHXHv1wa19ekbRbaWaFmyAuN7F8EsFJBYk9D0JI4HHXN+XRoZv + MLKD54UPknnaML34x2Ix69afDpscQZcEhxht7M5I9CXJOOTx05PHJpKnLXzv8typ4yi/Z6aR + 5bqytKyje/3Pp+bMmwgngmQIsvlFSJPPkV+QMqww7EEng4wOnHcdBVK00eO0wUDfKMKGd3A4 + xwGYgccZHbI6E1drSEeVHLiqyqyTXbta/rqwoooqjAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoor + y/xn8ULnRLuSziSIpHswXVy3zIrHOHA6n0oA9QorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/ + APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R + /wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/h + dd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8A + HKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDj + lH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13 + n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y// + AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf + 8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3 + If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A + 8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67 + z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXX + ef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxy + gD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wAL + rvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ + ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAP + a6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C + 67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH + /vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMco + A9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8Lrv + P7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8A + vl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA + 9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D + /wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3I + f++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2u + ivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7 + kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/7 + 5f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8 + U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+ + 5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl/ + /jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9ro + rxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9rorxT/hdd5/ch/75f8A+OUf8LrvP7kP + /fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHKAPa6K8U/4XXef3If8Avl// + AI5R/wALrvP7kP8A3y//AMcoA9rorxT/AIXXef3If++X/wDjlH/C67z+5D/3y/8A8coA9ror + xT/hdd5/ch/75f8A+OUf8LrvP7kP/fL/APxygD2uivFP+F13n9yH/vl//jlH/C67z+5D/wB8 + v/8AHKAPa6K8U/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcoA9rory/wZ8ULnW7uOzlS + IJJvyUVw3yozDGXI6j0r1CgAooriviR41m8MeT5Co3m+ZnzAx+7txjDL/eNAHa0V4p/wuu8/ + uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5Q + B7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7kP/fL/wDxyj/h + dd5/ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/ + AHy//wAco/4XXef3If8Avl//AI5QB7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDj + lAHtdFeKf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13 + n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5QB7XRXin/AAuu8/uQ + /wDfL/8Axyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OUA + e10V4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3 + If8Avl//AI5QB7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7k + P/fL/wDxyj/hdd5/ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdF + eKf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5QB7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXX + ef3If++X/wDjlAHtdFeKf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OUAe10V4p/wuu8/uQ/9 + 8v8A/HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5QB7XR + Xin/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7kP/fL/wDxyj/hdd5/ + ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy/ + /wAco/4XXef3If8Avl//AI5QB7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjlAHt + dFeKf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13n9yH + /vl//jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5QB7XRXin/AAuu8/uQ/wDf + L/8Axyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OUAe10V + 4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3If8A + vl//AI5QB7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7kP/fL + /wDxyj/hdd5/ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeKf8 + LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5QB7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXXef3I + f++X/wDjlAHtdFeKf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A + /HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5QB7XRXin/ + AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7kP/fL/wDxyj/hdd5/ch/7 + 5f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy//wAc + o/4XXef3If8Avl//AI5QB7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjlAHtdFeK + f8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl/ + /jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5QB7XRXin/AAuu8/uQ/wDfL/8A + xyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OUAe10V4p/w + uu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeKf8LrvP7kP/AHy//wAco/4XXef3If8Avl// + AI5QB7XRXin/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjlAHtdFeKf8LrvP7kP/fL/wDx + yj/hdd5/ch/75f8A+OUAe10V4p/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jlAHtdFeRaH8Xbu + /uIbd0iCyyopIV84ZgDjLnnmvXaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvn/AOKX/IRn/wC2f/op + K+gK+f8A4pf8hGf/ALZ/+ikoA9j/AOEVs/8An3h/79J/hR/witn/AM+8P/fpP8K1KKAMv/hF + bP8A594f+/Sf4Uf8IrZ/8+8P/fpP8K1KKAMv/hFbP/n3h/79J/hR/wAIrZ/8+8P/AH6T/CtS + igDL/wCEVs/+feH/AL9J/hR/witn/wA+8P8A36T/AArUooAy/wDhFbP/AJ94f+/Sf4Uf8IrZ + /wDPvD/36T/CtSigDL/4RWz/AOfeH/v0n+FH/CK2f/PvD/36T/CtSigDL/4RWz/594f+/Sf4 + VxXwm0WC+tXeaKN2E7DLorHGxDjJB45r0muD+DX/AB5v/wBfDf8AoEdAHUf8IrZ/8+8P/fpP + 8K5zxPpyWk1vaWlta77jzeZoRtHlqG/hGemex7V29cv4g/5CNh/29f8AooUAYd7ps2jj7Tc2 + dnJAp/eC3iPmBe7DeMYHU+3oMsOoi0SwljFyIYfLZA+4xIo2kbsnKjAxzz071tSyiEF2ICqC + SScAAckknoBXl1lFGljYRyxySyl5DFbg7UfLk73yCNqqQQemDzlCxAB2tjpWm3+fJjtpNuM7 + EibGemcA4zisHWoYdNtbi7EFm7wzbUCRKyhd6rtfoQ4BOQCAOKqWVnLaajaytDHbLMsy+XC2 + WIRM4fbhD82GGB6buVGKupf8g7Uv+v8Af/0bFQB3EegWEjNEsMBdMblEcZZdwyMjGRkdM9aP + 7AsN/k+TB5m3dt8uPdtzjdjGcZ4z0zVDWv8AiT3kN8v3LplglUd2OTE+OASCCCSSQvCijwn/ + AMTGe51I8q8nlRH7w2RcFkf+67c4HGR1JoAl1bQLa38vZDarvmRW86NRlTnKpgcuf4R061LN + pWmw798dsPK278pENu77u7I4z2z17VV8d/8ALn/1/wAH/s1ULHQ4tS1O8aYb1j+z4RuYyWiI + 3FTwSBkLnpk98EAG9a6BYXaiWOGB0OcMscbKcHB5Ax1qr9l0vf5O218zdt24h3bs42465zxj + rms3QtNEdxqNjATEhEWzbnCNLE2WUZGDnB4x0AGABjDitRoUQtr3Tg8arIHnhxIxAz8/Tcuc + 9S645KgY2gA7C50/TLUsJEtlKEBtyxDBYEqDkcEgEj1AzVqLw1ZTAOsEJVgCCIoyCDyCCByD + XNeHtLttWvruZkEqCO18syAv8rxA5w+SSQByfm9+Tk04nRW1SGA7UhUSxjC4VpImc4GMYBAA + B4AA98gG3Jp+mRSfZ2S2EmQNhWIPlsYG3GcnIx61al8NWUILtBCFUEkmKMAAckkkcAVxGkad + JLApOmrL5yBmle4Qu5dRl8sCyluuARgnjmrU9ncXg0/TL9m/emczKGGW8n5owzLnIxjPOT1J + 3AEAHQx2ulyK0qralExuYCEqu44GT0GT0z1rD02W11WyN5HFZpMDyJVTYgMhVQ5AyCVHB4ye + gxxXQyeB7RpVuFjC7VKsiqoicHkB0xg4PI6cgE5wMcPHapHoDSqoDvjcwADNtuMDJ6nA6Z6U + Ad7daBYWimWSGBEGMs0caqMnA5Ix1plloun3w3wxW7qDjKJGwz1xkA881l6xZDWNSjs58tBF + becI/wCAv5hTLDuMdjx+BYFs2mpomo232YeWl2solRcCM+Um5TtxgHJ6j+rZAL8lrpcarKy2 + oR87WIhCttODg9Dg9cdKv/8ACK2f/PvD/wB+k/wrlPh54Utr2xSWdBI0ocfvPm2qHcbU/uDq + eMHcSc9MbPw2lMunwFiScOOTnhZGAH0AAA9BxQBdutAsLRTLJDAiDGWaONVGTgckY60yy0XT + 74b4Yrd1BxlEjYZ64yAeeay9YshrGpR2c+WgitvOEf8AAX8wplh3GOx4/AsDB4v0ZPD0FxqF + mTC7xohWMhY+ZFG4KBw2CQCMYySPmJNAGtHp+mSyfZ1S2MmSNgWIvlc5G3GcjBz6U+60rTbQ + lZI7ZCFDEMkSkKTtDcjpnjPTPHWuUl0WYQmCHTFjbB2SC5jMitnKsH+/kHn73TjpV2LSxqOo + wreoHkTTkZgwBXzN+1jgfKep9u46CgB1/qGmQTwQIloySmTzHxEQgRMqOOAWYjBJ7EYJORYm + gs7CGe4nisz5UkoQRqgztXKxsWBxKcHIH4Cotc0C2jvrGJYYwj/adyiNQrbYwRkYwcHpnpVS + 1tUuLPU96htlzeMu4A4YJwwz0I7HrQA3Q7cX0cdw8enBZJYl+VOcMCXj5z+95Xav1z2rqL3R + dPsRvmit0UnGXSNRnrjJA54rmbq1S3s9M2KF33NmzbQBlinLHHUnuetaEOmpreo3P2keYlos + QiRsGMeam5jtxgnI6n+i4ANm10Cwu1EscMDoc4ZY42U4ODyBjrVey0/TL47IUtnYDOEWJjjp + nAB45rG8UeHbTRoXOJSk88ZFvE2EeQA4jAAOFbq3+6u3kKKy9SspoJrS6NtFaD7VFHiJgZTv + PzZMYCFCOMH5uvZjkA2TLp/20af5Vtt8okttjz5nmBBF04Yc5HJORwMc6Wk6BbXHmb4bVtkz + qvkxqcKMYV8jhx/EOnSqH9lQ/wBr/wCrT/j08z7i/f8AO+/0+9/tdfesiS/ksLHUpomKuL6U + Bh1G541OPQ4J56jqOaAOoj0/TJZPs6pbGTJGwLEXyucjbjORg59KfNpWmw798dsPK278pENu + 77u7I4z2z17Vl654ItbGyfyk2yW8bSJKvEu6MFgS4GTk9R0H8IGBjK8I6amu3U1xdDzCIbNi + rY8ss8AyxTGCRzt7DccDOMAHXWugWF2oljhgdDnDLHGynBweQMdal/4RWz/594f+/Sf4VjeE + rVbG8vraIbYlaBlQE7QXQliB0GT6dgB0ArraAPNvizosFjao8MUaMZ1GURVONjnGQBxxXR+G + vDVrNawO0ERZoIiSYkJJKAkkkck1k/GX/jzT/r4X/wBAkrqPCv8Ax52//XvF/wCgCgA/4RWz + /wCfeH/v0n+FH/CK2f8Az7w/9+k/wrUooAy/+EVs/wDn3h/79J/hR/witn/z7w/9+k/wrUoo + Ay/+EVs/+feH/v0n+FH/AAitn/z7w/8AfpP8K1KKAMv/AIRWz/594f8Av0n+FH/CK2f/AD7w + /wDfpP8ACtSigDL/AOEVs/8An3h/79J/hR/witn/AM+8P/fpP8K1KKAMv/hFbP8A594f+/Sf + 4Uf8IrZ/8+8P/fpP8K1KKAMv/hFbP/n3h/79J/hR/wAIrZ/8+8P/AH6T/CtSigDL/wCEVs/+ + feH/AL9J/hR/witn/wA+8P8A36T/AArUooAy/wDhFbP/AJ94f+/Sf4Uf8IrZ/wDPvD/36T/C + tSigDjfGGnQ6WkX2e2tjJNcJEPMhUqN4bn5QD1A9eO1UpfDF4gLC205iATgRNk47DIAyfcge + prS+I0bSJaqjbHN7CFbAbaSGw2DwcHnHesXxLNfaG0f2m7JtZW2PJHFGki5B4AAJGQOGUkjk + 4yAGAH3t1BPaW15a2tuHup1ixNEpUFtynlQDjcvX07Z4DrrR7jTEa5mtLGSONSzLEhVyAOSC + 6kcdTxyAQOcVY8W6SNItrO1tcZjvIQnmEkFjvOWI5wWOTj8AOBV2603VNTRraZ7aOORSrNEs + jOARyAHIHPQ88AkjnFAGjFolhLGLkQw+WyB9xiRRtI3ZOVGBjnnp3rl/Cl9a6vMYZba3VZka + SDEKBiiyOhVs5+f5c4XIwCc1qeP70aRYiygyHmCwxIvzMV4BGDkkbflyMnLDuc1h674jW2Fr + PFbXMS2cijdJEQoiI2OmSxGWGACefQg0Adx/witn/wA+8P8A36T/AArjPFGnTaKkl39msTCj + cDyWMm1mCrngDPIzzjrivRYpRMA6kFWAIIOQQeQQR1Brmfib/wAg6b/tn/6NSgCLRvCr7z9s + t7Ly9px5MR3bsjGd4xjGffOKl0nSrN4Y5biOzLyMVDRInlMxYhVUsMk4HTrkGuorym3g+0aZ + p8WSu+9UbkOGGZJRkHsR2PrQB3Vvoun3JZI4rdmjOGCpGSp5GCAODwevoaLLRdPvhvhit3UH + GUSNhnrjIB55rnNd8K28F5Z20SmJJkmSQRMU3pGoYKxB5B6MTyR1OQCL+nWEem6q0UChEksw + 7KnCFhLtB2jgED0Hc9ycgF+90/TLE7JktkYjOHWJTjpnBA44q7/witn/AM+8P/fpP8K4DwyJ + r6L7Y9gt08xJaaWaP5sMwGEcHYB93AAGAO2K7LwRa3FrC0VypTbK3lIXEm2PAKruBOQvIGec + D0xQA3+wLb7T5Pk2vl+Tu2+Wvnbt2N2MY2Y4z13USWulxqsrLahHztYiEK204OD0OD1x0qL/ + AJi//bh/7WrI+HnhS2vbFJZ0EjShx+8+baodxtT+4Op4wdxJz0wAdX/witn/AM+8P/fpP8Kx + vENhbWBit4LWB57hmCB41VQFUlnJCnIXjI4JB45qf4bSmXT4CxJOHHJzwsjAD6AAAeg4qXxH + Yw6zItkJGiuo0MqNGCHVTmMndj7pJ5UMCcCgDnpbJtFImv7SzNt0d7eIbkyQFYhxlhk9FBPf + tg9TdaBYWimWSGBEGMs0caqMnA5Ix1rGvbu+8Mg3dxKlxbLs3/II5RltvyBflPUH5jzjA29T + V8XNJd36Woh+0xpbiURGQRqG8wrvOeGwBt2nIwTx1yAb0GlabcIZkjtmjTO5lSIqMDJyQMDA + 5PtVeSLSYjhhaA4B5EI4YAg/Qggj1HNczqNjcxiSVLQWsP2a4WYJLGyuPKYplFxyrdwM4OCc + VuaN4NtruwjQRRh5bYfvDGGcNImS2TzkE5HIx0GBigDZl8NWUILtBCFUEkmKMAAckkkcAVQi + 0W1mnCLFaGFoA4ARDKSWwGAAwYyO/rWHPrD6vZxaVki6mkNvJ8xLL5GDM5bgNlQCRu53EAnB + rXiiEOrBFACrp4AAGAAJsAADoBQBavdP0yxOyZLZGIzh1iU46ZwQOOKsXWgWFoplkhgRBjLN + HGqjJwOSMda57wR4eh1q1+3Xaiaa6Ll2kAJGGZAF6bAAONuCOxwFAoatpr2tzDpaRtdwwW3m + LHLKqYbzSA5JADBRhQpBAU4x1yAdbZaLp98N8MVu6g4yiRsM9cZAPPNWP+EVs/8An3h/79J/ + hXOaNY3Md3HKloLWHa6zBJY2VxglMouOVbuBnBwTiu3oAy/+EVs/+feH/v0n+FH/AAitn/z7 + w/8AfpP8K1KKAMv/AIRWz/594f8Av0n+FH/CK2f/AD7w/wDfpP8ACtSigDL/AOEVs/8An3h/ + 79J/hR/witn/AM+8P/fpP8K1KKAMv/hFbP8A594f+/Sf4Uf8IrZ/8+8P/fpP8K1KKAMv/hFb + P/n3h/79J/hR/wAIrZ/8+8P/AH6T/CtSigDL/wCEVs/+feH/AL9J/hR/witn/wA+8P8A36T/ + AArUooAy/wDhFbP/AJ94f+/Sf4Uf8IrZ/wDPvD/36T/CtSigDL/4RWz/AOfeH/v0n+FH/CK2 + f/PvD/36T/CtSigDL/4RWz/594f+/Sf4Uf8ACK2f/PvD/wB+k/wrUooA8I+Fv/IRg/7af+in + r6Ar5/8Ahb/yEYP+2n/op6+gKACvKvjn/wAuv/bb/wBp16rXlXxz/wCXX/tt/wC06ANX4d6B + bXdjDLJDG7nzMs0asxxIwHJGeldH/wAIrZ/8+8P/AH6T/Csv4Zf8g6H/ALaf+jXrqKAMv/hF + bP8A594f+/Sf4Uf8IrZ/8+8P/fpP8K1KKAMv/hFbP/n3h/79J/hR/wAIrZ/8+8P/AH6T/CtS + igDL/wCEVs/+feH/AL9J/hR/witn/wA+8P8A36T/AArUooAy/wDhFbP/AJ94f+/Sf4Uf8IrZ + /wDPvD/36T/CtSigDL/4RWz/AOfeH/v0n+FH/CK2f/PvD/36T/CtSigDL/4RWz/594f+/Sf4 + Uf8ACK2f/PvD/wB+k/wrUooAy/8AhFbP/n3h/wC/Sf4Uf8IrZ/8APvD/AN+k/wAK1KKAPNvA + miwXN1fpJFGyxz4UMikKN8owARwOB09BXa/8IrZ/8+8P/fpP8K5f4d/8fmo/9fH/ALPLXeUA + Zf8Awitn/wA+8P8A36T/AAo/4RWz/wCfeH/v0n+FalFAGX/witn/AM+8P/fpP8KP+EVs/wDn + 3h/79J/hWpRQBz2taFa2MEtwtvCWjidhmFMZVSRnAHHFc5p+hXV9GlwtvpwWRFYZhfOGAIzg + Hnmuw8Vf8edx/wBe8v8A6AaPCv8Ax52//XvF/wCgCgDD8L29rqoeKa0ijuYCFlQwpgE5wynB + yrYyOT9SMMb8mn6ZFJ9nZLYSZA2FYg+WxgbcZycjHrWdqLK2ozOzFY49OKyPHncmXLdQDhtv + zKOvcA1zM2lm6sW+z2UccKxM4nnYGZlXJyAgDB2+8MnZjjlSKAO1vNAto5oYlhtQj+ZuV41E + rbVyNgxg4P3s9BVDQYbO887z4LZPLu5IE/dIu7bjaPm6seenXsKrxSmabSHYks0EpJJySTAp + JJPUmm6To39rwX0IO2QX87RtnBV12lWBwSOeCRzgnFAHR3WgWFoplkhgRBjLNHGqjJwOSMda + l/4RWz/594f+/Sf4Vy8ms/8ACVrYwY/1zGWYAZXbASCrJk/I7jCljjgcE8DvKAOX0nSrN4Y5 + biOzLyMVDRInlMxYhVUsMk4HTrkGrUGlabcOYUjtmkTO5VSIsMHByAMjB4PvXD28H2jTNPiy + V33qjchwwzJKMg9iOx9a3/E2gwaQ1lLbII3F3DHuT5WKsCGBI5bIHJbJ688nIBs32labYY86 + O2j3ZxvSJc464yBnGaF0rTXVZRHbFJG2owSLazEkbQcYJyDwOeKw/EWiTW92+ofZ1vI3iACO + Ruj2YyFVtwIbk8KWySBjnfjalJa6mkUCQtAzX1sJ4WDIBvRhkKCAAwyMgKxwCR0oA7Wx0rTb + /Pkx20m3GdiRNjPTOAcZxTr3RdPsRvmit0UnGXSNRnrjJA54rG8UaPFpM1ndWyLE/wBqSM+W + iKCsoIbIA5OBgemT35FDVDLf6hOpthdrbCIIryqiR+ZHlvlb5WLHuQSNo9BgA6u10Cwu1Esc + MDoc4ZY42U4ODyBjrVeTT9Mik+zslsJMgbCsQfLYwNuM5ORj1rBtEu9NN1crALWH7LIwRZI5 + E85B8rhRwDt4IAwcZbJq7ofgi1vrJPNTdJcRrI8rcy7pAGJDkZGD0HQ/xA5OQBhl0/7aNP8A + KttvlEltsefM8wIIunDDnI5JyOBjnS0nQLa48zfDatsmdV8mNThRjCvkcOP4h06Vl2uhw2+q + LFsDbLIPudVLFxNjzCccue7dc1myX8lhY6lNExVxfSgMOo3PGpx6HBPPUdRzQB1Een6ZLJ9n + VLYyZI2BYi+VzkbcZyMHPpT5tK02Hfvjth5W3flIht3fd3ZHGe2evasvXPBFrY2T+Um2S3ja + RJV4l3RgsCXAycnqOg/hAwMZXhHTU126muLoeYRDZsVbHllngGWKYwSOdvYbjgZxgA6610Cw + u1EscMDoc4ZY42U4ODyBjrUv/CK2f/PvD/36T/CsbwlarY3l9bRDbErQMqAnaC6EsQOgyfTs + AOgFdbQBl/8ACK2f/PvD/wB+k/wo/wCEVs/+feH/AL9J/hWpRQBl/wDCK2f/AD7w/wDfpP8A + Cj/hFbP/AJ94f+/Sf4VqUUAcz4l8NWsNrO6wRBlglIIiQEEISCCBwRWd8O9Atruxhlkhjdz5 + mWaNWY4kYDkjPSuj8Vf8edx/17y/+gGsv4Zf8g6H/tp/6NegDU/4RWz/AOfeH/v0n+FH/CK2 + f/PvD/36T/CtSigDL/4RWz/594f+/Sf4Uf8ACK2f/PvD/wB+k/wrUooAy/8AhFbP/n3h/wC/ + Sf4Uf8IrZ/8APvD/AN+k/wAK1KKAMv8A4RWz/wCfeH/v0n+FH/CK2f8Az7w/9+k/wrUooAy/ + +EVs/wDn3h/79J/hR/witn/z7w/9+k/wrUooAy/+EVs/+feH/v0n+FH/AAitn/z7w/8AfpP8 + K1KKAMv/AIRWz/594f8Av0n+FH/CK2f/AD7w/wDfpP8ACtSigDL/AOEVs/8An3h/79J/hR/w + itn/AM+8P/fpP8K1KKAMv/hFbP8A594f+/Sf4Uf8IrZ/8+8P/fpP8K1KKAOS8YadbaLayXcd + tAXTZgNCpX5nVT0APQ+tUP8AhFbz/n307/v0/wDhWp8Tf+QdN/2z/wDRqVi+KBqegxi6+174 + gwEhEESsoJADBTw3JxjI5x2yQAWNP+z3VnPdNaQpPaiVXUxIU8yJcnGOqnjv6jJ6mrp+hXV9 + GlwtvpwWRFYZhfOGAIzgHnmtltLhsNNnMDM6zQTSl5CS7mSMnccgckY7D35yap6B/an2aHyv + svl+THt3+du27RjOOM4644zQBf8ADthZ6vGXNrCkkcjxyJ5aNtZDgjdtAPGDkcc4zWBp2p2d + 1d+Sbe2+zSSSRRMIk3F4ghJJztKtuwmOSccCtq+x4OsZpC+6aRpG37QpaWU8EISRxwSBxhSc + da5a+1E2+nx2sdrcpLbeXIrtEfLWRDud8knjljyMc9B2APQv+EVs/wDn3h/79J/hWNrPhV94 + +x29l5e0Z86I7t2TnGwYxjHvnNdHpepJqcSXMZykigjpkZ6g4JGQeCM8EEVaoA848L6dNrSR + 3f2axELtyPJYSbVYq2OCM8HHOOma37LSrNFlluI7MJHMyhkRNqqCAquWGA+TyOnIo+GX/IOh + /wC2n/o165bUv+QdqX/X+/8A6NioA7VNF095DbiK3MijJQJGXA45K4yByPzFFvoun3JZI4rd + mjOGCpGSp5GCAODwevoa5zxZ4Yh08Wnk7kla6SNplYiYiXdvYv3Y9cnpyAACRVq50aHR9Qsh + bIIxIk6NsyNypGCu71OecnJJwSTgYANe+0rTbDHnR20e7ON6RLnHXGQM4zU8XhqymAdYISrA + EERRkEHkEEDkGuKtvN1C4uZ2sxdlLiWJXklRVVUIwgjcEcddwGTk85znpPBVpcWrTiaLyIWZ + WiiDrIqkg+Zgr0BODjgDPA60AS6toFtb+XshtV3zIredGoypzlUwOXP8I6dalm0rTYd++O2H + lbd+UiG3d93dkcZ7Z69qq+O/+XP/AK/4P/ZqoWOhxalqd40w3rH9nwjcxktERuKngkDIXPTJ + 74IAN610Cwu1EscMDoc4ZY42U4ODyBjrVXXtMsdHgku3t4SI1zjyk5J4VchTjJIGccZyeKq+ + ErVbG8vraIbYlaBlQE7QXQliB0GT6dgB0ArZ8RmCSL7NcnCXLCIcZO587ccEAgjIJGAQDQBy + kmgXaDzhZWJXIPlBP3uCRld5ATcB1PTjIB4FbmmWOnajAt6kEIiZS2XiRcbchs5GBgg5PTjI + JHNVRoGo6dj7PdCVQxwlyn8Jz1kXLsRkeg+gG2sXX9ebxClkI4jJHdecXg8wR7jEAADIMcKc + sOmcDIzjAB1NjpWm3+fJjtpNuM7EibGemcA4zioprXS4PvrarhmX5hCPmXG5ee4yMjqMjNYc + dhdedBLDYra7JV8x45YjmMnDqVULuHQjqQR8uDVjwfoFveveTTRI7/bZly6huAQQAGyByx6d + e/QUAb1roFhdqJY4YHQ5wyxxspwcHkDHWqEulWck0cUUdmULSrIpRDLuRQdqADGVJ+cHkDFU + LXV18JG7tpPux5nhAyFKSnb5YADBAsny++7dtAzVSw0htKn02KTmVvtbyE43F3jDHJBO4jO3 + dk5xQB0l9pWm2GPOjto92cb0iXOOuMgZxmp4vDVlMA6wQlWAIIijIIPIIIHINYPhvSI9amur + y6USulzJCgkAZFSMggBSMA88nr+JbMHijSv+EftY7O23tHPdqpjMmMrJkmEP1VWI65zyck5N + AG3Zafpl8dkKWzsBnCLExx0zgA8c1d/4RWz/AOfeH/v0n+FcVeaVdeWq2unrBNGVKSpPEXG3 + g56FwVyCGJBzk5r0mgDL/wCEVs/+feH/AL9J/hR/witn/wA+8P8A36T/AArUooAy/wDhFbP/ + AJ94f+/Sf4Uf8IrZ/wDPvD/36T/CtSigDL/4RWz/AOfeH/v0n+FH/CK2f/PvD/36T/CtSigD + L/4RWz/594f+/Sf4Uf8ACK2f/PvD/wB+k/wrUooAy/8AhFbP/n3h/wC/Sf4Uf8IrZ/8APvD/ + AN+k/wAK1KKAMv8A4RWz/wCfeH/v0n+FH/CK2f8Az7w/9+k/wrUooAy/+EVs/wDn3h/79J/h + R/witn/z7w/9+k/wrUooAy/+EVs/+feH/v0n+FH/AAitn/z7w/8AfpP8K1KKAMv/AIRWz/59 + 4f8Av0n+FH/CK2f/AD7w/wDfpP8ACtSigDwWCIQ6uEUAKt+AABgACbAAA6AV9B18/L/yGP8A + uIf+16+gaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKACvn/4pf8hGf/tn/wCikr6Ar5/+KX/IRn/7Z/8A + opKAPd6KKKACuc8b381okC27+W81zHGW2q+A4bswx1we31ro65fx3/y5/wDX/B/7NQBFdaPq + dspljuxK64IjaCNFbB5XcDkZH0+o6jW0nxLHfW/2x8RBSVkEjAbHB2lWJxg56ZwSCOBnFa9e + YiWNrSScxCf7VqTtbKxwjM2VRmGR8vDAq3XoQAcgA7LSfG1nq8nkQShnIJAKsucdcbgMnvgc + 4yegNZZ8exHUBY7x5YQp9xsmcyBducdABwR8vJyTxjI8SW9151nLeSQ7vtcQSOFe24Fn3v8A + P6BgPl+6etb/APzF/wDtw/8Aa1AFzVvG1npEnkTyhXABICs2M9M7QcHvg84wehFbUUomAdSC + rAEEHIIPIII6g15r4D+3y24mtfsp3s29pPMMxbcx+cr1PORnnaR611PgawexilikeNj9okO2 + BiY484JjAIG3Bz8vbPqaAOjooooAK4P4Nf8AHm//AF8N/wCgR13leIeDP7V8lv7P/wBV5hz/ + AKn721c/6znpj2/WgD2+sHxH4ck1SSG4hm8mS38zB8sSZ8wAHgkDoPfrXGf8VD/n7NR/xUP+ + fs1AHTP4RurwhLq8aSHPzIkSw7hgjaWQ52nPI7j0OCL+veFxqIiMLmGW2P7p0HCjgFdmQCpA + xj8OmQeK/wCKh/z9mo/4qH/P2agDprbwQ6XEeoyXDSXEZwxdFCFCGXaqKRtOD1yRnJKnNPuf + BHn29zZ+Zj7VcNLu2fd3Mrbcbufu9cjr0rlv+Kh/z9mo/wCKh/z9moA674gXUEdnLFcMBvjb + YpOGZlwVwBycNtz2HfjNX/C+mf2Xaw25XayRruGc4Y8vzk/xE9OPTivO7jT9duSryIrNGcqW + W1JU8HIJHB4HT0FT/wDFQ/5+zUAd7r2if2t5PzbfIuI5emc7M/L1GM568/SjT9E+x3Fxebs/ + afK+XGNvlqV655z9Bj3rgv8Aiof8/ZqP+Kh/z9moA7iHw0olupnO5LxY1ZMEYCIUI3A5OQfb + FY3/AAgtx5f2L7Y/2X7uzy137M/c8zOenHTGONu35awP+Kh/z9mo/wCKh/z9moAv2GhSNfXc + dnMbfyVtVGFEilfKwAVfuNow2cgZHeup0DwtFpETQ/6xpcmV3GWkJzndnPHJwOepzkkk8FHa + 69GzSqoDvjcwFqGbaMDJ6nA6Z6VL/wAVD/n7NQB0kHgmayzBbXTx2zMT5YRWZQ33lWRiSvfB + xweeTkm/d+DYZYIrZPka22mGQBSysuDuxgA5IywxhjzwcEcZ/wAVD/n7NR/xUP8An7NQB12m + eFJI51vbuczyRqRH8gjVd2Qx2qcEkcZ9OucDFJPALraS6X55MLlfLzGuUAk8wgkEbyfU4x2H + aue/4qH/AD9mo/4qH/P2agDtfEXhcaqUuI3MVzCfklUZIHdSMjcpyeD6nsWBi0XwmbSZr65k + M9wRtV2UIEXGMKoJAJ5yR69stu4//iof8/ZqP+Kh/wA/ZqAO98MaJ/Ydulnu3+Xu+bG3O5i3 + TJ9fWjwxon9h26We7f5e75sbc7mLdMn19a4L/iof8/ZqP+Kh/wA/ZqAO413w2NRZLmJvKuYs + 7JQocgEEFSp4YYJx6HkdwaVj4JBMst7IbmSZAhLLsUIMHaFU4B3DORyDgjByTyn/ABUP+fs1 + H/FQ/wCfs1AHQx+BpxH9ia8kNrgrsCIH2c4XzeTgcA8YI+XAHA2YvDwhuhfKQFW2EIjC4AAf + cCCDwB0xj8a4X/iof8/ZqP8Aiof8/ZqAO18ReHX1R4riGUwzW5fa2xZBiRdrDa2OeOD2546E + NtvC3kw3Vvvz9skmfO37vnLjGM84/DPtXGf8VD/n7NR/xUP+fs1AHZ3PhbzobW334+xyQvnb + 97yVxjGeM/jj3o1fwubiX7bayeRcFdrOI1kDLwcFW4yCBhuuODkYxxn/ABUP+fs1H/FQ/wCf + s1AHSf8ACvVlikEsrtcyyLJ54yrB0yIyFBwAoJGM9+CMLtZceA5bxkubi5aSeB1aMmNViG1g + 2DGpGScckMCePSue/wCKh/z9mo/4qH/P2agDtdQ8OvPdR6hFKY2VAjrsVw6B9+3nG0nnJ5PT + GMHJYeFY4Y7iCXEiXU8khBXGN+Pl6nkYyGGDnkYIriv+Kh/z9mo/4qH/AD9moA31+H8jqtpN + dO9ojZERQKxUElUMgOSBx2xxwFwMbeleHhp089ypG2cQgIF2hBEmwAYPIP0GOlcL/wAVD/n7 + NR/xUP8An7NQB3un6J9juLi83Z+0+V8uMbfLUr1zzn6DHvWpXl3/ABUP+fs1H/FQ/wCfs1AG + r8Zf+PNP+vhf/QJK6jwr/wAedv8A9e8X/oAryTxn/avkr/aH+q8wY/1P3trY/wBXz0z7fpWp + pX9u+TH5H+q8tNn/AB7/AHdo2/e56Y68+tAHrdFeXf8AFQ/5+zUf8VD/AJ+zUAeo0V5d/wAV + D/n7NR/xUP8An7NQB6jRXl3/ABUP+fs1H/FQ/wCfs1AHqNFeXf8AFQ/5+zUf8VD/AJ+zUAeo + 0V5d/wAVD/n7NR/xUP8An7NQB6jRXl3/ABUP+fs1H/FQ/wCfs1AHqNFeXf8AFQ/5+zUf8VD/ + AJ+zUAeo0V5d/wAVD/n7NR/xUP8An7NQB6jRXl3/ABUP+fs1H/FQ/wCfs1AHe69on9reT823 + yLiOXpnOzPy9RjOevP0q1qmmpqcT20gykikHpkZ6EZBGQeQccEA15x/xUP8An7NR/wAVD/n7 + NQB1aeEZGht7aSYN9knjdWEe3KxghUI3HnnG70xkE5J6avLv+Kh/z9mo/wCKh/z9moA7240T + 7RdR3rtlYY2CJjGGfhn3A85X5cEEdxzV+6tVu0aFxlHUqwyRkMMEZHPSvM/+Kh/z9mo/4qH/ + AD9moA9C0HTW0yCO2d/MMa7d20LkD7owCegwOvOMnmovE+if25bvZ7tnmbfmxuxtYN0yPT1r + gv8Aiof8/ZqP+Kh/z9moA9Rrl7bwR5FvbWfmZ+y3Cy7tn3trM23G7j73XJ6dK5b/AIqH/P2a + j/iof8/ZqAO91DRPtlxb3m7H2bzflxnd5iheueMfQ59qP7E/0z+0d3/Lv5WzH+3v3bs/hjH4 + 1wX/ABUP+fs1H/FQ/wCfs1AHTHwXLZSO9hcG3jlIZo/KWRA3cqGI2g+gH6AAbmiaMmkR+ShL + ZZmZnILszHJZiAMntnrgCvPf+Kh/z9mrLv8AxPrNhMlnK+JZdu1dsBzuYqOQCBkjuaAPUf7E + /wBM/tHd/wAu/lbMf7e/duz+GMfjR4Y0T+w7dLPdv8vd82NudzFumT6+tcF/xUP+fs1H/FQ/ + 5+zUAd74Y0T+w7dLPdv8vd82NudzFumT6+tM17w6NWMcodo5oCxjkTsWGCCp4ZTgZHcDGQCc + 8L/xUP8An7NR/wAVD/n7NQB1MfhCa6dTfXJniXnyvLWJGOQRvCnDgEZwR19sg3PEXhcaqUuI + 3MVzCfklUZIHdSMjcpyeD6nsWB4r/iof8/ZqP+Kh/wA/ZqAOp/4Qx7kO91OZpWhkiRjGqogk + GCwQfxepyMr8pre0qx+wQx2+c+VGiZxjO1QM45xnFecf8VD/AJ+zUf8AFQ/5+zUAdra+E47a + 7fUATlgcJgbFdsB3HHDOFGT1+9knIAsf2J/pn9o7v+XfytmP9vfu3Z/DGPxrgv8Aiof8/ZqP + +Kh/z9moA6a48FywF0sbg28MpLNGsSthmGGKtkMoIAwAflPTHAD7nwDEscK2zGGa2/1co+Zu + SSwYcBgxJOOACTgbSVPLf8VD/n7NR/xUP+fs1AHZ6V4aeGUXd1MZ5UVlQlFRFDYyQozhjjBb + PKnBHFb1eXf8VD/n7NR/xUP+fs1AHqNFeXf8VD/n7NR/xUP+fs1AHqNFeXf8VD/n7NR/xUP+ + fs1AHqNFeXf8VD/n7NR/xUP+fs1AHqNFeXf8VD/n7NR/xUP+fs1AHqNFeXf8VD/n7NR/xUP+ + fs1AHqNFeXf8VD/n7NR/xUP+fs1AHqNFeXf8VD/n7NR/xUP+fs1AHqNFeXf8VD/n7NR/xUP+ + fs1AHqNFeXf8VD/n7NR/xUP+fs1AHM/C3/kIwf8AbT/0U9fQFfP/AMLf+QjB/wBtP/RT19AU + AFeVfHP/AJdf+23/ALTr1WvKvjn/AMuv/bb/ANp0AdJ8Mv8AkHQ/9tP/AEa9dRXL/DL/AJB0 + P/bT/wBGvXUUAFFFFABXJazPdXd+LG3n8lBbCQ/ukkyfMK/xc9Md+3Sutrl/+Yv/ANuH/tag + CrfS3/hzF3LL9qgXPmqIkjdV/vrt6475OMe2WXoNS8R22mRieaRVRxlTnO4HHKhclhyOgPBz + 0qDxndLbWVwznAMLr0J5cbVHHqSB/PiuZMUlrNa2tvDGb6OzTfJOxKIijaQArcsWyMgZwccg + nAB0cHjaznhe7WUGOIgOdrZG4gD5cbsEng4x19Dir4C8VDX4NzsDOhJkAUgLudtgHGCNo9Se + OTmsnQLeSHVn8+RJJWtMv5ahQpMi4Tjk4GMFvmK4z2rNjlMXh/Kkg4I4OOGuCCPoQSD6jigD + sLXx3ZXUotUmBkLFQMNtJ9AxG057YPPGM5Fb1cHdabf3Fq0GLFbZ4ycp5gQKfm3jjaMfeB6Z + 5rr9FUrBEGYOwiTLhtwY7Rlgx6g9c9+tAF2iiigAooooA4P4d/8AH5qP/Xx/7PLXeV41Zf2j + 9svf7N/5+G8z/Vf332/6z8en49q1P+Kh/wA/ZqAPUaK8u/4qH/P2aj/iof8AP2agD1GivLv+ + Kh/z9mo/4qH/AD9moA9H1Wx+3wyW+cebG6ZxnG5SM44zjNc5a+Fb60RYUvsIihVH2aM4CjAG + Sc9K5v8A4qH/AD9mo/4qH/P2agDuNK8Lx2ULwOTK0y4mkcku+V28nOQAOFGeB3zknG/4V680 + f2Ka6ka1X7sYVVYYOVBkwxYAdsAZwQBgCsD/AIqH/P2aj/iof8/ZqAOwtvCpiazdpATYo68J + jcGQIP4jggAZ65PpVrR9JGiCd2cFZZ5JiSNoUNgkEkngY68fQVwv/FQ/5+zU2WLxBMCjAFWB + BBFsQQeCCD1BoA3vBljDNe3t/AAY2dURwxILEB5sc8gtg56f3Tiu1rym1tdetFEUahEGcKot + VUZOTwOOtS/8VD/n7NQB1Nt4I8i3trPzM/ZbhZd2z721mbbjdx97rk9OlamvaJ/a3k/Nt8i4 + jl6Zzsz8vUYznrz9K4L/AIqH/P2aj/iof8/ZqAOu1PwpJJO17aTmCSRQJPkEittwFO1jgEDj + Pp0xk55vxH4V+wpDvld57m/g8yUfI3Rwu0chdoPHofYACr/xUP8An7NUU9rr1xjeobYwZdwt + Thh0YZ6Edj1oA7Cw8HuZlvL2Y3DxD92DGsaIc5LbVJBbpg9sdyF2y614TN3Mt9bSGC4A2s6q + HDrjGGUkAkcYJ9O+F28f/wAVD/n7NR/xUP8An7NQB2uk+GPsxea5c3E0yBGZ0ULsGflVAPlU + 5+YZIYjNZcvgOUIbOK5aOzJP7oRqWCs25lEud2CSeueDg7hnPPf8VD/n7NR/xUP+fs1AHYS+ + EzHPDdW0hiEMSxFNocNGrBguWOQexbk9OnOZbDwrHDHcQS4kS6nkkIK4xvx8vU8jGQwwc8jB + FcV/xUP+fs1H/FQ/5+zUAb6/D+R1W0mune0RsiIoFYqCSqGQHJA47Y44C4GNvSvDw06ee5Uj + bOIQEC7QgiTYAMHkH6DHSuF/4qH/AD9mo/4qH/P2agDvdP0T7HcXF5uz9p8r5cY2+WpXrnnP + 0GPetSvLv+Kh/wA/ZqP+Kh/z9moA9Rory7/iof8AP2aj/iof8/ZqAPUaK8u/4qH/AD9mo/4q + H/P2agDvfFX/AB53H/XvL/6Aay/hl/yDof8Atp/6NeuM1X+3fJk8/wD1Xlvv/wCPf7u07vu8 + 9M9OfSqvhj+2fs6fY/8AUfNs/wBR/eO77/zfez1/lQB7LRXl3/FQ/wCfs1H/ABUP+fs1AHqN + FeXf8VD/AJ+zUf8AFQ/5+zUAeo0V5d/xUP8An7NR/wAVD/n7NQB6jRXl3/FQ/wCfs1H/ABUP + +fs1AHqNFeXf8VD/AJ+zUf8AFQ/5+zUAeo0V5d/xUP8An7NR/wAVD/n7NQB6jRXl3/FQ/wCf + s1H/ABUP+fs1AHqNFeXf8VD/AJ+zUf8AFQ/5+zUAeo0V5d/xUP8An7NR/wAVD/n7NQB3vifR + P7ct3s92zzNvzY3Y2sG6ZHp61pSxCYFGAKsCCCMgg8EEHqDXmH/FQ/5+zUf8VD/n7NQB12l+ + EmsbWXTfN3ROsixkoAyCTdkEhsPyc9F5z2wBs6VY/YIY7fOfKjRM4xnaoGcc4zivOP8Aiof8 + /ZqP+Kh/z9moA73V9E/tOSB2b93BIZCmPvMBhDuyCNpyccg9CK1K8u/4qH/P2aj/AIqH/P2a + gDvfDuif2LGbcNujEjmMYxsVjkJnJLYJPJ5Oa1K8u/4qH/P2aj/iof8AP2agDvfDGif2HbpZ + 7t/l7vmxtzuYt0yfX1rLufBHn29zZ+Zj7VcNLu2fd3Mrbcbufu9cjr0rlv8Aiof8/ZqP+Kh/ + z9moA73XtE/tbyfm2+RcRy9M52Z+XqMZz15+lGoaJ9suLe83Y+zeb8uM7vMUL1zxj6HPtXBf + 8VD/AJ+zUf8AFQ/5+zUAdXf+D3EzXllMbd5R+8AjWRHOchtrEAN1ye+exLbtLQtCGlB2ZzJL + MwaSRwAxIAGBgcKP4V525IBrgv8Aiof8/Zqoazrut6KgmuG2IWCg7YG5IJxhQT0BoA9M17RP + 7W8n5tvkXEcvTOdmfl6jGc9efpRp+ifY7i4vN2ftPlfLjG3y1K9c85+gx71wX/FQ/wCfs1H/ + ABUP+fs1AHe6fon2O4uLzdn7T5Xy4xt8tSvXPOfoMe9T6zpMerwvay52SDBwcEYOQQfUEA+n + qCOK87/4qH/P2aj/AIqH/P2agDppPCl5IPKN9J5ORwI1Eu0EYHmght2By2Oe4OSKu6r4MgvY + EtUHlGHmF04ZGHOQc5OTy3OSec7sEcZ/xUP+fs1H/FQ/5+zUAddZ+FpXkSa8uDP5LbkXy0jQ + NgjcQM7iM5U8FT061f0HRP7J875t3n3EkvTGN+Pl6nOMdePpXBf8VD/n7NR/xUP+fs1AHa69 + 4Tj1mSKdyR5Z+YADEiAhgjZHKhgDg5HXjJyLGoaJ9suLe83Y+zeb8uM7vMUL1zxj6HPtXBf8 + VD/n7NR/xUP+fs1AHXX3hN1le5spvs7TY80CJZFYjOGw2Np5OcdevXJJB4FgFqbCXMnmMXeR + j85kPWQE5wfTrxw27JzyP/FQ/wCfs1H/ABUP+fs1AHTQ+DZ5wsV5dNNChU+X5aJuKEEB2+Yu + vHIPU4Ociurry7/iof8AP2aj/iof8/ZqAPUaK8u/4qH/AD9mo/4qH/P2agD1GivLv+Kh/wA/ + ZqP+Kh/z9moA9Rory7/iof8AP2aj/iof8/ZqAPUaK8u/4qH/AD9mo/4qH/P2agD1GivLv+Kh + /wA/ZqP+Kh/z9moA9Rory7/iof8AP2aj/iof8/ZqAPUaK8u/4qH/AD9mo/4qH/P2agD1GivL + v+Kh/wA/ZqP+Kh/z9moA9Rory7/iof8AP2aj/iof8/ZqAOYX/kMf9xD/ANr19A186aR5n9pR + ef8A637Ym/p97zRu+7x1z049K+i6ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvn/wCKX/IRn/7Z/wDo + pK+gK+f/AIpf8hGf/tn/AOikoA93ooooAKy/EPh5NcRYnZ08uQOrRkKwZQQOSD6/XNalFAHK + SfDyOcbJbi5kTIJSSbKNgg4I2jjjsQfQg1s6t4eh1WH7HIo8vAChQBtwMKV9CO3bHBBBIrSo + oA5cfDyAkSvJM8yMpSWSTfIu0hgBkbMZzwVPU/ho6h4ajvJ477dIkkYA/dvtDKG3bGGDlc9Q + MZzz2xr0UAc5feBoriV7mOSaBpcbxbyeWrEZ+YjB55/r1JJ2dM0yPS41t4V2xpnAyTjJJPJJ + PU1aooAKKKKACuD+DX/Hm/8A18N/6BHXeVwfwa/483/6+G/9AjoA7yiiigAooooAq6pqSaZE + 9zIcJGpJ6ZOOgGSBkngDPJIFcp4juZ7bSnuXdluHEbsV3IVLunyAZyoVflx3wSeSc6XxFtWu + bCdUGSFVuoHCOrMefQAn+XNVfiHdLd6ZJMhyjrEynBGQ0iEHB56UAYGszpo6rcWV9JPOJFCx + NMJ1fccFdi89O/4DDEEdJ4+d9lvEjvH5t3EjNGxRtrhgeR/+rNUPFWmR+G3i1i2jRVhbbMqI + ozG5xuAyoDAnAI5O7BO0EVP8QY49RjtEOGjlvIBweGVw3Qg9CD1B+lAFXUbSTwxNbPHcyyef + OsTR3EnmZVyMsBxgrxzjqRzjIbuqw9J8E2ekSefBEFcAgEszYz1xuJwe2RzjI6E1pf2nH532 + Pd+98vzNuD93dtznGOvbOfagDG+Il09pYzSxsUceXhlJVhmRQeRz0rLs/Esljps8krFp7RpI + S+AcuG2owz1A3LksMnBJBPW/8Tf+QdN/2z/9GpXPazZH+0f7OGNl1Pbz7P8AlmUjV/NDL0LO + yA4wQxALEEUAT+Htcm0Wwu5rhzLLbXEiAszONwCIvLEHbuOT0OM960ovC148YuTdSreFAcEr + 5AYj7pjClcAcZGefnAzxWba6Q2sWmo2yffa9nK9OSpRgvJAGSMZzxnNaUXxFjEYRkkN7sGbc + ROHL4yQMg4X+LOSdvOCeKAOj0aeaeFHuUEcxHzKCGAIOMggng9cZOM4ycVdrIi1ZtOtRdaht + jZQDJ5YZlXc2FGBuOeQDjIznBxzWvQByknxHt0HmiOYwZA88QnyeSATk4OAeDxnIwAeK0tf8 + VRaG0ccoctNv2CNdxJUD5cZzliQF46nnA5rzHWdZk1u2kE00rXCkk20URRI1V/mMhx8yqAMZ + OVOM55Ndl4u1aOzu7C7OWjAuDmMb/lMa/Px1UA7iRn5QSM0Aa9h4yiu455dkiNarukSRNsgG + 0sDjOOQDjn64BBNWy+IcF20aiOYJOyqkjR4iLMPu7s9c5U4BGQedozWHeXya7JeahbkmCPT5 + IdxVl3Od0h25HQDrnBBI4wQaq3Ovxaxp8OjRbvtUqW6bGRhjbtbeTgjZtXdkZO0g464AOw1n + xlFpUws2SR5WjDqsSby3zEYAznIALHOBgHnPFVb34gxWpK+TOxSNHk2RZ8veu4B8sMEDk9h6 + 5Bwf8xf/ALcP/a1Zdj4kh8JyXdvdkq73DzJhWIdZACApxjIIwc4XPGTg4AOol8RxRmDqUu/u + PjCcruUEsQQXH3RjJPGKlj1lJLhrFQS6Rh2YAFF3HAUnOQxHIBHK81yUXhuaLSYowP8ASYMT + RjDZDBzIBtxy20ldpBG7j3q1oWmvq1td3RGJNQ8zYXypEe0pCGAGBgc5Gcgg5NAFqz+IcF06 + II5hHLJsSVo8RM2SBhs55IwOMjvjBxc1rxbHpUi23lyyyMm/bBHvIXO3J5HBPHGffGRnz7T4 + bS/hSyknvGnIVGtg3RlIBADLsCqRnlhtUc4IxXUTaxF4Zv7iW6JVLtIWjYKzL+6UoynAPzc5 + 4yMYyQSBQBd8A6odTS4m3l0N3LsLEnCYUqAG5AweBxj0rR17xLHoxjRlkkeUsFSFN7naMscZ + HA4759sA4yfhzP8AaEupcFd97MdrjDDIU4I7Edx60zXr5NCv49QuCRBJbNDuCs21w/mDdgdC + OmMkkHjAJoA0j41tzaHVFJaJcZCgbwSQu0gkAEEjPPTkZBGWJ42hMMt4ySrDCFIZ4yokDnCl + MnkHjrjGRnHbnvEd+NQ0m4uVh8lZZFZQcBnBkTEpAAwW989M5IINa/xIsjPbJKNwWCeOR/L/ + ANYEXIYr/tLuzk4AAJJ4oAsWnjmKbzQ8c0bwwtKUlj2MyLnJXnHXjkjnp0OLV94tgsLeO/lJ + WOby9vy5b94NwyBnoMk/Q4ycA8z4ZhtL66jmt57m5aEOd0rZjTcu3neqnLdguSSMngVQsdJN + zcvoe8olsLtlAG5AlwirGOSCWTzWJJyewODkAHeajqscMsVi4bddCQKVOMbFy2WBDA4PBHOf + SoPDOqteK8ExzPbyMjnaELYPySbcnAdcHsCc44Fc98OJTq7PqTksViigUsfnGxFaXPYhnOQS + S306VpeGP395f3C8xmSKMH/aiTDjHXgkc9D2JoA6iiiigAooooA4P4y/8eaf9fC/+gSV1HhX + /jzt/wDr3i/9AFcv8Zf+PNP+vhf/AECSuo8K/wDHnb/9e8X/AKAKANSiiigAooooAKKKKACi + iigDgPE1laXmphL4qIxZgjfJ5Y3eacchl5wTxmtTw/4f0uGYS2flmZASNkxcgEbSdu88c46d + 6ivdPjvtW2TIrqLHOHUMM+djOCDzzXR2WiwWJ3wxRoxGMoiqcdcZAHHFAHC+HriOHTrDzY/M + 3XahfmK7WMsmH4649Dwa6nV/FBt5fsVrH59wF3MgkWMKvAyWbjJJGF645OBjPGab/wAg7Tf+ + v9P/AEbLW/DqSaJqNz9pPlpdrEYnbAjPlJtYbs4Byeh/quQAn8Ttq9vf27xGJ7e3IYMwJy8b + k9BjAI4OTuGDxnFVdJ8ZSWlpFLHbPJbwwxrJKGCkFVAfahGWC9zwMg8gDNV47+O/bV5omDIY + EAYdDthdTj1GQeeh6jitz/mEf9uH/tGgDN8ca3M4tGt4y8Mk9u6uJAm9iSyxFSMgHAbceAcZ + GRXa2sjSIrOuxyoLLkNtJHK5HBweM964XV5RDZaY7EBVnsySTgACMkkk9AK72KUTAOpBVgCC + DkEHkEEdQaAPP/iL4Ptba2nvkjxMWVt29zy8i7jgtjnJ7fStqbwnZ6DDPcRQ/wDLvKGHmP8A + Mu3JXJY4zjqORR8Tf+QdN/2z/wDRqVqeKv8AjzuP+veX/wBANAGNJ4xj0aKzURHy7iH5VQl2 + XbGpRAMZcsWCjJHPJoj8eMjNaTW7pd8eXCCHEm4cESAbQBzuJ4UA8kggULX/AFuj/wDXvJ/6 + TpWp/wAxf/tw/wDa1AFzQfFA1ESiZDDLbH96jnhRyQ2/ABUgZz+PTBNBPGNxckywWkj2wPEm + 8I7LgEssTAMwIPy4PzexyBTFq13catCgy7wwqoyBktAwAyeOtYuhx2ptw0t9cwvEu14mn2Mr + IMMqxkZx/dAye33gQAD0mwv49QjWeJgyOMgj/PBHQg8g8HmrFY3g61jtrSJYQ4jKll80qXw5 + LAnZxznI9sZ5zWzQAUUUUAFFFFABRRRQAV5d47/5C9n/ANsP/RzV6jXl3jv/AJC9n/2w/wDR + zUAeo0UUUAFFFFABXnHgXwLZ6pZxXE0W6R9+TvcZw7AcBgOgr0evOPAvgWz1SziuJot0j78n + e4zh2A4DAdBQBq6HfHSBfRpmS3s8NHuct0iy8Ic5ACFQAMZXPOTU9h40lnVbuW3MVoU3GV5V + 4+X/AJ543EFuFxywIIHOKu6xpcWmWFxDAgRBby8KMZ/dkZJ6k4AyTknuayNVsJL/AEVIYlLO + ba3IUdTt2McepwDx1PQc0APX4gSIq3c1q6WjtgSlwzBSSFcxgZAPHfHPBbIzrax4pW0McMAE + 084zHGrqu5cFi5c8BcA4P8R4HcjJ1zxva31k/lPukuI2jSJeZd0gKgFAcjB6nof4ScjNKBz4 + cubWa6BSNrGO3L8FFkUhirEHgcdenfoGIANzRvFcl7cmwmgMMiwmQ5cMPvBQAQMMMHrng5XH + Gaq6D4zuNaEcsVofKdsM5lUBfmwSAQC4A5yAOcr2zUWn6pFqOrs0Lh1Sy2kqcrnzQ2Mjg8Ed + Pp1Bq18Mv+QdD/20/wDRr0AEni+a6dhY2xniXjzfMWJGOSDsLDDgEYyD19sEz3vjWGC2+2IG + Zmfy1iCkSeb/AM8mHO1hjn26bsjPFeF9PhhjNrdXc9rPCxDx+esSckkFARggjnIPXnoQTpLF + Yx6e7SCaS2nuWPmuFZwx+TzsjkLlepG4k4KkNggHR2HiC6aRUubRokc4DpIs2GPTcEGQv+10 + BxnAORTg8Z3Go5ls7QywBiFkaVYt2OpCsM4z0P54OQMWK8bSbmFLW9N0s8yK0TETsEA+d94J + xjOeAvvuCmoFS0YPc2l3JZMsrM8DkAKy/eHkZGScDgFh/Bt/hAB1FzqkVzc2TNE2+UTlDJuj + ePCDcChHJPTngdVJBzWl4d1v+14y5XZJHI8ciZ3bWQ4I3YAPGDkcc4zXI6dqMupS6VcTjEjr + dZ425wmFbH+0ADxwc5HGKPFNxLoM8sVtx/aEa+WM4/f71jbbtI2ko24s3VgDu4xQBtJ46V4D + dCMsXkkWBEJZ5gnG8KBlRwd2R8oHckAz2HiaUSLDewG3804jYyLIjN/cLLjax/hB+9yByMHn + vGWjJpQsiDJHbW3mI8kBAkTeFAYkD+Ig7iBzk92AINPs2nt41u57mQzBkQTpKoMfzFmyMAAe + +4jIUHmgDvbq1W7RoXGUdSrDJGQwwRkc9K891jwLZ295Z26RYjm8/eN7nOxAV5LZGD6Y969H + rl/EH/IRsP8At6/9FCgC0wtPBduzqPLi3ZwCWZmIAwNxJJIHTOBjJwMmqEPjmS3aP7dbm3im + 4WRpA6hiAQGAAKZH97BHcYDES/EFWSKG5VSy21zFK4XBYIm7ccEjOM/h1OACRm+N/EMOtWv2 + G0YTTXRQIsZBIwyuS3TYABzuwR3GAxAAHVbo6sE8k7RAVA85cCMzAGfHqcDKfe4HPFalx4ul + nkeKyt2n8lykjF1iQMOyls7iOc8DHHUEGoJ7pLfVxvYLvsgq7iBljNwoz1J7DrWLNeR6jPdf + 2hcvCsMhQQK5iVohkgkdZPMHXb82OnDKAAW9Y19dbis5lUoy6jCjowIZXXduXkDOM9fzAOQO + 8ryLRXjeCJoQVjOtIUB6hSo2g8nkD3P1r12gAooooAKKKKAPCPhb/wAhGD/tp/6KevoCvn/4 + W/8AIRg/7af+inr6AoAK8q+Of/Lr/wBtv/adeq15V8c/+XX/ALbf+06AOk+GX/IOh/7af+jX + rqK5f4Zf8g6H/tp/6NeuooAKKKKACsHWfB6apMLvzZopBGEzC4TKhi3Pyk9T644Fb1FAHOWP + gaK3lS5kkmnaLOwXEnmKpOPmAwOeP69QCLWu+FYtYZJmLxyx52yQtskwQQVzg8c/hzjqc7NF + AGDpXguDSpRdQlxJtYOWbcZN2CS27PORuyu3nrxxUuieFYtIWSFC7RSf8s5G3xqCWJVQR0O7 + nOc962aKAOUj+HFug8oyTGDJPkGY+TySQMDBwDyOc5GSTzXV0UUAFFFFABRRRQBwfw7/AOPz + Uf8Ar4/9nlrvK4P4d/8AH5qP/Xx/7PLXeUAY3ibVWs1SCE4nuJFRDtDlcn55NuRkIuT3AOM8 + Guc8Q7TfraS3MlvCtoGBWcx5YSFRlnJySOpPzHHWtTxP+4vLC4biMSSxk/7UqYQY68kHnoO5 + FV73T477VtkyK6ixzh1DDPnYzgg880AReEb4pdy2UU7XNssSvvc+YUckDZ5g4IIycdOMDkNl + o0x9avruJrieNIfI2rDKUX548njBHUdsd6l8KsNBupdGIARv3sBAAJVvvKTuJYrjAzliFJJ2 + hQKsXhi31zUb37Sm/wAv7Pt+Zlxui5+6R6CgDR8GXkizXWntKZktnTY7HL/OGJVmzyVIx65z + 0GAOrqlpOjQ6RH5FugRMk4GTknqSTkk/U9MDoBT9M1OPVI1uIW3RvnBwRnBIPBAPUUAcL421 + mbTL9JkkYQwQRySICcMpmMbYU/KWIYdcdM5BAo+KeszREQW8jR+VF50hUlchpFiQArzkEkkc + DHPJAxd1/Tf7Tv5bbAJk0xgN33Qxl+U9D0ODnGRjI5rlGlOp6fd6g5LfJaQgucuDH5Zk5OcK + zHd15PJANAHdeIb6a8uotKt2MYaNpJnULuEfKgKSeCTxkDIJUjgEUQ6Td6LLH5Ej3Fu7YkWd + wZFzj94rkAkAD7v1wCWysXiEvpF7Fqm0tAYWilKoWKKCXD8HOM9TggAHqSKlh8YNrEscWnr5 + kW7Mszq6xqoxlBkAlyCMdhkcEZKgHUVV1PU49Lja4mbbGmMnBOMkAcAE9TR/acfnfY9373y/ + M24P3d23OcY69s59qoeMdRl020luIBmRFGON2MkBmx/sgk88DGTxmgCvpvjSO9mW1aKaF5Ax + Tz4tgbaMkA5PIHPp75IBq3HxGhiMqLFM5t3dZPLjDBdn8RO7AU4OOc/KcgcZ5nTL5bm+tbnz + 5J13Sq0roYoA7RkIiKQArEAZH8RwRySBd0Lxjb6CbxLjcpN5cMuEJD9MqCONwwM5IA3LzzwA + dNqvjSDThCxDuLpSY/LXJOACBg4OW3AKMdTzgc1PoPiWPWTIirJG8RUMkybHG4ZU4yeDz3zx + 0wRnhYAfDg0s3AP7tbpnCqSyhxuyVwD8gbL8cYPXFdDoN8mu38moW5Jgjtlh3FWXc5fzDtyO + gHXOCCRxgg0AXdC8cxa2yrDHMVbdlzH+7UqCdrMCQCQARjP3h3yBFZ/EOC6dEEcwjlk2JK0e + ImbJAw2c8kYHGR3xg4peDLI32ji3XAaSKdRnplnkAzjPHNY11r8Wr2EeiRbvtbCGIoyMNhjZ + dzMccKNhJxkgdQMHAB3ljr8d0ZgcobZyr+ZhcADIfr9wjkMcZAJqnL4yiito79kk2zMFRNmZ + WLEhQFBxyBkc8jGOSBXPeM7Ka3ndbYHGpRLESFLDzFYAsxIO1fJLD5fQtjjdUvjvS0s/sk26 + SK2ti0bNCW8xFdQqNnB+UbcMTyQcAEmgDo9B8Sx6yZEVZI3iKhkmTY43DKnGTwee+eOmCM4n + iLx5GkdzDGsw8tZI/OVD5SyBcAbwcg7iADjqQc45pngu3tp52u7eW4nxFsMs5ygywbYCyq24 + YzwCoB5OSKxrbX4tH0+bRpd32qJLhNioxzu3NvBwBs2tuycHaCcdMgHeeGpTNawOxJZoIiST + kklASST1JrO1fx5BpcrW7rIfL2eY6JmOPzPu7jnPTngHPQZORV/wr/x52/8A17xf+gCuRj16 + Pw215ZXCGSWa4eSOMISsqzgAKCRjrw2RjqF3HigDodU8bw2Ei2+2SR5IhIghUSbwSR8uDycA + t6bR1zgUah40jszHF5UzySRCTy44tzqp4+YZGDng4zgjntmhp4I1NAUEZ/s1fkBBC/vR8oI4 + wOnHHpWN4ihi0+/mlup5oEuEjaNrdmVTsXYythTlh1GOADyQSBQB1tl4whvDbhNx+2CQocAY + 8oZYNk8EdOMgnvjmrUHiCGe5fT1J86JAzDBxg47+oyM/7wxnBxx8ujINOluLUybkmNzHJckb + iyYJkAA5DKDt3jJJyRgg1l3epNZQLrqSP++uLvapALDzUKRA5YghDCpxyPQfKMgHXal4l3Rv + ewB8WVw0cq7d29VKiTADY4BDKx5G0g4UtnpopRMA6kFWAIIOQQeQQR1BrltQsk8P6U9u2Bst + mU43MC8gIOM84Z29gM9h03NAtWtLaGFxh0hjVhkHBVQCMjjrQBF4q/487j/r3l/9ANZfwy/5 + B0P/AG0/9GvWp4q/487j/r3l/wDQDWX8Mv8AkHQ/9tP/AEa9AHUUUUUAFFFFABRRRQAUUUUA + cf8AEuOOWO2SbHlteRB8naNpD7snIwMd88VVi8LaJMQimIsxAAFyxJJ4AAEnJNX/AIgxCYWi + MAVa+gBBGQQdwIIPUGtmLw1awkOsEQZSCCIkBBHIIIHBFAHNCRY7jVmdd6CGEsuSu4CBsrkc + jI4z2rUHiSLTLS3ZV+aaOJYYQ2WJZV2pubsMgFj0+pAONdf63WP+veP/ANJ3qG5n/s5NL1Bw + fIghxIyjO3zYkVSR1xnqfw6kAgG1aeL5jcRWNxbGJ595BMiuuEXdwVGCcggjjaMHnNYvh3XZ + LV7u3toTPL9tnZgGEaqpIAJduMkg4XqQCeMc3dR1mHUNSsUhkWQoLgtsIYDdHxyMjPynjOfX + qKu+BP8Al8/6/wCf/wBloAr6j4skv7CS5to2EiiRJVLeW8JVCWbJAyV4IAwTnsQQNLwNcSTW + cXmx+XtjQL8wbcoRcPx0z6HkVg6d/wAeeqf9fF7/AOgCuj8HXSXFnBsYNshjVtpBwwRcqcdC + O460AZfjPwfa3MVxfPHmYQu27e45SP5TgNjjA7fWjwZ4PtbaK3vkjxMYUbdvc8vH8xwWxzk9 + vpWz4q/487j/AK95f/QDR4V/487f/r3i/wDQBQBgw+I49Jt7y8ihx5N3IGXzCd7FkUvkg7c5 + 6AEDHvUsnxCW2ZZJonjtJc+XOckNgZGYwNyhuSueSMHGM45vUv8AkHal/wBf7/8Ao2Kup8d/ + 8uf/AF/wf+zUAS6Z4ua4nW0uIHgMyloS5DbwMkggD5GA5KknHQkHG41DxXJ5pt7KA3BjyJGD + iONWGPk3sCCwzyOo9znEXiD/AJCNh/29f+ihXM2ljHDc3UF1czWrtPJKgWYRROjnhgTkFvXn + PbqrYAO80XWhqYYEFJoziSNvvI39VPVWHDDkdwNKuU8EWsCvcS28ks2XRGlmdXDNGp+6RhiA + GxkjB42kiuroAKKKKACiiigAooooAK4P4y/8eaf9fC/+gSV3lcH8Zf8AjzT/AK+F/wDQJKAO + 8ooooAKKKKACuDi8MW+uaje/aU3+X9n2/My43Rc/dI9BXeVwcXhi31zUb37Sm/y/s+35mXG6 + Ln7pHoKALVtpieH76C1s8iOaOUyx72dV2gFZcEnaWI27jwRwOal0Hxnca0I5YrQ+U7YZzKoC + /NgkAgFwBzkAc5XtmtnRvC9toufs8YQnOTyzc443MSccDjOM84zWX8Mv+QdD/wBtP/Rr0ART + eOZLhpPsNubiKHhpFkCKWAJIUEEvgf3ck9hgqTf/AOE3tfsv9pb/AN30x/Hu/wCee3P3vbpj + 5s7eaw/BHiGHRbX7DdsIZrUuHWQgE5ZnBXrvBB425J7DBUnI8qT7L/aXlv5f9p/asYG/yf72 + 3P8AkfN93mgDpJPGdxZvFFc2hj8+ZI1YSq6/McEkqOCOMD+IZ5GOZbvxfMLiWxt7YyvBsJIk + VFw67uSwwDkgAc7hk8YrN8VeI7bUjZJBIrs15A+FOSFGRyP4T8w4OD144ONLw/8A8hG//wC3 + X/0UaACXxfNIwhtrYzSKv73EirHG+BmPzCNrMueQOn54tL4xijgkuZgY3t8CWM8urHhRxwQx + Pyt90jnI5xx9pYxw3N1BdXM1q7TySoFmEUTo54YE5Bb15z26q2L+nx2dvDe3H766hyiys5WT + fsHVSCrYQMCWOAAAUJxmgDXtfFF2dsk1k6RNjLLIJHAbofKChzjPIxkDJxxipdT8VyRztZWk + BnkjUGT5xGq7sFRuYYJI5x6dM4OOPu7kaGiXGnXzS5EapbufOLZYfLtGCg28Y2hh90EEgVs+ + IorS6u3RpZLS6WIfvQwiSRWxg5yN4UgAjKk4xk7flALWpa4LgQC7tmWQXkKhWc7VZtxSRZFG + 2QAdV7Hg9idzSNb+3yT27Lskt5ACM7sqwyj5wANwzxyRjmvPRqkt0Yrd5fPig1G0VJtm3d8r + bxnJDbSBzkk5ySQRXQ+Mb0+G511OPAWaKSOTP3S6oXgJVcEsSCu45AXj5etAGzb+Ko3NzI+E + gtX2GQt95gPnG3AIKkgDruJ+XNUI/GNwo+0S2kkdsCcyM4LqoJG4w43ADq2M4GSMgc09V8NS + RaS9qilp3VXkGQzs5dXkyR94jBA6kgADJxWRKbGa2Nw1/clWQ5iNwpkOeChjI5J6f3cc5280 + AemRSiYB1IKsAQQcgg8ggjqDXn/xF8H2ttbT3yR4mLK27e55eRdxwWxzk9vpXcaVai0hjhAI + CRooDkFhtUDBK8Z9ccZ6cVg/E3/kHTf9s/8A0alAFzS/Cln4fLXMKCM7CGYuxAXhjncxAHGc + 1kt8QJHVruG1d7RGwZQ4VioIDOIyMkDnvjjkrg46PX7Vru2mhQZd4ZFUZAyWUgDJ461zmh+N + 7Wxsk819slvGsbxNxLujAUgITk5PQ9B/ERg4AKvjTxBJcC1e1TzIJLiBldZAodgzEQlTyOQC + SeARgjIrWuPF0pf7LBbtJcIiNKm9USPeudvmHgt0xgYIyQeCK5k2raVYactwPLKXsbNvIG0F + 5GyfTg5OenfBq7qmojUr14J7preCOJGh8p/KEgcAl/MOVYA8Ad+3RsgGlP4j/tezvInjMU8E + MokjbnGUbaQ2ACCBwf6YJ2fCv/Hnb/8AXvF/6AK4Dw89u8eqmzBEHkAIDntHICfmJOCckZ5w + eg6V3/hX/jzt/wDr3i/9AFAGpRRRQAUUUUAeDr/yGP8AuIf+16+ga+fl/wCQx/3EP/a9fQNA + BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABXz/APFL/kIz/wDbP/0UlfQFfP8A8Uv+QjP/ANs//RSUAex/ + 8JVZ/wDPxD/39T/Gj/hKrP8A5+If+/qf41y//CmrP+/N/wB9J/8AG6P+FNWf9+b/AL6T/wCN + 0AdR/wAJVZ/8/EP/AH9T/Gj/AISqz/5+If8Av6n+Ncv/AMKas/783/fSf/G6P+FNWf8Afm/7 + 6T/43QB1H/CVWf8Az8Q/9/U/xo/4Sqz/AOfiH/v6n+Ncv/wpqz/vzf8AfSf/ABuj/hTVn/fm + /wC+k/8AjdAHUf8ACVWf/PxD/wB/U/xo/wCEqs/+fiH/AL+p/jXL/wDCmrP+/N/30n/xuj/h + TVn/AH5v++k/+N0AdR/wlVn/AM/EP/f1P8aP+Eqs/wDn4h/7+p/jXL/8Kas/783/AH0n/wAb + o/4U1Z/35v8AvpP/AI3QB1H/AAlVn/z8Q/8Af1P8aP8AhKrP/n4h/wC/qf41y/8Awpqz/vzf + 99J/8bo/4U1Z/wB+b/vpP/jdAHUf8JVZ/wDPxD/39T/GuK+E2tQWNq6TSxoxnY4d1U42IM4J + HHFXf+FNWf8Afm/76T/43XM+APAEHiKBriZpAyylfkKgYCqe6nnmgD07/hKrP/n4h/7+p/jR + /wAJVZ/8/EP/AH9T/GuX/wCFNWf9+b/vpP8A43R/wpqz/vzf99J/8boA6j/hKrP/AJ+If+/q + f40f8JVZ/wDPxD/39T/GuX/4U1Z/35v++k/+N0f8Kas/783/AH0n/wAboA6j/hKrP/n4h/7+ + p/jVLSdYs9Nj+zrcxFFJ2AzKSqnkLkscheQvTC4HJGTif8Kas/783/fSf/G6pXvw00yxOya4 + ZGIzh5YlOOmcFBxxQB2v/CVWf/PxD/39T/Gj/hKrP/n4h/7+p/jXHyfCnT4o/tDTSCPAO8yR + hMNjB3bMYORj1qx/wpqz/vzf99J/8boA6j/hKrP/AJ+If+/qf41XOu2RkFwbiIsqFR++jwAx + Bbv1bauc5xtGMZOef/4U1Z/35v8AvpP/AI3R/wAKas/783/fSf8AxugDqP8AhKrP/n4h/wC/ + qf40f8JVZ/8APxD/AN/U/wAa5f8A4U1Z/wB+b/vpP/jdH/CmrP8Avzf99J/8boA6j/hKrP8A + 5+If+/qf40f8JVZ/8/EP/f1P8a5QfB+yJKeZLuABI3x5AOQDjZ0ODj6H0p//AApqz/vzf99J + /wDG6AOgv9dsr6NoHuItrjDYmj5U/eXr0I4OOcHgg4Isf8JVZ/8APxD/AN/U/wAa5f8A4U1Z + /wB+b/vpP/jdH/CmrP8Avzf99J/8boA6j/hKrP8A5+If+/qf41l6hf2d5cW959qhH2bzfl8x + Du8xQvXdxj6HPtWX/wAKas/783/fSf8Axuj/AIU1Z/35v++k/wDjdAG9quuWd/DJb/aYR5sb + pnzUONykZxuGcZo0rXLOwhjt/tMJ8qNEz5qDO1QM43HGcVg/8Kas/wC/N/30n/xuj/hTVn/f + m/76T/43QB1H/CVWf/PxD/39T/Gj/hKrP/n4h/7+p/jXL/8ACmrP+/N/30n/AMbo/wCFNWf9 + +b/vpP8A43QB1H/CVWf/AD8Q/wDf1P8AGj/hKrP/AJ+If+/qf415J/whkP8Aav8AZO5/K9cr + v/1PmdduOvt0/Ouz/wCFNWf9+b/vpP8A43QB1H/CVWf/AD8Q/wDf1P8AGj/hKrP/AJ+If+/q + f41y/wDwpqz/AL83/fSf/G6P+FNWf9+b/vpP/jdAHUf8JVZ/8/EP/f1P8aP+Eqs/+fiH/v6n + +Ncv/wAKas/783/fSf8Axuj/AIU1Z/35v++k/wDjdAHUf8JVZ/8APxD/AN/U/wAaP+Eqs/8A + n4h/7+p/jXHv8KdPSQW5mkEjDIQyRhyOeQuzJHB/I1LL8H7KEF2klCqCSS8YAA5JJKcAUAdX + /wAJVZ/8/EP/AH9T/Gj/AISqz/5+If8Av6n+NcF/wgmkf8/f/keH/wCJq7H8KdPlj+0LNIY8 + E7xJGUwucndsxgYOfSgDrZfFNqQQtzCGwcEyIQD2JAYZHtkfUVBpms2OnRrAlzGQueXnRmJY + lmYktySSSfc8YFc9F8H7KYB1klKsAQQ8ZBB5BBCcg0yP4SWEjNEsshdMblEkZZdwyMjZkZHT + PWgDrv8AhKrP/n4h/wC/qf40f8JVZ/8APxD/AN/U/wAa5f8A4U1Z/wB+b/vpP/jdH/CmrP8A + vzf99J/8boA6j/hKrP8A5+If+/qf40f8JVZ/8/EP/f1P8a5f/hTVn/fm/wC+k/8AjdH/AApq + z/vzf99J/wDG6AKXxZ1qC+tUSGWN2E6nCOrHGxxnAJ45ro/DXiW1htYEaeIMsEQIMqAghACC + CeCK4Px/4Ag8OwLcQtIWaUL85UjBVj2Uc8Vs6L8JrW+giuGeUNJEjHDJjLKCcZQ8c0Adr/wl + Vn/z8Q/9/U/xo/4Sqz/5+If+/qf41y//AApqz/vzf99J/wDG6P8AhTVn/fm/76T/AON0AdR/ + wlVn/wA/EP8A39T/ABo/4Sqz/wCfiH/v6n+Ncv8A8Kas/wC/N/30n/xuj/hTVn/fm/76T/43 + QB1H/CVWf/PxD/39T/Gj/hKrP/n4h/7+p/jXL/8ACmrP+/N/30n/AMbqGD4SWFxnZLI2xirb + ZIzhh1U4TgjuOtAHXf8ACVWf/PxD/wB/U/xo/wCEqs/+fiH/AL+p/jXIyfCSwjZYmlkDvnap + kjDNtGTgbMnA646VN/wpqz/vzf8AfSf/ABugDo/7fsN/nedB5m3bu8yPdtznbnOcZ5x0zUv/ + AAlVn/z8Q/8Af1P8a5f/AIU1Z/35v++k/wDjdH/CmrP+/N/30n/xugDeXVdNRViElsEjbcih + 4tqsCTuAzgHJPI55rnvEHiICY8215bOAVjeaBDG6jGcuTuDZJ7ntwB8z/wDhTVn/AH5v++k/ + +N0f8Kas/wC/N/30n/xugCXw1dWsPnz3EtsrXWwGJJo2jWNE2KhHAJAJDYyp4xgVvf2/YbPJ + 86Dy9u3b5ke3bjG3GcYxxjpiuc/4U1Z/35v++k/+N0f8Kas/783/AH0n/wAboA6CTWtPlj+z + tLbmPAGwvGUwuMDbnGBgY9Kli8S2UICLPCFUAACWMAAcAAA8AVzX/CmrP+/N/wB9J/8AG64z + 4deDIfEvneczjyvLxsKj727Ocq392gD1a61+wu1MUk0DocZVpI2U4ORwTjrTpfEtlMCjTwlW + BBBljIIPBBBPINc1/wAKas/783/fSf8Axuj/AIU1Z/35v++k/wDjdAHQDWtPBQiW3zECE+eP + 5QRgheeBjjjtxT/7fsN/nedB5m3bu8yPdtznbnOcZ5x0zXOf8Kas/wC/N/30n/xuj/hTVn/f + m/76T/43QB0cev2EbNKs0Ad8bmEkYZtowMnOTgdM9Kryahpksn2hntjJkHeWiL5XGDuznIwM + elYn/CmrP+/N/wB9J/8AG6rv8KdPSQW5mkEjDIQyRhyOeQuzJHB/I0Adh/wlVn/z8Q/9/U/x + o/4Sqz/5+If+/qf41ykvwfsoQXaSUKoJJLxgADkkkpwBVdfhfprqsoncpI21GEsW1mJI2g7M + E5B4HPFAHZ/8JVZ/8/EP/f1P8aP+Eqs/+fiH/v6n+Ncv/wAKas/783/fSf8Axuj/AIU1Z/35 + v++k/wDjdAHUf8JVZ/8APxD/AN/U/wAaP+Eqs/8An4h/7+p/jXL/APCmrP8Avzf99J/8bo/4 + U1Z/35v++k/+N0AdR/wlVn/z8Q/9/U/xo/4Sqz/5+If+/qf41y//AApqz/vzf99J/wDG6P8A + hTVn/fm/76T/AON0AdR/wlVn/wA/EP8A39T/ABrzjxpqsNxqlrMkiNGnkbmV1KjEzE5IOBgc + n2rf/wCFNWf9+b/vpP8A43XGeJfBkOl38GnozmObytxYqWG+QocEKB0HHB5oA9b/AOEqs/8A + n4h/7+p/jR/wlVn/AM/EP/f1P8a5f/hTVn/fm/76T/43R/wpqz/vzf8AfSf/ABugDqP+Eqs/ + +fiH/v6n+NH/AAlVn/z8Q/8Af1P8a5f/AIU1Z/35v++k/wDjdH/CmrP+/N/30n/xugDqP+Eq + s/8An4h/7+p/jUVrr9haKIo5oEQZwqyRqoycngHHWuc/4U1Z/wB+b/vpP/jdMl+D9lCC7SSh + VBJJeMAAckklOAKAOol8S2UwKNPCVYEEGWMgg8EEE8g0ReJbKEBFnhCqAABLGAAOAAAeAK5e + L4P2UwDrJKVYAgh4yCDyCCE5BpkfwksJGaJZZC6Y3KJIyy7hkZGzIyOmetAHQx6hpkUn2hXt + hJkneGiD5bOTuznJyc+tZPifxGN6tDJbXFuy7ZLd5YV5B3BwzHHXAwc4xwCTlYv+FNWf9+b/ + AL6T/wCN0f8ACmrP+/N/30n/AMboAPDV9bpOb+V7aD9yIo4Y54yFXeXYttwuS3I28YPIzzXR + 2uv2FooijmgRBnCrJGqjJyeAcda5z/hTVn/fm/76T/43R/wpqz/vzf8AfSf/ABugDbvdQ0y+ + O+Z7Z2Axl2iY464ySeOatS+JbKYFGnhKsCCDLGQQeCCCeQa5r/hTVn/fm/76T/43R/wpqz/v + zf8AfSf/ABugDbstQ0yxO+F7ZGIxlGiU464yCOOKbdXWl3bGWRrV3OMsxhZjgYHJ56Vjf8Ka + s/783/fSf/G6xfGHwzttFtZLuNpC6bMBmUr8zqp6ID0PrQB3smv2EjLK00BdM7WMkZZdwwcH + ORkdcdac/iWycgmeElTkZljODgjI54OCR9CRXAeD/hnba1ax3cjSB335CsoX5XZR1QnoPWtr + /hTVn/fm/wC+k/8AjdAHSy+JbKYFGnhKsCCDLGQQeCCCeQagsdV02wz5MltHuxnY8S5x0zgj + OM1g/wDCmrP+/N/30n/xuj/hTVn/AH5v++k/+N0AdR/wlVn/AM/EP/f1P8aik1+wkZZWmgLp + naxkjLLuGDg5yMjrjrXOf8Kas/783/fSf/G6P+FNWf8Afm/76T/43QB1H/CVWf8Az8Q/9/U/ + xqlZahplid8L2yMRjKNEpx1xkEccVzlv8KdPuSyRzSM0ZwwWSMlTyMEBODwevoaL34U6fYjf + NNIik4y8kajPXGSg54oA6i41rT7kq8ktuzRnKlnjJU8HIJPB4HT0FNn1XTbhxM8ls0iY2szx + Fhg5GCTkYPI965v/AIVJYb/J82TzNu7b5ke7bnG7GzOM8Z6Zqb/hTVn/AH5v++k/+N0Abz6r + psjea0lsXLKxYvEW3IMK2c5yoPB6jtVr/hKrP/n4h/7+p/jXL/8ACmrP+/N/30n/AMbo/wCF + NWf9+b/vpP8A43QB1H/CVWf/AD8Q/wDf1P8AGj/hKrP/AJ+If+/qf41y/wDwpqz/AL83/fSf + /G6P+FNWf9+b/vpP/jdAHUf8JVZ/8/EP/f1P8aP+Eqs/+fiH/v6n+Ncv/wAKas/783/fSf8A + xuj/AIU1Z/35v++k/wDjdAHCfC3/AJCMH/bT/wBFPX0BXz/8Lf8AkIwf9tP/AEU9fQFABXlX + xz/5df8Att/7Tr1WvKvjn/y6/wDbb/2nQBq/DvX7a0sYYpJo0ceZlWkVWGZGI4Jz0ro/+Eqs + /wDn4h/7+p/jXnvg/wCGdtrVrHdyNIHffkKyhfldlHVCeg9a2v8AhTVn/fm/76T/AON0AdR/ + wlVn/wA/EP8A39T/ABo/4Sqz/wCfiH/v6n+Ncv8A8Kas/wC/N/30n/xuj/hTVn/fm/76T/43 + QB1H/CVWf/PxD/39T/Gj/hKrP/n4h/7+p/jXL/8ACmrP+/N/30n/AMbo/wCFNWf9+b/vpP8A + 43QB1H/CVWf/AD8Q/wDf1P8AGj/hKrP/AJ+If+/qf41y/wDwpqz/AL83/fSf/G6P+FNWf9+b + /vpP/jdAHUf8JVZ/8/EP/f1P8aP+Eqs/+fiH/v6n+Ncv/wAKas/783/fSf8Axuj/AIU1Z/35 + v++k/wDjdAHUf8JVZ/8APxD/AN/U/wAaP+Eqs/8An4h/7+p/jXL/APCmrP8Avzf99J/8bo/4 + U1Z/35v++k/+N0AdR/wlVn/z8Q/9/U/xo/4Sqz/5+If+/qf41y//AApqz/vzf99J/wDG6P8A + hTVn/fm/76T/AON0AdR/wlVn/wA/EP8A39T/ABo/4Sqz/wCfiH/v6n+Ncv8A8Kas/wC/N/30 + n/xuj/hTVn/fm/76T/43QBS8Ca1BbXV+8ksarJPlSzqAw3ynIJPI5HT1Fdr/AMJVZ/8APxD/ + AN/U/wAa8x8K+AINXnu7eRpAttLtXaVBI3OOcqeflHTHeum/4U1Z/wB+b/vpP/jdAG9qes2O + oxtA9zGA2OUnRWBUhlYENwQQCPcc5FTxeKbUABrmEtgZIkQAnuQCxwPbJ+prmv8AhTVn/fm/ + 76T/AON1n2vw50u7YRR3JdznCrNCzHAyeAuelAHcf8JVZ/8APxD/AN/U/wAaP+Eqs/8An4h/ + 7+p/jXI/8KksN/k+bJ5m3dt8yPdtzjdjZnGeM9M1N/wpqz/vzf8AfSf/ABugDqP+Eqs/+fiH + /v6n+NV7HXbKzQRrcRHliSZo8lmYszHBAyWJPAAGeABxXP8A/CmrP+/N/wB9J/8AG6P+FNWf + 9+b/AL6T/wCN0AdR/wAJVZ/8/EP/AH9T/Gj/AISqz/5+If8Av6n+Ncv/AMKas/783/fSf/G6 + P+FNWf8Afm/76T/43QB1H/CVWf8Az8Q/9/U/xo/4Sqz/AOfiH/v6n+NcpH8H7KUZWSUjJHDx + nlSQR9zqCCD6Hin/APCmrP8Avzf99J/8boA6A67ZGQXBuIiyoVH76PADEFu/Vtq5znG0Yxk5 + sf8ACVWf/PxD/wB/U/xrl/8AhTVn/fm/76T/AON0f8Kas/783/fSf/G6AOo/4Sqz/wCfiH/v + 6n+NZeg39npPnf6VC3n3Ekv+sQY34+X7xzjHXj6Vl/8ACmrP+/N/30n/AMbo/wCFNWf9+b/v + pP8A43QBqahf2d5cW959qhH2bzfl8xDu8xQvXdxj6HPtWp/wlVn/AM/EP/f1P8a8x8VeAINI + ntLeNpCtzLtbcVJA3IOMKOfmPXPaum/4U1Z/35v++k/+N0AdR/wlVn/z8Q/9/U/xo/4Sqz/5 + +If+/qf41y//AApqz/vzf99J/wDG6P8AhTVn/fm/76T/AON0AdR/wlVn/wA/EP8A39T/ABo/ + 4Sqz/wCfiH/v6n+Ncv8A8Kas/wC/N/30n/xuj/hTVn/fm/76T/43QB1H/CVWf/PxD/39T/Gj + /hKrP/n4h/7+p/jXH3vwp0+xG+aaRFJxl5I1GeuMlBzxVj/hTVn/AH5v++k/+N0AdR/wlVn/ + AM/EP/f1P8aP+Eqs/wDn4h/7+p/jXBf8IJpH/P3/AOR4f/iau2Xwp0++G+GaR1BxlJI2GeuM + hDzzQB2H/CVWf/PxD/39T/Gj/hKrP/n4h/7+p/jXIwfCSwuM7JZG2MVbbJGcMOqnCcEdx1ok + +ElhGyxNLIHfO1TJGGbaMnA2ZOB1x0oA67/hKrP/AJ+If+/qf40f8JVZ/wDPxD/39T/GuX/4 + U1Z/35v++k/+N0f8Kas/783/AH0n/wAboA29Q1izvjHuuYtkbh9omUbmXlMkN90HnGOWCnOA + Qbv/AAlVn/z8Q/8Af1P8a5f/AIU1Z/35v++k/wDjdH/CmrP+/N/30n/xugDW8S+JbWa1nRZ4 + izQSgASoSSUIAAB5JrO+Hev21pYwxSTRo48zKtIqsMyMRwTnpWbrXwmtbGCW4V5S0cTsMsmM + qpIzhBxxVLwf8M7bWrWO7kaQO+/IVlC/K7KOqE9B60Aehf8ACVWf/PxD/wB/U/xo/wCEqs/+ + fiH/AL+p/jXL/wDCmrP+/N/30n/xuj/hTVn/AH5v++k/+N0AdR/wlVn/AM/EP/f1P8aP+Eqs + /wDn4h/7+p/jXL/8Kas/783/AH0n/wAbo/4U1Z/35v8AvpP/AI3QB1H/AAlVn/z8Q/8Af1P8 + aP8AhKrP/n4h/wC/qf41y/8Awpqz/vzf99J/8bqGP4SWEjNEsshdMblEkZZdwyMjZkZHTPWg + Drv+Eqs/+fiH/v6n+NH/AAlVn/z8Q/8Af1P8a5Gf4SWFvjfLIu9gq7pIxlj0UZTknsOtTf8A + CmrP+/N/30n/AMboA6OfX7C4xvmgbYwZd0kZww6MMngjsetS/wDCVWf/AD8Q/wDf1P8AGuX/ + AOFNWf8Afm/76T/43R/wpqz/AL83/fSf/G6AOgOtaeS5MtvmUAP88fzADADc8jHHPbisnxHr + 6RpH9jmtmjT5Xt2kiCyIQF2gk4XaOg6Edc42mr/wpqz/AL83/fSf/G6P+FNWf9+b/vpP/jdA + FfRb2Ce4iupPs1rHbiTbHHcRMzPIFUsdmF27RgdGyOcjFdXBr9hb52TQLvYs22SMZY9WODyT + 3PWuc/4U1Z/35v8AvpP/AI3R/wAKas/783/fSf8AxugDo4NfsLfOyaBd7Fm2yRjLHqxweSe5 + 60yy1rT7EbIZbdFJzhHjUZ6ZwCOeK5//AIU1Z/35v++k/wDjdczYeAILjUptMLSeXFEGBBXf + kiM8nbjHznt6UAely+JbKYFGnhKsCCDLGQQeCCCeQaIvEtlCAizwhVAAAljAAHAAAPAFc1/w + pqz/AL83/fSf/G6P+FNWf9+b/vpP/jdAG82q6a6tEZLYpI251LxbWYkHcRnBOQOTzxUs+v2F + xjfNA2xgy7pIzhh0YZPBHY9a5z/hTVn/AH5v++k/+N0f8Kas/wC/N/30n/xugDo5NfsJGWVp + oC6Z2sZIyy7hg4OcjI6461Ffarpt/jzpLaTbnG94mxnrjJOM4rB/4U1Z/wB+b/vpP/jdV734 + U6fYjfNNIik4y8kajPXGSg54oA62LxLZQgIs8IVQAAJYwABwAADwBT/+Eqs/+fiH/v6n+Ncv + /wAKas/783/fSf8AxuqifC/TZN+J3Pk58zEsR2Yznd8ny9D1x0PpQB2f/CVWf/PxD/39T/Gj + /hKrP/n4h/7+p/jXKRfB+ymAdZJSrAEEPGQQeQQQnINP/wCFNWf9+b/vpP8A43QB1H/CVWf/ + AD8Q/wDf1P8AGj/hKrP/AJ+If+/qf41y/wDwpqz/AL83/fSf/G6P+FNWf9+b/vpP/jdAHUf8 + JVZ/8/EP/f1P8aP+Eqs/+fiH/v6n+Ncv/wAKas/783/fSf8Axuj/AIU1Z/35v++k/wDjdAHU + f8JVZ/8APxD/AN/U/wAa4r4s61BfWqJDLG7CdThHVjjY4zgE8c1d/wCFNWf9+b/vpP8A43XM + +P8AwBB4dgW4haQs0oX5ypGCrHso54oA9O/4Sqz/AOfiH/v6n+NH/CVWf/PxD/39T/GuX/4U + 1Z/35v8AvpP/AI3R/wAKas/783/fSf8AxugDqP8AhKrP/n4h/wC/qf40f8JVZ/8APxD/AN/U + /wAa5f8A4U1Z/wB+b/vpP/jdH/CmrP8Avzf99J/8boA6j/hKrP8A5+If+/qf41FHr9hGzSrN + AHfG5hJGGbaMDJzk4HTPSuc/4U1Z/wB+b/vpP/jdH/CmrP8Avzf99J/8boA6j/hKrP8A5+If + +/qf41Fa6/YWiiKOaBEGcKskaqMnJ4Bx1rlrX4SWF2oljlkdDnDLJGynBweQmOtH/CpLDf5P + myeZt3bfMj3bc43Y2ZxnjPTNAHQ3uoaZfHfM9s7AYy7RMcdcZJPHNQeI/EyNFusrqASowba0 + kZVwM5TJbjPrx0xkZyMv/hTVn/fm/wC+k/8AjdH/AApqz/vzf99J/wDG6AM+0vIdQki3Ja2k + UMyStsuIS7sgbYBsGMAn5t3OD8pHNdnHr9hGzSrNAHfG5hJGGbaMDJzk4HTPSuc/4U1Z/wB+ + b/vpP/jdH/CmrP8Avzf99J/8boA3r7VdNv8AHnSW0m3ON7xNjPXGScZxU8XiWyhARZ4QqgAA + SxgADgAAHgCua/4U1Z/35v8AvpP/AI3R/wAKas/783/fSf8AxugDZtbrS7RhLG1qjjOGUwqw + yMHkc9KlvtV02/x50ltJtzje8TYz1xknGcVg/wDCmrP+/N/30n/xuj/hTVn/AH5v++k/+N0A + by6rpqKsQktgkbbkUPFtVgSdwGcA5J5HPNTyeJbKUYaeEjIPMsZ5Ugg9eoIBHoea808AeAIP + EUDXEzSBllK/IVAwFU91PPNdN/wpqz/vzf8AfSf/ABugDqP+Eqs/+fiH/v6n+NUo9Q0yKT7Q + r2wkyTvDRB8tnJ3Zzk5OfWsT/hTVn/fm/wC+k/8AjdH/AApqz/vzf99J/wDG6AOo/wCEqs/+ + fiH/AL+p/jUV1r9hdqYpJoHQ4yrSRspwcjgnHWuc/wCFNWf9+b/vpP8A43R/wpqz/vzf99J/ + 8boA6j/hKrP/AJ+If+/qf41Sk1DTJZPtDPbGTIO8tEXyuMHdnORgY9K5x/hTp6SC3M0gkYZC + GSMORzyF2ZI4P5GpZfg/ZQgu0koVQSSXjAAHJJJTgCgDprrX7C7UxSTQOhxlWkjZTg5HBOOt + V7jUNMuQqSPbMsYwoZoiFHAwATwOB09BXMr8L9NdVlE7lJG2owli2sxJG0HZgnIPA54q3/wp + qz/vzf8AfSf/ABugDoJda0+Yl2ltyzIUJLxklDyVJJ5U+nSpYvEtlCAizwhVAAAljAAHAAAP + AFc1/wAKas/783/fSf8Axuj/AIU1Z/35v++k/wDjdAHUf8JVZ/8APxD/AN/U/wAaP+Eqs/8A + n4h/7+p/jXL/APCmrP8Avzf99J/8bo/4U1Z/35v++k/+N0AdR/wlVn/z8Q/9/U/xo/4Sqz/5 + +If+/qf41y//AApqz/vzf99J/wDG6P8AhTVn/fm/76T/AON0AcDBKJtXDqQVa/BBByCDNkEE + dQa+g6+dtNshY6pHbrkrHeqoz1wsoAzjHPFfRNABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/8Uv8A + kIz/APbP/wBFJX0BXz/8Uv8AkIz/APbP/wBFJQB7vRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BXB/Br/jzf8A6+G/9AjrvK4P4Nf8eb/9fDf+gR0Ad5RRRQAUUUUAFeZ6Tf2Olb4NUjAuvMdn + klgLLIWdvmQ7SduB6KPQda9Huo2kRlRtjlSFbAbaSOGweDg8471yVr47ht4hbamDFOFKuskb + Mr4+UuNqlSrc+3UDIwSAV9Sgj0CxuJ7Zo5rUmMxROPNiX5wr/MWJYFvmxkBWH1rc13X5IZU0 + +1UNcyKXzIG8pEGfmYqM8kbQB36kcA8VqtuXsL28jQxW1wbYwxkBcbWQM+xcqAxxg9WAz0xn + o/EVwdCvU1WRSbZoPJdl5MZMm4MVxyp4HHv32hgCxo2u3b3h067SMbbcyboixDfOFBG45Awc + EEZyCc4IFZuj+KNR1y3FxbxRAqG3GXcA7AnAjAboAACWIBYkDG00/Rtbj1nVDPDkx/YiAxUq + GxMMkZwSATjOByCO1X/hl/yDof8Atp/6NegCWLxc11aRX0EDyPMwURgjg5KsS2CAoKn5iPTI + GTigfFF3pVxDbXogZZ2CgW7N5iljhWKuclScjIHHrnAbAg8z+xINm/y/Mbz/ACsb/J8yTfjP + 4Z9s5+XdUF5LYo1sdPiPkx3UTy3BVwi4YDYXkGQOQSCQo46knABueFPtn9o3Xm+T/wAsfO2b + /wDnk3l7M/8Aj278K6PwfrL61ax3cgAd9+QoIX5XZR1JPQetZGlXyWeqXUEhKvcCAxgq3zBI + m3EHGMDB79QR1FZvhHxMujW66U6Ob2JnUQ7TlizFgQ/KhcNksTwAWAIxkAtjxvcNZW16qI0t + xcCMoMqpyzgAEtwTtHJyBnOKtXGu32nDyZkhkuZ8iBIS4U7AS7OZCBhRjAByenuOb03/AJB2 + m/8AX+n/AKNlrc+I+lCcwXkkZlt7cyeaisQ+1wvzDGMhcZPI9+MkAF+31q602RE1ARbJ3CI9 + vv4c/dVg/OG7EcAj5uDkdNXnGk2el3M8X9nwmR1kBZ906pHtywYlsgkkfKuME8Ejv6PQAUUU + UAFFFFAHl3/Mw/5/59q9Rry7/mYf8/8APtXqNABRRRQAUUVg+NtSeytmWE/vp2WKPqDukOOC + CMEDJBJABA+lAHH3UE2oxzeIImBaOcNDwRmGDerDJYMquCS68ZKnj5hjtdfulu7CaZDlHtpG + U4IyGjJBweelY1r8M0hiFv8AabnZtIKrKFjOfvfJtIAJJ4568k1V02R7awvdMmbdJZxyqDzk + xtGWjY8kcjOAD8oABHqAUtF1/RooIkmWLzFiQPm3LHcFG7J8s5Oe+eal023Ag1KaFGjtJYiY + QwKqf3Tb3VT0Vsgg4AIwBjGBvW2hR65psNrIB81tFtJGdreWNrDkcj6jIyDwTWTY6081jd6f + ctm6tYZ1bJO5lCHbIMgEgggZ5J4Y/eFAB4Kuv7AEFnI37m7hWSJnPIkYLviHbBJ3LwvJK/Mx + rU8P/wDIRv8A/t1/9FGnWuijWdOggJKN5EDI6/eR1VSrD0I9iDgkAjOazvAV3Ld3V7JcJ5cv + +jh17AqjLkexxkcngjk9SAdvRRRQAUUUUAcH8Zf+PNP+vhf/AECSuo8K/wDHnb/9e8X/AKAK + 5f4y/wDHmn/Xwv8A6BJXUeFf+PO3/wCveL/0AUAalFFFABRRRQAV574d8YWuivdw3Emxzezs + BsduCQM5VSOoNehVy/gT/l8/6/5//ZaAMuXxPb65qNl9mff5f2jd8rLjdFx94D0NWvC+u6jr + iR3WyBYWbDZL72AYhmUAkDjgBj94E9CKteIP+QjYf9vX/ooUfDL/AJB0P/bT/wBGvQBS0vxH + f+IA1zZrbrBvKqJi5k4xy3lkgE9ccED1GGPW2E7zxq8iGNyPmQlWwfTKkgj0Pp1APA8x1S60 + 24Z5rtJLS9SQsyxFi5ZRkFW2lPm4O7CktznB3HvfB3n/AGSL7Xnztp3b/vYyduffbjOec/e5 + zQBs0UUUAFFFFABXl3wR/wCXn/tj/wC1K9Rry74I/wDLz/2x/wDalAHqNFFFABRRRQAV5n4+ + tWe++0xjMlraJMoJG0+XPk56ZAUk4BBOOPQ+mVyV1ard6o0LjKPpxVhkjIabBGRz0oAPGN0u + sRW9lEcrfSIeAQ3lLiR3BPAIGODzzgAnpi+Hr/7Hp1h8iP5l2qfvF3bd0snzLzww7HtT/AyS + X1wscxDf2XE0Xp+8Z2QMuAMr5aBfmxzzjOTVLTf+Qdpv/X+n/o2WgDpJ/Et3PdT6dbRoWi8o + q77hGoZNzbyDkknAQKB3J4U1f8Ma7LfNNaXKBZ7ZlDbDmNg4JRlySRkDkH26EkCr4f8A+Qjf + /wDbr/6KNHh//kI3/wD26/8Aoo0AdRRRRQAUUUUAFeXeO/8AkL2f/bD/ANHNXqNeXeO/+QvZ + /wDbD/0c1AHqNFFFABRRRQAVl+Kv+PO4/wCveX/0A1qVl+Kv+PO4/wCveX/0A0Ac5oHxEsbS + 2hheXDpDGrDy5DgqoBGQuOtZSeLRC2panaEOB9k2llYKeNh4+U+vp+Vdx4V/487f/r3i/wDQ + BXBeLf8AmLf9uP8A7LQB01zr15pEUl9eJEIVTKxxMxlDMyhVZj8uBnDEfUA9KNPv9TYJcSJb + yRsFJWFmEmGx91mbyyRnP3sEDAPINbmvTtBBI6RecQv+ryBuB4Ycg54zxg56AZNeXTtZZSTR + mmW8fYqxJu29dzb94IIAHI3FeASNuTQB7BRRRQAUUUUAFcv8Tf8AkHTf9s//AEaldRXL/E3/ + AJB03/bP/wBGpQAfDL/kHQ/9tP8A0a9dRXL/AAy/5B0P/bT/ANGvXUUAFFFFABRRRQB5d4f/ + AOJbfve/wT3tzbuTyASVeIADnLMCCeQB1x1o+KX/ABM3kA+5YwoSRwRJPIgCnPUbBkY6Hqe1 + WPsRntL6VMCS31CaZCezRbWJxyCduQAQRk8+or6l/pumXmpnrdzKVJ4by45VSNSBwCMHpnOe + STQB2f2//iZfZtif8em/ft/ef63bt3Z+73xjrzWHo/ijUdctxcW8UQKhtxl3AOwJwIwG6AAA + liAWJAxtNaX/ADF/+3D/ANrUfDL/AJB0P/bT/wBGvQBreHdaGt26XigqJAeDzgglSM9xkHB4 + yOw6VpVy/wAMv+QdD/20/wDRr11FABRRRQAUUUUAeEfC3/kIwf8AbT/0U9fQFfP/AMLf+QjB + /wBtP/RT19AUAFeVfHP/AJdf+23/ALTr1WvKvjn/AMuv/bb/ANp0AdJ8Mv8AkHQ/9tP/AEa9 + dRXL/DL/AJB0P/bT/wBGvXUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHB/Dv/AI/N + R/6+P/Z5a7yuD+Hf/H5qP/Xx/wCzy13lAHOePbV7m3CqpeMTRGWNAWd4ww3KoHOc4PBHAPNY + cVxpHiACGDy4ZyAUIQwurnhcFdgZgxHyhiCRxnGa6PxNeXFgYrmBWkjRyJYo1DOysMBhnnKH + nA655IAJrn/EHiux1+M2sK/aLiRXSICI7lZ1PzbpAoUAgEkHIxnoMgA2bW7aO/WzcI7iyDNL + sCyMRJtIyDgKT823se9VYPEd5rGbqxjjNsjEDzt6SSbfvFDjaAfuqW6EHdjkCLSoHt9SjilO + 6RNMQM2ScsJQCcnk5Pc81S8M+I08LRf2TeKyzwk7Ais/mh2ZlKYHUk4wcc45ByFALA8dTLZW + 2oFAzz3AR1RWJ27nHyDdncQoxkkZq0fEN7p0sP2yOMQ3MgjXymJkRn+4GJIDdwSoxwSD0Dc3 + pv8AyDtN/wCv9P8A0bLXU+O/+XP/AK/4P/ZqAJ9S1S8mma1s4lAjCky3G4RtuGdqhRknpk5w + CCCOhNPQvFFxrMc0MYh+1QMo3Bi1uwY5DAqS33QeOxxnHKjF8T/Z/tz/ANrb/I8tfs/3vL6D + zP8AV/Nu3evbrxsq74BlBu7vERtxIIWSJl8tti7lLBcDgnk4yATjJ6kAzfB+s3Ol2drxGYpr + lIk4YuFd5PMJ5AzkDbjIx1Fdn4l1l9L8jYAfOuYom3AnCvnJGCOeOOo9q4DT7wDT4EVWZ9Ou + kkuECkOiiSU9Gxk+uDx/FgA41vEXiiPW3tBbAvEt7BulIKqGycIAwBJxknsBj+9wAas+u311 + dT2VqkO2DyjvlLgfOmdpCnJJPQjAABBySKlu9du5nFlapG08Sobh3LCFC6khQMhznHBGcDAP + JO08P/8AIRv/APt1/wDRRrnvE2lW1nfSXOpRlre4CeXKrPhGRMFWCYOWxkdenH8W0A63Rdak + eRrC7Crcqm/91kxuhONwzyCD8pDc55GQeNyuN8FWdn5zz2MJWIRgCZmlAfc3Kqr5BCleWyCD + xjHNdlQBwfxE/wCPzTv+vj/2eKu8rg/iJ/x+ad/18f8As8Vd5QAUUUUAFFFRXV0tojTOcIil + mOCcBRknA56UAcfr9gfE94bEMBDbQMXyuf3sysqZUkAlVO9SBwcjIJ41/BOpPe2yrMf30DNF + J1J3RnHJJOSRgkgkEk/Sue8N+D5NUjOpTzzRzXZ3kQSbF2n7g/iJAU8ZPyghccHNrQdPPhi+ + NmXZ4bxGdDIdz+anLjI4yVO4sQM/KMkjkA57wfrelW1rHHdiMzDfu3QF25diPm2HPGO/tW/4 + USO4vpLqyQpaNbgFgpjieQPwVU4zgAgkAYOf72Wn8AWEeoaXFBKoZHEgIP8A11f8iOoI5B5H + NN8FXj6TI+iXL7niwYWORvjI6DI/hx0yccgcJQBh6TKdFludWBJj+3SxTKT8oQuCsoA5LIzY + xhiQxAxya6PW5RNf6c6kFWFyQQcggxAggjqDR4JiEwvUYAq19cAgjIIO0EEHqDWHbWsum6jZ + 6e4LRQfaPJkY8sjxZ2nqMxkbe3G35QMZAPR6KKKACiiigDL8Vf8AHncf9e8v/oBrL+GX/IOh + /wC2n/o161PFX/Hncf8AXvL/AOgGsv4Zf8g6H/tp/wCjXoA6iiiigAooooAK4OLxPb6HqN79 + pfZ5n2fb8rNnbFz90H1Fd5XL+H/+Qjf/APbr/wCijQBi+IvGFrrT2kNvJvcXsDEbHXgEjOWU + DqRWrPrt9dXU9lapDtg8o75S4HzpnaQpyST0IwAAQckipfHf/Ln/ANf8H/s1Hh//AJCN/wD9 + uv8A6KNAFebxHeXNwdOtlhE0MSNM0pbYWYKcIqndtGepHsccbt7RZ7lwyXaKrqfvRHMbg85A + J3AjoQw68gkHjlfGc9lNOYNSiMYEf7mdSx3ZxuHyA4Kk8Bgw6kgBhutfDlmYTeW0j2YZFgab + G47QVfHAO3IGBgAdMBtwoA7KiiigAooooAK4PR/+Q5df9e6/yhrvK4PR/wDkOXX/AF7r/KGg + DvKKKKACiiigArj/AIl2Qvo7a3bIWS8iU464YODjOeea7CuX8d/8uf8A1/wf+zUAVdG8RnT9 + MaWTAls1aJlwSokj+RFODzn5ckHHJ5HbD8JWB0BNQiKgtFbQsyyYZdxhd2U44K7iR9O561Lr + FkRetowx5N7PFOV7FAGacFvvBmaMEAHHHVckVduv9brH/XvH/wCk70AWrjxZLYpYrFEH+1Qk + mOMbcERqVVecKoLck52qM9qtWGu3drcx2V8kf+kKxjeAttygJZWDnPTHI9hzk7cu1/1uj/8A + XvJ/6TpWp4g/5CNh/wBvX/ooUAdRRRRQAUUUUAFcH8Zf+PNP+vhf/QJK7yuD+Mv/AB5p/wBf + C/8AoElAHeUUUUAFFFFABRRRQB5x4F8dWel2cVvNLtkTfkbHOMuxHIUjoa0NG12HWtUM1u29 + BZFSdrLyJgcYYA9CKv8Awy/5B0P/AG0/9GvR/wAxf/tw/wDa1AFXwvruo64kd1sgWFmw2S+9 + gGIZlAJA44AY/eBPQimaX4jv/EAa5s1t1g3lVExcycY5byyQCeuOCB6jDG78Mv8AkHQ/9tP/ + AEa9cjql1ptwzzXaSWl6khZliLFyyjIKttKfNwd2FJbnODuIB6dYTvPGryIY3I+ZCVbB9MqS + CPQ+nUA8CxWN4O8/7JF9rz5207t/3sZO3PvtxnPOfvc5rZoAKKKKACiiigDg/g1/x5v/ANfD + f+gR13lcH8Gv+PN/+vhv/QI67ygAooooAKKKKAPM/H1qz332mMZktbRJlBI2ny58nPTICknA + IJxx6Hf8Y3S6xFb2URyt9Ih4BDeUuJHcE8AgY4PPOACehdWq3eqNC4yj6cVYZIyGmwRkc9Ky + PAySX1wscxDf2XE0Xp+8Z2QMuAMr5aBfmxzzjOTQAzw9f/Y9OsPkR/Mu1T94u7bulk+ZeeGH + Y9q2p/Et3PdT6dbRoWi8oq77hGoZNzbyDkknAQKB3J4U1zem/wDIO03/AK/0/wDRstdT4f8A + +Qjf/wDbr/6KNAFrwxrst801pcoFntmUNsOY2DglGXJJGQOQfboSQN6uX8P/APIRv/8At1/9 + FGuooAKKKKACiiigDwdf+Qx/3EP/AGvX0DXz8v8AyGP+4h/7Xr6BoAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig + AooooAK+f/il/wAhGf8A7Z/+ikr6Ar5/+KX/ACEZ/wDtn/6KSgDu/wDhctn/AHJv++U/+OUf + 8Lls/wC5N/3yn/xytqigDF/4XLZ/3Jv++U/+OUf8Lls/7k3/AHyn/wAcraooAxf+Fy2f9yb/ + AL5T/wCOUf8AC5bP+5N/3yn/AMcraooAxf8Ahctn/cm/75T/AOOUf8Lls/7k3/fKf/HK2qKA + MX/hctn/AHJv++U/+OUf8Lls/wC5N/3yn/xytqigDF/4XLZ/3Jv++U/+OUf8Lls/7k3/AHyn + /wAcraooAxf+Fy2f9yb/AL5T/wCOVzPgDx/B4dga3mWQs0pb5ApGCqjuw54r0CigDF/4XLZ/ + 3Jv++U/+OUf8Lls/7k3/AHyn/wAcraooAxf+Fy2f9yb/AL5T/wCOUf8AC5bP+5N/3yn/AMcr + aooAxf8Ahctn/cm/75T/AOOUf8Lls/7k3/fKf/HK2qKAMX/hctn/AHJv++U/+OVga78Ug0qX + dkZAwUq0UyjyWHJDYV8hge/cY5ABDdzRQBw2ifEqFJmv7sO07xiMCKNQiKGJIBMmW3HBJIyD + kA4rf/4XLZ/3Jv8AvlP/AI5W1RQBi/8AC5bP+5N/3yn/AMco/wCFy2f9yb/vlP8A45W1RQBi + /wDC5bP+5N/3yn/xyj/hctn/AHJv++U/+OVtVh6/qk9vLDbW4TdN5nMu7A2AH+E/X1oAd/wu + Wz/uTf8AfKf/AByj/hctn/cm/wC+U/8AjlVTq93p0ka3axGOZwgMJbIZvu5DnkHnp9fQHan1 + WG3yHkRSpAO51GCwyAcnjIGR6igDP/4XLZ/3Jv8AvlP/AI5R/wALls/7k3/fKf8AxytKbUYo + FEruqo2MMWAU5GRgk4ORzTo7xJE85WUx4J3BgVwOpz04xzQBl/8AC5bP+5N/3yn/AMco/wCF + y2f9yb/vlP8A45Wt9oXb5u4bMbt2RtxjOc9MY5zTZLxI085mUR4B3FgFwehz05zxQBl/8Lls + /wC5N/3yn/xyj/hctn/cm/75T/45Wlb6jFcEBHViRuAVgcgHGeD0zxn14rL0TxKtxbx3NwyR + tJv4LBQdrEcbj9M0Acd/wmcP9q/2ttfyvTC7/wDU+X03Y6+/T8q7P/hctn/cm/75T/45Unib + XRo0LS/KZMfIrHGTkDp1OM5OO3cda0re4W4USIwZT0KkEHHHUUAZP/C5bP8AuTf98p/8co/4 + XLZ/3Jv++U/+OVT1XxK/2gWVs0OduSZWON27b5Y2n73t1PtjncutVhtDslkRCRnDuqnHrgmg + DP8A+Fy2f9yb/vlP/jlH/C5bP+5N/wB8p/8AHK1prhYMb2C7iFGSBknoBnqT6VXt9ZguGEaS + ozHoFdSTjnoDQBR/4XLZ/wByb/vlP/jlH/C5bP8AuTf98p/8crYEgJKZGQASM84OcHHvg/ka + bDcLPnYwbaSpwQcEdQcdCPSgDJ/4XLZ/3Jv++U/+OUf8Lls/7k3/AHyn/wAcrQtdVhuzsikR + yBnCOrHHrgGifVYbfIeRFKkA7nUYLDIByeMgZHqKAM//AIXLZ/3Jv++U/wDjlH/C5bP+5N/3 + yn/xytKbUYoFEruqo2MMWAU5GRgk4ORzVHS9YN7PPD8pjiERQr3Eibs5yQfbHagCP/hctn/c + m/75T/45R/wuWz/uTf8AfKf/ABypPE2ujRoWl+UyY+RWOMnIHTqcZycdu4603S9Z+Qtcywbv + vAxP8uzIXPzH+9kZ6ZwOtADf+Fy2f9yb/vlP/jlH/C5bP+5N/wB8p/8AHK0v7Ri2efvXy/7+ + 4beuPvZx14+tOtbxLsb4mVwDjKMGGfTIoA4Xx/4/g8RQLbwrIGWUN84UDAVh2Y881s6L8WbW + xgit2SUtHEinCpjKqAcZcccVujVYTtPmJiQ4T51+Yg4wOeeeOO9SNeIjiEsokYZClhuI55A6 + 9j+VAGX/AMLls/7k3/fKf/HKP+Fy2f8Acm/75T/45W1VOXWYIfvSoOSvLqOVxkcnqMjI7ZoA + o/8AC5bP+5N/3yn/AMco/wCFy2f9yb/vlP8A45WtcXC26mR2CqOpYgAZ46mo4dRinYxI6s65 + yoYFhg4OQDkYPFAGb/wuWz/uTf8AfKf/AByj/hctn/cm/wC+U/8AjlaEeqwyP5KyIZMkbQ6l + sjqMZzxjmpobhZ87GDbSVOCDgjqDjoR6UAZP/C5bP+5N/wB8p/8AHKP+Fy2f9yb/AL5T/wCO + Va1TUfKR/KeISR7c+a2FXcRjdg5GR09TirlxcLbqZHYKo6liABnjqaAMn/hctn/cm/75T/45 + R/wuWz/uTf8AfKf/ABytS1vEuxviZXAOMowYZ9MinW9wtwokRgynoVIIOOOooAyf+Fy2f9yb + /vlP/jlH/C5bP+5N/wB8p/8AHK1I7xJE85WUx4J3BgVwOpz04xzUdrqsN2dkUiOQM4R1Y49c + A0AZ/wDwuWz/ALk3/fKf/HKP+Fy2f9yb/vlP/jla1xcLbqZHYKo6liABnjqazfDWujWYhN8o + fLZVTkqNzBc9+QPbPUCgCP8A4XLZ/wByb/vlP/jlcZ8OvGcPhrzvOVz5vl42BT93dnOWX+9X + odrqsN2dkUiOQM4R1Y49cA1JdXiWg3ysqAnGXYKM+mTQBl/8Lls/7k3/AHyn/wAco/4XLZ/3 + Jv8AvlP/AI5TtW1zyFhkhKus06Rk53DDZBIIPUY9/pWhDqMU7GJHVnXOVDAsMHByAcjB4oAz + f+Fy2f8Acm/75T/45R/wuWz/ALk3/fKf/HK0pNRii3bnUeXjdlgNu7pnnjPbPWmy3gkiaaJk + I2sVYtmPIB5JHYEc/jQBn/8AC5bP+5N/3yn/AMco/wCFy2f9yb/vlP8A45Wlb3H7pZZGX7gZ + mU/J0ySCf4e4J7UWmoxXmfKdX24zsYNjPTOCfSgDN/4XLZ/3Jv8AvlP/AI5R/wALls/7k3/f + Kf8AxytCTVYY38lpEEmQNpdQ2T0GM55zxVXUNUa3uLe2AG2bzdxOcjYoIxz+fWgCH/hctn/c + m/75T/45R/wuWz/uTf8AfKf/ABytqsvwzqjarbpcuAGfdkLkDhiO5PpQBD/wuWz/ALk3/fKf + /HKP+Fy2f9yb/vlP/jlaFrqsN2dkUiOQM4R1Y49cA1JdXiWg3ysqAnGXYKM+mTQBl/8AC5bP + +5N/3yn/AMco/wCFy2f9yb/vlP8A45WpBeJcZCMrEAE7WBwGGVPHqOR6ipqAMX/hctn/AHJv + ++U/+OVxniXxnDql/BqCK4jh8rcGChjskLnADEdDxyOa9NrhPE3/ACFbT/eg/wDRxoA6H/hc + tn/cm/75T/45R/wuWz/uTf8AfKf/AByu8ooA4P8A4XLZ/wByb/vlP/jlH/C5bP8AuTf98p/8 + crvKKAOD/wCFy2f9yb/vlP8A45R/wuWz/uTf98p/8crvKKAOD/4XLZ/3Jv8AvlP/AI5R/wAL + ls/7k3/fKf8Axyu8ooA4P/hctn/cm/75T/45R/wuWz/uTf8AfKf/AByu8ooA4P8A4XLZ/wBy + b/vlP/jlH/C5bP8AuTf98p/8crvKKAOD/wCFy2f9yb/vlP8A45R/wuWz/uTf98p/8crvKKAO + D/4XLZ/3Jv8AvlP/AI5WL4w+JltrVrJaRrIHfZgsqhfldWPRyeg9K9Wrl/ib/wAg6b/tn/6N + SgDkfB/xMttFtY7SRZC6b8lVUr8zsw6uD0PpW1/wuWz/ALk3/fKf/HK1Phl/yDof+2n/AKNe + uooA4P8A4XLZ/wByb/vlP/jlH/C5bP8AuTf98p/8crvKKAOD/wCFy2f9yb/vlP8A45R/wuWz + /uTf98p/8crvKKAOD/4XLZ/3Jv8AvlP/AI5R/wALls/7k3/fKf8Axyu8ooA4P/hctn/cm/75 + T/45R/wuWz/uTf8AfKf/AByu8ooA4P8A4XLZ/wByb/vlP/jlH/C5bP8AuTf98p/8crvKKAOD + /wCFy2f9yb/vlP8A45R/wuWz/uTf98p/8crvKKAOD/4XLZ/3Jv8AvlP/AI5R/wALls/7k3/f + Kf8Axyu8ooA8I+Fv/IRg/wC2n/op6+gK+f8A4W/8hGD/ALaf+inr6AoAK8q+Of8Ay6/9tv8A + 2nXqteVfHP8A5df+23/tOgCr4P8AiZbaLax2kiyF035KqpX5nZh1cHofStr/AIXLZ/3Jv++U + /wDjlQ+Av+PKL/gf/oxq6CgDF/4XLZ/3Jv8AvlP/AI5R/wALls/7k3/fKf8AxytqigDF/wCF + y2f9yb/vlP8A45R/wuWz/uTf98p/8craooAxf+Fy2f8Acm/75T/45R/wuWz/ALk3/fKf/HK2 + qKAMX/hctn/cm/75T/45R/wuWz/uTf8AfKf/ABytqigDF/4XLZ/3Jv8AvlP/AI5R/wALls/7 + k3/fKf8AxytqigDF/wCFy2f9yb/vlP8A45R/wuWz/uTf98p/8craooAxf+Fy2f8Acm/75T/4 + 5R/wuWz/ALk3/fKf/HK2qKAPP/Cvj+DSJ7u4kWQrcy7l2hSQNznnLDn5h0z3rpv+Fy2f9yb/ + AL5T/wCOVtUUAYv/AAuWz/uTf98p/wDHKP8Ahctn/cm/75T/AOOVtUUAYv8AwuWz/uTf98p/ + 8crkYPidPY5t4nLwljtknTfOqt/wPaxXnGeD3wPlHpFFAHK6D8TrHR4I7REmIjXGdqck8s2D + IcZJJxnjOBxWh/wuWz/uTf8AfKf/ABytqigDF/4XLZ/3Jv8AvlP/AI5R/wALls/7k3/fKf8A + xytqigDF/wCFy2f9yb/vlP8A45R/wuWz/uTf98p/8craooAxf+Fy2f8Acm/75T/45R/wuWz/ + ALk3/fKf/HK2qKAMX/hctn/cm/75T/45R/wuWz/uTf8AfKf/ABytqigDz/xV4/g1ee0uI1kC + 20u5twUEjch4wx5+U9cdq6b/AIXLZ/3Jv++U/wDjlbVFAGL/AMLls/7k3/fKf/HKP+Fy2f8A + cm/75T/45W1RQBi/8Lls/wC5N/3yn/xyj/hctn/cm/75T/45W1RQBi/8Lls/7k3/AHyn/wAc + o/4XLZ/3Jv8AvlP/AI5W1RQBi/8AC5bP+5N/3yn/AMco/wCFy2f9yb/vlP8A45W1RQBi/wDC + 5bP+5N/3yn/xyj/hctn/AHJv++U/+OVtUUAYv/C5bP8AuTf98p/8co/4XLZ/3Jv++U/+OVtU + UAYv/C5bP+5N/wB8p/8AHKP+Fy2f9yb/AL5T/wCOVtUUAcxrXxZtb6CW3VJQ0kTqMqmMspAz + hzxzVLwf8TLbRbWO0kWQum/JVVK/M7MOrg9D6V2lFAGL/wALls/7k3/fKf8Axyj/AIXLZ/3J + v++U/wDjlbVFAGL/AMLls/7k3/fKf/HKP+Fy2f8Acm/75T/45W1RQBi/8Lls/wC5N/3yn/xy + j/hctn/cm/75T/45W1RQBi/8Lls/7k3/AHyn/wAco/4XLZ/3Jv8AvlP/AI5W1RQBi/8AC5bP + +5N/3yn/AMco/wCFy2f9yb/vlP8A45U3ibVG0q3e5QAsm3AbJHLAdiPWs28vdRsUM7rAyRjc + wQyBio5bBbjp/wDqPSgC5/wuWz/uTf8AfKf/AByj/hctn/cm/wC+U/8AjlXotWidElLBRKm9 + Q5CnG3ce/Ycn0qSHUYp1MqOrIucsGBUYGTkg4GBzQBm/8Lls/wC5N/3yn/xyj/hctn/cm/75 + T/45WlaajFeZ8p1fbjOxg2M9M4J9KkhuFnzsYNtJU4IOCOoOOhHpQBk/8Lls/wC5N/3yn/xy + uZsPH8FvqU2plZPLliCgALvyBGORuxj5D39K7yG4WfOxg20lTgg4I6g46EelV4tZgm+7Kh5C + 8Op5bOBwepwcDvigCj/wuWz/ALk3/fKf/HKP+Fy2f9yb/vlP/jlOt9c/f3EUpVY7fysMTt/1 + i5OSTjrwOlaH9oxbPP3r5f8Af3Db1x97OOvH1oAzf+Fy2f8Acm/75T/45R/wuWz/ALk3/fKf + /HKk8Na6NZiE3yh8tlVOSo3MFz35A9s9QKh8T+If7KVUQp5sjqoEjYChs/OQOdoxjPb8MEAd + /wALls/7k3/fKf8Axyj/AIXLZ/3Jv++U/wDjlWrbUfIhWW6eJS38StiM5yVwWPOV5/PHFWo7 + xJE85WUx4J3BgVwOpz04xzQBl/8AC5bP+5N/3yn/AMco/wCFy2f9yb/vlP8A45VyTXbePhpY + wcA8yKOCMg9e4OR7VcaQJgEgFjgZPU4JwPwBP0FAGP8A8Lls/wC5N/3yn/xyj/hctn/cm/75 + T/45Wt9oXd5W4b8btuRuxnGcdcZ4zUMmqwxv5LSIJMgbS6hsnoMZzznigDP/AOFy2f8Acm/7 + 5T/45R/wuWz/ALk3/fKf/HK1J7xLfAdlUkEjcwGQoyx59ByfQU2HUYp1MqOrIucsGBUYGTkg + 4GBzQBm/8Lls/wC5N/3yn/xyj/hctn/cm/75T/45RN4gDzwQwsjxzGUMVO7BRAwAIOO/Oc8V + tUAYv/C5bP8AuTf98p/8crmfH/j+DxFAtvCsgZZQ3zhQMBWHZjzzXoFcf8UP+PZP+uy/+gPQ + Brf8Lls/7k3/AHyn/wAco/4XLZ/3Jv8AvlP/AI5XeUUAcH/wuWz/ALk3/fKf/HKP+Fy2f9yb + /vlP/jld5RQBwf8AwuWz/uTf98p/8co/4XLZ/wByb/vlP/jld5RQBwf/AAuWz/uTf98p/wDH + KP8Ahctn/cm/75T/AOOV3lFAHB/8Lls/7k3/AHyn/wAco/4XLZ/3Jv8AvlP/AI5XeUUAcH/w + uWz/ALk3/fKf/HKP+Fy2f9yb/vlP/jld5RQBwf8AwuWz/uTf98p/8co/4XLZ/wByb/vlP/jl + d5RQBwf/AAuWz/uTf98p/wDHKP8Ahctn/cm/75T/AOOV3lFAHjvgDx/B4dga3mWQs0pb5ApG + Cqjuw54rpv8Ahctn/cm/75T/AOOUfBr/AI83/wCvhv8A0COu8oA4P/hctn/cm/75T/45R/wu + Wz/uTf8AfKf/AByu8ooA4P8A4XLZ/wByb/vlP/jlH/C5bP8AuTf98p/8crvKKAOD/wCFy2f9 + yb/vlP8A45R/wuWz/uTf98p/8crvKKAOD/4XLZ/3Jv8AvlP/AI5R/wALls/7k3/fKf8Axyu8 + ooA4P/hctn/cm/75T/45R/wuWz/uTf8AfKf/AByu8ooA4P8A4XLZ/wByb/vlP/jlH/C5bP8A + uTf98p/8crvKKAOD/wCFy2f9yb/vlP8A45R/wuWz/uTf98p/8crvKKAPn/Tb0X2qR3C5CyXq + sM9cNKCM4zzzX0TXz8v/ACGP+4h/7Xr6BoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA + CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+f8A4pf8hGf/ + ALZ/+ikr6Ar5/wDil/yEZ/8Atn/6KSgD1WiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigArl/FMLz3VokT+W58/DbQ2PkGeDwcjiuorH1zQ31B4 + p4pfKeHfg7A/3wAeCQOg9+tAGLq9ncaYY765lE8MDZZNgjOWwgYAZDEE5GcYxweasWOlxXt9 + dtKiuVEIG8BgNyc8HjsOev5mrQ8NzXJC3VwZYwQ2wRogJUggNjOV9R34PatCy0n7NPNc7s+f + 5fGMY2Lt655z9BigDFttNTUb2ZJQGjtViWOMgeWodMn5cY7cf/WXFO+tRpkt1bRZEUllJKU/ + hD5K5A7cdv6AAbmq+HPtMgu4HMMwGCwUMGXHQqSAccYP+Awab4YS3EhmJllnBEjsMEqeNoAP + yjHYH9AAACH/AJhv/bn/AO0qy9NhGoTW1vL80UdkkgQgFSx+TJBBzgHj0PTvm4fBryRm1e4Z + oACEQqBg87NzA5YL1xwMgdAMVX1e0htmt7ZpDDPFGvl3G0BDs4KHJwcjnB4GcZ+bDAFiz0+O + y1IrEoUNa5IUYGfMA6dBwB0+vWqvgrw7Bd2iySqHMgYfPztAZhhf7vc8c5JOemHeHYzLevKJ + vP2wBXkG0KGZ8qqgcY2rnjIznJycV0GgaT/ZMCW27ds3c4xnLFumT6+tAHGzxifR1lcBnQYV + mGWA84LgE8jgAcduK763t1t1EaKFUdAoAAzz0FYsfhUCy/sxnJGD84GOd+8cZPfrzyO4rWsI + XgQJK/mOM5baFzyccDgYHFAHP/2dF/aX3F/49t/3R9/zfv8AT73v1qHwposWqW/2u4USS3Bb + cz4JGCVAX+7wO2D+AAG9/ZP+k/bd3/LHy9uP9vdnOfwxj8ay5fCTws/2ScwRy8sgQMAehKnI + 259unY4AAAOfkh86FLOQl449SEQ3HnYARjIx6n6dBgAVveINMi0vyr6JUj8mVN7KoHyOdjjC + jnr6ZAzjnrabwpHHHDBEdiwzJJ0yWK5zk5HJ9e3QDGBWteWou0aFs4dWU464YYNAHGxXv2O7 + k1Bkba5uIye2IEQgjgZLeWwxn8flOSS2SGwR7jcz3EgkKxEjzXkyyocDgEYyABgj5cnGdqfw + oJ7dLNpHyjFi4PzMW3b8/wC8HYd+vO7nN7XNHXVo/KJKspDIynlWHRu3r/hg4IAORvrSSGW2 + uPIjtx9ojTEbAyHceclMLtI4weevYmtSx0uK9vrtpUVyohA3gMBuTng8dhz1/M1JN4QkumSe + adnmiYFCUURjBBwUUjOcckMD09K1rLSfs081zuz5/l8YxjYu3rnnP0GKAMmzs0vrueKVVZLd + YVjVlBRQy5bC9OSBzjOBjOOKPDdmlnd3kcYCqDCQB0G5WJ/U9Og7cVoalojSv59vIYZWADEK + HDAdMqeMjs3UDI6dG6HoDaa8szyGRptmSwwcqDnoehzwMfKMDmgCn8QLdZLSSQqCybdpIBIy + 6g4PbPeq8ujwy6gsTRrsS1yq7RtB8wj7vT+I9uvPWtzX9J/taB7bdt37ecZxhg3TI9PWj+yf + 9J+27v8Alj5e3H+3uznP4Yx+NAGLd6al1ex2TACCKDzRGoATfvK5IA569P6EgulsV0q+g8j5 + FuBIJEXAQ+WuVO3see39TnS1vw+NRKzIxjnjPyyKMnHdSOMg88H+RIMeleHPs0hu53M0xGAx + UKFXHQKCQM85P+JyAczo+hQy6a9w67nMcpBbnbsLlQv90ZGTjqSc5HFSarpSQ6cL3k3GIZPN + ZiZNzFR97rgA4A6DAPXmuksfD/2W0On785SRd23H3y3OM9s+tF94f+1Wg0/fjCRru25+4V5x + nvj1oA2K5Pwzo8N011LJGrt9qlGXUNwCCMZzjqenXv0FdZXE6RpM14bkwztEDdTKwChgemCM + kFTyckHJ46YoApzr5OnXVvklYLhkXOM7RIh7AZ5JP/1q3PElmmiWkktsqxuFVQyKA+Cyg/N1 + 6d85zznPNWrnwpGbU6fEditt+bG4khgSTyMk4/DtwAK1ryzS8QwyAMjDBB/z+R6g8igDi5NK + lEZhisFRsHa4nQurZyG3fe4PPX26Ve064bRJj9pOBcwiQ46CSJP3w2pkZI+YsMZ6DJqaPwlK + E+ytcubfBGwIofb2XzOT7HjBHGAK0Nb8OJqiLFkp5Z4KAAhSNrIPQMvGOnTIIGCAczqNux06 + e7cYe5dZOeSFLrsXd3AXkdMZxgVranajU75LaXJijg80J/CX37ckd+O39CQdTWtFGpW7WakI + CFAwuQApBAxkemKj1vw+NRKzIxjnjPyyKMnHdSOMg88H+RIIBmy2K6VfQeR8i3AkEiLgIfLX + Knb2PPb+pzY8Bf8AHlF/wP8A9GNU2leHPs0hu53M0xGAxUKFXHQKCQM85P8Aic1YfCDQ5gWZ + hasSTDjnB5K+ZncFJ6gdQSM5JNAGTp+kvqelxRxYyrM20khXCyP8hII69evUDkdRYtLuKGZI + 57Q27+YoR4wNpZgcAugXOemPmB53AYNaSeEVFqliXO6IlkkUbSG3EhsZ7Zx1+mDggi8NSzSJ + LdTmVYjuVQgjG4dGO0847f4ZBANy4t1uFMbqGU9QwBBxz0Nee2w8jToPKUFricI4XCNIu+T5 + C/UZxjOeBx0zXo1c7aeDlSFrKVzJCT+7BUKycschh1PPXGO2MEigDHudPuNgFvZLDIhUpIss + ZYY456FsjIIYkHOTmtKKxXVb6fz/AJ1txGI0bBQeYuWO3ueO/wDQYmi8MSy7Y7m4aWJCp2bF + XcVII3H5iw9Qep5zkVa1LQDNJ9qt38mYjazBFfcvHBB7jAweuOORjABh+I/D0dkI1iLIs95D + wrYCkhgSnHyn/AYwABVjXtHh01rWSBAjC5iTKcEq2QQSOucc5yevqc2I/B2NsjyFpfPSV3K/ + e8vO1QucKAD7/lgDU1fSf7R8r5tvlTJJ0znZnjqMZz1/SgDDtNJjv7+6aUbgnk4VuUJMeMle + hIGcZ6ZPfpXS3W0OpQRjbGsYIUfdBeJi2B2z7egHQCukstJ+zTzXO7Pn+XxjGNi7euec/QYq + vJ4f3tcvv/4+0Vfu/d2oUz15657UAYc8P25NPsnJ8qWPLqDjd5casoJ64z/j1AI2Lzw7b2xN + 2uYdkbhjD8g2lTkkAdV6jHOQOuBUlx4bWeGKAnEluE8uQAZVkAwcHPBxyp4P1AIrweFmmfzr + uUzkIyKNvlqA4IbhTySDjPH44GADmZdP+0WjeTaokSxswlmYGRlXJyAoDBj1GTtxxypFbEch + ll012JJMUhJJySTCuTmpv+ELeVPsstw7W4+6gVVYYPygvzuA9MAdMYwBV6Dw8YzbOzgm0V14 + XG4MoUfxHGAOeuT6UAbVef2rM2nWsAYqs84jfbwdrO+Rnn0/oeMivQKw7bwpGLUafKd6ru+b + G0gliQRycEZ/HvwSKAM3xXosWl2/2u3URy25XayYBOSFIb+9we+T+BINiC0XU724E4DrAsao + rgFB5i7mOCOuR16446Yw6Lwk8zJ9rnM8cXKoUCgnoCxyd2Pfr3OCQausmFrolJTa3CKMu6rs + kRh/tEBsHA59Oh2gqAWPDdmlnd3kcYCqDCQB0G5WJ/U9Og7cV01cr4NizLczBzKrNGvmHHzM + qnfgDoAW47YwASBXVUAFcJ4m/wCQraf70H/o413dcJ4m/wCQraf70H/o40Aeu0UUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFcv8Tf+QdN/wBs/wD0aldRXL/E3/kHTf8AbP8A9GpQAfDL + /kHQ/wDbT/0a9dRXL/DL/kHQ/wDbT/0a9dRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAeEfC3/AJCMH/bT/wBFPX0BXz/8Lf8AkIwf9tP/AEU9fQFABXlXxz/5df8Att/7Tr1WvKvj + n/y6/wDbb/2nQBa8Bf8AHlF/wP8A9GNXQVz/AIC/48ov+B/+jGroKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDn/Hv/HlL/wAA + /wDRi1V1Pw5e3UbRfag24YIMSxgjPI3Lkjj256Hg1ta/pP8Aa0D227bv284zjDBumR6etZ/9 + h3b/ACvdnaeu2FFbHfDA8H0PbrQBkyyxa7JYMUAjYT/IcYGxRxxwQCvHYjqO1XNe01HlttPU + BIJmkZ0jAQMY1DDOB+f+IBGknhtYXt2Q4W1DgDA+beu3JIxg9zxyTU2uaGmroFYlXQ5R1+8r + eo/qO/sQCADH1zTU0uW3ubcCNmnSJggCqyOSSCoGO3X+oGLXhD/l5/6/Jv8A2WnWfhljKLm6 + lM7Rj5AUCKpzkttBIJ6YPb3IGGy+F3SR3gnaKOY7nQKG5P3irE/KT6gcH2AAAOfkZmjlgDFV + n1No328Ha3UZ59P6HjIrU8TaPDatayxxqjfaohlFC8EknOMZ6Dr07dTTb7Q7fRbZ4ZwzQyT5 + BReY9wAU5JJ+XGM8k5xg5wc+eIzSW0X2oXLLOhCrtACoCXZiCckADBJz97GSTQBpWmkx39/d + NKNwTycK3KEmPGSvQkDOM9Mnv0k0PT41uLy02jyQYSEIymWUsflOR1A/IegrYstJ+zTzXO7P + n+XxjGNi7euec/QYostJ+zTzXO7Pn+XxjGNi7euec/QYoAy/h/brHaRyBQGfduIABOHYDJ74 + 7U3xnZpKbZ2VSTdRKSVBJU7srn09ulaHh7RG0dTD5heMH5FKgFQSSeR97OfbpwKm1fSf7R8r + 5tvlTJJ0znZnjqMZz1/SgDFttNTUb2ZJQGjtViWOMgeWodMn5cY7cf8A1lxTvrUaZLdW0WRF + JZSSlP4Q+SuQO3Hb+gAG5qvhz7TILuBzDMBgsFDBlx0KkgHHGD/gMR2vhURJMHcvPcKytKw5 + wwwAFzwBxwDzj0AAAKdn4Vgu7FUWNPMeBSGI+bey7gd33vvfpxjHFY+p6mdRWC72s5tYEmJX + gF/NRXU/LxjY5yPTI4HPdadafY4kgzny0Vc4xnaAM459Kz7fw0sX2gF2IucggkfKG3EheP7z + sfxHGckgGfaMt5Ld3rsVSMGEMOHQIMyEYz/EcqeT9OlYMun/AGi0bybVEiWNmEszAyMq5OQF + AYMeoyduOOVIrtrDR1t4PsjkuCGDFjy28kseOeST3z7k81j/APCFvKn2WW4drcfdQKqsMH5Q + X53AemAOmMYAoAp3FuuoPpqzDeGjctu5yREjc+vI5z171e1ezSOe2slVVhlaVnRVCqxRAVyB + jOD2PBwMg4FXIPDxjNs7OCbRXXhcbgyhR/EcYA565PpVzVdKF+AQSkiHKOv3lP8AUHoyngj8 + CADDvtLisr60aJFQsJgdgCg7U44HHc89fyFdVXP23hqUTx3c05kaLfgbAq4ZccAHg85J5zwO + MV0FABXH/FD/AI9k/wCuy/8AoD12Fcf8UP8Aj2T/AK7L/wCgPQB6lRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAcH8Gv+PN/+vhv/QI67yuD+DX/AB5v/wBfDf8AoEdd5QAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeDr/AMhj/uIf+16+ga+fl/5DH/cQ/wDa9fQNABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABXz/wDFL/kIz/8AbP8A9FJX0BXz/wDFL/kIz/8AbP8A9FJQB0H9 + l69/d/W3/wAaP7L17+7+tv8A417BRQB4/wD2Xr3939bf/Gj+y9e/u/rb/wCNewUUAeP/ANl6 + 9/d/W3/xo/svXv7v62/+NewUUAeP/wBl69/d/W3/AMaP7L17+7+tv/jXsFFAHj/9l69/d/W3 + /wAaP7L17+7+tv8A417BRQB4/wD2Xr3939bf/Gj+y9e/u/rb/wCNewUUAeP/ANl69/d/W3/x + rP0S61jW0M1sd6BipOIF5ABxhsHoRXuFef8AwU/485P+vhv/AECOgDn/AOy9e/u/rb/40f2X + r3939bf/ABr2CigDx/8AsvXv7v62/wDjR/Zevf3f1t/8a9gooA8f/svXv7v62/8AjR/Zevf3 + f1t/8a9gooA8f/svXv7v62/+NH9l69/d/W3/AMa9gooA8f8A7L17+7+tv/jR/Zevf3f1t/8A + GvYKKAPH/wCy9e/u/rb/AONH9l69/d/W3/xr2CigDx/+y9e/u/rb/wCNH9l69/d/W3/xr2Ci + gDx/+y9e/u/rb/40f2Xr3939bf8Axr2CigDx/wDsvXv7v62/+NH9l69/d/W3/wAa9gooA8f/ + ALL17+7+tv8A41DdeHtbuxsljVwDnD/ZmGfXBr2aigDxu30LXLdRGiBVHQL9mAGeegqT+y9e + /u/rb/417BRQB4V/amrfaf7N3f6R/cxD/d3/AHsbfu89f1rV/svXv7v62/8AjVv/AJmP/P8A + z616rQB4/wD2Xr3939bf/Gj+y9e/u/rb/wCNewUUAeP/ANl69/d/W3/xo/svXv7v62/+NewU + UAeP/wBl69/d/W3/AMaP7L17+7+tv/jXsFFAHj/9l69/d/W3/wAaP7L17+7+tv8A417BRQB4 + /wD2Xr3939bf/Gj+y9e/u/rb/wCNewUUAeP/ANl69/d/W3/xo/svXv7v62/+NewUUAeP/wBl + 69/d/W3/AMaP7L17+7+tv/jXsFFAHh+t3WsaIgmuTsQsFBxA3JBOMLk9Aat2lrrl2izRjKSK + GU5txkMMg4PPSul+Nf8Ax5x/9fC/+gSV1XhP/jztv+veH/0BaAPNf7L17+7+tv8A41HDoWuQ + Z2IF3EscfZhknqTjqT617JRQB4//AGXr3939bf8Axo/svXv7v62/+NewUUAeP/2Xr3939bf/ + ABo/svXv7v62/wDjXsFFAHj/APZevf3f1t/8aP7L17+7+tv/AI17BRQB4/8A2Xr3939bf/Gj + +y9e/u/rb/417BRQB4//AGXr3939bf8Axo/svXv7v62/+NewUUAeP/2Xr3939bf/ABo/svXv + 7v62/wDjXsFFAHj/APZevf3f1t/8aytC1TVte3fZm3+Xt3cQrjdnH3gPQ9K91ryr4Gf8vX/b + H/2pQBU/svXv7v62/wDjR/Zevf3f1t/8a9gooA8f/svXv7v62/8AjR/Zevf3f1t/8a9gooA8 + f/svXv7v62/+NH9l69/d/W3/AMa9gooA8f8A7L17+7+tv/jR/Zevf3f1t/8AGvYKKAPH/wCy + 9e/u/rb/AONH9l69/d/W3/xr2CigDx/+y9e/u/rb/wCNV7vw1rV5jzYlfbnG8WrYz1xnPpXt + FFAHjseja7EAiqAAAAAbYAAdBjNO/svXv7v62/8AjXsFFAHj/wDZevf3f1t/8a5vWbfUIbuF + bgYuj5flf6v++dn3fl+9nr+PFfQleVePv+QzZ/8Abv8A+j2oAZ5fiL/P2ajy/EX+fs1esUUA + eT+X4i/z9mo8vxF/n7NXrFFAHk/l+Iv8/ZqPL8Rf5+zV6xRQB5P5fiL/AD9mo8vxF/n7NXrF + FAHk/l+Iv8/ZqPL8Rf5+zV6xRQB5P5fiL/P2ajy/EX+fs1esUUAeT+X4i/z9mo8vxF/n7NXr + FFAHk/l+Iv8AP2asvxQmsi3f7b/x7/Lv/wBR/eG37nzfex0/lXtlcp8Uv+QdP/2z/wDRqUAe + feF01k26fYv+Pf5tn+o/vHd9/wCb72ev8q1PL8Rf5+zV1vwt/wCQdB/20/8ARr11dAHk/l+I + v8/ZqPL8Rf5+zV6xRQB5P5fiL/P2ajy/EX+fs1esUUAeT+X4i/z9mo8vxF/n7NXrFFAHk/l+ + Iv8AP2ajy/EX+fs1esUUAeT+X4i/z9mo8vxF/n7NXrFFAHk/l+Iv8/ZqPL8Rf5+zV6xRQB5P + 5fiL/P2ajy/EX+fs1esUUAfP/wALf+QjB/20/wDRT19AV8//AAt/5CMH/bT/ANFPX0BQAV5V + 8c/+XX/tt/7Tr1WvKvjn/wAuv/bb/wBp0AYPhuw1eW3RrMZgO7bzD/eOfvnd97PX+Vaf9l69 + /d/W3/xrtfhb/wAg6D/tp/6NeuroA8f/ALL17+7+tv8A40f2Xr3939bf/GvYKKAPH/7L17+7 + +tv/AI0f2Xr3939bf/GvYKKAPH/7L17+7+tv/jR/Zevf3f1t/wDGvYKKAPH/AOy9e/u/rb/4 + 0f2Xr3939bf/ABr2CigDx/8AsvXv7v62/wDjR/Zevf3f1t/8a9gooA8f/svXv7v62/8AjR/Z + evf3f1t/8a9gooA8f/svXv7v62/+NH9l69/d/W3/AMa9gooA8P0261jUnlhhO54G2yDEAwck + YycA8qema0P7L17+7+tv/jXQfDj/AI/NS/6+P/Z5q9AoA8f/ALL17+7+tv8A40f2Xr3939bf + /GvYKKAPH/7L17+7+tv/AI0f2Xr3939bf/GvYKKAPH/7L17+7+tv/jR/Zevf3f1t/wDGvYKK + APH/AOy9e/u/rb/40f2Xr3939bf/ABr2CigDx/8AsvXv7v62/wDjR/Zevf3f1t/8a9gooA8f + /svXv7v62/8AjR/Zevf3f1t/8a9gooA8f/svXv7v62/+NH9l69/d/W3/AMa9gooA8P1K61jT + XihmO1522xjEBycgYyMgcsOuK0P7L17+7+tv/jXQfEf/AI/NN/6+P/Z4a9AoA8f/ALL17+7+ + tv8A40f2Xr3939bf/GvYKKAPH/7L17+7+tv/AI0f2Xr3939bf/GvYKKAPH/7L17+7+tv/jR/ + Zevf3f1t/wDGvYKKAPH/AOy9e/u/rb/40f2Xr3939bf/ABr2CigDx/8AsvXv7v62/wDjR/Ze + vf3f1t/8a9gooA8f/svXv7v62/8AjR/Zevf3f1t/8a9gooA8f/svXv7v62/+NH9l69/d/W3/ + AMa9gooA8au7XXLRGmkGEjUsxzbnAUZJwOelQ6X/AG1qsa3MHzRvnB/cDOCQeDg9Qe1eq+LP + +PO5/wCveb/0Bqyvhb/yDoP+2n/o16AOK/svXv7v62/+NH9l69/d/W3/AMa9gooA8f8A7L17 + +7+tv/jR/Zevf3f1t/8AGvYKKAPH/wCy9e/u/rb/AONH9l69/d/W3/xr2CigDx/+y9e/u/rb + /wCNH9l69/d/W3/xr2CigDx/+y9e/u/rb/40f2Xr3939bf8Axr2CigDx/wDsvXv7v62/+NH9 + l69/d/W3/wAa9gooA8f/ALL17+7+tv8A40f2Xr3939bf/GvYKKAPHZNG12UFGUEEEEE2xBB6 + jGaydOh1OGd7CBVWdFDOqJbrxxgkgAH747nr9a94rz/Rv+Q9df8AXuv8oKAOf/svXv7v62/+ + NH9l69/d/W3/AMa9gooA8f8A7L17+7+tv/jR/Zevf3f1t/8AGvYKKAPH/wCy9e/u/rb/AONH + 9l69/d/W3/xr2CigDx/+y9e/u/rb/wCNH9l69/d/W3/xr2CigDx/+y9e/u/rb/40f2Xr3939 + bf8Axr2CigDx/wDsvXv7v62/+NH9l69/d/W3/wAa9gooA8f/ALL17+7+tv8A40f2Xr3939bf + /GvYKKAPH/7L17+7+tv/AI1h+L7LU4Ila/GIt4xzF97DY+5z0z7V75Xn/wAa/wDjzj/6+F/9 + AkoAx/L8Rf5+zUeX4i/z9mr1iigDyfy/EX+fs1Hl+Iv8/Zq9YooA8n8vxF/n7NR5fiL/AD9m + r1iigDyfy/EX+fs1Hl+Iv8/Zq9YooA8n8vxF/n7NR5fiL/P2avWKKAPJ/L8Rf5+zUeX4i/z9 + mr1iigDyfy/EX+fs1Hl+Iv8AP2avWKKAPJ/L8Rf5+zUeX4i/z9mr1iigDwjwWmqmFv7O/wBV + 5hz/AKn721c/6znpj2/Wt/y/EX+fs1bHwU/485P+vhv/AECOvQKAPJ/L8Rf5+zUeX4i/z9mr + 1iigDyfy/EX+fs1Hl+Iv8/Zq9YooA8n8vxF/n7NR5fiL/P2avWKKAPJ/L8Rf5+zUeX4i/wA/ + Zq9YooA8n8vxF/n7NR5fiL/P2avWKKAPJ/L8Rf5+zUeX4i/z9mr1iigDyfy/EX+fs1Hl+Iv8 + /Zq9YooA+dNIEg1KLz/9b9sTf0+95o3fd4656celfRdfP/8AzGf+4h/7Xr6AoAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAK+f/il/wAhGf8A7Z/+ikr6Ar5/+KX/ACEZ/wDtn/6KSgD6AorJ/wCEss/+ + fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+ + T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/ + wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWor + J/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1q8/+Cn/HnJ/18N/6BHXVf8JZZ/8APxD/ + AN/k/wDiq4j4Ra5b2Fo6TSxoxnYgO6qcbEGcEjjigD02isn/AISyz/5+If8Av8n/AMVR/wAJ + ZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A + 5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A + 4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Es + s/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8 + Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7 + /J/8VR/wlln/AM/EP/f5P/iqAOA/5mP/AD/z616rXj/9rQ/2/wDavMTyv7+9dn/Hvt+9nHXj + r14r0r/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDF + UAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4 + Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/ + AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH + /v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAcr8a/wDjzj/6+F/9Akrq + vCf/AB523/XvD/6AtcR8Xdct7+0RIZY3YTqSEdWONjjOATxzXS+GPE9pDaW6PPEGWCIEGVAQ + QgBBBPBFAHUUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4 + qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1 + FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/ + AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q + /wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrV5V8DP+Xr/ALY/+1K7/wD4Syz/AOfiH/v8n/xV + ea/BrVodP+0efIke7yseY6rnG/OMkZxkUAewUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/y + f/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8A + f5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtR + WT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISy + z/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1eVePv8A + kM2f/bv/AOj2rv8A/hLLP/n4h/7/ACf/ABVea+N9WhudWtJ45EaNPI3MrqVGJmJywOBgcn2o + A9gorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln + /wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4S + yz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5 + P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/ + AMVR/wAJZZ/8/EP/AH+T/wCKoA1q5T4pf8g6f/tn/wCjUrV/4Syz/wCfiH/v8n/xVc18R/EN + td2E0UU0TufLwqSIzHEik4AOelAGh8Lf+QdB/wBtP/Rr11dcJ8OPENtaWEMUs0SOPMyryIrD + MjEZBOeldL/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDi + qANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8A + FUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz + /wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD + /wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDxX4W/8hGD/ALaf+inr + 6Ar5/wDhb/yEYP8Atp/6KevoCgAryr45/wDLr/22/wDadeq15V8c/wDl1/7bf+06AOq+Fv8A + yDoP+2n/AKNeurrhPhx4htrSwhilmiRx5mVeRFYZkYjIJz0rpf8AhLLP/n4h/wC/yf8AxVAG + tRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess + /wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/ + EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ + ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iq + P+Ess/8An4h/7/J/8VQByvw4/wCPzUv+vj/2eavQK8y8A65b2t3qDySxqsk+ULOqhhvlOQSe + RyOnqK7f/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtR + WT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISy + z/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWW + f/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/x + VAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVAHK/Ef/j803/r4/wDZ4a9A + rzLx9rlvdXenvHLGyxz5cq6sFG+I5JB4HB6+hrt/+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDP + xD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J + /wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+ + Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDC + WWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/ + +fiH/v8AJ/8AFUAHiz/jzuf+veb/ANAasr4W/wDIOg/7af8Ao16f4n8T2k1pcIk8RZoJQAJU + JJKEAAA8k1mfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnpQB3dFZP/CWWf8Az8Q/9/k/+Ko/4Syz + /wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJ + ZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7 + /J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/ + AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVA + GtXn+jf8h66/691/lBXVf8JZZ/8APxD/AN/k/wDiq4jSdct01q5uDLGImgUBy6hCcQ8Bs4J4 + P5GgD02isn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/ + AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANais + n/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q + /wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4 + h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWrz/41/wDHnH/18L/6BJXVf8JZZ/8APxD/AN/k/wDi + q4j4u65b39oiQyxuwnUkI6scbHGcAnjmgD02isn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/ + AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf + /FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ + /wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWW + f/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/ + 7/J/8VR/wlln/wA/EP8A3+T/AOKoA5X4Kf8AHnJ/18N/6BHXoFeZfCLXLewtHSaWNGM7EB3V + TjYgzgkccV2//CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA + 1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/ + AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess + /wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k + /wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA8V/wCYz/3EP/a9fQFf + PkMyzauHQgq1+CCDkEGbIII6g19B0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/xS/wCQjP8A9s// + AEUlfQFfP/xS/wCQjP8A9s//AEUlAHoH/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BR + QB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/ + AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8A + fSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43Xo + FFAHn/8AwpSz/vzf99J/8brl/h58PLfxJbtcTNIGWUqAhUDAVT3Vufmr2ivP/gp/x5yf9fDf + +gR0AH/ClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/f + m/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/ + 30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUU + Aef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/3 + 5v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/78 + 3/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUA + ef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB4V/wAIVD/a39kbn8r1yu//AFPm + dduOvt0/Ou1/4UpZ/wB+b/vpP/jdZX/Mx/5/59a9VoA8/wD+FKWf9+b/AL6T/wCN0f8AClLP + +/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v + ++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhSln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKA + PP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG69AooA8//wCFKWf9+b/vpP8A43R/wpSz + /vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0CigDxf4h/Dy38N263 + ELSFmlCkOVIwVY9lXn5a29D+EVpf28Nw7yhpYkYgMmMsoJxlDxzV341/8ecf/Xwv/oEldV4T + /wCPO2/694f/AEBaAOV/4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0CigDz/wD4UpZ/35v+ + +k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8AvpP/AI3R/wAKUs/783/fSf8AxuvQ + KKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69AooA8//AOFKWf8Afm/76T/43R/wpSz/ + AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG69AooA8/wD+FKWf9+b/ + AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdcV8N/BUPifzvPZ18ry8 + eWVH3t2c5Vv7or3WvKvgZ/y9f9sf/alAGr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUA + ef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUp + Z/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8Ajdeg + UUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8brivE/g + qHSr+30+NnMc/lbixUsN8hQ4IUDoOODzXuteVePv+QzZ/wDbv/6PagDV/wCFKWf9+b/vpP8A + 43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0CigDz/wD4 + UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8AvpP/AI3R/wAKUs/783/f + Sf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69AooA8//AOFKWf8Afm/76T/4 + 3R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG69AooA8/wD+ + FKWf9+b/AL6T/wCN1ieM/hfbaJaSXkTyl49mA7IV+Z1U5wgPQ+tet1ynxS/5B0//AGz/APRq + UAcf4M+F9trdpHeSvKHk35CMgX5XZRjKE9B61t/8KUs/783/AH0n/wAbrV+Fv/IOg/7af+jX + rq6APP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG69AooA8//wCFKWf9+b/vpP8A43R/ + wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0CigDz/wD4UpZ/ + 35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8AvpP/AI3R/wAKUs/783/fSf8A + xuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69AooA8//AOFKWf8Afm/76T/43R/w + pSz/AL83/fSf/G69AooA+f8A4W/8hGD/ALaf+inr6Ar5/wDhb/yEYP8Atp/6KevoCgAryr45 + /wDLr/22/wDadeq15V8c/wDl1/7bf+06AIfBnwvttbtI7yV5Q8m/IRkC/K7KMZQnoPWtv/hS + ln/fm/76T/43Wr8Lf+QdB/20/wDRr11dAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8A + jdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/ + 4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/ + 783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/ + AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHi/hL4eW+sXF3byNIFtZdq + FSoJG5xzlTz8o6Y711H/AApSz/vzf99J/wDG6Phx/wAfmpf9fH/s81egUAef/wDClLP+/N/3 + 0n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/ + APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9 + +b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf9 + 9J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFA + Hi/i34eW+j3FpbxtIVupdrlipIG5BxhRz8x657V1H/ClLP8Avzf99J/8bo+I/wDx+ab/ANfH + /s8NegUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8A + xuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A + 8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+ + k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/ + 8bo/4UpZ/wB+b/vpP/jdegUUAeZa58IrSwt5rhHlLRROwBZMZVSRnCDjiqPgz4X22t2kd5K8 + oeTfkIyBfldlGMoT0HrXoviz/jzuf+veb/0Bqyvhb/yDoP8Atp/6NegDK/4UpZ/35v8AvpP/ + AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69AooA8// + AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9 + J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k + /wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/ + APhSln/fm/76T/43XL6f8PLe41OfSy0nlRRBgQV35IjPJ24x857DtXtFef6N/wAh66/691/l + BQAf8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm + /wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf + 99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5 + /wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln + /fm/76T/AON16BRQB5//AMKUs/783/fSf/G65f4h/Dy38N263ELSFmlCkOVIwVY9lXn5a9or + z/41/wDHnH/18L/6BJQAf8KUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83 + /fSf/G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BR + QB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/ + AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8A + fSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43Xo + FFAHi/w8+Hlv4kt2uJmkDLKVAQqBgKp7q3PzV1H/AApSz/vzf99J/wDG6Pgp/wAecn/Xw3/o + EdegUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hS + ln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP + +/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jd + egUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4U + pZ/35v8AvpP/AI3XoFFAHzvp1kthqiW6ZKxXqqCeuFlAGcY54r6Ir5//AOYz/wBxD/2vX0BQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8//FL/AJCM/wD2z/8ARSUA + fQFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/ + AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs + /wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8A + jlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BXn/wAFP+POT/r4b/0COj/h + ddn/AHJv++U/+OVy/wAPPiHb+G7dreZZCzSlgUCkYKqO7Lz8tAHtFFef/wDC67P+5N/3yn/x + yj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwu + uz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/v + lP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8 + co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn// + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOUAZX/Mx/5/59a9Vrwr/hNYf7W/tfa/lemF3/AOp8vpux19+n5V2v + /C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz// + AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3y + n/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8A + jlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A + 4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coAPjX/x5x/9fC/+gSV1XhP/AI87b/r3h/8AQFry + 34h/EO38SW628KyBllDEuFAwFYdmbn5q29D+LtpYW8Nu6SlookUkKmMqoBxlxxxQB6bRXn// + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45QB6BXlXwM/5ev+2P/tStX/hddn/cm/75T/45XFfDfxrD4Y87z1dvN8vHlhT93dnOWX+8 + KAPdaK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C6 + 7P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3 + Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK + APQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67 + P+5N/wB8p/8AHKAPQK8q8ff8hmz/AO3f/wBHtWr/AMLrs/7k3/fKf/HK4rxP41h1W/t9QjVx + HB5W4MFDHZIXOAGI6Hjkc0Ae60V5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BR + Xn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8A + cm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8 + p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHo + FFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegVynxS/5B0//bP/ANGpWV/wuuz/ALk3 + /fKf/HKxPGfxQttbtJLOJJQ8mzBdUC/K6sc4cnoPSgDsPhb/AMg6D/tp/wCjXrq68k8GfFC2 + 0S0js5UlLx78lFQr8zswxlweh9K2/wDhddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xy + j/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8A + C67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vl + P/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAc + o/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAef/AAt/ + 5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9fQFABXlXxz/5df+23/tOvVa8q+Of/AC6/9tv/ + AGnQB1Xwt/5B0H/bT/0a9dXXkngz4oW2iWkdnKkpePfkoqFfmdmGMuD0PpW3/wALrs/7k3/f + Kf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/4 + 5R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+ + F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3 + yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45 + R/wuuz/uTf8AfKf/ABygA+HH/H5qX/Xx/wCzzV6BXi/hL4h2+j3F3cSLIVupdyBQpIG5zzlh + z8w6Z711H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9A + orz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lr + s/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb + /vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMco + A9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygA+I/8Ax+ab/wBfH/s8NegV4v4t+Idv + rFxaXEayBbWXc4YKCRuQ8YY8/KeuO1dR/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/ + AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A + +F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/ + 3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/ + +OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygDqvFn/Hn + c/8AXvN/6A1ZXwt/5B0H/bT/ANGvXO658XbS/t5rdElDSxOoJVMZZSBnDnjmqPgz4oW2iWkd + nKkpePfkoqFfmdmGMuD0PpQB63RXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegV5/o3/Ieuv8Ar3X+UFH/AAuuz/uTf98p + /wDHK5fT/iHb2+pz6oVk8qWIKAAu/IEY5G7GPkPc9qAPaKK8/wD+F12f9yb/AL5T/wCOUf8A + C67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/ + AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByg + D0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/ + wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Arz/AONf/HnH + /wBfC/8AoElH/C67P+5N/wB8p/8AHK5f4h/EO38SW628KyBllDEuFAwFYdmbn5qAPaKK8/8A + +F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/ + 3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/ + +OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A + /hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf + 98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coAPgp/x5yf9fDf+gR16BXi/ + w8+Idv4bt2t5lkLNKWBQKRgqo7svPy11H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+ + OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0Civ + P/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3 + /fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T + /wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygDz/wD5 + jP8A3EP/AGvX0BXzvp16t/qiXCZCy3qsAeuGlBGcZ55r6IoAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + K+f/AIpf8hGf/tn/AOikr6Ar5/8Ail/yEZ/+2f8A6KSgD6AooooAKKKKACiiigAooooAKKKK + ACiiigArz/4Kf8ecn/Xw3/oEdegV5/8ABT/jzk/6+G/9AjoA9AooooAKKKKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKAPKv+Zj/z/wA+teq15V/zMf8An/n1r1WgAooo + oAKKKKACiiigAooooAKKKKACiiigAooooA8/+Nf/AB5x/wDXwv8A6BJXVeE/+PO2/wCveH/0 + Ba5X41/8ecf/AF8L/wCgSV1XhP8A487b/r3h/wDQFoA1qKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACvKvgZ/y9f9sf8A2pXqteVfAz/l6/7Y/wDtSgD1WiiigAooooAKKKKACiiigAoo + ooAKKKKACiiigAryrx9/yGbP/t3/APR7V6rXlXj7/kM2f/bv/wCj2oA9VooooAKKKKACiiig + AooooAKKKKACiiigAooooAK5T4pf8g6f/tn/AOjUrq65T4pf8g6f/tn/AOjUoAPhb/yDoP8A + tp/6NeurrlPhb/yDoP8Atp/6NeuroAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPn/4W + /wDIRg/7af8Aop6+gK+f/hb/AMhGD/tp/wCinr6AoAK8q+Of/Lr/ANtv/adeq15V8c/+XX/t + t/7ToA6r4W/8g6D/ALaf+jXrq65T4W/8g6D/ALaf+jXrq6ACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigDz/4cf8AH5qX/Xx/7PNXoFef/Dj/AI/NS/6+P/Z5q9AoAKKKKACiiigAoooo + AKKKKACiiigAooooAKKKKAPP/iP/AMfmm/8AXx/7PDXoFef/ABH/AOPzTf8Ar4/9nhr0CgAo + oooAKKKKACiiigAooooAKKKKACiiigAooooAyfFn/Hnc/wDXvN/6A1ZXwt/5B0H/AG0/9GvW + r4s/487n/r3m/wDQGrK+Fv8AyDoP+2n/AKNegDq6KKKACiiigAooooAKKKKACiiigAooooAK + KKKACvP9G/5D11/17r/KCvQK8/0b/kPXX/Xuv8oKAPQKKKKACiiigAooooAKKKKACiiigAoo + ooAKKKKACvP/AI1/8ecf/Xwv/oElegV5/wDGv/jzj/6+F/8AQJKAPQKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigDz/4Kf8AHnJ/18N/6BHXoFef/BT/AI85P+vhv/QI69AoAKKK + KACiiigAooooAKKKKACiiigAooooAKKKKAPn/wD5jP8A3EP/AGvX0BXz/wD8xn/uIf8Atevo + CgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAr5/8Ail/yEZ/+2f8A6KSvoCvn/wCKX/IRn/7Z/wDopKAP + oCivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8Az9loA9Voryr/AIqP/P2Wj/io + /wDP2WgD1WivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8Az9loA9Voryr/AIqP + /P2Wj/io/wDP2WgD1WvP/gp/x5yf9fDf+gR1lf8AFR/5+y1z/gr+1vJb+zv9V5hz/qfvbVz/ + AKznpj2/WgD3WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/ + AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/ + 4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVa + K8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/Za + AD/mY/8AP/PrXqtfP/8AxMf7R/6iH/bL/nl/3x9z/Oa6v/io/wDP2WgD1WivKv8Aio/8/ZaP + +Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8Az9loA9Voryr/AIqP/P2Wj/io/wDP2WgD1WivKv8A + io/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8Az9loA9Voryr/AIqP/P2Wj/io/wDP2WgD + 1WivKv8Aio/8/ZaP+Kj/AM/ZaANX41/8ecf/AF8L/wCgSV1XhP8A487b/r3h/wDQFryDxr/a + 3kr/AGj/AKrzBj/U/e2tj/V89M+36Vq6T/b/AJMfkf6ry02f8e/3do2/e56Y68+tAHsFFeVf + 8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fst + AHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ + ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq15V8DP+Xr/ALY/+1KP+Kj/AM/Za5TwL/aP + 73+zP9jzP9V/tbf9Z+PT8e1AH0BRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/ + AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5 + +y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqteV + ePv+QzZ/9u//AKPaj/io/wDP2WuU1/8AtH7ZD9q/4+/3flf6r++dn3fl+9nr+PFAH0BRXlX/ + ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQ + B6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/x + Uf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtcp8Uv+QdP/ANs//RqVyv8AxUf+fstZPin+ + 2vsz/bf+Pf5d/wDqP7w2/c+b72On8qAPQPhb/wAg6D/tp/6NeurrxTwt/bX2ZPsX/Hv82z/U + f3ju+/8AN97PX+Va3/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/x + Uf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAV + H/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Acp + 8Lf+QjB/20/9FPX0BXz/APC3/kIwf9tP/RT19AUAFeVfHP8A5df+23/tOvVa8q+Of/Lr/wBt + v/adAHVfC3/kHQf9tP8A0a9dXXinhb+2vsyfYv8Aj3+bZ/qP7x3ff+b72ev8q1v+Kj/z9loA + 9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z + 9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+ + Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaANX4cf8AH5qX/Xx/7PNXoFeFeG/7W865+yf63zP3 + /wDqfvbn/v8AHXd93j9K6D/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/Za + P+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/ + 8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA1fiP8A + 8fmm/wDXx/7PDXoFeFeJP7W862+1/wCt8z9x/qfvbk/ucddv3uP1roP+Kj/z9loA9Voryr/i + o/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Vor + yr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA + 9Voryr/io/8AP2Wj/io/8/ZaAO/8Wf8AHnc/9e83/oDVlfC3/kHQf9tP/Rr1xWrf2/5Mnn/6 + ry33/wDHv93ad33eemenPpVTwt/bX2ZPsX/Hv82z/Uf3ju+/833s9f5UAe10V5V/xUf+fstH + /FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH + /FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH + /FR/5+y0Aeq15/o3/Ieuv+vdf5QVlf8AFR/5+y1z9l/a32+Xy/8Aj98seZ/qfu4THX5Om3pz + +tAHutFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fst + H/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ + ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq15/8a/8Ajzj/AOvhf/QJKyv+ + Kj/z9lrn/Gv9reSv9o/6rzBj/U/e2tj/AFfPTPt+lAHutFeVf8VH/n7LR/xUf+fstAHqtFeV + f8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeV + f8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeV + f8VH/n7LR/xUf+fstAGr8FP+POT/AK+G/wDQI69ArwrwV/a3kt/Z3+q8w5/1P3tq5/1nPTHt + +tdB/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V + 5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5 + +y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHKf8xn/ALiH/tev + oCvnXSfM/tKPz/8AW/bE39PveaN33eOuenHpX0VQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/ + AJCM/wD2z/8ARSV9AV8//FL/AJCM/wD2z/8ARSUAfQFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFef/BT/jzk/wCvhv8A0COvQK8/+Cn/AB5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/Mx/wCf+fWvVa8q/wCZj/z/AM+teq0AFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMa/+POP/r4X/wBAkrqvCf8Ax523/XvD/wCg + LXK/Gv8A484/+vhf/QJK6rwn/wAedt/17w/+gLQBrUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFeVfAz/l6/7Y/+1K9Vryr4Gf8AL1/2x/8AalAHqtFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABXlXj7/kM2f/bv/wCj2r1WvKvH3/IZs/8At3/9HtQB6rRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAVynxS/wCQdP8A9s//AEaldXXKfFL/AJB0/wD2z/8ARqUAHwt/5B0H + /bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHz/ + APC3/kIwf9tP/RT19AV8/wDwt/5CMH/bT/0U9fQFABXlXxz/AOXX/tt/7Tr1WvKvjn/y6/8A + bb/2nQB1Xwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0AFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFAHn/AMOP+PzUv+vj/wBnmr0CvP8A4cf8fmpf9fH/ALPNXoFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQB5/8R/+PzTf+vj/ANnhr0CvP/iP/wAfmm/9fH/s8NegUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAGT4s/487n/r3m/wDQGrK+Fv8AyDoP+2n/AKNe + tXxZ/wAedz/17zf+gNWV8Lf+QdB/20/9GvQB1dFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF + FABXn+jf8h66/wCvdf5QV6BXn+jf8h66/wCvdf5QUAegUUUUAFFFFABRRRQAUUUUAFFFFABR + RRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQK8/+Nf8Ax5x/9fC/+gSUAegUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFAHn/AMFP+POT/r4b/wBAjr0CvP8A4Kf8ecn/AF8N/wCgR16B + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfP/8AzGf+4h/7Xr6Ar5//AOYz/wBxD/2v + X0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8//FL/AJCM/wD2z/8A + RSUAe1f8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76 + T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v+ + +k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b + /vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/f + m/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/ + 35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKW + f9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iq4j4Ra5b2Fo6TSxoxnYgO6qcbEGcEjjirv/ClLP+/N + /wB9J/8AG65f4efDy38SW7XEzSBllKgIVAwFU91bn5qAPUv+Ess/+fiH/v8AJ/8AFUf8JZZ/ + 8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8 + JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8A + FUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8A + J/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH + /v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/ + +fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+ + Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABug + Dqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ + ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8A + fSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/v + zf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wp + Sz/vzf8AfSf/ABugDn/7Wh/t/wC1eYnlf3967P8Aj32/ezjrx168V6V/wlln/wA/EP8A3+T/ + AOKryD/hCof7W/sjc/leuV3/AOp8zrtx19un512v/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+ + /wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5 + +If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AOq/4S + yz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AO + q/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8A + G6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9 + J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N + /wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClL + P+/N/wB9J/8AG6AKXxd1y3v7REhljdhOpIR1Y42OM4BPHNdL4Y8T2kNpbo88QZYIgQZUBBCA + EEE8EV5/8Q/h5b+G7dbiFpCzShSHKkYKseyrz8tbeh/CK0v7eG4d5Q0sSMQGTGWUE4yh45oA + 7f8A4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf + 99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/C + lLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/ + AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9 + +b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/ + AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/ + AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q + /wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FV5r8G + tWh0/wC0efIke7yseY6rnG/OMkZxkV0H/ClLP+/N/wB9J/8AG64r4b+CofE/neezr5Xl48sq + Pvbs5yrf3RQB6/8A8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/ + 4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/ + 8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf + 99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz + /vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8A + wpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FV + yv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/y + f/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qvNfG+rQ3OrW + k8ciNGnkbmV1KjEzE5YHAwOT7V0H/ClLP+/N/wB9J/8AG64rxP4Kh0q/t9PjZzHP5W4sVLDf + IUOCFA6Djg80Aev/APCWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6 + P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/783/fS + f/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/78 + 3/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/AMKU + s/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/ + AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/x + Vcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v + 8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+KrmviP4htru + wmiimidz5eFSRGY4kUnABz0qL/hSln/fm/76T/43WJ4z+F9tolpJeRPKXj2YDshX5nVTnCA9 + D60AdB8OPENtaWEMUs0SOPMyryIrDMjEZBOeldL/AMJZZ/8APxD/AN/k/wDiq868GfC+21u0 + jvJXlDyb8hGQL8rsoxlCeg9a2/8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCE + ss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A + 3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/ + wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/ + 76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG + 6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApS + z/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J + /wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCE + ss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0Aef/AAt/5CMH/bT/ + ANFPX0BXz/8AC3/kIwf9tP8A0U9fQFABXlXxz/5df+23/tOvVa8q+Of/AC6/9tv/AGnQBtfD + jxDbWlhDFLNEjjzMq8iKwzIxGQTnpXS/8JZZ/wDPxD/3+T/4qvOvBnwvttbtI7yV5Q8m/IRk + C/K7KMZQnoPWtv8A4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FV + yv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/y + f/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+I + f+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/ + AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/h + LLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4 + qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3 + +T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAFLwDrlva3eo + PJLGqyT5Qs6qGG+U5BJ5HI6eort/+Ess/wDn4h/7/J/8VXlvhL4eW+sXF3byNIFtZdqFSoJG + 5xzlTz8o6Y711H/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKr + lf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf + 5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8A + PxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/ + wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v + 8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/ + AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDq + v+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fS + f/G6AKXj7XLe6u9PeOWNljny5V1YKN8RySDwOD19DXb/APCWWf8Az8Q/9/k/+Kry3xb8PLfR + 7i0t42kK3Uu1yxUkDcg4wo5+Y9c9q6j/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDi + qP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8A + PxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDj + dAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUp + Z/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/f + Sf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr + /wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h + /wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDi + qP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAGx4n8T2k1p + cIk8RZoJQAJUJJKEAAA8k1mfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnpWbrnwitLC3muEeUtFE + 7AFkxlVJGcIOOKo+DPhfba3aR3kryh5N+QjIF+V2UYyhPQetAHov/CWWf/PxD/3+T/4qj/hL + LP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4 + Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP + +Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4q + j/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+ + Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P + /iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+ + T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9 + /k/+KriNJ1y3TWrm4MsYiaBQHLqEJxDwGzgng/kau/8AClLP+/N/30n/AMbrl9P+HlvcanPp + ZaTyoogwIK78kRnk7cY+c9h2oA9S/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X + /hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD + /wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDF + Uf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+ + fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG + 6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApS + z/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+ + k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X + /hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFVxHxd1y3v7RE + hljdhOpIR1Y42OM4BPHNXf8AhSln/fm/76T/AON1y/xD+Hlv4bt1uIWkLNKFIcqRgqx7KvPy + 0Aepf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUp + Z/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/f + Sf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr + /wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h + /wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDi + qP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8A + PxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDj + dAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUp + Z/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/f + Sf8Axuj/AIUpZ/35v++k/wDjdAFL4Ra5b2Fo6TSxoxnYgO6qcbEGcEjjiu3/AOEss/8An4h/ + 7/J/8VXlvw8+Hlv4kt2uJmkDLKVAQqBgKp7q3PzV1H/ClLP+/N/30n/xugDqv+Ess/8An4h/ + 7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz + /wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA + 6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/3 + 0n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KU + s/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A + 43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35 + v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8A + hSln/fm/76T/AON0f8KUs/783/fSf/G6APPIZlm1cOhBVr8EEHIIM2QQR1Br6Dr5306yWw1R + LdMlYr1VBPXCygDOMc8V9EUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/AMUv+QjP/wBs/wD0UlfQ + FfP/AMUv+QjP/wBs/wD0UlAH0BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/wAFP+POT/r4 + b/0COvQK8/8Agp/x5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAUUUUAFFFFAHlX/ADMf+f8An1r1WvKv+Zj/AM/8+teq0AFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFAHn/xr/wCPOP8A6+F/9AkrqvCf/Hnbf9e8P/oC1yvxr/484/8Ar4X/ANAk + rqvCf/Hnbf8AXvD/AOgLQBrUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFeVfAz/l6/7Y + /wDtSvVa8q+Bn/L1/wBsf/alAHqtFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXlXj7/k + M2f/AG7/APo9q9Vryrx9/wAhmz/7d/8A0e1AHqtFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABXKfFL/kHT/8AbP8A9GpXV1ynxS/5B0//AGz/APRqUAHwt/5B0H/bT/0a9dXXKfC3/kHQ + f9tP/Rr11dABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8//AAt/5CMH/bT/ANFPX0BX + z/8AC3/kIwf9tP8A0U9fQFABXlXxz/5df+23/tOvVa8q+Of/AC6/9tv/AGnQB1Xwt/5B0H/b + T/0a9dXXKfC3/kHQf9tP/Rr11dABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8OP8A + j81L/r4/9nmr0CvP/hx/x+al/wBfH/s81egUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF + FAHn/wAR/wDj803/AK+P/Z4a9Arz/wCI/wDx+ab/ANfH/s8NegUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFAGT4s/487n/r3m/9Aasr4W/8g6D/ALaf+jXrV8Wf8edz/wBe83/oDVlf + C3/kHQf9tP8A0a9AHV0UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef6N/wAh66/691/l + BXoFef6N/wAh66/691/lBQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/wDGv/jz + j/6+F/8AQJK9Arz/AONf/HnH/wBfC/8AoElAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQB5/8FP8Ajzk/6+G/9Ajr0CvP/gp/x5yf9fDf+gR16BQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAfP/APzGf+4h/wC16+gK+f8A/mM/9xD/ANr19AUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFfP/AMUv+QjP/wBs/wD0UlfQFfP/AMUv+QjP/wBs/wD0UlAHoH/C67P+5N/3yn/x + yj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwu + uz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/v + lP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8 + co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAcrl/h58Q7fw3btbzLIWaUsCgUjBVR + 3Zeflr2ivP8A4Kf8ecn/AF8N/wCgR0AH/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BR + QB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/ + AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8A + fKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45Xo + FFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/ + 3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uT + f98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoF + FAHhX/Caw/2t/a+1/K9MLv8A9T5fTdjr79Pyrtf+F12f9yb/AL5T/wCOVlf8zH/n/n1r1WgD + z/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/ + AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/ + 75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA + 8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P + +5N/3yn/AMcr0CigDxf4h/EO38SW628KyBllDEuFAwFYdmbn5q29D+LtpYW8Nu6SlookUkKm + MqoBxlxxxV341/8AHnH/ANfC/wDoEldV4T/487b/AK94f/QFoA5X/hddn/cm/wC+U/8AjlH/ + AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ + /wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAc + r0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOU + f8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12 + f9yb/vlP/jlcV8N/GsPhjzvPV283y8eWFP3d2c5Zf7wr3WvKvgZ/y9f9sf8A2pQBq/8AC67P + +5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jl + egUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4X + XZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLr + s/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jle + gUUAef8A/C67P+5N/wB8p/8AHK4rxP41h1W/t9QjVxHB5W4MFDHZIXOAGI6Hjkc17rXlXj7/ + AJDNn/27/wDo9qANX/hddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+ + U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigD + z/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/ + AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/ + 75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45WJ4z+KFtrdpJZxJKHk2YLqg + X5XVjnDk9B6V63XKfFL/AJB0/wD2z/8ARqUAcf4M+KFtolpHZypKXj35KKhX5nZhjLg9D6Vt + /wDC67P+5N/3yn/xytX4W/8AIOg/7af+jXrq6APP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3y + n/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8A + jlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A + 4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn + /wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPn/4W/wDIRg/7af8A + op6+gK+f/hb/AMhGD/tp/wCinr6AoAK8q+Of/Lr/ANtv/adeq15V8c/+XX/tt/7ToAh8GfFC + 20S0js5UlLx78lFQr8zswxlweh9K2/8Ahddn/cm/75T/AOOVq/C3/kHQf9tP/Rr11dAHn/8A + wuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+ + OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDH + KP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDw + uuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T + /wCOV6BRQB4v4S+Idvo9xd3EiyFbqXcgUKSBuc85Yc/MOme9dR/wuuz/ALk3/fKf/HKPhx/x + +al/18f+zzV6BQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uT + f98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoF + FAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f + 9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+ + 5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB4v4t+IdvrFxaXEayBbWXc4YKCRuQ8YY8/KeuO1dR + /wALrs/7k3/fKf8Axyj4j/8AH5pv/Xx/7PDXoFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vl + P/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAc + o/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5// + AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP + /jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5lrnxdtL+3mt0SUNLE + 6glUxllIGcOeOao+DPihbaJaR2cqSl49+SioV+Z2YYy4PQ+lei+LP+PO5/695v8A0Bqyvhb/ + AMg6D/tp/wCjXoAyv+F12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP + /jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0Cig + Dz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5 + N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+ + U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45XL6f8AEO3t9Tn1QrJ5UsQU + ABd+QIxyN2MfIe57V7RXn+jf8h66/wCvdf5QUAH/AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/ + AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP + +F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wAL + rs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/ + +OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByu + X+IfxDt/ElutvCsgZZQxLhQMBWHZm5+avaK8/wDjX/x5x/8AXwv/AKBJQAf8Lrs/7k3/AHyn + /wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQ + B5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/f + Kf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB + 5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHi/w8+Idv4bt2t5lkLNKWBQKRgqo7sv + Py11H/C67P8AuTf98p/8co+Cn/HnJ/18N/6BHXoFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm + /wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf + 98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5 + /wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn + /cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHzvp16t/qiXCZC + y3qsAeuGlBGcZ55r6Ir5/wD+Yz/3EP8A2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5 + CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRSUAfQFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + Fef/AAU/485P+vhv/QI69Arz/wCCn/HnJ/18N/6BHQB6BRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8AMx/5/wCfWvVa8q/5mP8Az/z616rQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAef/Gv/AI84/wDr4X/0CSuq8J/8edt/17w/+gLXK/Gv + /jzj/wCvhf8A0CSuq8J/8edt/wBe8P8A6AtAGtRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAV5V8DP+Xr/tj/AO1K9Vryr4Gf8vX/AGx/9qUAeq0UUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAFeVePv+QzZ/8Abv8A+j2r1WvKvH3/ACGbP/t3/wDR7UAeq0UUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFcp8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8AbP8A9GpQAfC3/kHQf9tP + /Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHz/8AC3/k + Iwf9tP8A0U9fQFfP/wALf+QjB/20/wDRT19AUAFeVfHP/l1/7bf+069Vryr45/8ALr/22/8A + adAHVfC3/kHQf9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFAHn/w4/wCPzUv+vj/2eavQK8/+HH/H5qX/AF8f+zzV6BQAUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAef/ABH/AOPzTf8Ar4/9nhr0CvP/AIj/APH5pv8A18f+zw16BQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAZPiz/jzuf+veb/0Bqyvhb/yDoP8Atp/6NetXxZ/x + 53P/AF7zf+gNWV8Lf+QdB/20/wDRr0AdXRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5 + /o3/ACHrr/r3X+UFegV5/o3/ACHrr/r3X+UFAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + FFFABXn/AMa/+POP/r4X/wBAkr0CvP8A41/8ecf/AF8L/wCgSUAegUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFAHn/wU/wCPOT/r4b/0COvQK8/+Cn/HnJ/18N/6BHXoFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8/8A/MZ/7iH/ALXr6Ar5/wD+Yz/3EP8A2vX0BQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRSUAdX + /wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR/wCfsteq0UAeVf8AFR/5+y0f8VH/AJ+y + 16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR/wCfsteq0UAeVf8AFR/5+y0f + 8VH/AJ+y16rRQB5V/wAVH/n7LXP+Cv7W8lv7O/1XmHP+p+9tXP8ArOemPb9a91rz/wCCn/Hn + J/18N/6BHQBlf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xU + f+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xU + f+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xU + f+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAfP/wDxMf7R/wCo + h/2y/wCeX/fH3P8AOa6v/io/8/ZaP+Zj/wA/8+teq0AeVf8AFR/5+y0f8VH/AJ+y16rRQB5V + /wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR/wCfsteq0UAeVf8AFR/5+y0f8VH/AJ+y + 16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR/wCfsteq0UAeVf8AFR/5+y0f + 8VH/AJ+y16rRQB4V41/tbyV/tH/VeYMf6n721sf6vnpn2/StXSf7f8mPyP8AVeWmz/j3+7tG + 373PTHXn1roPjX/x5x/9fC/+gSV1XhP/AI87b/r3h/8AQFoA4D/io/8AP2Wj/io/8/Za9Voo + A8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za + 9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/ + 8/Za9VooA8q/4qP/AD9lrlPAv9o/vf7M/wBjzP8AVf7W3/Wfj0/HtX0BXlXwM/5ev+2P/tSg + A/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9V + ooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/ + Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lrlNf8A7R+2Q/av+Pv935X+q/vnZ935 + fvZ6/jxX0BXlXj7/AJDNn/27/wDo9qAD/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8A + P2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/i + o/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2 + WsnxT/bX2Z/tv/Hv8u//AFH94bfufN97HT+Ve11ynxS/5B0//bP/ANGpQB5/4W/tr7Mn2L/j + 3+bZ/qP7x3ff+b72ev8AKtb/AIqP/P2Wuq+Fv/IOg/7af+jXrq6APKv+Kj/z9lo/4qP/AD9l + r1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/ + AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/ + 4qP/AD9lr1WigD5/+Fv/ACEYP+2n/op6+gK+f/hb/wAhGD/tp/6KevoCgAryr45/8uv/AG2/ + 9p16rXlXxz/5df8Att/7ToAyfC39tfZk+xf8e/zbP9R/eO77/wA33s9f5Vrf8VH/AJ+y11Xw + t/5B0H/bT/0a9dXQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+ + fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+ + fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB4V4b/tbzrn7J/rfM/f/AOp+9uf+/wAd + d33eP0roP+Kj/wA/Za1fhx/x+al/18f+zzV6BQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fs + tH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fs + tH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB4V4k/tbzr + b7X/AK3zP3H+p+9uT+5x12/e4/Wug/4qP/P2WtX4j/8AH5pv/Xx/7PDXoFAHlX/FR/5+y0f8 + VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8 + VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8 + VH/n7LXqtFAHj+rf2/5Mnn/6ry33/wDHv93ad33eemenPpVTwt/bX2ZPsX/Hv82z/Uf3ju+/ + 833s9f5V6r4s/wCPO5/695v/AEBqyvhb/wAg6D/tp/6NegDlf+Kj/wA/ZaP+Kj/z9lr1WigD + yr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1 + WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z + 9lr1WigDyr/io/8AP2Wufsv7W+3y+X/x++WPM/1P3cJjr8nTb05/Wvda8/0b/kPXX/Xuv8oK + AMr/AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/ZaP+Kj/AM/Za9VooA8q/wCKj/z9lo/4qP8A + z9lr1WigDyr/AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/ZaP+Kj/AM/Za9VooA8q/wCKj/z9 + lo/4qP8Az9lr1WigDyr/AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/Za5/wAa/wBreSv9o/6r + zBj/AFP3trY/1fPTPt+le615/wDGv/jzj/6+F/8AQJKAMr/io/8AP2Wj/io/8/Za9VooA8q/ + 4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9Voo + A8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za + 9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPCvBX9reS39nf6rzDn/U/e2rn/AFnPTHt+tdB/xUf+ + fstavwU/485P+vhv/QI69AoA8q/4qP8Az9lo/wCKj/z9lr1WigDyr/io/wDP2Wj/AIqP/P2W + vVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8Az9lo/wCKj/z9lr1WigDyr/io/wDP2Wj/ + AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8Az9lo/wCKj/z9lr1WigD510nz + P7Sj8/8A1v2xN/T73mjd93jrnpx6V9FV8/8A/MZ/7iH/ALXr6AoAKKKKACiiigAooooAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAK+f/AIpf8hGf/tn/AOikr6Ar5/8Ail/yEZ/+2f8A6KSgD6AorJ/4Syz/AOfiH/v8n/xV + H/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8A + hLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z + 8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/y + f/FUf8JZZ/8APxD/AN/k/wDiqANavP8A4Kf8ecn/AF8N/wCgR11X/CWWf/PxD/3+T/4quI+E + WuW9haOk0saMZ2IDuqnGxBnBI44oA9NorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA + 1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/ + AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess + /wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k + /wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8A + J/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/ + 4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf + /PxD/wB/k/8AiqAOA/5mP/P/AD616rXj/wDa0P8Ab/2rzE8r+/vXZ/x77fvZx1469eK9K/4S + yz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDP + xD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J + /wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+ + Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDC + WWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQByvxr/484/8Ar4X/ANAkrqvCf/Hnbf8A + XvD/AOgLXEfF3XLe/tESGWN2E6khHVjjY4zgE8c10vhjxPaQ2lujzxBlgiBBlQEEIAQQTwRQ + B1FFZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/ + AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/w + lln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+ + If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/Px + D/3+T/4qj/hLLP8A5+If+/yf/FUAa1eVfAz/AJev+2P/ALUrv/8AhLLP/n4h/wC/yf8AxVea + /BrVodP+0efIke7yseY6rnG/OMkZxkUAewUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/ + 4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVAGtRWT + /wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn + 4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1eVePv+QzZ/wDbv/6P + au//AOEss/8An4h/7/J/8VXmvjfVobnVrSeORGjTyNzK6lRiZicsDgYHJ9qAPYKKyf8AhLLP + /n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9 + /k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FU + f8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1q + Kyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDP + xD/3+T/4qgDWrlPil/yDp/8Atn/6NStX/hLLP/n4h/7/ACf/ABVc18R/ENtd2E0UU0TufLwq + SIzHEik4AOelAGh8Lf8AkHQf9tP/AEa9dXXCfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnpXS/8A + CWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/ + AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/ + AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn + /wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/h + LLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqAPFfhb/AMhGD/tp/wCinr6Ar5/+Fv8AyEYP + +2n/AKKevoCgAryr45/8uv8A22/9p16rXlXxz/5df+23/tOgDqvhb/yDoP8Atp/6NeurrhPh + x4htrSwhilmiRx5mVeRFYZkYjIJz0rpf+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4 + qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1 + FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/ + AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q + /wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFUAcr8OP+PzUv+vj/wBnmr0CvMvAOuW9rd6g8ksarJPlCzqoYb5TkEnkcjp6iu3/AOEs + s/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8A + CWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If + +/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k + /wDiqP8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAV + QBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQByvxH/AOPzTf8Ar4/9nhr0CvMvH2uW + 91d6e8csbLHPlyrqwUb4jkkHgcHr6Gu3/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8A + f5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtR + WT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISy + z/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWW + f/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/x + VAB4s/487n/r3m/9Aasr4W/8g6D/ALaf+jXp/ifxPaTWlwiTxFmglAAlQkkoQAADyTWZ8OPE + NtaWEMUs0SOPMyryIrDMjEZBOelAHd0Vk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8A + FUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/4Syz + /wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJ + ZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7 + /J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1ef6N/yHrr/r3X+UFdV/wl + ln/z8Q/9/k/+KriNJ1y3TWrm4MsYiaBQHLqEJxDwGzgng/kaAPTaKyf+Ess/+fiH/v8AJ/8A + FUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz + /wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD + /wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8 + n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1q8 + /wDjX/x5x/8AXwv/AKBJXVf8JZZ/8/EP/f5P/iq4j4u65b39oiQyxuwnUkI6scbHGcAnjmgD + 02isn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/ + AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLL + P/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/ + +KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8A + xVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA5X4Kf + 8ecn/Xw3/oEdegV5l8Itct7C0dJpY0YzsQHdVONiDOCRxxXb/wDCWWf/AD8Q/wDf5P8A4qgD + WorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH + /CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8A + n4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8A + f5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8 + VR/wlln/AM/EP/f5P/iqAPFf+Yz/ANxD/wBr19AV8+QzLNq4dCCrX4IIOQQZsggjqDX0HQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRSUAeg + f8KUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP + /jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8A + xuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A + 8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuuX+Hnw8t/Elu1 + xM0gZZSoCFQMBVPdW5+avaK8/wDgp/x5yf8AXw3/AKBHQAf8KUs/783/AH0n/wAbo/4UpZ/3 + 5v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/78 + 3/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUA + ef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUp + Z/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8Ajdeg + UUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ + /wB+b/vpP/jdegUUAeFf8IVD/a39kbn8r1yu/wD1PmdduOvt0/Ou1/4UpZ/35v8AvpP/AI3W + V/zMf+f+fWvVaAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhSln/fm/76 + T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG69Ao + oA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8A + vzf99J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8A + vpP/AI3R/wAKUs/783/fSf8AxuvQKKAPF/iH8PLfw3brcQtIWaUKQ5UjBVj2Veflrb0P4RWl + /bw3DvKGliRiAyYyygnGUPHNXfjX/wAecf8A18L/AOgSV1XhP/jztv8Ar3h/9AWgDlf+FKWf + 9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdH/ClLP+/N/30n/x + uvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhSln/fm/76T/43R/wp + Sz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG69AooA8//wCF + KWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8 + br0CigDz/wD4UpZ/35v++k/+N1xXw38FQ+J/O89nXyvLx5ZUfe3ZzlW/uivda8q+Bn/L1/2x + /wDalAGr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/h + Sln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/v + zf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A + 43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4 + UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbrivE/gqHSr+30+NnMc/lbixUsN8hQ4IU + DoOODzXuteVePv8AkM2f/bv/AOj2oA1f+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG69AooA8 + /wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdH/ClLP+ + /N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhSln/fm/76 + T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG69Ao + oA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdYnjP4X22 + iWkl5E8pePZgOyFfmdVOcID0PrXrdcp8Uv8AkHT/APbP/wBGpQBx/gz4X22t2kd5K8oeTfkI + yBfldlGMoT0HrW3/AMKUs/783/fSf/G61fhb/wAg6D/tp/6NeuroA8//AOFKWf8Afm/76T/4 + 3R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG69AooA8/wD+ + FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdH/ClLP+/N/3 + 0n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhSln/fm/76T/43 + R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG69AooA+f + /hb/AMhGD/tp/wCinr6Ar5/+Fv8AyEYP+2n/AKKevoCgAryr45/8uv8A22/9p16rXlXxz/5d + f+23/tOgCHwZ8L7bW7SO8leUPJvyEZAvyuyjGUJ6D1rb/wCFKWf9+b/vpP8A43Wr8Lf+QdB/ + 20/9GvXV0Aef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xu + j/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8A + ClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vp + P/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAb + o/4UpZ/35v8AvpP/AI3XoFFAHi/hL4eW+sXF3byNIFtZdqFSoJG5xzlTz8o6Y711H/ClLP8A + vzf99J/8bo+HH/H5qX/Xx/7PNXoFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8Ajdeg + UUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ + /wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/ + AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON1 + 6BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHi/i34eW+j3FpbxtIVupdrlipI + G5BxhRz8x657V1H/AApSz/vzf99J/wDG6PiP/wAfmm/9fH/s8NegUAef/wDClLP+/N/30n/x + uj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwp + Sz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/v + pP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8 + bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHmWu + fCK0sLea4R5S0UTsAWTGVUkZwg44qj4M+F9trdpHeSvKHk35CMgX5XZRjKE9B616L4s/487n + /r3m/wDQGrK+Fv8AyDoP+2n/AKNegDK/4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0CigDz + /wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8AvpP/AI3R/wAKUs/7 + 83/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69AooA8//AOFKWf8Afm/7 + 6T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG69AooA8 + /wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdcvp/wAP + Le41OfSy0nlRRBgQV35IjPJ24x857DtXtFef6N/yHrr/AK91/lBQAf8AClLP+/N/30n/AMbo + /wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APCl + LP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/ + AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G6 + P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUAef8A/ClL + P+/N/wB9J/8AG65f4h/Dy38N263ELSFmlCkOVIwVY9lXn5a9orz/AONf/HnH/wBfC/8AoElA + B/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9 + +b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf9 + 9J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFA + Hn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8A + fm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUAeL/Dz4eW/iS3a4ma + QMspUBCoGAqnurc/NXUf8KUs/wC/N/30n/xuj4Kf8ecn/Xw3/oEdegUAef8A/ClLP+/N/wB9 + J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegU + UAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/f + m/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/ + 30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUU + AfO+nWS2GqJbpkrFeqoJ64WUAZxjnivoivn/AP5jP/cQ/wDa9fQFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABXz/wDFL/kIz/8AbP8A9FJX0BXz/wDFL/kIz/8AbP8A9FJQB9AUV5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3J + v++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45QB6BXn/wU/485P8Ar4b/ANAjo/4XXZ/3Jv8AvlP/AI5XL/Dz4h2/ + hu3a3mWQs0pYFApGCqjuy8/LQB7RRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAH + oFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ + /wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/ + AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOU + AegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12 + f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7 + k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUA + ZX/Mx/5/59a9Vrwr/hNYf7W/tfa/lemF3/6ny+m7HX36flXa/wDC67P+5N/3yn/xygD0CivP + /wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8A + fKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/v + lP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz + /wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7 + k3/fKf8AxygA+Nf/AB5x/wDXwv8A6BJXVeE/+PO2/wCveH/0Ba8t+IfxDt/ElutvCsgZZQxL + hQMBWHZm5+atvQ/i7aWFvDbukpaKJFJCpjKqAcZcccUAem0V5/8A8Lrs/wC5N/3yn/xyj/hd + dn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P + +5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jl + AHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4X + XZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegV5V8DP+Xr + /tj/AO1K1f8Ahddn/cm/75T/AOOVxXw38aw+GPO89XbzfLx5YU/d3Zzll/vCgD3WivP/APhd + dn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4X + XZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HKAPQK8q8ff8hmz/7d/wD0e1av/C67P+5N/wB8p/8AHK4rxP41h1W/t9QjVxHB5W4MFDHZ + IXOAGI6Hjkc0Ae60V5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3 + /fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAeg + UV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/ + AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8A + fKf/AByj/hddn/cm/wC+U/8AjlAHoFcp8Uv+QdP/ANs//RqVlf8AC67P+5N/3yn/AMcrE8Z/ + FC21u0ks4klDybMF1QL8rqxzhyeg9KAOw+Fv/IOg/wC2n/o166uvJPBnxQttEtI7OVJS8e/J + RUK/M7MMZcHofStv/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/v + lP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8 + co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn// + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHn/wt/5CMH/bT/0U9fQFfP8A + 8Lf+QjB/20/9FPX0BQAV5V8c/wDl1/7bf+069Vryr45/8uv/AG2/9p0AdV8Lf+QdB/20/wDR + r11deSeDPihbaJaR2cqSl49+SioV+Z2YYy4PQ+lbf/C67P8AuTf98p/8coA9Aorz/wD4XXZ/ + 3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8A + xygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/w + uuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f + 9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/x + ygA+HH/H5qX/AF8f+zzV6BXi/hL4h2+j3F3cSLIVupdyBQpIG5zzlhz8w6Z711H/AAuuz/uT + f98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vl + P/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/ + AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k + 3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP + /jlH/C67P+5N/wB8p/8AHKAD4j/8fmm/9fH/ALPDXoFeL+LfiHb6xcWlxGsgW1l3OGCgkbkP + GGPPynrjtXUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByg + D0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/ + wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/ + 3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8A + xygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAOq8Wf8AHnc/9e83/oDVlfC3/kHQ + f9tP/Rr1zuufF20v7ea3RJQ0sTqCVTGWUgZw545qj4M+KFtolpHZypKXj35KKhX5nZhjLg9D + 6UAet0V5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDH + KP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDw + uuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T + /wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/x + yj/hddn/AHJv++U/+OUAegV5/o3/ACHrr/r3X+UFH/C67P8AuTf98p/8crl9P+Idvb6nPqhW + TypYgoAC78gRjkbsY+Q9z2oA9oorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz + /wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7 + k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/7 + 5T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8 + /wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Arz/41/wDHnH/18L/6BJR/wuuz/uTf + 98p/8crl/iH8Q7fxJbrbwrIGWUMS4UDAVh2ZufmoA9oorz//AIXXZ/3Jv++U/wDjlH/C67P+ + 5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75 + T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQ + KK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8A + uTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8A + vlP/AI5R/wALrs/7k3/fKf8AxygA+Cn/AB5yf9fDf+gR16BXi/w8+Idv4bt2t5lkLNKWBQKR + gqo7svPy11H/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA + 9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/ + 7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn + /cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKA + PQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPP/8AmM/9xD/2vX0BXzvp16t/qiXC + ZCy3qsAeuGlBGcZ55r6IoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+f/il/wAhGf8A7Z/+ikr6Ar5/ + +KX/ACEZ/wDtn/6KSgD6AooooAKKKKACiiigAooooAKKKKACiiigArz/AOCn/HnJ/wBfDf8A + oEdegV5/8FP+POT/AK+G/wDQI6APQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigDyr/mY/8AP/PrXqteVf8AMx/5/wCfWvVaACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigDz/wCNf/HnH/18L/6BJXVeE/8Ajztv+veH/wBAWuV+Nf8Ax5x/9fC/+gSV + 1XhP/jztv+veH/0BaANaiiigAooooAKKKKACiiigAooooAKKKKACiiigAryr4Gf8vX/bH/2p + XqteVfAz/l6/7Y/+1KAPVaKKKACiiigAooooAKKKKACiiigAooooAKKKKACvKvH3/IZs/wDt + 3/8AR7V6rXlXj7/kM2f/AG7/APo9qAPVaKKKACiiigAooooAKKKKACiiigAooooAKKKKACuU + +KX/ACDp/wDtn/6NSurrlPil/wAg6f8A7Z/+jUoAPhb/AMg6D/tp/wCjXrq65T4W/wDIOg/7 + af8Ao166ugAooooAKKKKACiiigAooooAKKKKACiiigAooooA+f8A4W/8hGD/ALaf+inr6Ar5 + /wDhb/yEYP8Atp/6KevoCgAryr45/wDLr/22/wDadeq15V8c/wDl1/7bf+06AOq+Fv8AyDoP + +2n/AKNeurrlPhb/AMg6D/tp/wCjXrq6ACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz + /wCHH/H5qX/Xx/7PNXoFef8Aw4/4/NS/6+P/AGeavQKACiiigAooooAKKKKACiiigAooooAK + KKKACiiigDz/AOI//H5pv/Xx/wCzw16BXn/xH/4/NN/6+P8A2eGvQKACiiigAooooAKKKKAC + iiigAooooAKKKKACiiigDJ8Wf8edz/17zf8AoDVlfC3/AJB0H/bT/wBGvWr4s/487n/r3m/9 + Aasr4W/8g6D/ALaf+jXoA6uiiigAooooAKKKKACiiigAooooAKKKKACiiigArz/Rv+Q9df8A + Xuv8oK9Arz/Rv+Q9df8AXuv8oKAPQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP/jX + /wAecf8A18L/AOgSV6BXn/xr/wCPOP8A6+F/9AkoA9AooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKAPP/AIKf8ecn/Xw3/oEdegV5/wDBT/jzk/6+G/8AQI69AoAKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKAPn//AJjP/cQ/9r19AV8//wDMZ/7iH/tevoCgAooooAKKKKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAr5/+KX/ACEZ/wDtn/6KSvoCvn/4pf8AIRn/AO2f/opKAPoCivKv+Kj/AM/Z + aP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv + +Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2W + gD1WvP8A4Kf8ecn/AF8N/wCgR1lf8VH/AJ+y1z/gr+1vJb+zv9V5hz/qfvbVz/rOemPb9aAP + daK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ + ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj + /wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/Za + P+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loAP+Zj/z/wA+ + teq18/8A/Ex/tH/qIf8AbL/nl/3x9z/Oa6v/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaA + PVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8A + io/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/ + AM/ZaP8Aio/8/ZaANX41/wDHnH/18L/6BJXVeE/+PO2/694f/QFryDxr/a3kr/aP+q8wY/1P + 3trY/wBXz0z7fpWrpP8Ab/kx+R/qvLTZ/wAe/wB3aNv3uemOvPrQB7BRXlX/ABUf+fstH/FR + /wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf + +fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rR + XlX/ABUf+fstH/FR/wCfstAHqteVfAz/AJev+2P/ALUo/wCKj/z9lrlPAv8AaP73+zP9jzP9 + V/tbf9Z+PT8e1AH0BRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V + 5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5 + +y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqteVePv+QzZ/8A + bv8A+j2o/wCKj/z9lrlNf/tH7ZD9q/4+/wB35X+q/vnZ935fvZ6/jxQB9AUV5V/xUf8An7LR + /wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/x + Uf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0A + eq0V5V/xUf8An7LR/wAVH/n7LQB6rXKfFL/kHT/9s/8A0alcr/xUf+fstZPin+2vsz/bf+Pf + 5d/+o/vDb9z5vvY6fyoA9A+Fv/IOg/7af+jXrq68U8Lf219mT7F/x7/Ns/1H947vv/N97PX+ + Va3/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXl + X/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7 + LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Acp8Lf+QjB/20/wDR + T19AV8//AAt/5CMH/bT/ANFPX0BQAV5V8c/+XX/tt/7Tr1WvKvjn/wAuv/bb/wBp0AdV8Lf+ + QdB/20/9GvXV14p4W/tr7Mn2L/j3+bZ/qP7x3ff+b72ev8q1v+Kj/wA/ZaAPVaK8q/4qP/P2 + Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4q + P/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8 + q/4qP/P2Wj/io/8AP2WgDV+HH/H5qX/Xx/7PNXoFeFeG/wC1vOufsn+t8z9//qfvbn/v8dd3 + 3eP0roP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivK + v+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1 + WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaANX4j/8AH5pv/Xx/7PDXoFeF + eJP7W862+1/63zP3H+p+9uT+5x12/e4/Wug/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAP + VaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ + ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj + /wA/ZaAO/wDFn/Hnc/8AXvN/6A1ZXwt/5B0H/bT/ANGvXFat/b/kyef/AKry33/8e/3dp3fd + 56Z6c+lVPC39tfZk+xf8e/zbP9R/eO77/wA33s9f5UAe10V5V/xUf+fstH/FR/5+y0Aeq0V5 + V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5 + V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq15/ + o3/Ieuv+vdf5QVlf8VH/AJ+y1z9l/a32+Xy/+P3yx5n+p+7hMdfk6benP60Ae60V5V/xUf8A + n7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V + 5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5 + +y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rXn/AMa/+POP/r4X/wBAkrK/4qP/AD9lrn/Gv9re + Sv8AaP8AqvMGP9T97a2P9Xz0z7fpQB7rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH + /n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH + /n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH + /n7LQBq/BT/jzk/6+G/9Ajr0CvCvBX9reS39nf6rzDn/AFP3tq5/1nPTHt+tdB/xUf8An7LQ + B6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/x + Uf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAV + H/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHKf8AMZ/7iH/tevoCvnXSfM/tKPz/ + APW/bE39PveaN33eOuenHpX0VQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/APRS + V9AV8/8AxS/5CM//AGz/APRSUAfQFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/AAU/485P + +vhv/QI69Arz/wCCn/HnJ/18N/6BHQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAeVf8AMx/5/wCfWvVa8q/5mP8Az/z616rQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAef/Gv/AI84/wDr4X/0CSuq8J/8edt/17w/+gLXK/Gv/jzj/wCvhf8A + 0CSuq8J/8edt/wBe8P8A6AtAGtRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5V8DP+Xr + /tj/AO1K9Vryr4Gf8vX/AGx/9qUAeq0UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFeVeP + v+QzZ/8Abv8A+j2r1WvKvH3/ACGbP/t3/wDR7UAeq0UUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFcp8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8AbP8A9GpQAfC3/kHQf9tP/Rr11dcp8Lf+ + QdB/20/9GvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHz/8AC3/kIwf9tP8A0U9f + QFfP/wALf+QjB/20/wDRT19AUAFeVfHP/l1/7bf+069Vryr45/8ALr/22/8AadAHVfC3/kHQ + f9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/w4 + /wCPzUv+vj/2eavQK8/+HH/H5qX/AF8f+zzV6BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAef/ABH/AOPzTf8Ar4/9nhr0CvP/AIj/APH5pv8A18f+zw16BQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAZPiz/jzuf+veb/0Bqyvhb/yDoP8Atp/6NetXxZ/x53P/AF7zf+gN + WV8Lf+QdB/20/wDRr0AdXRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/o3/ACHrr/r3 + X+UFegV5/o3/ACHrr/r3X+UFAHoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/AMa/ + +POP/r4X/wBAkr0CvP8A41/8ecf/AF8L/wCgSUAegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFAHn/wU/wCPOT/r4b/0COvQK8/+Cn/HnJ/18N/6BHXoFABRRRQAUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQB8/8A/MZ/7iH/ALXr6Ar5/wD+Yz/3EP8A2vX0BQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRSUAe1f8JZZ/8APxD/ + AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHV + f8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35 + v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8A + xuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAK + Us/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/ + yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8A + hLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/ + AN/k/wDiq4j4Ra5b2Fo6TSxoxnYgO6qcbEGcEjjirv8AwpSz/vzf99J/8brl/h58PLfxJbtc + TNIGWUqAhUDAVT3VufmoA9S/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9 + +b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/ + AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/ + AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q + /wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZ + Z/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/ + 8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCf + iH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/h + LLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/x + ugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/78 + 3/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/ + wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k + /wDjdH/ClLP+/N/30n/xugDn/wC1of7f+1eYnlf3967P+Pfb97OOvHXrxXpX/CWWf/PxD/3+ + T/4qvIP+EKh/tb+yNz+V65Xf/qfM67cdfbp+ddr/AMKUs/783/fSf/G6AOq/4Syz/wCfiH/v + 8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/ + AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDq + v+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fS + f/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz + /vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDj + dH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/ + 76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCF + KWf9+b/vpP8A43R/wpSz/vzf99J/8boApfF3XLe/tESGWN2E6khHVjjY4zgE8c10vhjxPaQ2 + lujzxBlgiBBlQEEIAQQTwRXn/wAQ/h5b+G7dbiFpCzShSHKkYKseyrz8tbeh/CK0v7eG4d5Q + 0sSMQGTGWUE4yh45oA7f/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+ + N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v+ + +k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/ + 35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4 + UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4q + uV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+ + T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/Px + D/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVea/Br + VodP+0efIke7yseY6rnG/OMkZxkV0H/ClLP+/N/30n/xuuK+G/gqHxP53ns6+V5ePLKj727O + cq390UAev/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+ + FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/ + AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVc + r/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH + /v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCK + o/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8 + Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAH + Vf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/ + AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKrzXxvq0Nzq1pPHIjRp5G5ldSoxMxOWBwMDk+1dB/ + wpSz/vzf99J/8brivE/gqHSr+30+NnMc/lbixUsN8hQ4IUDoOODzQB6//wAJZZ/8/EP/AH+T + /wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAll + n/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8A + jdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf + 9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n + /wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wp + Sz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4S + yz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8A + f5P/AIqua+I/iG2u7CaKKaJ3Pl4VJEZjiRScAHPSov8AhSln/fm/76T/AON1ieM/hfbaJaSX + kTyl49mA7IV+Z1U5wgPQ+tAHQfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnpXS/8JZZ/8/EP/f5P + /iq868GfC+21u0jvJXlDyb8hGQL8rsoxlCeg9a2/+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P + /iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+ + T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9 + /k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP + /f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/Px + D/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z + 8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/ + 8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB5/8Lf+ + QjB/20/9FPX0BXz/APC3/kIwf9tP/RT19AUAFeVfHP8A5df+23/tOvVa8q+Of/Lr/wBtv/ad + AG18OPENtaWEMUs0SOPMyryIrDMjEZBOeldL/wAJZZ/8/EP/AH+T/wCKrzrwZ8L7bW7SO8le + UPJvyEZAvyuyjGUJ6D1rb/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4 + h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8A + iqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8 + /EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3Q + B1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm + /wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8A + G6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/ + 783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ + ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAFLwDrlva3eoPJLGqyT5Qs6qGG+U5B + J5HI6eort/8AhLLP/n4h/wC/yf8AxVeW+Evh5b6xcXdvI0gW1l2oVKgkbnHOVPPyjpjvXUf8 + KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+ + N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v+ + +k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/ + 35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4 + UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4q + uV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+ + T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/Px + D/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboApePtct7q70945Y2WOfLlXVgo3x + HJIPA4PX0Ndv/wAJZZ/8/EP/AH+T/wCKry3xb8PLfR7i0t42kK3Uu1yxUkDcg4wo5+Y9c9q6 + j/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8 + bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf + /G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30 + n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf9 + 9J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83 + /fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8A + vzf99J/8bo/4UpZ/35v++k/+N0AbHifxPaTWlwiTxFmglAAlQkkoQAADyTWZ8OPENtaWEMUs + 0SOPMyryIrDMjEZBOelZuufCK0sLea4R5S0UTsAWTGVUkZwg44qj4M+F9trdpHeSvKHk35CM + gX5XZRjKE9B60Aei/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/ + 30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVX + K/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+ + If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A + 4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/ + AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A + 43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCF + KWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/ + 30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4quI0nXLdNaubgyxiJoFAcuo + QnEPAbOCeD+Rq7/wpSz/AL83/fSf/G65fT/h5b3Gpz6WWk8qKIMCCu/JEZ5O3GPnPYdqAPUv + +Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xu + gDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/N/30 + n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/ + N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f8KUs + /wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f + 8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/ + +N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v + ++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VXEfF3XLe/tESGWN2E6khHVjjY4z + gE8c1d/4UpZ/35v++k/+N1y/xD+Hlv4bt1uIWkLNKFIcqRgqx7KvPy0Aepf8JZZ/8/EP/f5P + /iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+ + T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9 + /k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP + /f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/Px + D/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z + 8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/ + 8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWW + f/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AUvhFr + lvYWjpNLGjGdiA7qpxsQZwSOOK7f/hLLP/n4h/7/ACf/ABVeW/Dz4eW/iS3a4maQMspUBCoG + Aqnurc/NXUf8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4 + UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4q + uV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+ + T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/Px + D/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWW + f/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH + /CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA88hmWbVw6EFWvw + QQcggzZBBHUGvoOvnfTrJbDVEt0yVivVUE9cLKAM4xzxX0RQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AV8//FL/AJCM/wD2z/8ARSV9AV8//FL/AJCM/wD2z/8ARSUAfQFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFef/BT/jzk/wCvhv8A0COvQK8/+Cn/AB5yf9fDf+gR0AegUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/Mx/wCf+fWvVa8q/wCZj/z/AM+t + eq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMa/+POP/r4X/wBAkrqvCf8Ax523 + /XvD/wCgLXK/Gv8A484/+vhf/QJK6rwn/wAedt/17w/+gLQBrUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFeVfAz/l6/7Y/+1K9Vryr4Gf8AL1/2x/8AalAHqtFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABXlXj7/kM2f/bv/wCj2r1WvKvH3/IZs/8At3/9HtQB6rRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAVynxS/wCQdP8A9s//AEaldXXKfFL/AJB0/wD2z/8ARqUA + Hwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFAHz/APC3/kIwf9tP/RT19AV8/wDwt/5CMH/bT/0U9fQFABXlXxz/AOXX/tt/7Tr1WvKv + jn/y6/8Abb/2nQB1Xwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0AFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFAHn/AMOP+PzUv+vj/wBnmr0CvP8A4cf8fmpf9fH/ALPNXoFABRRR + QAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8R/+PzTf+vj/ANnhr0CvP/iP/wAfmm/9fH/s + 8NegUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAGT4s/487n/r3m/wDQGrK+Fv8AyDoP + +2n/AKNetXxZ/wAedz/17zf+gNWV8Lf+QdB/20/9GvQB1dFFFABRRRQAUUUUAFFFFABRRRQA + UUUUAFFFFABXn+jf8h66/wCvdf5QV6BXn+jf8h66/wCvdf5QUAegUUUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQK8/+Nf8Ax5x/9fC/+gSUAegUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMFP+POT/r4b/wBAjr0CvP8A4Kf8ecn/AF8N + /wCgR16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfP/8AzGf+4h/7Xr6Ar5//AOYz + /wBxD/2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8//FL/AJCM + /wD2z/8ARSUAegf8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p + /wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn + /wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/ + AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3 + yn/xyuX+HnxDt/Ddu1vMshZpSwKBSMFVHdl5+WvaK8/+Cn/HnJ/18N/6BHQAf8Lrs/7k3/fK + f/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3J + v++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAe + f/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wBy + b/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn + /wAco/4XXZ/3Jv8AvlP/AI5XoFFAHhX/AAmsP9rf2vtfyvTC7/8AU+X03Y6+/T8q7X/hddn/ + AHJv++U/+OVlf8zH/n/n1r1WgDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAP + P/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3 + /fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T + /wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP + /wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPF/iH8Q7fxJbrbwrIGWUMS4UDAVh2Zu + fmrb0P4u2lhbw27pKWiiRSQqYyqgHGXHHFXfjX/x5x/9fC/+gSV1XhP/AI87b/r3h/8AQFoA + 5X/hddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8A + fKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/v + lP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz + /wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7 + k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOVxXw38aw+GPO89XbzfLx5YU/d3Zzll/vCvda8 + q+Bn/L1/2x/9qUAav/C67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn + /wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQ + B5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/f + Kf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyuK8T+NYdVv7fUI1cRweVuDB + Qx2SFzgBiOh45HNe615V4+/5DNn/ANu//o9qANX/AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/x + yvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wu + uz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF + 12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8 + cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5W + J4z+KFtrdpJZxJKHk2YLqgX5XVjnDk9B6V63XKfFL/kHT/8AbP8A9GpQBx/gz4oW2iWkdnKk + pePfkoqFfmdmGMuD0PpW3/wuuz/uTf8AfKf/ABytX4W/8g6D/tp/6NeuroA8/wD+F12f9yb/ + AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQK + KAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/u + Tf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9 + yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0C + igD5/wDhb/yEYP8Atp/6KevoCvn/AOFv/IRg/wC2n/op6+gKACvKvjn/AMuv/bb/ANp16rXl + Xxz/AOXX/tt/7ToAh8GfFC20S0js5UlLx78lFQr8zswxlweh9K2/+F12f9yb/vlP/jlavwt/ + 5B0H/bT/ANGvXV0Aef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7 + k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6 + BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hdd + n/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz + /uTf98p/8co/4XXZ/wByb/vlP/jlegUUAeL+EviHb6PcXdxIshW6l3IFCkgbnPOWHPzDpnvX + Uf8AC67P+5N/3yn/AMco+HH/AB+al/18f+zzV6BQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAeL+LfiHb6xcWlxGsg + W1l3OGCgkbkPGGPPynrjtXUf8Lrs/wC5N/3yn/xyj4j/APH5pv8A18f+zw16BQB5/wD8Lrs/ + 7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/ + AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP + +F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wAL + rs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/ + +OV6BRQB5lrnxdtL+3mt0SUNLE6glUxllIGcOeOao+DPihbaJaR2cqSl49+SioV+Z2YYy4PQ + +lei+LP+PO5/695v/QGrK+Fv/IOg/wC2n/o16AMr/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4X + XZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlc + vp/xDt7fU59UKyeVLEFAAXfkCMcjdjHyHue1e0V5/o3/ACHrr/r3X+UFAB/wuuz/ALk3/fKf + /HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5/ + /wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv + ++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/ + AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAH + n/8Awuuz/uTf98p/8crl/iH8Q7fxJbrbwrIGWUMS4UDAVh2Zufmr2ivP/jX/AMecf/Xwv/oE + lAB/wuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv+ + +U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p + /wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn + /wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/ + AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAeL/Dz4h2/hu3a3 + mWQs0pYFApGCqjuy8/LXUf8AC67P+5N/3yn/AMco+Cn/AB5yf9fDf+gR16BQB5//AMLrs/7k + 3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUA + ef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXX + Z/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5 + N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8Ajleg + UUAfO+nXq3+qJcJkLLeqwB64aUEZxnnmvoivn/8A5jP/AHEP/a9fQFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABXz/8Uv8AkIz/APbP/wBFJX0BXz/8Uv8AkIz/APbP/wBFJQB9AUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAV5/8FP+POT/AK+G/wDQI69Arz/4Kf8AHnJ/18N/6BHQB6BRRRQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8zH/AJ/59a9Vryr/AJmP + /P8Az616rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef8Axr/484/+vhf/AECSuq8J + /wDHnbf9e8P/AKAtcr8a/wDjzj/6+F/9AkrqvCf/AB523/XvD/6AtAGtRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAV5V8DP+Xr/tj/7Ur1WvKvgZ/wAvX/bH/wBqUAeq0UUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFeVePv+QzZ/9u//AKPavVa8q8ff8hmz/wC3f/0e1AHqtFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXKfFL/AJB0/wD2z/8ARqV1dcp8Uv8AkHT/APbP + /wBGpQAfC3/kHQf9tP8A0a9dXXKfC3/kHQf9tP8A0a9dXQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAfP8A8Lf+QjB/20/9FPX0BXz/APC3/kIwf9tP/RT19AUAFeVfHP8A5df+23/t + OvVa8q+Of/Lr/wBtv/adAHVfC3/kHQf9tP8A0a9dXXKfC3/kHQf9tP8A0a9dXQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAef8Aw4/4/NS/6+P/AGeavQK8/wDhx/x+al/18f8As81e + gUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/xH/4/NN/6+P8A2eGvQK8/+I//AB+a + b/18f+zw16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAZPiz/jzuf+veb/ANAasr4W + /wDIOg/7af8Ao161fFn/AB53P/XvN/6A1ZXwt/5B0H/bT/0a9AHV0UUUAFFFFABRRRQAUUUU + AFFFFABRRRQAUUUUAFef6N/yHrr/AK91/lBXoFef6N/yHrr/AK91/lBQB6BRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAV5/8a/8Ajzj/AOvhf/QJK9Arz/41/wDHnH/18L/6BJQB6BRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef8AwU/485P+vhv/AECOvQK8/wDgp/x5 + yf8AXw3/AKBHXoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8//wDMZ/7iH/tevoCv + n/8A5jP/AHEP/a9fQFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/8Uv8AkIz/APbP/wBFJX0BXz/8 + Uv8AkIz/APbP/wBFJQB1f/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB + 5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5 + +y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstc/4K/tbyW/s7/VeYc/6n721c/6 + znpj2/Wvda8/+Cn/AB5yf9fDf+gR0AZX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7L + XqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7L + XqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7L + XqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7L + XqtFAHz/AP8AEx/tH/qIf9sv+eX/AHx9z/Oa6v8A4qP/AD9lo/5mP/P/AD616rQB5V/xUf8A + n7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5+y16rRQB + 5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y0f8AFR/5 + +y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHhXjX+1vJX+0f9V5gx/qfvbWx/q+emfb9K1dJ/ + t/yY/I/1Xlps/wCPf7u0bfvc9MdefWug+Nf/AB5x/wDXwv8A6BJXVeE/+PO2/wCveH/0BaAO + A/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9V + ooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/ + Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lrlPAv9o/vf7M/2PM/1X+1t/wBZ+PT8 + e1fQFeVfAz/l6/7Y/wDtSgA/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigD + yr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1 + WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/Za5TX/7R + +2Q/av8Aj7/d+V/qv752fd+X72ev48V9AV5V4+/5DNn/ANu//o9qAD/io/8AP2Wj/io/8/Za + 9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/ + 8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj + /io/8/Za9VooA8q/4qP/AD9lrJ8U/wBtfZn+2/8AHv8ALv8A9R/eG37nzfex0/lXtdcp8Uv+ + QdP/ANs//RqUAef+Fv7a+zJ9i/49/m2f6j+8d33/AJvvZ6/yrW/4qP8Az9lrqvhb/wAg6D/t + p/6NeuroA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj + /io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8A + P2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPn/wCFv/IRg/7af+inr6Ar5/8Ahb/y + EYP+2n/op6+gKACvKvjn/wAuv/bb/wBp16rXlXxz/wCXX/tt/wC06AMnwt/bX2ZPsX/Hv82z + /Uf3ju+/833s9f5Vrf8AFR/5+y11Xwt/5B0H/bT/ANGvXV0AeVf8VH/n7LR/xUf+fsteq0UA + eVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UA + eVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UA + eFeG/wC1vOufsn+t8z9//qfvbn/v8dd33eP0roP+Kj/z9lrV+HH/AB+al/18f+zzV6BQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/ + xUf+fstH/FR/5+y16rRQB4V4k/tbzrb7X/rfM/cf6n725P7nHXb97j9a6D/io/8AP2WtX4j/ + APH5pv8A18f+zw16BQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xU + f+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xU + f+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB4/q39v+TJ5/8AqvLff/x7/d2nd93n + pnpz6VU8Lf219mT7F/x7/Ns/1H947vv/ADfez1/lXqviz/jzuf8Ar3m/9Aasr4W/8g6D/tp/ + 6NegDlf+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8A + P2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/i + o/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/Za5+y/tb7fL5f/AB++WPM/1P3c + Jjr8nTb05/Wvda8/0b/kPXX/AF7r/KCgDK/4qP8Az9lo/wCKj/z9lr1WigDyr/io/wDP2Wj/ + AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8Az9lo/wCKj/z9lr1WigDyr/io + /wDP2Wj/AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8Az9lo/wCKj/z9lr1W + igDyr/io/wDP2Wuf8a/2t5K/2j/qvMGP9T97a2P9Xz0z7fpXutef/Gv/AI84/wDr4X/0CSgD + K/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9V + ooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/ + Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDwrwV/a3kt/Z3+q + 8w5/1P3tq5/1nPTHt+tdB/xUf+fstavwU/485P8Ar4b/ANAjr0CgDyr/AIqP/P2Wj/io/wDP + 2WvVaKAPKv8Aio/8/ZaP+Kj/AM/Za9VooA8q/wCKj/z9lo/4qP8Az9lr1WigDyr/AIqP/P2W + j/io/wDP2WvVaKAPKv8Aio/8/ZaP+Kj/AM/Za9VooA8q/wCKj/z9lo/4qP8Az9lr1WigDyr/ + AIqP/P2Wj/io/wDP2WvVaKAPnXSfM/tKPz/9b9sTf0+95o3fd4656celfRVfP/8AzGf+4h/7 + Xr6AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAK+f/il/wAhGf8A7Z/+ikr6Ar5/+KX/ACEZ/wDtn/6K + SgD6AorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Es + s/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8 + Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1q8/+Cn/HnJ/18N/6 + BHXVf8JZZ/8APxD/AN/k/wDiq4j4Ra5b2Fo6TSxoxnYgO6qcbEGcEjjigD02isn/AISyz/5+ + If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P + /iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/C + WWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn + /hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/ + 9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/ + yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1 + qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqAOA/5mP/AD/z616rXj/9rQ/2/wDavMTy + v7+9dn/Hvt+9nHXjr14r0r/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCE + ss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wl + ln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/ + 8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/ + k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAcr8a + /wDjzj/6+F/9AkrqvCf/AB523/XvD/6AtcR8Xdct7+0RIZY3YTqSEdWONjjOATxzXS+GPE9p + DaW6PPEGWCIEGVAQQgBBBPBFAHUUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/ + 8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+ + fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z + 8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQB + rUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrV5V8DP+Xr/ALY/+1K7/wD4 + Syz/AOfiH/v8n/xVea/BrVodP+0efIke7yseY6rnG/OMkZxkUAewUVk/8JZZ/wDPxD/3+T/4 + qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1 + FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/ + AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q + /wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFUAa1eVePv8AkM2f/bv/AOj2rv8A/hLLP/n4h/7/ACf/ABVea+N9WhudWtJ45EaNPI3M + rqVGJmJywOBgcn2oA9gorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8A + n4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8A + f5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8 + VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/ + AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1q5T4pf8g6f/tn/wCjUrV/4Syz/wCf + iH/v8n/xVc18R/ENtd2E0UU0TufLwqSIzHEik4AOelAGh8Lf+QdB/wBtP/Rr11dcJ8OPENta + WEMUs0SOPMyryIrDMjEZBOeldL/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZ + Z/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+ + Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3 + +T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J + /wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDxX + 4W/8hGD/ALaf+inr6Ar5/wDhb/yEYP8Atp/6KevoCgAryr45/wDLr/22/wDadeq15V8c/wDl + 1/7bf+06AOq+Fv8AyDoP+2n/AKNeurrhPhx4htrSwhilmiRx5mVeRFYZkYjIJz0rpf8AhLLP + /n4h/wC/yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/ + 8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FU + Aa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/ + AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/w + lln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQByvw4/wCPzUv+vj/2eavQK8y8A65b2t3qDySx + qsk+ULOqhhvlOQSeRyOnqK7f/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/ + AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q + /wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/ + 4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVAHK/Ef + /j803/r4/wDZ4a9ArzLx9rlvdXenvHLGyxz5cq6sFG+I5JB4HB6+hrt/+Ess/wDn4h/7/J/8 + VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo + /wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRW + T/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/ + 7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD + /wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAHiz/jzuf+veb/ANAasr4W/wDIOg/7af8Ao16f4n8T + 2k1pcIk8RZoJQAJUJJKEAAA8k1mfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnpQB3dFZP/CWWf8A + z8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/ + yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P + /iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8A + wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLL + P/n4h/7/ACf/ABVAGtXn+jf8h66/691/lBXVf8JZZ/8APxD/AN/k/wDiq4jSdct01q5uDLGI + mgUBy6hCcQ8Bs4J4P5GgD02isn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/ + AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/ + 8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v + 8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8A + iqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWrz/41/wDHnH/18L/6BJXVf8JZ + Z/8APxD/AN/k/wDiq4j4u65b39oiQyxuwnUkI6scbHGcAnjmgD02isn/AISyz/5+If8Av8n/ + AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANais + n/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q + /wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4 + h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA + 1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA5X4Kf8AHnJ/18N/6BHXoFeZfCLX + LewtHSaWNGM7EB3VTjYgzgkccV2//CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CW + Wf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP + /n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9 + /k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FU + f8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA8V + /wCYz/3EP/a9fQFfPkMyzauHQgq1+CCDkEGbIII6g19B0AFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFf + P/xS/wCQjP8A9s//AEUlfQFfP/xS/wCQjP8A9s//AEUlAHoH/ClLP+/N/wB9J/8AG6P+FKWf + 9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+ + /N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFF + AHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCF + KWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8brl/h58PLfxJbtcTNIGWUqAhUDAVT3Vufmr + 2ivP/gp/x5yf9fDf+gR0AH/ClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8Ajdeg + UUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ + /wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/ + AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON1 + 6BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKW + f9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB4V/wAIVD/a + 39kbn8r1yu//AFPmdduOvt0/Ou1/4UpZ/wB+b/vpP/jdZX/Mx/5/59a9VoA8/wD+FKWf9+b/ + AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xuvQK + KAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhSln/fm/76T/43R/wpSz/v + zf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG69AooA8//wCFKWf9 + +b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0C + igDxf4h/Dy38N263ELSFmlCkOVIwVY9lXn5a29D+EVpf28Nw7yhpYkYgMmMsoJxlDxzV341/ + 8ecf/Xwv/oEldV4T/wCPO2/694f/AEBaAOV/4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0C + igDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8AvpP/AI3R/wAK + Us/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69AooA8//AOFKWf8A + fm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG69A + ooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdcV8 + N/BUPifzvPZ18ry8eWVH3t2c5Vv7or3WvKvgZ/y9f9sf/alAGr/wpSz/AL83/fSf/G6P+FKW + f9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/7 + 83/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16 + BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSl + n/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz + /vzf99J/8brivE/gqHSr+30+NnMc/lbixUsN8hQ4IUDoOODzXuteVePv+QzZ/wDbv/6PagDV + /wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8Avzf9 + 9J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8AvpP/ + AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69AooA8// + AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9 + J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN1ieM/hfbaJaSXkTyl49mA7IV+Z1U5wgPQ+tet1yn + xS/5B0//AGz/APRqUAcf4M+F9trdpHeSvKHk35CMgX5XZRjKE9B61t/8KUs/783/AH0n/wAb + rV+Fv/IOg/7af+jXrq6APP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG69AooA8//wCF + KWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8 + br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8AvpP/AI3R + /wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69AooA8//AOFK + Wf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA+f8A4W/8hGD/ALaf+inr6Ar5/wDhb/yEYP8A + tp/6KevoCgAryr45/wDLr/22/wDadeq15V8c/wDl1/7bf+06AIfBnwvttbtI7yV5Q8m/IRkC + /K7KMZQnoPWtv/hSln/fm/76T/43Wr8Lf+QdB/20/wDRr11dAHn/APwpSz/vzf8AfSf/ABuj + /hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8A + wpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+ + N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG + 6P8AhSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHi/hL4 + eW+sXF3byNIFtZdqFSoJG5xzlTz8o6Y711H/AApSz/vzf99J/wDG6Phx/wAfmpf9fH/s81eg + UAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/f + m/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/ + 30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUU + Aef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/3 + 5v8AvpP/AI3XoFFAHi/i34eW+j3FpbxtIVupdrlipIG5BxhRz8x657V1H/ClLP8Avzf99J/8 + bo+I/wDx+ab/ANfH/s8NegUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5/ + /wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v + ++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ + ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAH + n/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAeZa58IrSwt5rhHlLRROwBZMZVSRnCDj + iqPgz4X22t2kd5K8oeTfkIyBfldlGMoT0HrXoviz/jzuf+veb/0Bqyvhb/yDoP8Atp/6NegD + K/4UpZ/35v8AvpP/AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/78 + 3/fSf/G69AooA8//AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP + /jdH/ClLP+/N/wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0Cig + Dz//AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/ + N/30n/xuvQKKAPP/APhSln/fm/76T/43XL6f8PLe41OfSy0nlRRBgQV35IjPJ24x857DtXtF + ef6N/wAh66/691/lBQAf8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8A + fSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43Xo + FFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/ + 35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vz + f99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G65f4h/Dy38N263ELSFmlC + kOVIwVY9lXn5a9orz/41/wDHnH/18L/6BJQAf8KUs/783/fSf/G6P+FKWf8Afm/76T/43XoF + FAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf + 9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+ + /N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFF + AHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCF + KWf9+b/vpP8A43XoFFAHi/w8+Hlv4kt2uJmkDLKVAQqBgKp7q3PzV1H/AApSz/vzf99J/wDG + 6Pgp/wAecn/Xw3/oEdegUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs + /wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8A + jdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/ + 4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/ + 783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHzvp1kthqiW6ZKxXqqCeuFlAGcY54r6Ir5// + AOYz/wBxD/2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8//FL/ + AJCM/wD2z/8ARSUAfQFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wAL + rs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/ + +OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj + /hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BXn/wAF + P+POT/r4b/0COj/hddn/AHJv++U/+OVy/wAPPiHb+G7dreZZCzSlgUCkYKqO7Lz8tAHtFFef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/ + AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAZX/Mx/5/59a9Vrwr/hNYf7W/tfa/lemF3/ + AOp8vpux19+n5V2v/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/ + 3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/ + +OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A + /hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf + 98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coAPjX/x5x/9fC/+gSV1XhP/ + AI87b/r3h/8AQFry34h/EO38SW628KyBllDEuFAwFYdmbn5q29D+LtpYW8Nu6SlookUkKmMq + oBxlxxxQB6bRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3J + v++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45QB6BXlXwM/5ev+2P/tStX/hddn/cm/75T/45XFfDfxrD4Y87z1dv + N8vHlhT93dnOWX+8KAPdaK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ + /wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAc + oA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOU + f8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12 + f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQK8q8ff8hmz/AO3f/wBHtWr/AMLrs/7k3/fKf/HK + 4rxP41h1W/t9QjVxHB5W4MFDHZIXOAGI6Hjkc0Ae60V5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3 + Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k + 3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFF + ef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXX + Z/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegVynxS/5B0//bP/ + ANGpWV/wuuz/ALk3/fKf/HKxPGfxQttbtJLOJJQ8mzBdUC/K6sc4cnoPSgDsPhb/AMg6D/tp + /wCjXrq68k8GfFC20S0js5UlLx78lFQr8zswxlweh9K2/wDhddn/AHJv++U/+OUAegUV5/8A + 8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+ + U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/ + 8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8 + Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/ + 75T/AOOUAef/AAt/5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9fQFABXlXxz/5df+23/tOv + Va8q+Of/AC6/9tv/AGnQB1Xwt/5B0H/bT/0a9dXXkngz4oW2iWkdnKkpePfkoqFfmdmGMuD0 + PpW3/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8// + AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8 + p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U + /wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/ + APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygA+HH/H5qX/Xx/wCzzV6BXi/hL4h2+j3F3cSL + IVupdyBQpIG5zzlhz8w6Z711H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/ + 7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn + /cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKA + PQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8A + C67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygA+I/8Ax+ab/wBf + H/s8NegV4v4t+IdvrFxaXEayBbWXc4YKCRuQ8YY8/KeuO1dR/wALrs/7k3/fKf8AxygD0Civ + P/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3 + /fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T + /wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP + /wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8A + fKf/ABygDqvFn/Hnc/8AXvN/6A1ZXwt/5B0H/bT/ANGvXO658XbS/t5rdElDSxOoJVMZZSBn + DnjmqPgz4oW2iWkdnKkpePfkoqFfmdmGMuD0PpQB63RXn/8Awuuz/uTf98p/8co/4XXZ/wBy + b/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn + /wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegU + V5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegV5/o3/Ieuv8Ar3X+ + UFH/AAuuz/uTf98p/wDHK5fT/iHb2+pz6oVk8qWIKAAu/IEY5G7GPkPc9qAPaKK8/wD+F12f + 9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/x + ygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wu + uz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF + 12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8 + coA9Arz/AONf/HnH/wBfC/8AoElH/C67P+5N/wB8p/8AHK5f4h/EO38SW628KyBllDEuFAwF + Ydmbn5qAPaKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T + /wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP + /wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8A + fKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/v + lP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coAPgp/x + 5yf9fDf+gR16BXi/w8+Idv4bt2t5lkLNKWBQKRgqo7svPy11H/C67P8AuTf98p/8coA9Aorz + /wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7 + k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/7 + 5T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8 + /wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+ + 5N/3yn/xygDz/wD5jP8A3EP/AGvX0BXzvp16t/qiXCZCy3qsAeuGlBGcZ55r6IoAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAK+f/AIpf8hGf/tn/AOikr6Ar5/8Ail/yEZ/+2f8A6KSgD6AooooAKKKK + ACiiigAooooAKKKKACiiigArz/4Kf8ecn/Xw3/oEdegV5/8ABT/jzk/6+G/9AjoA9AooooAK + KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPKv+Zj/z/wA+teq15V/z + Mf8An/n1r1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooA8/+Nf/AB5x/wDXwv8A6BJX + VeE/+PO2/wCveH/0Ba5X41/8ecf/AF8L/wCgSV1XhP8A487b/r3h/wDQFoA1qKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACvKvgZ/y9f9sf8A2pXqteVfAz/l6/7Y/wDtSgD1WiiigAoo + ooAKKKKACiiigAooooAKKKKACiiigAryrx9/yGbP/t3/APR7V6rXlXj7/kM2f/bv/wCj2oA9 + VooooAKKKKACiiigAooooAKKKKACiiigAooooAK5T4pf8g6f/tn/AOjUrq65T4pf8g6f/tn/ + AOjUoAPhb/yDoP8Atp/6NeurrlPhb/yDoP8Atp/6NeuroAKKKKACiiigAooooAKKKKACiiig + AooooAKKKKAPn/4W/wDIRg/7af8Aop6+gK+f/hb/AMhGD/tp/wCinr6AoAK8q+Of/Lr/ANtv + /adeq15V8c/+XX/tt/7ToA6r4W/8g6D/ALaf+jXrq65T4W/8g6D/ALaf+jXrq6ACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigDz/4cf8AH5qX/Xx/7PNXoFef/Dj/AI/NS/6+P/Z5q9Ao + AKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP/iP/AMfmm/8AXx/7PDXoFef/ABH/AOPz + Tf8Ar4/9nhr0CgAooooAKKKKACiiigAooooAKKKKACiiigAooooAyfFn/Hnc/wDXvN/6A1ZX + wt/5B0H/AG0/9GvWr4s/487n/r3m/wDQGrK+Fv8AyDoP+2n/AKNegDq6KKKACiiigAooooAK + KKKACiiigAooooAKKKKACvP9G/5D11/17r/KCvQK8/0b/kPXX/Xuv8oKAPQKKKKACiiigAoo + ooAKKKKACiiigAooooAKKKKACvP/AI1/8ecf/Xwv/oElegV5/wDGv/jzj/6+F/8AQJKAPQKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4Kf8AHnJ/18N/6BHXoFef/BT/AI85 + P+vhv/QI69AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPn/wD5jP8A3EP/AGvX0BXz + /wD8xn/uIf8AtevoCgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/8Ail/yEZ/+2f8A6KSvoCvn/wCK + X/IRn/7Z/wDopKAPoCivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8Az9loA9Vo + ryr/AIqP/P2Wj/io/wDP2WgD1WivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8A + z9loA9Voryr/AIqP/P2Wj/io/wDP2WgD1WvP/gp/x5yf9fDf+gR1lf8AFR/5+y1z/gr+1vJb + +zv9V5hz/qfvbVz/AKznpj2/WgD3WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/ + 8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj + /io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8A + P2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/i + o/8AP2Wj/io/8/ZaAD/mY/8AP/PrXqtfP/8AxMf7R/6iH/bL/nl/3x9z/Oa6v/io/wDP2WgD + 1WivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8Az9loA9Voryr/AIqP/P2Wj/io + /wDP2WgD1WivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8Az9loA9Voryr/AIqP + /P2Wj/io/wDP2WgD1WivKv8Aio/8/ZaP+Kj/AM/ZaANX41/8ecf/AF8L/wCgSV1XhP8A487b + /r3h/wDQFryDxr/a3kr/AGj/AKrzBj/U/e2tj/V89M+36Vq6T/b/AJMfkf6ry02f8e/3do2/ + e56Y68+tAHsFFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR + /wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6 + rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq15V8DP+Xr/ALY/+1KP + +Kj/AM/Za5TwL/aP73+zP9jzP9V/tbf9Z+PT8e1AH0BRXlX/ABUf+fstH/FR/wCfstAHqtFe + Vf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCf + stAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fst + H/FR/wCfstAHqteVePv+QzZ/9u//AKPaj/io/wDP2WuU1/8AtH7ZD9q/4+/3flf6r++dn3fl + +9nr+PFAH0BRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAV + H/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq + 0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtcp8Uv+QdP/ANs//RqV + yv8AxUf+fstZPin+2vsz/bf+Pf5d/wDqP7w2/c+b72On8qAPQPhb/wAg6D/tp/6NeurrxTwt + /bX2ZPsX/Hv82z/Uf3ju+/8AN97PX+Va3/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq + 0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/ + AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5 + +y0f8VH/AJ+y0Acp8Lf+QjB/20/9FPX0BXz/APC3/kIwf9tP/RT19AUAFeVfHP8A5df+23/t + OvVa8q+Of/Lr/wBtv/adAHVfC3/kHQf9tP8A0a9dXXinhb+2vsyfYv8Aj3+bZ/qP7x3ff+b7 + 2ev8q1v+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivK + v+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1 + WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaANX4cf8AH5qX/Xx/7PNXoFeF + eG/7W865+yf63zP3/wDqfvbn/v8AHXd93j9K6D/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9l + oA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/ + AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/ + 4qP/AD9loA1fiP8A8fmm/wDXx/7PDXoFeFeJP7W862+1/wCt8z9x/qfvbk/ucddv3uP1roP+ + Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ + ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj + /wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAO/8Wf8AHnc/9e83/oDVlfC3/kHQf9tP + /Rr1xWrf2/5Mnn/6ry33/wDHv93ad33eemenPpVTwt/bX2ZPsX/Hv82z/Uf3ju+/833s9f5U + Ae10V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0 + Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0 + Aeq0V5V/xUf+fstH/FR/5+y0Aeq15/o3/Ieuv+vdf5QVlf8AFR/5+y1z9l/a32+Xy/8Aj98s + eZ/qfu4THX5Om3pz+tAHutFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQ + B6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/x + Uf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq15/8a/8A + jzj/AOvhf/QJKyv+Kj/z9lrn/Gv9reSv9o/6rzBj/U/e2tj/AFfPTPt+lAHutFeVf8VH/n7L + R/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7L + R/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7L + R/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAGr8FP+POT/AK+G/wDQI69ArwrwV/a3kt/Z3+q8 + w5/1P3tq5/1nPTHt+tdB/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y + 0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf + 8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fst + AHKf8xn/ALiH/tevoCvnXSfM/tKPz/8AW/bE39PveaN33eOuenHpX0VQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8//FL/AJCM/wD2z/8ARSUAfQFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFef/BT/jzk/wCvhv8A0COvQK8/+Cn/AB5yf9fDf+gR0AegUUUUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/Mx/wCf+fWvVa8q/wCZ + j/z/AM+teq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMa/+POP/r4X/wBAkrqv + Cf8Ax523/XvD/wCgLXK/Gv8A484/+vhf/QJK6rwn/wAedt/17w/+gLQBrUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFeVfAz/l6/7Y/+1K9Vryr4Gf8AL1/2x/8AalAHqtFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABXlXj7/kM2f/bv/wCj2r1WvKvH3/IZs/8At3/9HtQB6rRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVynxS/wCQdP8A9s//AEaldXXKfFL/AJB0/wD2 + z/8ARqUAHwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0AFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFAHz/APC3/kIwf9tP/RT19AV8/wDwt/5CMH/bT/0U9fQFABXlXxz/AOXX/tt/ + 7Tr1WvKvjn/y6/8Abb/2nQB1Xwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0AFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMOP+PzUv+vj/wBnmr0CvP8A4cf8fmpf9fH/ALPN + XoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8R/+PzTf+vj/ANnhr0CvP/iP/wAf + mm/9fH/s8NegUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAGT4s/487n/r3m/wDQGrK+ + Fv8AyDoP+2n/AKNetXxZ/wAedz/17zf+gNWV8Lf+QdB/20/9GvQB1dFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFABXn+jf8h66/wCvdf5QV6BXn+jf8h66/wCvdf5QUAegUUUUAFFFFABR + RRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQK8/+Nf8Ax5x/9fC/+gSUAegU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMFP+POT/r4b/wBAjr0CvP8A4Kf8 + ecn/AF8N/wCgR16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfP/8AzGf+4h/7Xr6A + r5//AOYz/wBxD/2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8/ + /FL/AJCM/wD2z/8ARSUAe1f8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30 + n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf9 + 9J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83 + /fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8A + vzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/ + AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iq4j4Ra5b2Fo6TSxoxnYgO6qcbE + GcEjjirv/ClLP+/N/wB9J/8AG65f4efDy38SW7XEzSBllKgIVAwFU91bn5qAPUv+Ess/+fiH + /v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/ + +fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+ + Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABug + Dqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ + ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8A + fSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/v + zf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wp + Sz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43 + R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76 + T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/f + m/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hS + ln/fm/76T/43R/wpSz/vzf8AfSf/ABugDn/7Wh/t/wC1eYnlf3967P8Aj32/ezjrx168V6V/ + wlln/wA/EP8A3+T/AOKryD/hCof7W/sjc/leuV3/AOp8zrtx19un512v/ClLP+/N/wB9J/8A + G6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9 + J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N + /wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClL + P+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP/jdH + /ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP + /jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b + /vpP/jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKW + f9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AKXxd1y3v7REhljdhOpIR1Y42OM4BPHNdL4Y8T2kNp + bo88QZYIgQZUBBCAEEE8EV5/8Q/h5b+G7dbiFpCzShSHKkYKseyrz8tbeh/CK0v7eG4d5Q0s + SMQGTGWUE4yh45oA7f8A4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/v + pP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUp + Z/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKr + lf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf + 5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8A + PxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/ + wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v + 8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/ + AJ+If+/yf/FV5r8GtWh0/wC0efIke7yseY6rnG/OMkZxkV0H/ClLP+/N/wB9J/8AG64r4b+C + ofE/neezr5Xl48sqPvbs5yrf3RQB6/8A8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8A + wpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FV + yv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/y + f/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+I + f+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/ + AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/h + LLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4 + qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3 + +T/4qvNfG+rQ3OrWk8ciNGnkbmV1KjEzE5YHAwOT7V0H/ClLP+/N/wB9J/8AG64rxP4Kh0q/ + t9PjZzHP5W4sVLDfIUOCFA6Djg80Aev/APCWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/ + AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/x + Vcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v + 8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz/wCf + iH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/4Syz + /wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/ + 4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/ + +Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/ + 9/k/+KrmviP4htruwmiimidz5eFSRGY4kUnABz0qL/hSln/fm/76T/43WJ4z+F9tolpJeRPK + Xj2YDshX5nVTnCA9D60AdB8OPENtaWEMUs0SOPMyryIrDMjEZBOeldL/AMJZZ/8APxD/AN/k + /wDiq868GfC+21u0jvJXlDyb8hGQL8rsoxlCeg9a2/8AhSln/fm/76T/AON0AdV/wlln/wA/ + EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0 + AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln + /fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J + /wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/ + AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/ + AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo + /wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/ + EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0 + Aef/AAt/5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9fQFABXlXxz/5df+23/tOvVa8q+Of/ + AC6/9tv/AGnQBtfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnpXS/8JZZ/wDPxD/3+T/4qvOvBnwv + ttbtI7yV5Q8m/IRkC/K7KMZQnoPWtv8A4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/h + LLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4 + qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3 + +T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDP + xD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ + /wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf + 8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jd + AHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vp + P/jdAFLwDrlva3eoPJLGqyT5Qs6qGG+U5BJ5HI6eort/+Ess/wDn4h/7/J/8VXlvhL4eW+sX + F3byNIFtZdqFSoJG5xzlTz8o6Y711H/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln + /wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/x + VH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+I + f+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Es + s/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6 + AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf + 99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/C + lLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/ + AON0f8KUs/783/fSf/G6AKXj7XLe6u9PeOWNljny5V1YKN8RySDwOD19DXb/APCWWf8Az8Q/ + 9/k/+Kry3xb8PLfR7i0t42kK3Uu1yxUkDcg4wo5+Y9c9q6j/AIUpZ/35v++k/wDjdAHVf8JZ + Z/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k + /wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/ + AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/7 + 83/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8A + xVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP + /n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k + /wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZ + Z/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k + /wDjdAGx4n8T2k1pcIk8RZoJQAJUJJKEAAA8k1mfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnpWb + rnwitLC3muEeUtFE7AFkxlVJGcIOOKo+DPhfba3aR3kryh5N+QjIF+V2UYyhPQetAHov/CWW + f/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wl + ln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8 + JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X + /CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0Ad + V/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdA + HVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43 + QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+ + N0AdV/wlln/z8Q/9/k/+KriNJ1y3TWrm4MsYiaBQHLqEJxDwGzgng/kau/8AClLP+/N/30n/ + AMbrl9P+HlvcanPpZaTyoogwIK78kRnk7cY+c9h2oA9S/wCEss/+fiH/AL/J/wDFUf8ACWWf + /PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J + /wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCE + ss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J + /wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/ + AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm + /wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8A + iq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf + /PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J + /wDFVxHxd1y3v7REhljdhOpIR1Y42OM4BPHNXf8AhSln/fm/76T/AON1y/xD+Hlv4bt1uIWk + LNKFIcqRgqx7KvPy0Aepf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/7 + 83/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8A + xVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP + /n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k + /wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZ + Z/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k + /wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/ + AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/7 + 83/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8A + xVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAFL4Ra5b2Fo6TSxoxnYgO6qcbEGcEjj + iu3/AOEss/8An4h/7/J/8VXlvw8+Hlv4kt2uJmkDLKVAQqBgKp7q3PzV1H/ClLP+/N/30n/x + ugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/78 + 3/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/ + wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k + /wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln + /fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV + /wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k + /wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/ + EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6APPIZlm1cOhBVr8EEHIIM2QQ + R1Br6Dr5306yWw1RLdMlYr1VBPXCygDOMc8V9EUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/AMUv + +QjP/wBs/wD0UlfQFfP/AMUv+QjP/wBs/wD0UlAH0BRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABXn/wAFP+POT/r4b/0COvQK8/8Agp/x5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/ADMf+f8An1r1WvKv+Zj/AM/8+teq0AFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/xr/wCPOP8A6+F/9AkrqvCf/Hnbf9e8P/oC1yvx + r/484/8Ar4X/ANAkrqvCf/Hnbf8AXvD/AOgLQBrUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFeVfAz/l6/7Y/wDtSvVa8q+Bn/L1/wBsf/alAHqtFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABXlXj7/kM2f/AG7/APo9q9Vryrx9/wAhmz/7d/8A0e1AHqtFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABXKfFL/kHT/8AbP8A9GpXV1ynxS/5B0//AGz/APRqUAHwt/5B0H/b + T/0a9dXXKfC3/kHQf9tP/Rr11dABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8//AAt/ + 5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9fQFABXlXxz/5df+23/tOvVa8q+Of/AC6/9tv/ + AGnQB1Xwt/5B0H/bT/0a9dXXKfC3/kHQf9tP/Rr11dABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQB5/8OP8Aj81L/r4/9nmr0CvP/hx/x+al/wBfH/s81egUAFFFFABRRRQAUUUUAFFF + FABRRRQAUUUUAFFFFAHn/wAR/wDj803/AK+P/Z4a9Arz/wCI/wDx+ab/ANfH/s8NegUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAGT4s/487n/r3m/9Aasr4W/8g6D/ALaf+jXrV8Wf + 8edz/wBe83/oDVlfC3/kHQf9tP8A0a9AHV0UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF + ef6N/wAh66/691/lBXoFef6N/wAh66/691/lBQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAV5/wDGv/jzj/6+F/8AQJK9Arz/AONf/HnH/wBfC/8AoElAHoFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQB5/8FP8Ajzk/6+G/9Ajr0CvP/gp/x5yf9fDf+gR16BQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfP/APzGf+4h/wC16+gK+f8A/mM/9xD/ANr19AUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFfP/AMUv+QjP/wBs/wD0UlfQFfP/AMUv+QjP/wBs/wD0UlAH + oH/C67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/ + AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAcrl/h58Q7fw3b + tbzLIWaUsCgUjBVR3Zeflr2ivP8A4Kf8ecn/AF8N/wCgR0AH/C67P+5N/wB8p/8AHKP+F12f + 9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+ + 5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFF + AHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF + 12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8A + uTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5X + oFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F1 + 2f8Acm/75T/45XoFFAHhX/Caw/2t/a+1/K9MLv8A9T5fTdjr79Pyrtf+F12f9yb/AL5T/wCO + Vlf8zH/n/n1r1WgDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv+ + +U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQ + KKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ + ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/ + AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDxf4h/EO38SW628KyBllDEuFAwFYdmbn5q29D+Lt + pYW8Nu6SlookUkKmMqoBxlxxxV341/8AHnH/ANfC/wDoEldV4T/487b/AK94f/QFoA5X/hdd + n/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/ + 8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8 + Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8A + hddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf + /HK9AooA8/8A+F12f9yb/vlP/jlcV8N/GsPhjzvPV283y8eWFP3d2c5Zf7wr3WvKvgZ/y9f9 + sf8A2pQBq/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/ + 4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/ + 7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/ + AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP + +F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHK4rxP41h1W/t9QjVxHB5W4MFDHZIXOA + GI6Hjkc17rXlXj7/AJDNn/27/wDo9qANX/hddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKA + PP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz + /uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv+ + +U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQ + KKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45WJ4z+KF + trdpJZxJKHk2YLqgX5XVjnDk9B6V63XKfFL/AJB0/wD2z/8ARqUAcf4M+KFtolpHZypKXj35 + KKhX5nZhjLg9D6Vt/wDC67P+5N/3yn/xytX4W/8AIOg/7af+jXrq6APP/wDhddn/AHJv++U/ + +OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A + /hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf + 98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+ + OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAP + n/4W/wDIRg/7af8Aop6+gK+f/hb/AMhGD/tp/wCinr6AoAK8q+Of/Lr/ANtv/adeq15V8c/+ + XX/tt/7ToAh8GfFC20S0js5UlLx78lFQr8zswxlweh9K2/8Ahddn/cm/75T/AOOVq/C3/kHQ + f9tP/Rr11dAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8 + co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn// + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOV6BRQB4v4S+Idvo9xd3EiyFbqXcgUKSBuc85Yc/MOme9dR/wuuz/ + ALk3/fKf/HKPhx/x+al/18f+zzV6BQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5X + oFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F1 + 2f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N + /wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDj + legUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB4v4t+IdvrFxaXEayBbWXc4YK + CRuQ8YY8/KeuO1dR/wALrs/7k3/fKf8Axyj4j/8AH5pv/Xx/7PDXoFAHn/8Awuuz/uTf98p/ + 8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8 + Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/ + 75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf + /HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5l + rnxdtL+3mt0SUNLE6glUxllIGcOeOao+DPihbaJaR2cqSl49+SioV+Z2YYy4PQ+lei+LP+PO + 5/695v8A0Bqyvhb/AMg6D/tp/wCjXoAyv+F12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA + 8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/AL5T/wCOUf8AC67P + +5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv + ++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKA + PP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45XL6f8A + EO3t9Tn1QrJ5UsQUABd+QIxyN2MfIe57V7RXn+jf8h66/wCvdf5QUAH/AAuuz/uTf98p/wDH + KP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDw + uuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T + /wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/x + yj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwu + uz/uTf8AfKf/AByuX+IfxDt/ElutvCsgZZQxLhQMBWHZm5+avaK8/wDjX/x5x/8AXwv/AKBJ + QAf8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn + /cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3 + /fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BR + QB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/ + AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHi/w8+Idv4bt2t5 + lkLNKWBQKRgqo7svPy11H/C67P8AuTf98p/8co+Cn/HnJ/18N/6BHXoFAHn/APwuuz/uTf8A + fKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45Xo + FFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/ + 3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uT + f98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoF + FAHzvp16t/qiXCZCy3qsAeuGlBGcZ55r6Ir5/wD+Yz/3EP8A2vX0BQAUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRSUAfQFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFef/AAU/485P+vhv/QI69Arz/wCCn/HnJ/18N/6BHQB6BRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8AMx/5/wCfWvVa8q/5mP8A + z/z616rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/Gv/AI84/wDr4X/0CSuq8J/8 + edt/17w/+gLXK/Gv/jzj/wCvhf8A0CSuq8J/8edt/wBe8P8A6AtAGtRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAV5V8DP+Xr/tj/AO1K9Vryr4Gf8vX/AGx/9qUAeq0UUUAFFFFABRRR + QAUUUUAFFFFABRRRQAUUUUAFeVePv+QzZ/8Abv8A+j2r1WvKvH3/ACGbP/t3/wDR7UAeq0UU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFcp8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8AbP8A + 9GpQAfC3/kHQf9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFAHz/8AC3/kIwf9tP8A0U9fQFfP/wALf+QjB/20/wDRT19AUAFeVfHP/l1/7bf+069V + ryr45/8ALr/22/8AadAHVfC3/kHQf9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFAHn/w4/wCPzUv+vj/2eavQK8/+HH/H5qX/AF8f+zzV6BQAUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/ABH/AOPzTf8Ar4/9nhr0CvP/AIj/APH5pv8A + 18f+zw16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAZPiz/jzuf+veb/0Bqyvhb/yD + oP8Atp/6NetXxZ/x53P/AF7zf+gNWV8Lf+QdB/20/wDRr0AdXRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAV5/o3/ACHrr/r3X+UFegV5/o3/ACHrr/r3X+UFAHoFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFFFFABXn/AMa/+POP/r4X/wBAkr0CvP8A41/8ecf/AF8L/wCgSUAegUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/wU/wCPOT/r4b/0COvQK8/+Cn/HnJ/1 + 8N/6BHXoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8/8A/MZ/7iH/ALXr6Ar5/wD+ + Yz/3EP8A2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5 + CM//AGz/APRSUAdX/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR/wCfsteq0UAeVf8A + FR/5+y0f8VH/AJ+y16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR/wCfsteq + 0UAeVf8AFR/5+y0f8VH/AJ+y16rRQB5V/wAVH/n7LXP+Cv7W8lv7O/1XmHP+p+9tXP8ArOem + Pb9a91rz/wCCn/HnJ/18N/6BHQBlf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0 + UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0 + UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0 + UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0 + UAfP/wDxMf7R/wCoh/2y/wCeX/fH3P8AOa6v/io/8/ZaP+Zj/wA/8+teq0AeVf8AFR/5+y0f + 8VH/AJ+y16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR/wCfsteq0UAeVf8A + FR/5+y0f8VH/AJ+y16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR/wCfsteq + 0UAeVf8AFR/5+y0f8VH/AJ+y16rRQB4V41/tbyV/tH/VeYMf6n721sf6vnpn2/StXSf7f8mP + yP8AVeWmz/j3+7tG373PTHXn1roPjX/x5x/9fC/+gSV1XhP/AI87b/r3h/8AQFoA4D/io/8A + P2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/i + o/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigD + yr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lrlPAv9o/vf7M/wBjzP8AVf7W3/Wfj0/HtX0B + XlXwM/5ev+2P/tSgA/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/ + 8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr + /io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lrlNf8A7R+2Q/av + +Pv935X+q/vnZ935fvZ6/jxX0BXlXj7/AJDNn/27/wDo9qAD/io/8/ZaP+Kj/wA/Za9VooA8 + q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9V + ooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/ + Za9VooA8q/4qP/P2WsnxT/bX2Z/tv/Hv8u//AFH94bfufN97HT+Ve11ynxS/5B0//bP/ANGp + QB5/4W/tr7Mn2L/j3+bZ/qP7x3ff+b72ev8AKtb/AIqP/P2Wuq+Fv/IOg/7af+jXrq6APKv+ + Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKA + PKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2Wv + VaKAPKv+Kj/z9lo/4qP/AD9lr1WigD5/+Fv/ACEYP+2n/op6+gK+f/hb/wAhGD/tp/6KevoC + gAryr45/8uv/AG2/9p16rXlXxz/5df8Att/7ToAyfC39tfZk+xf8e/zbP9R/eO77/wA33s9f + 5Vrf8VH/AJ+y11Xwt/5B0H/bT/0a9dXQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/ + 5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/ + 5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB4V4b/tbzrn7J/rf + M/f/AOp+9uf+/wAdd33eP0roP+Kj/wA/Za1fhx/x+al/18f+zzV6BQB5V/xUf+fstH/FR/5+ + y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+ + y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+ + y16rRQB4V4k/tbzrb7X/AK3zP3H+p+9uT+5x12/e4/Wug/4qP/P2WtX4j/8AH5pv/Xx/7PDX + oFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXq + tFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXq + tFAHlX/FR/5+y0f8VH/n7LXqtFAHj+rf2/5Mnn/6ry33/wDHv93ad33eemenPpVTwt/bX2ZP + sX/Hv82z/Uf3ju+/833s9f5V6r4s/wCPO5/695v/AEBqyvhb/wAg6D/tp/6NegDlf+Kj/wA/ + ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj + /wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPK + v+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wufsv7W+3y+X/x++WPM/1P3cJjr8nTb05/Wvda + 8/0b/kPXX/Xuv8oKAMr/AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/ZaP+Kj/AM/Za9VooA8q + /wCKj/z9lo/4qP8Az9lr1WigDyr/AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/ZaP+Kj/AM/Z + a9VooA8q/wCKj/z9lo/4qP8Az9lr1WigDyr/AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/Za5 + /wAa/wBreSv9o/6rzBj/AFP3trY/1fPTPt+le615/wDGv/jzj/6+F/8AQJKAMr/io/8AP2Wj + /io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8A + P2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/i + o/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPCvBX9reS39nf6rzDn/U/e2rn/ + AFnPTHt+tdB/xUf+fstavwU/485P+vhv/QI69AoA8q/4qP8Az9lo/wCKj/z9lr1WigDyr/io + /wDP2Wj/AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8Az9lo/wCKj/z9lr1W + igDyr/io/wDP2Wj/AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8Az9lo/wCK + j/z9lr1WigD510nzP7Sj8/8A1v2xN/T73mjd93jrnpx6V9FV8/8A/MZ/7iH/ALXr6AoAKKKK + ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAK+f/AIpf8hGf/tn/AOikr6Ar5/8Ail/yEZ/+2f8A6KSgD6AorJ/4 + Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A + 3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+ + /wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANai + sn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANavP8A4Kf8ecn/AF8N/wCgR11X/CWW + f/PxD/3+T/4quI+EWuW9haOk0saMZ2IDuqnGxBnBI44oA9NorJ/4Syz/AOfiH/v8n/xVH/CW + Wf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP + /n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9 + /k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FU + f8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1q + Kyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDP + xD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/ + AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqAOA/5mP/P/AD616rXj/wDa0P8Ab/2rzE8r+/vXZ/x7 + 7fvZx1469eK9K/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8 + VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo + /wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRW + T/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/ + 7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQByvxr/484/8Ar4X/ + ANAkrqvCf/Hnbf8AXvD/AOgLXEfF3XLe/tESGWN2E6khHVjjY4zgE8c10vhjxPaQ2lujzxBl + giBBlQEEIAQQTwRQB1FFZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/ + AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfi + H/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf + 5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8A + FUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1eVfAz/AJev+2P/ALUrv/8AhLLP + /n4h/wC/yf8AxVea/BrVodP+0efIke7yseY6rnG/OMkZxkUAewUVk/8ACWWf/PxD/wB/k/8A + iqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CW + Wf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h + /wC/yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP + /f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1e + VePv+QzZ/wDbv/6Pau//AOEss/8An4h/7/J/8VXmvjfVobnVrSeORGjTyNzK6lRiZicsDgYH + J9qAPYKKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn + /wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/h + LLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8 + /EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If + +/yf/FUf8JZZ/wDPxD/3+T/4qgDWrlPil/yDp/8Atn/6NStX/hLLP/n4h/7/ACf/ABVc18R/ + ENtd2E0UU0TufLwqSIzHEik4AOelAGh8Lf8AkHQf9tP/AEa9dXXCfDjxDbWlhDFLNEjjzMq8 + iKwzIxGQTnpXS/8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+ + T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/ + wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWor + J/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/E + P/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqAPFfhb/AMhGD/tp/wCi + nr6Ar5/+Fv8AyEYP+2n/AKKevoCgAryr45/8uv8A22/9p16rXlXxz/5df+23/tOgDqvhb/yD + oP8Atp/6NeurrhPhx4htrSwhilmiRx5mVeRFYZkYjIJz0rpf+Ess/wDn4h/7/J/8VQBrUVk/ + 8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+ + fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z + 8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQB + rUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8A + iqP+Ess/+fiH/v8AJ/8AFUAcr8OP+PzUv+vj/wBnmr0CvMvAOuW9rd6g8ksarJPlCzqoYb5T + kEnkcjp6iu3/AOEss/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8A + v8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+ + T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/ + AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4S + yz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQByvxH/AOPzTf8A + r4/9nhr0CvMvH2uW91d6e8csbLHPlyrqwUb4jkkHgcHr6Gu3/wCEss/+fiH/AL/J/wDFUAa1 + FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/ + AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q + /wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/ + 4Syz/wCfiH/v8n/xVAB4s/487n/r3m/9Aasr4W/8g6D/ALaf+jXp/ifxPaTWlwiTxFmglAAl + QkkoQAADyTWZ8OPENtaWEMUs0SOPMyryIrDMjEZBOelAHd0Vk/8ACWWf/PxD/wB/k/8AiqP+ + Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8A + z8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/ + yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P + /iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1ef6N/ + yHrr/r3X+UFdV/wlln/z8Q/9/k/+KriNJ1y3TWrm4MsYiaBQHLqEJxDwGzgng/kaAPTaKyf+ + Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3 + +T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J + /wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWo + rJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/ + EP8A3+T/AOKoA1q8/wDjX/x5x/8AXwv/AKBJXVf8JZZ/8/EP/f5P/iq4j4u65b39oiQyxuwn + UkI6scbHGcAnjmgD02isn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCf + iH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/ + k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xV + H/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8A + hLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z + 8Q/9/k/+KoA5X4Kf8ecn/Xw3/oEdegV5l8Itct7C0dJpY0YzsQHdVONiDOCRxxXb/wDCWWf/ + AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLL + P/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/ + +KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8A + xVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf + +Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqAPFf+Yz/ANxD/wBr19AV8+QzLNq4dCCrX4II + OQQZsggjqDX0HQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5 + CM//AGz/APRSUAegf8KUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf + /G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5/ + /wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v + ++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ + ABuuX+Hnw8t/Elu1xM0gZZSoCFQMBVPdW5+avaK8/wDgp/x5yf8AXw3/AKBHQAf8KUs/783/ + AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON1 + 6BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKW + f9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/7 + 83/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16 + BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSl + n/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz + /vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAeFf8IVD/a39kbn8r1yu/wD1PmdduOvt0/Ou1/4U + pZ/35v8AvpP/AI3WV/zMf+f+fWvVaAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKK + APP/APhSln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApS + z/vzf99J/wDG69AooA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+ + b/vpP/jdH/ClLP8Avzf99J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0Ci + gDz/AP4UpZ/35v8AvpP/AI3R/wAKUs/783/fSf8AxuvQKKAPF/iH8PLfw3brcQtIWaUKQ5Uj + BVj2Veflrb0P4RWl/bw3DvKGliRiAyYyygnGUPHNXfjX/wAecf8A18L/AOgSV1XhP/jztv8A + r3h/9AWgDlf+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDj + dH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhS + ln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J + /wDG69AooA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jd + H/ClLP8Avzf99J/8br0CigDz/wD4UpZ/35v++k/+N1xXw38FQ+J/O89nXyvLx5ZUfe3ZzlW/ + uivda8q+Bn/L1/2x/wDalAGr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDC + lLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43 + XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo + /wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APCl + LP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbrivE/gqHSr+30+Nn + Mc/lbixUsN8hQ4IUDoOODzXuteVePv8AkM2f/bv/AOj2oA1f+FKWf9+b/vpP/jdH/ClLP+/N + /wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35 + v++k/wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKK + APP/APhSln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApS + z/vzf99J/wDG69AooA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+ + b/vpP/jdYnjP4X22iWkl5E8pePZgOyFfmdVOcID0PrXrdcp8Uv8AkHT/APbP/wBGpQBx/gz4 + X22t2kd5K8oeTfkIyBfldlGMoT0HrW3/AMKUs/783/fSf/G61fhb/wAg6D/tp/6NeuroA8// + AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9 + J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k + /wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/ + APhSln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApSz/vz + f99J/wDG69AooA+f/hb/AMhGD/tp/wCinr6Ar5/+Fv8AyEYP+2n/AKKevoCgAryr45/8uv8A + 22/9p16rXlXxz/5df+23/tOgCHwZ8L7bW7SO8leUPJvyEZAvyuyjGUJ6D1rb/wCFKWf9+b/v + pP8A43Wr8Lf+QdB/20/9GvXV0Aef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A + 8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+ + k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/ + 8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8 + KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHi/hL4eW+sXF3byNIFtZdqFSoJG5xzlT + z8o6Y711H/ClLP8Avzf99J/8bo+HH/H5qX/Xx/7PNXoFAHn/APwpSz/vzf8AfSf/ABuj/hSl + n/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz + /vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16B + RQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8A + hSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHi/i34eW+j + 3FpbxtIVupdrlipIG5BxhRz8x657V1H/AApSz/vzf99J/wDG6PiP/wAfmm/9fH/s8NegUAef + /wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76 + T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/ + AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/ + APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8A + vpP/AI3XoFFAHmWufCK0sLea4R5S0UTsAWTGVUkZwg44qj4M+F9trdpHeSvKHk35CMgX5XZR + jKE9B616L4s/487n/r3m/wDQGrK+Fv8AyDoP+2n/AKNegDK/4UpZ/wB+b/vpP/jdH/ClLP8A + vzf99J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/35v8A + vpP/AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G69Aoo + A8//AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClLP+/N + /wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35 + v++k/wDjdcvp/wAPLe41OfSy0nlRRBgQV35IjPJ24x857DtXtFef6N/yHrr/AK91/lBQAf8A + ClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vp + P/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAb + o/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5// + AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP + /jdegUUAef8A/ClLP+/N/wB9J/8AG65f4h/Dy38N263ELSFmlCkOVIwVY9lXn5a9orz/AONf + /HnH/wBfC/8AoElAB/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/ + 30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUU + Aef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/3 + 5v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/78 + 3/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUA + eL/Dz4eW/iS3a4maQMspUBCoGAqnurc/NXUf8KUs/wC/N/30n/xuj4Kf8ecn/Xw3/oEdegUA + ef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUp + Z/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8Ajdeg + UUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ + /wB+b/vpP/jdegUUAfO+nWS2GqJbpkrFeqoJ64WUAZxjnivoivn/AP5jP/cQ/wDa9fQFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABXz/wDFL/kIz/8AbP8A9FJX0BXz/wDFL/kIz/8AbP8A9FJQB9AU + V5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/f + Kf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV + 5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BXn/wU/485P8Ar4b/ANAjo/4XXZ/3Jv8A + vlP/AI5XL/Dz4h2/hu3a3mWQs0pYFApGCqjuy8/LQB7RRXn/APwuuz/uTf8AfKf/AByj/hdd + n/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz + /uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAe + gUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8A + hddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ + ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCO + UAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/h + ddn/AHJv++U/+OUAZX/Mx/5/59a9Vrwr/hNYf7W/tfa/lemF3/6ny+m7HX36flXa/wDC67P+ + 5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75 + T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQ + KK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8A + uTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8A + vlP/AI5R/wALrs/7k3/fKf8AxygA+Nf/AB5x/wDXwv8A6BJXVeE/+PO2/wCveH/0Ba8t+Ifx + Dt/ElutvCsgZZQxLhQMBWHZm5+atvQ/i7aWFvDbukpaKJFJCpjKqAcZcccUAem0V5/8A8Lrs + /wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8A + jlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/ + 4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/ + 7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/ + AOOUAegV5V8DP+Xr/tj/AO1K1f8Ahddn/cm/75T/AOOVxXw38aw+GPO89XbzfLx5YU/d3Zzl + l/vCgD3WivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8A + jlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A + 4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn + /wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/ + AOOUf8Lrs/7k3/fKf/HKAPQK8q8ff8hmz/7d/wD0e1av/C67P+5N/wB8p/8AHK4rxP41h1W/ + t9QjVxHB5W4MFDHZIXOAGI6Hjkc0Ae60V5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6 + BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f + 9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+ + 5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6B + RXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFcp8Uv+QdP/ANs//RqVlf8AC67P + +5N/3yn/AMcrE8Z/FC21u0ks4klDybMF1QL8rqxzhyeg9KAOw+Fv/IOg/wC2n/o166uvJPBn + xQttEtI7OVJS8e/JRUK/M7MMZcHofStv/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/ + AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHn/wt/5C + MH/bT/0U9fQFfP8A8Lf+QjB/20/9FPX0BQAV5V8c/wDl1/7bf+069Vryr45/8uv/AG2/9p0A + dV8Lf+QdB/20/wDRr11deSeDPihbaJaR2cqSl49+SioV+Z2YYy4PQ+lbf/C67P8AuTf98p/8 + coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R + /wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF1 + 2f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8A + HKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDj + lH/C67P+5N/3yn/xygA+HH/H5qX/AF8f+zzV6BXi/hL4h2+j3F3cSLIVupdyBQpIG5zzlhz8 + w6Z711H/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aor + z/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/ + AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/ + 75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK + 8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAD4j/8fmm/9fH/ALPDXoFeL+LfiHb6xcWl + xGsgW1l3OGCgkbkPGGPPynrjtXUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wu + uz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF + 12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8 + coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R + /wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAOq8Wf8AHnc/ + 9e83/oDVlfC3/kHQf9tP/Rr1zuufF20v7ea3RJQ0sTqCVTGWUgZw545qj4M+KFtolpHZypKX + j35KKhX5nZhjLg9D6UAet0V5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn// + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegV5/o3/ACHrr/r3X+UFH/C67P8AuTf98p/8 + crl9P+Idvb6nPqhWTypYgoAC78gRjkbsY+Q9z2oA9oorz/8A4XXZ/wByb/vlP/jlH/C67P8A + uTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8A + vlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQK + K8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N + /wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Arz/41/wDHnH/1 + 8L/6BJR/wuuz/uTf98p/8crl/iH8Q7fxJbrbwrIGWUMS4UDAVh2ZufmoA9oorz//AIXXZ/3J + v++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0C + ivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuu + z/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wBy + b/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9A + orz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygA+Cn/AB5yf9fDf+gR16BXi/w8+Idv + 4bt2t5lkLNKWBQKRgqo7svPy11H/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/ + wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/ + 3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8A + xygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/w + uuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPP/8AmM/9xD/2 + vX0BXzvp16t/qiXCZCy3qsAeuGlBGcZ55r6IoAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+f/il/wAh + Gf8A7Z/+ikr6Ar5/+KX/ACEZ/wDtn/6KSgD6AooooAKKKKACiiigAooooAKKKKACiiigArz/ + AOCn/HnJ/wBfDf8AoEdegV5/8FP+POT/AK+G/wDQI6APQKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigDyr/mY/8AP/PrXqteVf8AMx/5/wCfWvVaACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigDz/wCNf/HnH/18L/6BJXVeE/8Ajztv+veH/wBAWuV+ + Nf8Ax5x/9fC/+gSV1XhP/jztv+veH/0BaANaiiigAooooAKKKKACiiigAooooAKKKKACiiig + Aryr4Gf8vX/bH/2pXqteVfAz/l6/7Y/+1KAPVaKKKACiiigAooooAKKKKACiiigAooooAKKK + KACvKvH3/IZs/wDt3/8AR7V6rXlXj7/kM2f/AG7/APo9qAPVaKKKACiiigAooooAKKKKACii + igAooooAKKKKACuU+KX/ACDp/wDtn/6NSurrlPil/wAg6f8A7Z/+jUoAPhb/AMg6D/tp/wCj + Xrq65T4W/wDIOg/7af8Ao166ugAooooAKKKKACiiigAooooAKKKKACiiigAooooA+f8A4W/8 + hGD/ALaf+inr6Ar5/wDhb/yEYP8Atp/6KevoCgAryr45/wDLr/22/wDadeq15V8c/wDl1/7b + f+06AOq+Fv8AyDoP+2n/AKNeurrlPhb/AMg6D/tp/wCjXrq6ACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigDz/wCHH/H5qX/Xx/7PNXoFef8Aw4/4/NS/6+P/AGeavQKACiiigAooooAK + KKKACiiigAooooAKKKKACiiigDz/AOI//H5pv/Xx/wCzw16BXn/xH/4/NN/6+P8A2eGvQKAC + iiigAooooAKKKKACiiigAooooAKKKKACiiigDJ8Wf8edz/17zf8AoDVlfC3/AJB0H/bT/wBG + vWr4s/487n/r3m/9Aasr4W/8g6D/ALaf+jXoA6uiiigAooooAKKKKACiiigAooooAKKKKACi + iigArz/Rv+Q9df8AXuv8oK9Arz/Rv+Q9df8AXuv8oKAPQKKKKACiiigAooooAKKKKACiiigA + ooooAKKKKACvP/jX/wAecf8A18L/AOgSV6BXn/xr/wCPOP8A6+F/9AkoA9AooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKAPP/AIKf8ecn/Xw3/oEdegV5/wDBT/jzk/6+G/8AQI69 + AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPn//AJjP/cQ/9r19AV8//wDMZ/7iH/te + voCgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAr5/+KX/ACEZ/wDtn/6KSvoCvn/4pf8AIRn/AO2f/opK + APoCivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/ + AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io + /wDP2Wj/AIqP/P2WgD1WvP8A4Kf8ecn/AF8N/wCgR1lf8VH/AJ+y1z/gr+1vJb+zv9V5hz/q + fvbVz/rOemPb9aAPdaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr + /io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9V + oryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9l + oA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/ + AD9loAP+Zj/z/wA+teq18/8A/Ex/tH/qIf8AbL/nl/3x9z/Oa6v/AIqP/P2WgD1WivKv+Kj/ + AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1W + ivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP2Wj/AIqP + /P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaANX41/wDHnH/18L/6BJXVeE/+PO2/694f/QFryDxr + /a3kr/aP+q8wY/1P3trY/wBXz0z7fpWrpP8Ab/kx+R/qvLTZ/wAe/wB3aNv3uemOvPrQB7BR + XlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8A + n7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7 + LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqteVfAz/AJev+2P/ALUo/wCKj/z9lrlP + Av8AaP73+zP9jzP9V/tbf9Z+PT8e1AH0BRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y + 0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf + 8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fst + AHqteVePv+QzZ/8Abv8A+j2o/wCKj/z9lrlNf/tH7ZD9q/4+/wB35X+q/vnZ935fvZ6/jxQB + 9AUV5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8A + FR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/ + AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rXKfFL/kHT/9s/8A0alcr/xUf+fs + tZPin+2vsz/bf+Pf5d/+o/vDb9z5vvY6fyoA9A+Fv/IOg/7af+jXrq68U8Lf219mT7F/x7/N + s/1H947vv/N97PX+Va3/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR + /wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/x + Uf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0A + cp8Lf+QjB/20/wDRT19AV8//AAt/5CMH/bT/ANFPX0BQAV5V8c/+XX/tt/7Tr1WvKvjn/wAu + v/bb/wBp0AdV8Lf+QdB/20/9GvXV14p4W/tr7Mn2L/j3+bZ/qP7x3ff+b72ev8q1v+Kj/wA/ + ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj + /wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/Za + P+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgDV+HH/H5qX/Xx/7PNXoFeFeG/wC1vOufsn+t + 8z9//qfvbn/v8dd33eP0roP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9l + o/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/ + AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaANX4j/8A + H5pv/Xx/7PDXoFeFeJP7W862+1/63zP3H+p+9uT+5x12/e4/Wug/4qP/AD9loA9Voryr/io/ + 8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9Voryr + /io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9V + oryr/io/8/ZaP+Kj/wA/ZaAO/wDFn/Hnc/8AXvN/6A1ZXwt/5B0H/bT/ANGvXFat/b/kyef/ + AKry33/8e/3dp3fd56Z6c+lVPC39tfZk+xf8e/zbP9R/eO77/wA33s9f5UAe10V5V/xUf+fs + tH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fs + tH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fs + tH/FR/5+y0Aeq15/o3/Ieuv+vdf5QVlf8VH/AJ+y1z9l/a32+Xy/+P3yx5n+p+7hMdfk6ben + P60Ae60V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y + 0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf + 8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rXn/AMa/+POP/r4X/wBAkrK/ + 4qP/AD9lrn/Gv9reSv8AaP8AqvMGP9T97a2P9Xz0z7fpQB7rRXlX/FR/5+y0f8VH/n7LQB6r + RXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6r + RXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6r + RXlX/FR/5+y0f8VH/n7LQBq/BT/jzk/6+G/9Ajr0CvCvBX9reS39nf6rzDn/AFP3tq5/1nPT + Ht+tdB/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq + 0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/ + AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHKf8AMZ/7iH/t + evoCvnXSfM/tKPz/APW/bE39PveaN33eOuenHpX0VQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8A + xS/5CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRSUAfQFFFFABRRRQAUUUUAFFFFABRRRQAU + UUUAFef/AAU/485P+vhv/QI69Arz/wCCn/HnJ/18N/6BHQB6BRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8AMx/5/wCfWvVa8q/5mP8Az/z616rQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/Gv/AI84/wDr4X/0CSuq8J/8edt/17w/+gLX + K/Gv/jzj/wCvhf8A0CSuq8J/8edt/wBe8P8A6AtAGtRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAV5V8DP+Xr/tj/AO1K9Vryr4Gf8vX/AGx/9qUAeq0UUUAFFFFABRRRQAUUUUAFFFFA + BRRRQAUUUUAFeVePv+QzZ/8Abv8A+j2r1WvKvH3/ACGbP/t3/wDR7UAeq0UUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFcp8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8AbP8A9GpQAfC3/kHQ + f9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHz/8A + C3/kIwf9tP8A0U9fQFfP/wALf+QjB/20/wDRT19AUAFeVfHP/l1/7bf+069Vryr45/8ALr/2 + 2/8AadAHVfC3/kHQf9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFAHn/w4/wCPzUv+vj/2eavQK8/+HH/H5qX/AF8f+zzV6BQAUUUUAFFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAef/ABH/AOPzTf8Ar4/9nhr0CvP/AIj/APH5pv8A18f+zw16BQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAZPiz/jzuf+veb/0Bqyvhb/yDoP8Atp/6NetX + xZ/x53P/AF7zf+gNWV8Lf+QdB/20/wDRr0AdXRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAV5/o3/ACHrr/r3X+UFegV5/o3/ACHrr/r3X+UFAHoFFFFABRRRQAUUUUAFFFFABRRRQAUU + UUAFFFFABXn/AMa/+POP/r4X/wBAkr0CvP8A41/8ecf/AF8L/wCgSUAegUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFAHn/wU/wCPOT/r4b/0COvQK8/+Cn/HnJ/18N/6BHXoFABR + RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8/8A/MZ/7iH/ALXr6Ar5/wD+Yz/3EP8A2vX0 + BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRS + UAe1f8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUp + Z/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/f + Sf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr + /wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h + /wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDi + qP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8A + PxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDj + dAHVf8JZZ/8APxD/AN/k/wDiq4j4Ra5b2Fo6TSxoxnYgO6qcbEGcEjjirv8AwpSz/vzf99J/ + 8brl/h58PLfxJbtcTNIGWUqAhUDAVT3VufmoA9S/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf + 5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8A + PxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/ + wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v + 8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/ + AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDq + v+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fS + f/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz + /vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDj + dH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/ + 76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCF + KWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDi + q5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDn/wC1of7f+1eYnlf3967P+Pfb97OOvHXr + xXpX/CWWf/PxD/3+T/4qvIP+EKh/tb+yNz+V65Xf/qfM67cdfbp+ddr/AMKUs/783/fSf/G6 + AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf + 99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/C + lLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/ + AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9 + +b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/ + AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/ + AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q + /wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boApfF3XLe/tESGWN2E6khHVjjY + 4zgE8c10vhjxPaQ2lujzxBlgiBBlQEEIAQQTwRXn/wAQ/h5b+G7dbiFpCzShSHKkYKseyrz8 + tbeh/CK0v7eG4d5Q0sSMQGTGWUE4yh45oA7f/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4q + uV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+ + T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/Px + D/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWW + f/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH + /CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ + ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4 + h/7/ACf/ABVea/BrVodP+0efIke7yseY6rnG/OMkZxkV0H/ClLP+/N/30n/xuuK+G/gqHxP5 + 3ns6+V5ePLKj727Ocq390UAev/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClL + P+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn + /wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLL + P/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/ + k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJ + ZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/ + AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSl + n/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9 + J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKrzXxvq0Nzq1pPHIjRp5G5ldS + oxMxOWBwMDk+1dB/wpSz/vzf99J/8brivE/gqHSr+30+NnMc/lbixUsN8hQ4IUDoOODzQB6/ + /wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8A + vpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj + /hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N + /wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAV + XK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4 + h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8A + iqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8 + /EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3Q + B1X/AAlln/z8Q/8Af5P/AIqua+I/iG2u7CaKKaJ3Pl4VJEZjiRScAHPSov8AhSln/fm/76T/ + AON1ieM/hfbaJaSXkTyl49mA7IV+Z1U5wgPQ+tAHQfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnp + XS/8JZZ/8/EP/f5P/iq868GfC+21u0jvJXlDyb8hGQL8rsoxlCeg9a2/+FKWf9+b/vpP/jdA + HVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43 + QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+ + N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP + /jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76 + T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v+ + +k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b + /vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/f + m/76T/43QB5/8Lf+QjB/20/9FPX0BXz/APC3/kIwf9tP/RT19AUAFeVfHP8A5df+23/tOvVa + 8q+Of/Lr/wBtv/adAG18OPENtaWEMUs0SOPMyryIrDMjEZBOeldL/wAJZZ/8/EP/AH+T/wCK + rzrwZ8L7bW7SO8leUPJvyEZAvyuyjGUJ6D1rb/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8A + f5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8A + CWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T + /wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4U + pZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8A + fSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv + /ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+ + /wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj + /hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAFLwDrlva3eoPJ + LGqyT5Qs6qGG+U5BJ5HI6eort/8AhLLP/n4h/wC/yf8AxVeW+Evh5b6xcXdvI0gW1l2oVKgk + bnHOVPPyjpjvXUf8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4q + uV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+ + T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/Px + D/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWW + f/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH + /CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ + ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboApePtct7q70 + 945Y2WOfLlXVgo3xHJIPA4PX0Ndv/wAJZZ/8/EP/AH+T/wCKry3xb8PLfR7i0t42kK3Uu1yx + UkDcg4wo5+Y9c9q6j/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVy + v/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xV + cr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8 + VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf + /FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8 + n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7 + /J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If + +/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AbHifxPaTWlwiTxFmglAAlQkkoQAAD + yTWZ8OPENtaWEMUs0SOPMyryIrDMjEZBOelZuufCK0sLea4R5S0UTsAWTGVUkZwg44qj4M+F + 9trdpHeSvKHk35CMgX5XZRjKE9B60Aei/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/ + AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISy + z/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf + 5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/C + WWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/v + pP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo + /wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP + +/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/ + AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4quI0nXL + dNaubgyxiJoFAcuoQnEPAbOCeD+Rq7/wpSz/AL83/fSf/G65fT/h5b3Gpz6WWk8qKIMCCu/J + EZ5O3GPnPYdqAPUv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f + 8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/ + +N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v + ++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/hSln/ + AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/h + Sln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq + 5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5 + P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VXEfF3XLe/tE + SGWN2E6khHVjjY4zgE8c1d/4UpZ/35v++k/+N1y/xD+Hlv4bt1uIWkLNKFIcqRgqx7KvPy0A + epf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43 + QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+ + N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP + /jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76 + T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v+ + +k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b + /vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/f + m/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/ + 35v++k/+N0AUvhFrlvYWjpNLGjGdiA7qpxsQZwSOOK7f/hLLP/n4h/7/ACf/ABVeW/Dz4eW/ + iS3a4maQMspUBCoGAqnurc/NXUf8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWW + f/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH + /CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ + ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4 + h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLL + P/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r + /hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAb + oA88hmWbVw6EFWvwQQcggzZBBHUGvoOvnfTrJbDVEt0yVivVUE9cLKAM4xzxX0RQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8//FL/AJCM/wD2z/8ARSUAfQFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFef/BT/jzk/wCvhv8A0COvQK8/+Cn/AB5yf9fDf+gR0Aeg + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/Mx/wCf+fWv + Va8q/wCZj/z/AM+teq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMa/+POP/r4X + /wBAkrqvCf8Ax523/XvD/wCgLXK/Gv8A484/+vhf/QJK6rwn/wAedt/17w/+gLQBrUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFeVfAz/l6/7Y/+1K9Vryr4Gf8AL1/2x/8AalAHqtFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXlXj7/kM2f/bv/wCj2r1WvKvH3/IZs/8At3/9 + HtQB6rRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVynxS/wCQdP8A9s//AEaldXXKfFL/ + AJB0/wD2z/8ARqUAHwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0AFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFAHz/APC3/kIwf9tP/RT19AV8/wDwt/5CMH/bT/0U9fQFABXlXxz/ + AOXX/tt/7Tr1WvKvjn/y6/8Abb/2nQB1Xwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0A + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMOP+PzUv+vj/wBnmr0CvP8A4cf8fmpf + 9fH/ALPNXoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8R/+PzTf+vj/ANnhr0Cv + P/iP/wAfmm/9fH/s8NegUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAGT4s/487n/r3m + /wDQGrK+Fv8AyDoP+2n/AKNetXxZ/wAedz/17zf+gNWV8Lf+QdB/20/9GvQB1dFFFABRRRQA + UUUUAFFFFABRRRQAUUUUAFFFFABXn+jf8h66/wCvdf5QV6BXn+jf8h66/wCvdf5QUAegUUUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQK8/+Nf8Ax5x/9fC/ + +gSUAegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMFP+POT/r4b/wBAjr0C + vP8A4Kf8ecn/AF8N/wCgR16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfP/8AzGf+ + 4h/7Xr6Ar5//AOYz/wBxD/2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8A + RSV9AV8//FL/AJCM/wD2z/8ARSUAegf8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFA + Hn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8A + cm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8 + p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegU + UAef/wDC67P+5N/3yn/xyuX+HnxDt/Ddu1vMshZpSwKBSMFVHdl5+WvaK8/+Cn/HnJ/18N/6 + BHQAf8Lrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/f + Kf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB + 5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm + /wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf + 98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5 + /wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHhX/AAmsP9rf2vtfyvTC7/8AU+X0 + 3Y6+/T8q7X/hddn/AHJv++U/+OVlf8zH/n/n1r1WgDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7 + k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/7 + 5T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8 + /wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+ + 5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPF/iH8Q7fxJbrbw + rIGWUMS4UDAVh2Zufmrb0P4u2lhbw27pKWiiRSQqYyqgHGXHHFXfjX/x5x/9fC/+gSV1XhP/ + AI87b/r3h/8AQFoA5X/hddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75 + T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9Ao + oA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8A + uTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8A + vlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOVxXw38aw+GPO89XbzfLx5 + YU/d3Zzll/vCvda8q+Bn/L1/2x/9qUAav/C67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5 + /wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn + /cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3 + /fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BR + QB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyuK8T+NY + dVv7fUI1cRweVuDBQx2SFzgBiOh45HNe615V4+/5DNn/ANu//o9qANX/AIXXZ/3Jv++U/wDj + lH/C67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhd + dn/cm/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4X + XZ/3Jv8AvlP/AI5WJ4z+KFtrdpJZxJKHk2YLqgX5XVjnDk9B6V63XKfFL/kHT/8AbP8A9GpQ + Bx/gz4oW2iWkdnKkpePfkoqFfmdmGMuD0PpW3/wuuz/uTf8AfKf/ABytX4W/8g6D/tp/6Neu + roA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C + 67P+5N/3yn/xyvQKKAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/c + m/75T/45R/wuuz/uTf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDH + K9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C6 + 7P8AuTf98p/8cr0CigD5/wDhb/yEYP8Atp/6KevoCvn/AOFv/IRg/wC2n/op6+gKACvKvjn/ + AMuv/bb/ANp16rXlXxz/AOXX/tt/7ToAh8GfFC20S0js5UlLx78lFQr8zswxlweh9K2/+F12 + f9yb/vlP/jlavwt/5B0H/bT/ANGvXV0Aef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCO + V6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/h + ddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/u + Tf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A + 45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAeL+EviHb6PcXdxIshW6l3IF + CkgbnPOWHPzDpnvXUf8AC67P+5N/3yn/AMco+HH/AB+al/18f+zzV6BQB5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3J + v++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAe + L+LfiHb6xcWlxGsgW1l3OGCgkbkPGGPPynrjtXUf8Lrs/wC5N/3yn/xyj4j/APH5pv8A18f+ + zw16BQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDH + KP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDw + uuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T + /wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/x + yj/hddn/AHJv++U/+OV6BRQB5lrnxdtL+3mt0SUNLE6glUxllIGcOeOao+DPihbaJaR2cqSl + 49+SioV+Z2YYy4PQ+lei+LP+PO5/695v/QGrK+Fv/IOg/wC2n/o16AMr/hddn/cm/wC+U/8A + jlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A + 4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn + /wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/ + AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A + +F12f9yb/vlP/jlcvp/xDt7fU59UKyeVLEFAAXfkCMcjdjHyHue1e0V5/o3/ACHrr/r3X+UF + AB/wuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/ + AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3 + yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/ + APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF12f9 + yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8crl/iH8Q7fxJbrbwrIGWUMS4UDAVh2Zufmr2ivP + /jX/AMecf/Xwv/oElAB/wuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf9 + 8p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFA + Hn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8A + cm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8 + p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegU + UAeL/Dz4h2/hu3a3mWQs0pYFApGCqjuy8/LXUf8AC67P+5N/3yn/AMco+Cn/AB5yf9fDf+gR + 16BQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12 + f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7 + k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6 + BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hdd + n/cm/wC+U/8AjlegUUAfO+nXq3+qJcJkLLeqwB64aUEZxnnmvoivn/8A5jP/AHEP/a9fQFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABXz/8Uv8AkIz/APbP/wBFJX0BXz/8Uv8AkIz/APbP/wBFJQB9 + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/8FP+POT/AK+G/wDQI69Arz/4Kf8AHnJ/18N/ + 6BHQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8zH/ + AJ/59a9Vryr/AJmP/P8Az616rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef8Axr/4 + 84/+vhf/AECSuq8J/wDHnbf9e8P/AKAtcr8a/wDjzj/6+F/9AkrqvCf/AB523/XvD/6AtAGt + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5V8DP+Xr/tj/7Ur1WvKvgZ/wAvX/bH/wBq + UAeq0UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFeVePv+QzZ/9u//AKPavVa8q8ff8hmz + /wC3f/0e1AHqtFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXKfFL/AJB0/wD2z/8ARqV1 + dcp8Uv8AkHT/APbP/wBGpQAfC3/kHQf9tP8A0a9dXXKfC3/kHQf9tP8A0a9dXQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAfP8A8Lf+QjB/20/9FPX0BXz/APC3/kIwf9tP/RT19AUA + FeVfHP8A5df+23/tOvVa8q+Of/Lr/wBtv/adAHVfC3/kHQf9tP8A0a9dXXKfC3/kHQf9tP8A + 0a9dXQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef8Aw4/4/NS/6+P/AGeavQK8/wDh + x/x+al/18f8As81egUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/xH/4/NN/6+P8A + 2eGvQK8/+I//AB+ab/18f+zw16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAZPiz/j + zuf+veb/ANAasr4W/wDIOg/7af8Ao161fFn/AB53P/XvN/6A1ZXwt/5B0H/bT/0a9AHV0UUU + AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef6N/yHrr/AK91/lBXoFef6N/yHrr/AK91/lBQ + B6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/8a/8Ajzj/AOvhf/QJK9Arz/41/wDH + nH/18L/6BJQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef8AwU/485P+vhv/ + AECOvQK8/wDgp/x5yf8AXw3/AKBHXoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8/ + /wDMZ/7iH/tevoCvn/8A5jP/AHEP/a9fQFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/8Uv8AkIz/ + APbP/wBFJX0BXz/8Uv8AkIz/APbP/wBFJQB1f/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y + 0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf + 8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstc/4K/tbyW/ + s7/VeYc/6n721c/6znpj2/Wvda8/+Cn/AB5yf9fDf+gR0AZX/FR/5+y0f8VH/n7LXqtFAHlX + /FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX + /FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX + /FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX + /FR/5+y0f8VH/n7LXqtFAHz/AP8AEx/tH/qIf9sv+eX/AHx9z/Oa6v8A4qP/AD9lo/5mP/P/ + AD616rQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf8VH/AJ+y + 0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHlX/FR/wCfstH/ABUf+fsteq0UAeVf + 8VH/AJ+y0f8AFR/5+y16rRQB5V/xUf8An7LR/wAVH/n7LXqtFAHhXjX+1vJX+0f9V5gx/qfv + bWx/q+emfb9K1dJ/t/yY/I/1Xlps/wCPf7u0bfvc9MdefWug+Nf/AB5x/wDXwv8A6BJXVeE/ + +PO2/wCveH/0BaAOA/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/ + 8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr + /io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lrlPAv9o/vf7M/2 + PM/1X+1t/wBZ+PT8e1fQFeVfAz/l6/7Y/wDtSgA/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ + ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj + /wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPK + v+Kj/wA/Za5TX/7R+2Q/av8Aj7/d+V/qv752fd+X72ev48V9AV5V4+/5DNn/ANu//o9qAD/i + o/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigD + yr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1 + WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lrJ8U/wBtfZn+2/8AHv8ALv8A9R/eG37n + zfex0/lXtdcp8Uv+QdP/ANs//RqUAef+Fv7a+zJ9i/49/m2f6j+8d33/AJvvZ6/yrW/4qP8A + z9lrqvhb/wAg6D/tp/6NeuroA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1 + WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z + 9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPn/wCFv/IRg/7a + f+inr6Ar5/8Ahb/yEYP+2n/op6+gKACvKvjn/wAuv/bb/wBp16rXlXxz/wCXX/tt/wC06AMn + wt/bX2ZPsX/Hv82z/Uf3ju+/833s9f5Vrf8AFR/5+y11Xwt/5B0H/bT/ANGvXV0AeVf8VH/n + 7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n + 7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n + 7LR/xUf+fsteq0UAeFeG/wC1vOufsn+t8z9//qfvbn/v8dd33eP0roP+Kj/z9lrV+HH/AB+a + l/18f+zzV6BQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH + /FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH + /FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB4V4k/tbzrb7X/rfM/cf6n725P7nHXb97j9a + 6D/io/8AP2WtX4j/APH5pv8A18f+zw16BQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/F + R/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/F + R/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB4/q39v+TJ5/8A + qvLff/x7/d2nd93npnpz6VU8Lf219mT7F/x7/Ns/1H947vv/ADfez1/lXqviz/jzuf8Ar3m/ + 9Aasr4W/8g6D/tp/6NegDlf+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8 + q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9V + ooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/Za5+y/tb7f + L5f/AB++WPM/1P3cJjr8nTb05/Wvda8/0b/kPXX/AF7r/KCgDK/4qP8Az9lo/wCKj/z9lr1W + igDyr/io/wDP2Wj/AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8Az9lo/wCK + j/z9lr1WigDyr/io/wDP2Wj/AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8A + z9lo/wCKj/z9lr1WigDyr/io/wDP2Wuf8a/2t5K/2j/qvMGP9T97a2P9Xz0z7fpXutef/Gv/ + AI84/wDr4X/0CSgDK/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/ + 8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr + /io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1Wi + gDwrwV/a3kt/Z3+q8w5/1P3tq5/1nPTHt+tdB/xUf+fstavwU/485P8Ar4b/ANAjr0CgDyr/ + AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/ZaP+Kj/AM/Za9VooA8q/wCKj/z9lo/4qP8Az9lr + 1WigDyr/AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/ZaP+Kj/AM/Za9VooA8q/wCKj/z9lo/4 + qP8Az9lr1WigDyr/AIqP/P2Wj/io/wDP2WvVaKAPnXSfM/tKPz/9b9sTf0+95o3fd4656cel + fRVfP/8AzGf+4h/7Xr6AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK+f/il/wAhGf8A7Z/+ikr6Ar5/ + +KX/ACEZ/wDtn/6KSgD6AorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn + /hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/ + 9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/ + yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1 + q8/+Cn/HnJ/18N/6BHXVf8JZZ/8APxD/AN/k/wDiq4j4Ra5b2Fo6TSxoxnYgO6qcbEGcEjji + gD02isn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8A + FUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz + /wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD + /wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8 + n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qK + yf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wl + ln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqAOA/5mP/AD/z616r + Xj/9rQ/2/wDavMTyv7+9dn/Hvt+9nHXjr14r0r/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/ + EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ + ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iq + P+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUV + k/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A + 5+If+/yf/FUAcr8a/wDjzj/6+F/9AkrqvCf/AB523/XvD/6AtcR8Xdct7+0RIZY3YTqSEdWO + NjjOATxzXS+GPE9pDaW6PPEGWCIEGVAQQgBBBPBFAHUUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn + 4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A + 3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ + ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Es + s/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrV5V8DP + +Xr/ALY/+1K7/wD4Syz/AOfiH/v8n/xVea/BrVodP+0efIke7yseY6rnG/OMkZxkUAewUVk/ + 8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+ + fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z + 8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQB + rUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8A + iqP+Ess/+fiH/v8AJ/8AFUAa1eVePv8AkM2f/bv/AOj2rv8A/hLLP/n4h/7/ACf/ABVea+N9 + WhudWtJ45EaNPI3MrqVGJmJywOBgcn2oA9gorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/ + +KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8A + xVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf + +Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/ + AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1q5T4pf8g6f/tn + /wCjUrV/4Syz/wCfiH/v8n/xVc18R/ENtd2E0UU0TufLwqSIzHEik4AOelAGh8Lf+QdB/wBt + P/Rr11dcJ8OPENtaWEMUs0SOPMyryIrDMjEZBOeldL/wlln/AM/EP/f5P/iqANaisn/hLLP/ + AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/ + AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf + /FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ + /wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWW + f/PxD/3+T/4qgDxX4W/8hGD/ALaf+inr6Ar5/wDhb/yEYP8Atp/6KevoCgAryr45/wDLr/22 + /wDadeq15V8c/wDl1/7bf+06AOq+Fv8AyDoP+2n/AKNeurrhPhx4htrSwhilmiRx5mVeRFYZ + kYjIJz0rpf8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn + /wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/h + LLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/ + AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfi + H/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQByvw4/wCPzUv+vj/2eavQ + K8y8A65b2t3qDySxqsk+ULOqhhvlOQSeRyOnqK7f/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z + 8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQB + rUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8A + iqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CW + Wf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h + /wC/yf8AxVAHK/Ef/j803/r4/wDZ4a9ArzLx9rlvdXenvHLGyxz5cq6sFG+I5JB4HB6+hrt/ + +Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln + /wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4 + h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5 + P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQ + BrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAHiz/jzuf+veb/ANAasr4W/wDI + Og/7af8Ao16f4n8T2k1pcIk8RZoJQAJUJJKEAAA8k1mfDjxDbWlhDFLNEjjzMq8iKwzIxGQT + npQB3dFZP/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDi + qP8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrU + Vk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+I + f+/yf/FUAa1FZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8 + Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtXn+jf8h66/691/lBXVf8JZZ/8APxD/AN/k/wDi + q4jSdct01q5uDLGImgUBy6hCcQ8Bs4J4P5GgD02isn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/ + AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH + /v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDW + orJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8A + CWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWrz/41/wDH + nH/18L/6BJXVf8JZZ/8APxD/AN/k/wDiq4j4u65b39oiQyxuwnUkI6scbHGcAnjmgD02isn/ + AISyz/5+If8Av8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/ + 8/EP/f5P/iqANaisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v + 8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8A + iqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CW + Wf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA5X4Kf8AHnJ/ + 18N/6BHXoFeZfCLXLewtHSaWNGM7EB3VTjYgzgkccV2//CWWf/PxD/3+T/4qgDWorJ/4Syz/ + AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/ + AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn + /wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/h + LLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8 + /EP/AH+T/wCKoA8V/wCYz/3EP/a9fQFfPkMyzauHQgq1+CCDkEGbIII6g19B0AFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFfP/xS/wCQjP8A9s//AEUlfQFfP/xS/wCQjP8A9s//AEUlAHoH/ClLP+/N + /wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDj + degUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hS + ln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP + +/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8brl/h58PLfxJbtcTNIG + WUqAhUDAVT3Vufmr2ivP/gp/x5yf9fDf+gR0AH/ClLP+/N/30n/xuj/hSln/AH5v++k/+N16 + BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSl + n/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz + /vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16B + RQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8A + hSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/ + AL83/fSf/G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN + 16BRQB4V/wAIVD/a39kbn8r1yu//AFPmdduOvt0/Ou1/4UpZ/wB+b/vpP/jdZX/Mx/5/59a9 + VoA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdH/C + lLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhSln/f + m/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG + 69AooA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jdH/Cl + LP8Avzf99J/8br0CigDxf4h/Dy38N263ELSFmlCkOVIwVY9lXn5a29D+EVpf28Nw7yhpYkYg + MmMsoJxlDxzV341/8ecf/Xwv/oEldV4T/wCPO2/694f/AEBaAOV/4UpZ/wB+b/vpP/jdH/Cl + LP8Avzf99J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4UpZ/3 + 5v8AvpP/AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fSf/G6 + 9AooA8//AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP/jdH/ClL + P+/N/wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz//AIUp + Z/35v++k/wDjdcV8N/BUPifzvPZ18ry8eWVH3t2c5Vv7or3WvKvgZ/y9f9sf/alAGr/wpSz/ + AL83/fSf/G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN + 16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/h + Sln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/v + zf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A + 43XoFFAHn/8AwpSz/vzf99J/8brivE/gqHSr+30+NnMc/lbixUsN8hQ4IUDoOODzXuteVePv + +QzZ/wDbv/6PagDV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vp + P/jdH/ClLP8Avzf99J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/ + AP4UpZ/35v8AvpP/AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/78 + 3/fSf/G69AooA8//AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP + /jdH/ClLP+/N/wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN1ieM/hfbaJaSXkTyl49mA7IV + +Z1U5wgPQ+tet1ynxS/5B0//AGz/APRqUAcf4M+F9trdpHeSvKHk35CMgX5XZRjKE9B61t/8 + KUs/783/AH0n/wAbrV+Fv/IOg/7af+jXrq6APP8A/hSln/fm/wC+k/8AjdH/AApSz/vzf99J + /wDG69AooA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A4UpZ/wB+b/vpP/jd + H/ClLP8Avzf99J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0CigDz/AP4U + pZ/35v8AvpP/AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KUs/783/fS + f/G69AooA8//AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA+f8A4W/8hGD/ALaf+inr + 6Ar5/wDhb/yEYP8Atp/6KevoCgAryr45/wDLr/22/wDadeq15V8c/wDl1/7bf+06AIfBnwvt + tbtI7yV5Q8m/IRkC/K7KMZQnoPWtv/hSln/fm/76T/43Wr8Lf+QdB/20/wDRr11dAHn/APwp + Sz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/v + pP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8 + bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn// + AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/7 + 6T/43XoFFAHi/hL4eW+sXF3byNIFtZdqFSoJG5xzlTz8o6Y711H/AApSz/vzf99J/wDG6Phx + /wAfmpf9fH/s81egUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8Ajdeg + UUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ + /wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/ + AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHi/i34eW+j3FpbxtIVupdrlipIG5BxhRz8x657V1 + H/ClLP8Avzf99J/8bo+I/wDx+ab/ANfH/s8NegUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/ + AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/3 + 0n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/ + APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9 + +b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAeZa58IrSwt5rhHl + LRROwBZMZVSRnCDjiqPgz4X22t2kd5K8oeTfkIyBfldlGMoT0HrXoviz/jzuf+veb/0Bqyvh + b/yDoP8Atp/6NegDK/4UpZ/35v8AvpP/AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/ + 76T/AON0f8KUs/783/fSf/G69AooA8//AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA + 8/8A+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP + +/N/30n/AMbr0CigDz//AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v + ++k/+N0f8KUs/wC/N/30n/xuvQKKAPP/APhSln/fm/76T/43XL6f8PLe41OfSy0nlRRBgQV3 + 5IjPJ24x857DtXtFef6N/wAh66/691/lBQAf8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFF + AHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCF + KWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8A + vzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3X + oFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G65f4h + /Dy38N263ELSFmlCkOVIwVY9lXn5a9orz/41/wDHnH/18L/6BJQAf8KUs/783/fSf/G6P+FK + Wf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N + /wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDj + degUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hS + ln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP + +/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHi/w8+Hlv4kt2uJmkDLKVAQqBgKp7q3PzV1H/ + AApSz/vzf99J/wDG6Pgp/wAecn/Xw3/oEdegUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/ + +N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj + /hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8A + wpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+ + N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHzvp1kthqiW6ZKxXqqCe + uFlAGcY54r6Ir5//AOYz/wBxD/2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2 + z/8ARSV9AV8//FL/AJCM/wD2z/8ARSUAfQFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T + /wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/x + yj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwu + uz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/v + lP8A45QB6BXn/wAFP+POT/r4b/0COj/hddn/AHJv++U/+OVy/wAPPiHb+G7dreZZCzSlgUCk + YKqO7Lz8tAHtFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFe + f/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wBy + b/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn + /wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegU + V5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAZX/Mx/5/59a9Vrwr/h + NYf7W/tfa/lemF3/AOp8vpux19+n5V2v/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T + /wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP + /wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8A + fKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/v + lP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coAPjX/x + 5x/9fC/+gSV1XhP/AI87b/r3h/8AQFry34h/EO38SW628KyBllDEuFAwFYdmbn5q29D+LtpY + W8Nu6SlookUkKmMqoBxlxxxQB6bRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegU + V5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/f + Kf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV + 5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BXlXwM/5ev+2P/tStX/hddn/cm/75T/45 + XFfDfxrD4Y87z1dvN8vHlhT93dnOWX+8KAPdaK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/ + 8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8 + Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8A + hddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf + /HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQK8q8ff8hmz/AO3f/wBHtWr/ + AMLrs/7k3/fKf/HK4rxP41h1W/t9QjVxHB5W4MFDHZIXOAGI6Hjkc0Ae60V5/wD8Lrs/7k3/ + AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOU + AegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12 + f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7 + k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUA + egVynxS/5B0//bP/ANGpWV/wuuz/ALk3/fKf/HKxPGfxQttbtJLOJJQ8mzBdUC/K6sc4cnoP + SgDsPhb/AMg6D/tp/wCjXrq68k8GfFC20S0js5UlLx78lFQr8zswxlweh9K2/wDhddn/AHJv + ++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/ + AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRX + n/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv+ + +U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p + /wDHKP8Ahddn/cm/75T/AOOUAef/AAt/5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9fQFAB + XlXxz/5df+23/tOvVa8q+Of/AC6/9tv/AGnQB1Xwt/5B0H/bT/0a9dXXkngz4oW2iWkdnKkp + ePfkoqFfmdmGMuD0PpW3/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k + 3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP + /jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Ao + rz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5 + N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygA+HH/H5qX/Xx/wCzzV6B + Xi/hL4h2+j3F3cSLIVupdyBQpIG5zzlhz8w6Z711H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/ + 3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8A + xygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/w + uuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f + 9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/x + ygA+I/8Ax+ab/wBfH/s8NegV4v4t+IdvrFxaXEayBbWXc4YKCRuQ8YY8/KeuO1dR/wALrs/7 + k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/7 + 5T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8 + /wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+ + 5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75 + T/45R/wuuz/uTf8AfKf/ABygDqvFn/Hnc/8AXvN/6A1ZXwt/5B0H/bT/ANGvXO658XbS/t5r + dElDSxOoJVMZZSBnDnjmqPgz4oW2iWkdnKkpePfkoqFfmdmGMuD0PpQB63RXn/8Awuuz/uTf + 98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5 + /wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn + /cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3 + /fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAeg + V5/o3/Ieuv8Ar3X+UFH/AAuuz/uTf98p/wDHK5fT/iHb2+pz6oVk8qWIKAAu/IEY5G7GPkPc + 9qAPaKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDj + lH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhd + dn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8coA9Arz/AONf/HnH/wBfC/8AoElH/C67P+5N/wB8p/8AHK5f4h/EO38S + W628KyBllDEuFAwFYdmbn5qAPaKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8 + /wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3Jv++U/wDjlH/C67P+ + 5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0CivP/APhddn/cm/75 + T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQ + KK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8A + uTf98p/8coAPgp/x5yf9fDf+gR16BXi/w8+Idv4bt2t5lkLNKWBQKRgqo7svPy11H/C67P8A + uTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8A + vlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQK + K8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N + /wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz//AIXXZ/3J + v++U/wDjlH/C67P+5N/3yn/xygDz/wD5jP8A3EP/AGvX0BXzvp16t/qiXCZCy3qsAeuGlBGc + Z55r6IoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAK+f/AIpf8hGf/tn/AOikr6Ar5/8Ail/yEZ/+2f8A + 6KSgD6AooooAKKKKACiiigAooooAKKKKACiiigArz/4Kf8ecn/Xw3/oEdegV5/8ABT/jzk/6 + +G/9AjoA9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPKv+ + Zj/z/wA+teq15V/zMf8An/n1r1WgAooooAKKKKACiiigAooooAKKKKACiiigAooooA8/+Nf/ + AB5x/wDXwv8A6BJXVeE/+PO2/wCveH/0Ba5X41/8ecf/AF8L/wCgSV1XhP8A487b/r3h/wDQ + FoA1qKKKACiiigAooooAKKKKACiiigAooooAKKKKACvKvgZ/y9f9sf8A2pXqteVfAz/l6/7Y + /wDtSgD1WiiigAooooAKKKKACiiigAooooAKKKKACiiigAryrx9/yGbP/t3/APR7V6rXlXj7 + /kM2f/bv/wCj2oA9VooooAKKKKACiiigAooooAKKKKACiiigAooooAK5T4pf8g6f/tn/AOjU + rq65T4pf8g6f/tn/AOjUoAPhb/yDoP8Atp/6NeurrlPhb/yDoP8Atp/6NeuroAKKKKACiiig + AooooAKKKKACiiigAooooAKKKKAPn/4W/wDIRg/7af8Aop6+gK+f/hb/AMhGD/tp/wCinr6A + oAK8q+Of/Lr/ANtv/adeq15V8c/+XX/tt/7ToA6r4W/8g6D/ALaf+jXrq65T4W/8g6D/ALaf + +jXrq6ACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4cf8AH5qX/Xx/7PNXoFef/Dj/ + AI/NS/6+P/Z5q9AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP/iP/AMfmm/8AXx/7 + PDXoFef/ABH/AOPzTf8Ar4/9nhr0CgAooooAKKKKACiiigAooooAKKKKACiiigAooooAyfFn + /Hnc/wDXvN/6A1ZXwt/5B0H/AG0/9GvWr4s/487n/r3m/wDQGrK+Fv8AyDoP+2n/AKNegDq6 + KKKACiiigAooooAKKKKACiiigAooooAKKKKACvP9G/5D11/17r/KCvQK8/0b/kPXX/Xuv8oK + APQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvP/AI1/8ecf/Xwv/oElegV5/wDGv/jz + j/6+F/8AQJKAPQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/4Kf8AHnJ/18N/ + 6BHXoFef/BT/AI85P+vhv/QI69AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPn/wD5 + jP8A3EP/AGvX0BXz/wD8xn/uIf8AtevoCgAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/8Ail/yEZ/+ + 2f8A6KSvoCvn/wCKX/IRn/7Z/wDopKAPoCivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9 + lo/4qP8Az9loA9Voryr/AIqP/P2Wj/io/wDP2WgD1WivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q + /wCKj/z9lo/4qP8Az9loA9Voryr/AIqP/P2Wj/io/wDP2WgD1WvP/gp/x5yf9fDf+gR1lf8A + FR/5+y1z/gr+1vJb+zv9V5hz/qfvbVz/AKznpj2/WgD3WivKv+Kj/wA/ZaP+Kj/z9loA9Vor + yr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA + 9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z + 9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+ + Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAD/mY/8AP/PrXqtfP/8AxMf7R/6iH/bL/nl/3x9z + /Oa6v/io/wDP2WgD1WivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8Az9loA9Vo + ryr/AIqP/P2Wj/io/wDP2WgD1WivKv8Aio/8/ZaP+Kj/AM/ZaAPVaK8q/wCKj/z9lo/4qP8A + z9loA9Voryr/AIqP/P2Wj/io/wDP2WgD1WivKv8Aio/8/ZaP+Kj/AM/ZaANX41/8ecf/AF8L + /wCgSV1XhP8A487b/r3h/wDQFryDxr/a3kr/AGj/AKrzBj/U/e2tj/V89M+36Vq6T/b/AJMf + kf6ry02f8e/3do2/e56Y68+tAHsFFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAV + H/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8A + n7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq15 + V8DP+Xr/ALY/+1KP+Kj/AM/Za5TwL/aP73+zP9jzP9V/tbf9Z+PT8e1AH0BRXlX/ABUf+fst + H/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ + ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQ + B6rRXlX/ABUf+fstH/FR/wCfstAHqteVePv+QzZ/9u//AKPaj/io/wDP2WuU1/8AtH7ZD9q/ + 4+/3flf6r++dn3fl+9nr+PFAH0BRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/ + AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5 + +y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtcp + 8Uv+QdP/ANs//RqVyv8AxUf+fstZPin+2vsz/bf+Pf5d/wDqP7w2/c+b72On8qAPQPhb/wAg + 6D/tp/6NeurrxTwt/bX2ZPsX/Hv82z/Uf3ju+/8AN97PX+Va3/FR/wCfstAHqtFeVf8AFR/5 + +y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFe + Vf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCf + stAHqtFeVf8AFR/5+y0f8VH/AJ+y0Acp8Lf+QjB/20/9FPX0BXz/APC3/kIwf9tP/RT19AUA + FeVfHP8A5df+23/tOvVa8q+Of/Lr/wBtv/adAHVfC3/kHQf9tP8A0a9dXXinhb+2vsyfYv8A + j3+bZ/qP7x3ff+b72ev8q1v+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9l + o/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/ + AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaANX4cf8A + H5qX/Xx/7PNXoFeFeG/7W865+yf63zP3/wDqfvbn/v8AHXd93j9K6D/io/8AP2WgD1WivKv+ + Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1Wi + vKv+Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2Wg + D1WivKv+Kj/z9lo/4qP/AD9loA1fiP8A8fmm/wDXx/7PDXoFeFeJP7W862+1/wCt8z9x/qfv + bk/ucddv3uP1roP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4qP/P2 + WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAPVaK8q/4qP/AD9lo/4q + P/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/ZaAO/8Wf8AHnc/9e83 + /oDVlfC3/kHQf9tP/Rr1xWrf2/5Mnn/6ry33/wDHv93ad33eemenPpVTwt/bX2ZPsX/Hv82z + /Uf3ju+/833s9f5UAe10V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/ + xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/ + xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq15/o3/Ieuv+vdf5QVlf8AFR/5+y1z + 9l/a32+Xy/8Aj98seZ/qfu4THX5Om3pz+tAHutFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAV + H/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq + 0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/ + AJ+y0Aeq15/8a/8Ajzj/AOvhf/QJKyv+Kj/z9lrn/Gv9reSv9o/6rzBj/U/e2tj/AFfPTPt+ + lAHutFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fs + tAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fs + tAHqtFeVf8VH/n7LR/xUf+fstAHqtFeVf8VH/n7LR/xUf+fstAGr8FP+POT/AK+G/wDQI69A + rwrwV/a3kt/Z3+q8w5/1P3tq5/1nPTHt+tdB/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fst + AHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ + ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR + /wCfstH/ABUf+fstAHKf8xn/ALiH/tevoCvnXSfM/tKPz/8AW/bE39PveaN33eOuenHpX0VQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8//FL/AJCM/wD2z/8ARSUA + fQFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/BT/jzk/wCvhv8A0COvQK8/+Cn/AB5yf9fD + f+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/Mx + /wCf+fWvVa8q/wCZj/z/AM+teq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMa/ + +POP/r4X/wBAkrqvCf8Ax523/XvD/wCgLXK/Gv8A484/+vhf/QJK6rwn/wAedt/17w/+gLQB + rUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFeVfAz/l6/7Y/+1K9Vryr4Gf8AL1/2x/8A + alAHqtFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXlXj7/kM2f/bv/wCj2r1WvKvH3/IZ + s/8At3/9HtQB6rRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVynxS/wCQdP8A9s//AEal + dXXKfFL/AJB0/wD2z/8ARqUAHwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0AFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFAHz/APC3/kIwf9tP/RT19AV8/wDwt/5CMH/bT/0U9fQF + ABXlXxz/AOXX/tt/7Tr1WvKvjn/y6/8Abb/2nQB1Xwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ + ANGvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMOP+PzUv+vj/wBnmr0CvP8A + 4cf8fmpf9fH/ALPNXoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8R/+PzTf+vj/ + ANnhr0CvP/iP/wAfmm/9fH/s8NegUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAGT4s/ + 487n/r3m/wDQGrK+Fv8AyDoP+2n/AKNetXxZ/wAedz/17zf+gNWV8Lf+QdB/20/9GvQB1dFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn+jf8h66/wCvdf5QV6BXn+jf8h66/wCvdf5Q + UAegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQK8/+Nf8A + x5x/9fC/+gSUAegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMFP+POT/r4b + /wBAjr0CvP8A4Kf8ecn/AF8N/wCgR16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAf + P/8AzGf+4h/7Xr6Ar5//AOYz/wBxD/2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM + /wD2z/8ARSV9AV8//FL/AJCM/wD2z/8ARSUAe1f8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8 + VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf + /FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8 + n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7 + /J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If + +/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfi + H/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iq4j4Ra5b2F + o6TSxoxnYgO6qcbEGcEjjirv/ClLP+/N/wB9J/8AG65f4efDy38SW7XEzSBllKgIVAwFU91b + n5qAPUv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8A + fSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/v + zf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43R/wp + Sz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76T/43 + R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/fm/76 + T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hSln/f + m/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5X/hS + ln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iq5 + X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P + /iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP + /f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDqv+Ess/+fiH/v8AJ/8AFUf8JZZ/ + 8/EP/f5P/iq5X/hSln/fm/76T/43R/wpSz/vzf8AfSf/ABugDn/7Wh/t/wC1eYnlf3967P8A + j32/ezjrx168V6V/wlln/wA/EP8A3+T/AOKryD/hCof7W/sjc/leuV3/AOp8zrtx19un512v + /ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b/vpP + /jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKWf9+b + /vpP/jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf+FKW + f9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+Krlf + +FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+ + Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9 + /k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AOq/4Syz/5+If+/wAn/wAVR/wlln/z + 8Q/9/k/+Krlf+FKWf9+b/vpP/jdH/ClLP+/N/wB9J/8AG6AKXxd1y3v7REhljdhOpIR1Y42O + M4BPHNdL4Y8T2kNpbo88QZYIgQZUBBCAEEE8EV5/8Q/h5b+G7dbiFpCzShSHKkYKseyrz8tb + eh/CK0v7eG4d5Q0sSMQGTGWUE4yh45oA7f8A4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A + 4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/ + AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln + /wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/x + VH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+I + f+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Es + s/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6 + AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf + 99J/8boA6r/hLLP/AJ+If+/yf/FV5r8GtWh0/wC0efIke7yseY6rnG/OMkZxkV0H/ClLP+/N + /wB9J/8AG64r4b+CofE/neezr5Xl48sqPvbs5yrf3RQB6/8A8JZZ/wDPxD/3+T/4qj/hLLP/ + AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/h + LLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4 + qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3 + +T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ/wDP + xD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf8JZZ + /wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf + 8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jd + AHVf8JZZ/wDPxD/3+T/4qvNfG+rQ3OrWk8ciNGnkbmV1KjEzE5YHAwOT7V0H/ClLP+/N/wB9 + J/8AG64rxP4Kh0q/t9PjZzHP5W4sVLDfIUOCFA6Djg80Aev/APCWWf8Az8Q/9/k/+Ko/4Syz + /wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/+Ko/ + 4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/9/k/ + +Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8Az8Q/ + 9/k/+Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CWWf8A + z8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1X/CW + Wf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/43QB1 + X/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVcr/AMKUs/783/fSf/G6P+FKWf8Afm/76T/4 + 3QB1X/CWWf8Az8Q/9/k/+KrmviP4htruwmiimidz5eFSRGY4kUnABz0qL/hSln/fm/76T/43 + WJ4z+F9tolpJeRPKXj2YDshX5nVTnCA9D60AdB8OPENtaWEMUs0SOPMyryIrDMjEZBOeldL/ + AMJZZ/8APxD/AN/k/wDiq868GfC+21u0jvJXlDyb8hGQL8rsoxlCeg9a2/8AhSln/fm/76T/ + AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8A + hSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vz + f99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDF + Vyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+ + fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln/wA/EP8A3+T/ + AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON0AdV/wlln + /wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8AhSln/fm/76T/ + AON0AdV/wlln/wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFVyv/AApSz/vzf99J/wDG6P8A + hSln/fm/76T/AON0Aef/AAt/5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9fQFABXlXxz/5d + f+23/tOvVa8q+Of/AC6/9tv/AGnQBtfDjxDbWlhDFLNEjjzMq8iKwzIxGQTnpXS/8JZZ/wDP + xD/3+T/4qvOvBnwvttbtI7yV5Q8m/IRkC/K7KMZQnoPWtv8A4UpZ/wB+b/vpP/jdAHVf8JZZ + /wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdAHVf + 8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jd + AHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+b/vp + P/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ/wB+ + b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/4UpZ + /wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/8bo/ + 4UpZ/wB+b/vpP/jdAHVf8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FVyv8AwpSz/vzf99J/ + 8bo/4UpZ/wB+b/vpP/jdAFLwDrlva3eoPJLGqyT5Qs6qGG+U5BJ5HI6eort/+Ess/wDn4h/7 + /J/8VXlvhL4eW+sXF3byNIFtZdqFSoJG5xzlTz8o6Y711H/ClLP+/N/30n/xugDqv+Ess/8A + n4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/ + 4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/ + 8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+ + /N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0 + f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/v + pP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUp + Z/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKr + lf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AKXj7XLe6u9PeOWNljny5V1YKN8RySDwOD19 + DXb/APCWWf8Az8Q/9/k/+Kry3xb8PLfR7i0t42kK3Uu1yxUkDcg4wo5+Y9c9q6j/AIUpZ/35 + v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8A + xuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAK + Us/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/ + yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8A + hLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/ + AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHV + f8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35 + v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8A + xuj/AIUpZ/35v++k/wDjdAGx4n8T2k1pcIk8RZoJQAJUJJKEAAA8k1mfDjxDbWlhDFLNEjjz + Mq8iKwzIxGQTnpWbrnwitLC3muEeUtFE7AFkxlVJGcIOOKo+DPhfba3aR3kryh5N+QjIF+V2 + UYyhPQetAHov/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/ + 35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKW + f9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hS + ln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4 + UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P + +FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xu + j/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8 + bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+KriNJ1y3TWrm4MsYiaBQHLqEJxDwGzgng/ka + u/8AClLP+/N/30n/AMbrl9P+HlvcanPpZaTyoogwIK78kRnk7cY+c9h2oA9S/wCEss/+fiH/ + AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq + /wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vz + f99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8A + jdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSl + n/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/ + k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/AL/J/wDFUf8A + CWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq/wCEss/+fiH/ + AL/J/wDFUf8ACWWf/PxD/wB/k/8Aiq5X/hSln/fm/wC+k/8AjdH/AApSz/vzf99J/wDG6AOq + /wCEss/+fiH/AL/J/wDFVxHxd1y3v7REhljdhOpIR1Y42OM4BPHNXf8AhSln/fm/76T/AON1 + y/xD+Hlv4bt1uIWkLNKFIcqRgqx7KvPy0Aepf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/ + yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8A + hLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/ + AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHV + f8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35 + v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8A + xuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAK + Us/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/ + yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8A + hLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAFL4Ra5b2Fo6TSx + oxnYgO6qcbEGcEjjiu3/AOEss/8An4h/7/J/8VXlvw8+Hlv4kt2uJmkDLKVAQqBgKp7q3PzV + 1H/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/ + 76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCF + KWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDi + q5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A + 3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/ + AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FU + f8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/ + 7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6APPIZlm1 + cOhBVr8EEHIIM2QQR1Br6Dr5306yWw1RLdMlYr1VBPXCygDOMc8V9EUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFfP/AMUv+QjP/wBs/wD0UlfQFfP/AMUv+QjP/wBs/wD0UlAH0BRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABXn/wAFP+POT/r4b/0COvQK8/8Agp/x5yf9fDf+gR0AegUUUUAFFFFA + BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHlX/ADMf+f8An1r1WvKv+Zj/ + AM/8+teq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/xr/wCPOP8A6+F/9AkrqvCf + /Hnbf9e8P/oC1yvxr/484/8Ar4X/ANAkrqvCf/Hnbf8AXvD/AOgLQBrUUUUAFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFeVfAz/l6/7Y/wDtSvVa8q+Bn/L1/wBsf/alAHqtFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABXlXj7/kM2f/AG7/APo9q9Vryrx9/wAhmz/7d/8A0e1AHqtF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXKfFL/kHT/8AbP8A9GpXV1ynxS/5B0//AGz/ + APRqUAHwt/5B0H/bT/0a9dXXKfC3/kHQf9tP/Rr11dABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFABRRRQB8//AAt/5CMH/bT/ANFPX0BXz/8AC3/kIwf9tP8A0U9fQFABXlXxz/5df+23/tOv + Va8q+Of/AC6/9tv/AGnQB1Xwt/5B0H/bT/0a9dXXKfC3/kHQf9tP/Rr11dABRRRQAUUUUAFF + FFABRRRQAUUUUAFFFFABRRRQB5/8OP8Aj81L/r4/9nmr0CvP/hx/x+al/wBfH/s81egUAFFF + FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/wAR/wDj803/AK+P/Z4a9Arz/wCI/wDx+ab/ + ANfH/s8NegUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAGT4s/487n/r3m/9Aasr4W/8 + g6D/ALaf+jXrV8Wf8edz/wBe83/oDVlfC3/kHQf9tP8A0a9AHV0UUUAFFFFABRRRQAUUUUAF + FFFABRRRQAUUUUAFef6N/wAh66/691/lBXoFef6N/wAh66/691/lBQB6BRRRQAUUUUAFFFFA + BRRRQAUUUUAFFFFABRRRQAV5/wDGv/jzj/6+F/8AQJK9Arz/AONf/HnH/wBfC/8AoElAHoFF + FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8FP8Ajzk/6+G/9Ajr0CvP/gp/x5yf + 9fDf+gR16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfP/APzGf+4h/wC16+gK+f8A + /mM/9xD/ANr19AUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfP/AMUv+QjP/wBs/wD0UlfQFfP/AMUv + +QjP/wBs/wD0UlAHoH/C67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3y + n/xyj/hddn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAe + f/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wBy + b/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn + /wAcrl/h58Q7fw3btbzLIWaUsCgUjBVR3Zeflr2ivP8A4Kf8ecn/AF8N/wCgR0AH/C67P+5N + /wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDj + legUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hd + dn/cm/75T/45XoFFAHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P + +5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jl + egUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4X + XZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLr + s/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHhX/Caw/2t/a+1/K9MLv8A9T5fTdjr79Pyrtf+ + F12f9yb/AL5T/wCOVlf8zH/n/n1r1WgDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0C + igDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wAL + rs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8A + cm/75T/45R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9A + ooA8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDxf4h/EO38SW628KyBllDEuF + AwFYdmbn5q29D+LtpYW8Nu6SlookUkKmMqoBxlxxxV341/8AHnH/ANfC/wDoEldV4T/487b/ + AK94f/QFoA5X/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/vlP8A + 45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz/wD4 + XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/f + Kf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8Acm/75T/4 + 5R/wuuz/ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlcV8N/GsPhjzvPV283y8eWFP3d2c5Z + f7wr3WvKvgZ/y9f9sf8A2pQBq/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45XoFFAHn/8A + wuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+ + OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDH + KP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDw + uuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHK4rxP41h1W/t9Qj + VxHB5W4MFDHZIXOAGI6Hjkc17rXlXj7/AJDNn/27/wDo9qANX/hddn/cm/75T/45R/wuuz/u + Tf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9 + yb/vlP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0C + igDz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wAL + rs/7k3/fKf8AxyvQKKAPP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HK9AooA8//AOF12f8A + cm/75T/45WJ4z+KFtrdpJZxJKHk2YLqgX5XVjnDk9B6V63XKfFL/AJB0/wD2z/8ARqUAcf4M + +KFtolpHZypKXj35KKhX5nZhjLg9D6Vt/wDC67P+5N/3yn/xytX4W/8AIOg/7af+jXrq6APP + /wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/uTf8A + fKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9yb/v + lP8A45R/wuuz/uTf98p/8cr0CigDz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8cr0CigDz + /wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcr0CigDz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7 + k3/fKf8AxyvQKKAPn/4W/wDIRg/7af8Aop6+gK+f/hb/AMhGD/tp/wCinr6AoAK8q+Of/Lr/ + ANtv/adeq15V8c/+XX/tt/7ToAh8GfFC20S0js5UlLx78lFQr8zswxlweh9K2/8Ahddn/cm/ + 75T/AOOVq/C3/kHQf9tP/Rr11dAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/ + APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB4v4S+Idvo9xd3EiyFbqXcgUKSBuc85 + Yc/MOme9dR/wuuz/ALk3/fKf/HKPhx/x+al/18f+zzV6BQB5/wD8Lrs/7k3/AHyn/wAco/4X + XZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLr + s/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jle + gUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/ + AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB4v4t+Idv + rFxaXEayBbWXc4YKCRuQ8YY8/KeuO1dR/wALrs/7k3/fKf8Axyj4j/8AH5pv/Xx/7PDXoFAH + n/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8AuTf98p/8co/4XXZ/3Jv+ + +U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uTf98p + /wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoFFAHn + /wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f9yb/ + AL5T/wCOV6BRQB5lrnxdtL+3mt0SUNLE6glUxllIGcOeOao+DPihbaJaR2cqSl49+SioV+Z2 + YYy4PQ+lei+LP+PO5/695v8A0Bqyvhb/AMg6D/tp/wCjXoAyv+F12f8Acm/75T/45R/wuuz/ + ALk3/fKf/HK9AooA8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHK9AooA8/wD+F12f9yb/ + AL5T/wCOUf8AC67P+5N/3yn/AMcr0CigDz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xyvQK + KAPP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xyvQKKAPP/APhddn/cm/75T/45R/wuuz/u + Tf8AfKf/AByvQKKAPP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHK9AooA8//wCF12f9 + yb/vlP8A45XL6f8AEO3t9Tn1QrJ5UsQUABd+QIxyN2MfIe57V7RXn+jf8h66/wCvdf5QUAH/ + AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/7 + 5T/45XoFFAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8A + HKP+F12f9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef + /wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75 + T/45XoFFAHn/APwuuz/uTf8AfKf/AByuX+IfxDt/ElutvCsgZZQxLhQMBWHZm5+avaK8/wDj + X/x5x/8AXwv/AKBJQAf8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5XoFFAHn//AAuuz/uT + f98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45XoF + FAHn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlegUUAef8A/C67P+5N/wB8p/8AHKP+F12f + 9yb/AL5T/wCOV6BRQB5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlegUUAef/wDC67P+ + 5N/3yn/xyj/hddn/AHJv++U/+OV6BRQB5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45XoFF + AHi/w8+Idv4bt2t5lkLNKWBQKRgqo7svPy11H/C67P8AuTf98p/8co+Cn/HnJ/18N/6BHXoF + AHn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlegUUAef/8AC67P+5N/3yn/AMco/wCF + 12f9yb/vlP8A45XoFFAHn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlegUUAef/APC67P8A + uTf98p/8co/4XXZ/3Jv++U/+OV6BRQB5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5X + oFFAHn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOV6BRQB5//AMLrs/7k3/fKf/HKP+F1 + 2f8Acm/75T/45XoFFAHzvp16t/qiXCZCy3qsAeuGlBGcZ55r6Ir5/wD+Yz/3EP8A2vX0BQAU + UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRSUAfQ + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/AAU/485P+vhv/QI69Arz/wCCn/HnJ/18N/6B + HQB6BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8AMx/5 + /wCfWvVa8q/5mP8Az/z616rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/Gv/AI84 + /wDr4X/0CSuq8J/8edt/17w/+gLXK/Gv/jzj/wCvhf8A0CSuq8J/8edt/wBe8P8A6AtAGtRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5V8DP+Xr/tj/AO1K9Vryr4Gf8vX/AGx/9qUA + eq0UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFeVePv+QzZ/8Abv8A+j2r1WvKvH3/ACGb + P/t3/wDR7UAeq0UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFcp8Uv+QdP/wBs/wD0aldX + XKfFL/kHT/8AbP8A9GpQAfC3/kHQf9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUU + UAFFFFABRRRQAUUUUAFFFFAHz/8AC3/kIwf9tP8A0U9fQFfP/wALf+QjB/20/wDRT19AUAFe + VfHP/l1/7bf+069Vryr45/8ALr/22/8AadAHVfC3/kHQf9tP/Rr11dcp8Lf+QdB/20/9GvXV + 0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/w4/wCPzUv+vj/2eavQK8/+HH/H5qX/ + AF8f+zzV6BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/ABH/AOPzTf8Ar4/9nhr0 + CvP/AIj/APH5pv8A18f+zw16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAZPiz/jzu + f+veb/0Bqyvhb/yDoP8Atp/6NetXxZ/x53P/AF7zf+gNWV8Lf+QdB/20/wDRr0AdXRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAV5/o3/ACHrr/r3X+UFegV5/o3/ACHrr/r3X+UFAHoF + FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn/AMa/+POP/r4X/wBAkr0CvP8A41/8ecf/ + AF8L/wCgSUAegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/wU/wCPOT/r4b/0 + COvQK8/+Cn/HnJ/18N/6BHXoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8/8A/MZ/ + 7iH/ALXr6Ar5/wD+Yz/3EP8A2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/ + APRSV9AV8/8AxS/5CM//AGz/APRSUAdX/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR + /wCfsteq0UAeVf8AFR/5+y0f8VH/AJ+y16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf + +fstH/FR/wCfsteq0UAeVf8AFR/5+y0f8VH/AJ+y16rRQB5V/wAVH/n7LXP+Cv7W8lv7O/1X + mHP+p+9tXP8ArOemPb9a91rz/wCCn/HnJ/18N/6BHQBlf8VH/n7LR/xUf+fsteq0UAeVf8VH + /n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH + /n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH + /n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH/n7LR/xUf+fsteq0UAeVf8VH + /n7LR/xUf+fsteq0UAfP/wDxMf7R/wCoh/2y/wCeX/fH3P8AOa6v/io/8/ZaP+Zj/wA/8+te + q0AeVf8AFR/5+y0f8VH/AJ+y16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf+fstH/FR + /wCfsteq0UAeVf8AFR/5+y0f8VH/AJ+y16rRQB5V/wAVH/n7LR/xUf8An7LXqtFAHlX/ABUf + +fstH/FR/wCfsteq0UAeVf8AFR/5+y0f8VH/AJ+y16rRQB4V41/tbyV/tH/VeYMf6n721sf6 + vnpn2/StXSf7f8mPyP8AVeWmz/j3+7tG373PTHXn1roPjX/x5x/9fC/+gSV1XhP/AI87b/r3 + h/8AQFoA4D/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+ + Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ + ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lrlPAv9o/vf7M/wBjzP8A + Vf7W3/Wfj0/HtX0BXlXwM/5ev+2P/tSgA/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/ + AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/ + 4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z + 9lrlNf8A7R+2Q/av+Pv935X+q/vnZ935fvZ6/jxX0BXlXj7/AJDNn/27/wDo9qAD/io/8/Za + P+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/ + 8/ZaP+Kj/wA/Za9VooA8q/4qP/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr + /io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2WsnxT/bX2Z/tv/Hv8u//AFH94bfufN97HT+Ve11y + nxS/5B0//bP/ANGpQB5/4W/tr7Mn2L/j3+bZ/qP7x3ff+b72ev8AKtb/AIqP/P2Wuq+Fv/IO + g/7af+jXrq6APKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4qP/P2 + Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigDyr/io/8/ZaP+Kj/wA/Za9VooA8q/4q + P/P2Wj/io/8AP2WvVaKAPKv+Kj/z9lo/4qP/AD9lr1WigD5/+Fv/ACEYP+2n/op6+gK+f/hb + /wAhGD/tp/6KevoCgAryr45/8uv/AG2/9p16rXlXxz/5df8Att/7ToAyfC39tfZk+xf8e/zb + P9R/eO77/wA33s9f5Vrf8VH/AJ+y11Xwt/5B0H/bT/0a9dXQB5V/xUf+fstH/FR/5+y16rRQ + B5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQ + B5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQ + B4V4b/tbzrn7J/rfM/f/AOp+9uf+/wAdd33eP0roP+Kj/wA/Za1fhx/x+al/18f+zzV6BQB5 + V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5 + V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5V/xUf+fstH/FR/5+y16rRQB5 + V/xUf+fstH/FR/5+y16rRQB4V4k/tbzrb7X/AK3zP3H+p+9uT+5x12/e4/Wug/4qP/P2WtX4 + j/8AH5pv/Xx/7PDXoFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/F + R/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHlX/F + R/5+y0f8VH/n7LXqtFAHlX/FR/5+y0f8VH/n7LXqtFAHj+rf2/5Mnn/6ry33/wDHv93ad33e + emenPpVTwt/bX2ZPsX/Hv82z/Uf3ju+/833s9f5V6r4s/wCPO5/695v/AEBqyvhb/wAg6D/t + p/6NegDlf+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4q + P/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9l + o/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z9lr1WigDyr/io/8AP2Wufsv7W+3y+X/x++WPM/1P + 3cJjr8nTb05/Wvda8/0b/kPXX/Xuv8oKAMr/AIqP/P2Wj/io/wDP2WvVaKAPKv8Aio/8/ZaP + +Kj/AM/Za9VooA8q/wCKj/z9lo/4qP8Az9lr1WigDyr/AIqP/P2Wj/io/wDP2WvVaKAPKv8A + io/8/ZaP+Kj/AM/Za9VooA8q/wCKj/z9lo/4qP8Az9lr1WigDyr/AIqP/P2Wj/io/wDP2WvV + aKAPKv8Aio/8/Za5/wAa/wBreSv9o/6rzBj/AFP3trY/1fPTPt+le615/wDGv/jzj/6+F/8A + QJKAMr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+Kj/z + 9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPKv+Kj/wA/ZaP+ + Kj/z9lr1WigDyr/io/8AP2Wj/io/8/Za9VooA8q/4qP/AD9lo/4qP/P2WvVaKAPCvBX9reS3 + 9nf6rzDn/U/e2rn/AFnPTHt+tdB/xUf+fstavwU/485P+vhv/QI69AoA8q/4qP8Az9lo/wCK + j/z9lr1WigDyr/io/wDP2Wj/AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA8q/4qP8A + z9lo/wCKj/z9lr1WigDyr/io/wDP2Wj/AIqP/P2WvVaKAPKv+Kj/AM/ZaP8Aio/8/Za9VooA + 8q/4qP8Az9lo/wCKj/z9lr1WigD510nzP7Sj8/8A1v2xN/T73mjd93jrnpx6V9FV8/8A/MZ/ + 7iH/ALXr6AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigAooooAK+f/AIpf8hGf/tn/AOikr6Ar5/8Ail/yEZ/+ + 2f8A6KSgD6AorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/ + 8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqg + DWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/ + AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANavP8A4Kf8ecn/ + AF8N/wCgR11X/CWWf/PxD/3+T/4quI+EWuW9haOk0saMZ2IDuqnGxBnBI44oA9NorJ/4Syz/ + AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/ + AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn + /wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqANaisn/h + LLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8Av8n/AMVR/wAJZZ/8 + /EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If + +/yf/FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgD + WorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqAOA/5mP/P/AD616rXj/wDa0P8A + b/2rzE8r+/vXZ/x77fvZx1469eK9K/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP + +Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln + /wA/EP8A3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4 + h/7/ACf/ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5 + P/iqP+Ess/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQ + Byvxr/484/8Ar4X/ANAkrqvCf/Hnbf8AXvD/AOgLXEfF3XLe/tESGWN2E6khHVjjY4zgE8c1 + 0vhjxPaQ2lujzxBlgiBBlQEEIAQQTwRQB1FFZP8Awlln/wA/EP8A3+T/AOKo/wCEss/+fiH/ + AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z8Q/9 + /k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQBrUVk + /wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+ + Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1eVfAz/AJev + +2P/ALUrv/8AhLLP/n4h/wC/yf8AxVea/BrVodP+0efIke7yseY6rnG/OMkZxkUAewUVk/8A + CWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If + +/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k + /wDiqP8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAV + QBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/ + AJ+If+/yf/FUAa1eVePv+QzZ/wDbv/6Pau//AOEss/8An4h/7/J/8VXmvjfVobnVrSeORGjT + yNzK6lRiZicsDgYHJ9qAPYKKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWor + J/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/E + P/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqANaisn/AISyz/5+If8A + v8n/AMVR/wAJZZ/8/EP/AH+T/wCKoA1qKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqA + Naisn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4qgDWrlPil/yDp/8Atn/6NStX/hLLP/n4 + h/7/ACf/ABVc18R/ENtd2E0UU0TufLwqSIzHEik4AOelAGh8Lf8AkHQf9tP/AEa9dXXCfDjx + DbWlhDFLNEjjzMq8iKwzIxGQTnpXS/8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Es + s/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8 + Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z8Q/9/k/+KoA1qKyf+Ess/wDn4h/7 + /J/8VR/wlln/AM/EP/f5P/iqANaisn/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiqAPF + fhb/AMhGD/tp/wCinr6Ar5/+Fv8AyEYP+2n/AKKevoCgAryr45/8uv8A22/9p16rXlXxz/5d + f+23/tOgDqvhb/yDoP8Atp/6NeurrhPhx4htrSwhilmiRx5mVeRFYZkYjIJz0rpf+Ess/wDn + 4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+If+/yf/FUAa1FZP8Awlln/wA/EP8A + 3+T/AOKo/wCEss/+fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ + ABVAGtRWT/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Es + s/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8A + CWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAcr8OP+PzUv+vj/wBnmr0CvMvAOuW9rd6g + 8ksarJPlCzqoYb5TkEnkcjp6iu3/AOEss/8An4h/7/J/8VQBrUVk/wDCWWf/AD8Q/wDf5P8A + 4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa + 1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CWWf8Az8Q/9/k/+Ko/4Syz/wCf + iH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJZZ/8 + /EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrUVk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8 + VQByvxH/AOPzTf8Ar4/9nhr0CvMvH2uW91d6e8csbLHPlyrqwUb4jkkHgcHr6Gu3/wCEss/+ + fiH/AL/J/wDFUAa1FZP/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVAGtRWT/wlln/z + 8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVAGtRWT/wlln/AM/EP/f5P/iqP+Ess/8An4h/7/J/8VQB + rUVk/wDCWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVQBrUVk/8ACWWf/PxD/wB/k/8A + iqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FUAa1FZP/CW + Wf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAB4s/487n/r3m/9Aasr4W/8g6D/ALaf+jXp/ifx + PaTWlwiTxFmglAAlQkkoQAADyTWZ8OPENtaWEMUs0SOPMyryIrDMjEZBOelAHd0Vk/8ACWWf + /PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFUAa1FZP/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf + /FUAa1FZP/CWWf8Az8Q/9/k/+Ko/4Syz/wCfiH/v8n/xVAGtRWT/AMJZZ/8APxD/AN/k/wDi + qP8AhLLP/n4h/wC/yf8AxVAGtRWT/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVQBrU + Vk/8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VQBrUVk/8JZZ/wDPxD/3+T/4qj/hLLP/AJ+I + f+/yf/FUAa1ef6N/yHrr/r3X+UFdV/wlln/z8Q/9/k/+KriNJ1y3TWrm4MsYiaBQHLqEJxDw + Gzgng/kaAPTaKyf+Ess/+fiH/v8AJ/8AFUf8JZZ/8/EP/f5P/iqANaisn/hLLP8A5+If+/yf + /FUf8JZZ/wDPxD/3+T/4qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ + /wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWW + f/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/ + 7/J/8VR/wlln/wA/EP8A3+T/AOKoA1q8/wDjX/x5x/8AXwv/AKBJXVf8JZZ/8/EP/f5P/iq4 + j4u65b39oiQyxuwnUkI6scbHGcAnjmgD02isn/hLLP8A5+If+/yf/FUf8JZZ/wDPxD/3+T/4 + qgDWorJ/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDF + Uf8ACWWf/PxD/wB/k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4 + Syz/AOfiH/v8n/xVH/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A + 3+T/AOKoA1qKyf8AhLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+ + /wAn/wAVR/wlln/z8Q/9/k/+KoA5X4Kf8ecn/Xw3/oEdegV5l8Itct7C0dJpY0YzsQHdVONi + DOCRxxXb/wDCWWf/AD8Q/wDf5P8A4qgDWorJ/wCEss/+fiH/AL/J/wDFUf8ACWWf/PxD/wB/ + k/8AiqANaisn/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4qgDWorJ/4Syz/AOfiH/v8n/xV + H/CWWf8Az8Q/9/k/+KoA1qKyf+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKoA1qKyf8A + hLLP/n4h/wC/yf8AxVH/AAlln/z8Q/8Af5P/AIqgDWorJ/4Syz/5+If+/wAn/wAVR/wlln/z + 8Q/9/k/+KoA1qKyf+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iqAPFf+Yz/ANxD/wBr19AV + 8+QzLNq4dCCrX4IIOQQZsggjqDX0HQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/ + APRSV9AV8/8AxS/5CM//AGz/APRSUAegf8KUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn + /wDwpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/ + AL6T/wCN16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/3 + 0n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/ + APwpSz/vzf8AfSf/ABuuX+Hnw8t/Elu1xM0gZZSoCFQMBVPdW5+avaK8/wDgp/x5yf8AXw3/ + AKBHQAf8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8A + hSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/ + AL83/fSf/G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN + 16BRQB5//wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/h + Sln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/v + zf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A + 43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAeFf8IVD/a39kbn8r1yu/wD1 + PmdduOvt0/Ou1/4UpZ/35v8AvpP/AI3WV/zMf+f+fWvVaAPP/wDhSln/AH5v++k/+N0f8KUs + /wC/N/30n/xuvQKKAPP/APhSln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm + /wC+k/8AjdH/AApSz/vzf99J/wDG69AooA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0 + CigDz/8A4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/ + 783/AH0n/wAbr0CigDz/AP4UpZ/35v8AvpP/AI3R/wAKUs/783/fSf8AxuvQKKAPF/iH8PLf + w3brcQtIWaUKQ5UjBVj2Veflrb0P4RWl/bw3DvKGliRiAyYyygnGUPHNXfjX/wAecf8A18L/ + AOgSV1XhP/jztv8Ar3h/9AWgDlf+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0CigDz// + AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/N/30 + n/xuvQKKAPP/APhSln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+k/8A + jdH/AApSz/vzf99J/wDG69AooA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0CigDz/8A + 4UpZ/wB+b/vpP/jdH/ClLP8Avzf99J/8br0CigDz/wD4UpZ/35v++k/+N1xXw38FQ+J/O89n + XyvLx5ZUfe3ZzlW/uivda8q+Bn/L1/2x/wDalAGr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k + /wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30n/xu + j/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8A + ClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vp + P/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAb + rivE/gqHSr+30+NnMc/lbixUsN8hQ4IUDoOODzXuteVePv8AkM2f/bv/AOj2oA1f+FKWf9+b + /vpP/jdH/ClLP+/N/wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr + 0CigDz//AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs + /wC/N/30n/xuvQKKAPP/APhSln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm + /wC+k/8AjdH/AApSz/vzf99J/wDG69AooA8//wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8br0 + CigDz/8A4UpZ/wB+b/vpP/jdYnjP4X22iWkl5E8pePZgOyFfmdVOcID0PrXrdcp8Uv8AkHT/ + APbP/wBGpQBx/gz4X22t2kd5K8oeTfkIyBfldlGMoT0HrW3/AMKUs/783/fSf/G61fhb/wAg + 6D/tp/6NeuroA8//AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b/vpP + /jdH/ClLP+/N/wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr0Cig + Dz//AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xuvQKKAPP/wDhSln/AH5v++k/+N0f8KUs/wC/ + N/30n/xuvQKKAPP/APhSln/fm/76T/43R/wpSz/vzf8AfSf/ABuvQKKAPP8A/hSln/fm/wC+ + k/8AjdH/AApSz/vzf99J/wDG69AooA+f/hb/AMhGD/tp/wCinr6Ar5/+Fv8AyEYP+2n/AKKe + voCgAryr45/8uv8A22/9p16rXlXxz/5df+23/tOgCHwZ8L7bW7SO8leUPJvyEZAvyuyjGUJ6 + D1rb/wCFKWf9+b/vpP8A43Wr8Lf+QdB/20/9GvXV0Aef/wDClLP+/N/30n/xuj/hSln/AH5v + ++k/+N16BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ + ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAH + n/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v+ + +k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHi/hL4eW+sXF3byN + IFtZdqFSoJG5xzlTz8o6Y711H/ClLP8Avzf99J/8bo+HH/H5qX/Xx/7PNXoFAHn/APwpSz/v + zf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A + 43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4 + UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApS + z/vzf99J/wDG6P8AhSln/fm/76T/AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/4 + 3XoFFAHi/i34eW+j3FpbxtIVupdrlipIG5BxhRz8x657V1H/AApSz/vzf99J/wDG6PiP/wAf + mm/9fH/s8NegUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16BRQB5/8A8KUs/wC/N/30 + n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdegUUAe + f/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ/wB+ + b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/AH0n + /wAbo/4UpZ/35v8AvpP/AI3XoFFAHmWufCK0sLea4R5S0UTsAWTGVUkZwg44qj4M+F9trdpH + eSvKHk35CMgX5XZRjKE9B616L4s/487n/r3m/wDQGrK+Fv8AyDoP+2n/AKNegDK/4UpZ/wB+ + b/vpP/jdH/ClLP8Avzf99J/8br0CigDz/wD4UpZ/35v++k/+N0f8KUs/783/AH0n/wAbr0Ci + gDz/AP4UpZ/35v8AvpP/AI3R/wAKUs/783/fSf8AxuvQKKAPP/8AhSln/fm/76T/AON0f8KU + s/783/fSf/G69AooA8//AOFKWf8Afm/76T/43R/wpSz/AL83/fSf/G69AooA8/8A+FKWf9+b + /vpP/jdH/ClLP+/N/wB9J/8AG69AooA8/wD+FKWf9+b/AL6T/wCN0f8AClLP+/N/30n/AMbr + 0CigDz//AIUpZ/35v++k/wDjdcvp/wAPLe41OfSy0nlRRBgQV35IjPJ24x857DtXtFef6N/y + Hrr/AK91/lBQAf8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/ + 8bo/4UpZ/wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8 + KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/ + 76T/AON16BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf + /G6P+FKWf9+b/vpP/jdegUUAef8A/ClLP+/N/wB9J/8AG65f4h/Dy38N263ELSFmlCkOVIwV + Y9lXn5a9orz/AONf/HnH/wBfC/8AoElAB/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8Ajdeg + UUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz/vzf99J/8bo/4UpZ + /wB+b/vpP/jdegUUAef/APClLP8Avzf99J/8bo/4UpZ/35v++k/+N16BRQB5/wD8KUs/783/ + AH0n/wAbo/4UpZ/35v8AvpP/AI3XoFFAHn//AApSz/vzf99J/wDG6P8AhSln/fm/76T/AON1 + 6BRQB5//AMKUs/783/fSf/G6P+FKWf8Afm/76T/43XoFFAHn/wDwpSz/AL83/fSf/G6P+FKW + f9+b/vpP/jdegUUAeL/Dz4eW/iS3a4maQMspUBCoGAqnurc/NXUf8KUs/wC/N/30n/xuj4Kf + 8ecn/Xw3/oEdegUAef8A/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN16BRQB5//wAKUs/7 + 83/fSf8Axuj/AIUpZ/35v++k/wDjdegUUAef/wDClLP+/N/30n/xuj/hSln/AH5v++k/+N16 + BRQB5/8A8KUs/wC/N/30n/xuj/hSln/fm/76T/43XoFFAHn/APwpSz/vzf8AfSf/ABuj/hSl + n/fm/wC+k/8AjdegUUAef/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43XoFFAHn/8AwpSz + /vzf99J/8bo/4UpZ/wB+b/vpP/jdegUUAfO+nWS2GqJbpkrFeqoJ64WUAZxjnivoivn/AP5j + P/cQ/wDa9fQFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXz/wDFL/kIz/8AbP8A9FJX0BXz/wDFL/kI + z/8AbP8A9FJQB9AUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3 + /fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAeg + UV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/ + AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BXn/wU/485P8Ar4b/ + ANAjo/4XXZ/3Jv8AvlP/AI5XL/Dz4h2/hu3a3mWQs0pYFApGCqjuy8/LQB7RRXn/APwuuz/u + Tf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A + 45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4 + XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuu + z/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/4 + 5QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N/wB8p/8AHKP+ + F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDjlAHoFFef/wDC + 67P+5N/3yn/xyj/hddn/AHJv++U/+OUAZX/Mx/5/59a9Vrwr/hNYf7W/tfa/lemF3/6ny+m7 + HX36flXa/wDC67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs/wC5N/3yn/xygD0C + ivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuu + z/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wBy + b/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9A + orz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygA+Nf/AB5x/wDXwv8A6BJXVeE/+PO2 + /wCveH/0Ba8t+IfxDt/ElutvCsgZZQxLhQMBWHZm5+atvQ/i7aWFvDbukpaKJFJCpjKqAcZc + ccUAem0V5/8A8Lrs/wC5N/3yn/xyj/hddn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj + /hddn/cm/wC+U/8AjlAHoFFef/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8A + wuuz/uTf98p/8co/4XXZ/wByb/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+ + OUAegUV5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDH + KP8Ahddn/cm/75T/AOOUAegV5V8DP+Xr/tj/AO1K1f8Ahddn/cm/75T/AOOVxXw38aw+GPO8 + 9XbzfLx5YU/d3Zzll/vCgD3WivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A + /hddn/cm/wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf + 98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+ + OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0Civ + P/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQK8q8ff8hmz/7d/wD0e1av/C67P+5N/wB8 + p/8AHK4rxP41h1W/t9QjVxHB5W4MFDHZIXOAGI6Hjkc0Ae60V5//AMLrs/7k3/fKf/HKP+F1 + 2f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A/C67P+5N + /wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3Jv++U/wDj + lAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegUV5/8A8Lrs/wC5N/3yn/xyj/hd + dn/cm/75T/45QB6BRXn/APwuuz/uTf8AfKf/AByj/hddn/cm/wC+U/8AjlAHoFcp8Uv+QdP/ + ANs//RqVlf8AC67P+5N/3yn/AMcrE8Z/FC21u0ks4klDybMF1QL8rqxzhyeg9KAOw+Fv/IOg + /wC2n/o166uvJPBnxQttEtI7OVJS8e/JRUK/M7MMZcHofStv/hddn/cm/wC+U/8AjlAHoFFe + f/8AC67P+5N/3yn/AMco/wCF12f9yb/vlP8A45QB6BRXn/8Awuuz/uTf98p/8co/4XXZ/wBy + b/vlP/jlAHoFFef/APC67P8AuTf98p/8co/4XXZ/3Jv++U/+OUAegUV5/wD8Lrs/7k3/AHyn + /wAco/4XXZ/3Jv8AvlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegU + V5//AMLrs/7k3/fKf/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb + /vlP/jlAHn/wt/5CMH/bT/0U9fQFfP8A8Lf+QjB/20/9FPX0BQAV5V8c/wDl1/7bf+069Vry + r45/8uv/AG2/9p0AdV8Lf+QdB/20/wDRr11deSeDPihbaJaR2cqSl49+SioV+Z2YYy4PQ+lb + f/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4X + XZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH + /C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMcoA9Aorz// + AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygA+HH/H5qX/AF8f+zzV6BXi/hL4h2+j3F3cSLIV + updyBQpIG5zzlhz8w6Z711H/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz + /uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv+ + +U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD + 0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ + ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8AHKAD4j/8fmm/9fH/ALPD + XoFeL+LfiHb6xcWlxGsgW1l3OGCgkbkPGGPPynrjtXUf8Lrs/wC5N/3yn/xygD0CivP/APhd + dn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm/wC+U/8AjlH/AAuuz/uTf98p + /wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jl + H/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4X + XZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fK + f/HKAOq8Wf8AHnc/9e83/oDVlfC3/kHQf9tP/Rr1zuufF20v7ea3RJQ0sTqCVTGWUgZw545q + j4M+KFtolpHZypKXj35KKhX5nZhjLg9D6UAet0V5/wD8Lrs/7k3/AHyn/wAco/4XXZ/3Jv8A + vlP/AI5QB6BRXn//AAuuz/uTf98p/wDHKP8Ahddn/cm/75T/AOOUAegUV5//AMLrs/7k3/fK + f/HKP+F12f8Acm/75T/45QB6BRXn/wDwuuz/ALk3/fKf/HKP+F12f9yb/vlP/jlAHoFFef8A + /C67P+5N/wB8p/8AHKP+F12f9yb/AL5T/wCOUAegUV5//wALrs/7k3/fKf8Axyj/AIXXZ/3J + v++U/wDjlAHoFFef/wDC67P+5N/3yn/xyj/hddn/AHJv++U/+OUAegV5/o3/ACHrr/r3X+UF + H/C67P8AuTf98p/8crl9P+Idvb6nPqhWTypYgoAC78gRjkbsY+Q9z2oA9oorz/8A4XXZ/wBy + b/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9A + orz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lr + s/7k3/fKf/HKAPQKK8//AOF12f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb + /vlP/jlH/C67P+5N/wB8p/8AHKAPQKK8/wD+F12f9yb/AL5T/wCOUf8AC67P+5N/3yn/AMco + A9Arz/41/wDHnH/18L/6BJR/wuuz/uTf98p/8crl/iH8Q7fxJbrbwrIGWUMS4UDAVh2Zufmo + A9oorz//AIXXZ/3Jv++U/wDjlH/C67P+5N/3yn/xygD0CivP/wDhddn/AHJv++U/+OUf8Lrs + /wC5N/3yn/xygD0CivP/APhddn/cm/75T/45R/wuuz/uTf8AfKf/ABygD0CivP8A/hddn/cm + /wC+U/8AjlH/AAuuz/uTf98p/wDHKAPQKK8//wCF12f9yb/vlP8A45R/wuuz/uTf98p/8coA + 9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/ + 7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R/wALrs/7k3/fKf8AxygA+Cn/AB5yf9fD + f+gR16BXi/w8+Idv4bt2t5lkLNKWBQKRgqo7svPy11H/AAuuz/uTf98p/wDHKAPQKK8//wCF + 12f9yb/vlP8A45R/wuuz/uTf98p/8coA9Aorz/8A4XXZ/wByb/vlP/jlH/C67P8AuTf98p/8 + coA9Aorz/wD4XXZ/3Jv++U/+OUf8Lrs/7k3/AHyn/wAcoA9Aorz/AP4XXZ/3Jv8AvlP/AI5R + /wALrs/7k3/fKf8AxygD0CivP/8Ahddn/cm/75T/AOOUf8Lrs/7k3/fKf/HKAPQKK8//AOF1 + 2f8Acm/75T/45R/wuuz/ALk3/fKf/HKAPQKK8/8A+F12f9yb/vlP/jlH/C67P+5N/wB8p/8A + HKAPP/8AmM/9xD/2vX0BXzvp16t/qiXCZCy3qsAeuGlBGcZ55r6IoAKKKKACiiigAooooAKK + KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig + AooooAK+f/il/wAhGf8A7Z/+ikr6Ar5/+KX/ACEZ/wDtn/6KSgD6AooooAKKKKACiiigAooo + oAKKKKACiiigArz/AOCn/HnJ/wBfDf8AoEdegV5/8FP+POT/AK+G/wDQI6APQKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDyr/mY/8AP/PrXqteVf8AMx/5 + /wCfWvVaACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/wCNf/HnH/18L/6BJXVeE/8A + jztv+veH/wBAWuV+Nf8Ax5x/9fC/+gSV1XhP/jztv+veH/0BaANaiiigAooooAKKKKACiiig + AooooAKKKKACiiigAryr4Gf8vX/bH/2pXqteVfAz/l6/7Y/+1KAPVaKKKACiiigAooooAKKK + KACiiigAooooAKKKKACvKvH3/IZs/wDt3/8AR7V6rXlXj7/kM2f/AG7/APo9qAPVaKKKACii + igAooooAKKKKACiiigAooooAKKKKACuU+KX/ACDp/wDtn/6NSurrlPil/wAg6f8A7Z/+jUoA + Phb/AMg6D/tp/wCjXrq65T4W/wDIOg/7af8Ao166ugAooooAKKKKACiiigAooooAKKKKACii + igAooooA+f8A4W/8hGD/ALaf+inr6Ar5/wDhb/yEYP8Atp/6KevoCgAryr45/wDLr/22/wDa + deq15V8c/wDl1/7bf+06AOq+Fv8AyDoP+2n/AKNeurrlPhb/AMg6D/tp/wCjXrq6ACiiigAo + oooAKKKKACiiigAooooAKKKKACiiigDz/wCHH/H5qX/Xx/7PNXoFef8Aw4/4/NS/6+P/AGea + vQKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDz/AOI//H5pv/Xx/wCzw16BXn/xH/4/ + NN/6+P8A2eGvQKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDJ8Wf8edz/17zf8AoDVl + fC3/AJB0H/bT/wBGvWr4s/487n/r3m/9Aasr4W/8g6D/ALaf+jXoA6uiiigAooooAKKKKACi + iigAooooAKKKKACiiigArz/Rv+Q9df8AXuv8oK9Arz/Rv+Q9df8AXuv8oKAPQKKKKACiiigA + ooooAKKKKACiiigAooooAKKKKACvP/jX/wAecf8A18L/AOgSV6BXn/xr/wCPOP8A6+F/9Ako + A9AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPP/AIKf8ecn/Xw3/oEdegV5/wDB + T/jzk/6+G/8AQI69AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPn//AJjP/cQ/9r19 + AV8//wDMZ/7iH/tevoCgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo + oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr5/+KX/ACEZ/wDtn/6KSvoCvn/4 + pf8AIRn/AO2f/opKAPoCivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9 + Voryr/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCK + j/z9loA9Voryr/io/wDP2Wj/AIqP/P2WgD1WvP8A4Kf8ecn/AF8N/wCgR1lf8VH/AJ+y1z/g + r+1vJb+zv9V5hz/qfvbVz/rOemPb9aAPdaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/ + 4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z + 9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+ + Kj/z9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1Wi + vKv+Kj/z9lo/4qP/AD9loAP+Zj/z/wA+teq18/8A/Ex/tH/qIf8AbL/nl/3x9z/Oa6v/AIqP + /P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Voryr/io/wDP + 2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaAPVaK8q/4qP8Az9lo/wCKj/z9loA9Vory + r/io/wDP2Wj/AIqP/P2WgD1WivKv+Kj/AM/ZaP8Aio/8/ZaANX41/wDHnH/18L/6BJXVeE/+ + PO2/694f/QFryDxr/a3kr/aP+q8wY/1P3trY/wBXz0z7fpWrpP8Ab/kx+R/qvLTZ/wAe/wB3 + aNv3uemOvPrQB7BRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y0Aeq0V5V + /wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5+y0f8VH/AJ+y + 0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqteVfAz/AJev+2P/ + ALUo/wCKj/z9lrlPAv8AaP73+zP9jzP9V/tbf9Z+PT8e1AH0BRXlX/FR/wCfstH/ABUf+fst + AHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ + ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR + /wCfstH/ABUf+fstAHqteVePv+QzZ/8Abv8A+j2o/wCKj/z9lrlNf/tH7ZD9q/4+/wB35X+q + /vnZ935fvZ6/jxQB9AUV5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqt + FeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf + +fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rXKfFL/kHT/9 + s/8A0alcr/xUf+fstZPin+2vsz/bf+Pf5d/+o/vDb9z5vvY6fyoA9A+Fv/IOg/7af+jXrq68 + U8Lf219mT7F/x7/Ns/1H947vv/N97PX+Va3/ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0A + eq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/AJ+y0f8A + FR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fstAHqtFeVf8VH/ + AJ+y0f8AFR/5+y0Acp8Lf+QjB/20/wDRT19AV8//AAt/5CMH/bT/ANFPX0BQAV5V8c/+XX/t + t/7Tr1WvKvjn/wAuv/bb/wBp0AdV8Lf+QdB/20/9GvXV14p4W/tr7Mn2L/j3+bZ/qP7x3ff+ + b72ev8q1v+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9loA9V + oryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/4qP/AD9l + oA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgDV+HH/H5qX/Xx/7PNXoF + eFeG/wC1vOufsn+t8z9//qfvbn/v8dd33eP0roP+Kj/z9loA9Voryr/io/8AP2Wj/io/8/Za + APVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj/io/ + 8/ZaAPVaK8q/4qP/AD9lo/4qP/P2WgD1WivKv+Kj/wA/ZaP+Kj/z9loA9Voryr/io/8AP2Wj + /io/8/ZaANX4j/8AH5pv/Xx/7PDXoFeFeJP7W862+1/63zP3H+p+9uT+5x12/e4/Wug/4qP/ + AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z9lo/ + 4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAPVaK8q/4qP/P2Wj/io/8AP2WgD1WivKv+Kj/z + 9lo/4qP/AD9loA9Voryr/io/8/ZaP+Kj/wA/ZaAO/wDFn/Hnc/8AXvN/6A1ZXwt/5B0H/bT/ + ANGvXFat/b/kyef/AKry33/8e/3dp3fd56Z6c+lVPC39tfZk+xf8e/zbP9R/eO77/wA33s9f + 5UAe10V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+ + y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq0V5V/xUf+fstH/FR/5+ + y0Aeq0V5V/xUf+fstH/FR/5+y0Aeq15/o3/Ieuv+vdf5QVlf8VH/AJ+y1z9l/a32+Xy/+P3y + x5n+p+7hMdfk6benP60Ae60V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ABUf+fst + AHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rRXlX/FR/wCfstH/ + ABUf+fstAHqtFeVf8VH/AJ+y0f8AFR/5+y0Aeq0V5V/xUf8An7LR/wAVH/n7LQB6rXn/AMa/ + +POP/r4X/wBAkrK/4qP/AD9lrn/Gv9reSv8AaP8AqvMGP9T97a2P9Xz0z7fpQB7rRXlX/FR/ + 5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/ + 5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQB6rRXlX/FR/ + 5+y0f8VH/n7LQB6rRXlX/FR/5+y0f8VH/n7LQBq/BT/jzk/6+G/9Ajr0CvCvBX9reS39nf6r + zDn/AFP3tq5/1nPTHt+tdB/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFeVf8AFR/5 + +y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCfstAHqtFe + Vf8AFR/5+y0f8VH/AJ+y0Aeq0V5V/wAVH/n7LR/xUf8An7LQB6rRXlX/ABUf+fstH/FR/wCf + stAHKf8AMZ/7iH/tevoCvnXSfM/tKPz/APW/bE39PveaN33eOuenHpX0VQAUUUUAFFFFABRR + RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8AxS/5CM//AGz/APRSUAfQFFFFABRRRQAU + UUUAFFFFABRRRQAUUUUAFef/AAU/485P+vhv/QI69Arz/wCCn/HnJ/18N/6BHQB6BRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeVf8AMx/5/wCfWvVa8q/5 + mP8Az/z616rQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/Gv/AI84/wDr4X/0CSuq + 8J/8edt/17w/+gLXK/Gv/jzj/wCvhf8A0CSuq8J/8edt/wBe8P8A6AtAGtRRRQAUUUUAFFFF + ABRRRQAUUUUAFFFFABRRRQAV5V8DP+Xr/tj/AO1K9Vryr4Gf8vX/AGx/9qUAeq0UUUAFFFFA + BRRRQAUUUUAFFFFABRRRQAUUUUAFeVePv+QzZ/8Abv8A+j2r1WvKvH3/ACGbP/t3/wDR7UAe + q0UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFcp8Uv+QdP/wBs/wD0aldXXKfFL/kHT/8A + bP8A9GpQAfC3/kHQf9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFAHz/8AC3/kIwf9tP8A0U9fQFfP/wALf+QjB/20/wDRT19AUAFeVfHP/l1/7bf+ + 069Vryr45/8ALr/22/8AadAHVfC3/kHQf9tP/Rr11dcp8Lf+QdB/20/9GvXV0AFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFAHn/w4/wCPzUv+vj/2eavQK8/+HH/H5qX/AF8f+zzV6BQA + UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAef/ABH/AOPzTf8Ar4/9nhr0CvP/AIj/APH5 + pv8A18f+zw16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAZPiz/jzuf+veb/0Bqyvh + b/yDoP8Atp/6NetXxZ/x53P/AF7zf+gNWV8Lf+QdB/20/wDRr0AdXRRRQAUUUUAFFFFABRRR + QAUUUUAFFFFABRRRQAV5/o3/ACHrr/r3X+UFegV5/o3/ACHrr/r3X+UFAHoFFFFABRRRQAUU + UUAFFFFABRRRQAUUUUAFFFFABXn/AMa/+POP/r4X/wBAkr0CvP8A41/8ecf/AF8L/wCgSUAe + gUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/wU/wCPOT/r4b/0COvQK8/+Cn/H + nJ/18N/6BHXoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB8/8A/MZ/7iH/ALXr6Ar5 + /wD+Yz/3EP8A2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUA + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/8AxS/5CM//AGz/APRSV9AV8/8A + xS/5CM//AGz/APRSUAe1f8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/7 + 83/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8A + xVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP + /n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k + /wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k/wDjdAHVf8JZ + Z/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/AIUpZ/35v++k + /wDjdAHVf8JZZ/8APxD/AN/k/wDiqP8AhLLP/n4h/wC/yf8AxVcr/wAKUs/783/fSf8Axuj/ + AIUpZ/35v++k/wDjdAHVf8JZZ/8APxD/AN/k/wDiq4j4Ra5b2Fo6TSxoxnYgO6qcbEGcEjji + rv8AwpSz/vzf99J/8brl/h58PLfxJbtcTNIGWUqAhUDAVT3VufmoA9S/4Syz/wCfiH/v8n/x + VH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+I + f+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Es + s/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6 + AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf + 99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/C + lLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/ + AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9 + +b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/ + AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/ + AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q + /wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZ + Z/8APxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDn/wC1of7f+1eYnlf3 + 967P+Pfb97OOvHXrxXpX/CWWf/PxD/3+T/4qvIP+EKh/tb+yNz+V65Xf/qfM67cdfbp+ddr/ + AMKUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/v + pP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8APxD/AN/k/wDiq5X/AIUp + Z/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/wlln/wA/EP8A3+T/AOKr + lf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v8n/xVH/CWWf/AD8Q/wDf + 5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boA6r/hLLP/AJ+If+/yf/FUf8JZZ/8A + PxD/AN/k/wDiq5X/AIUpZ/35v++k/wDjdH/ClLP+/N/30n/xugDqv+Ess/8An4h/7/J/8VR/ + wlln/wA/EP8A3+T/AOKrlf8AhSln/fm/76T/AON0f8KUs/783/fSf/G6AOq/4Syz/wCfiH/v + 8n/xVH/CWWf/AD8Q/wDf5P8A4quV/wCFKWf9+b/vpP8A43R/wpSz/vzf99J/8boApfF3XLe/ + tESGWN2E6khHVjjY4zgE8c10vhjxPaQ2lujzxBlgiBBlQEEIAQQTwRXn/wAQ/h5b+G7dbiFp + CzShSHKkYKseyrz8tbeh/CK0v7eG4d5Q0sSMQGTGWUE4yh45oA7f/hLLP/n4h/7/ACf/ABVH + /CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ + ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4 + h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLL + P/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r + /hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAb + oA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n + /wAboA6r/hLLP/n4h/7/ACf/ABVea/BrVodP+0efIke7yseY6rnG/OMkZxkV0H/ClLP+/N/3 + 0n/xuuK+G/gqHxP53ns6+V5ePLKj727Ocq390UAev/8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH + /v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCK + o/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8 + Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAH + Vf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/ + AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAb + o/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/v + zf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8A + FVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKrzXxvq0N + zq1pPHIjRp5G5ldSoxMxOWBwMDk+1dB/wpSz/vzf99J/8brivE/gqHSr+30+NnMc/lbixUsN + 8hQ4IUDoOODzQB6//wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n + /wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wp + Sz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8A + J/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4S + yz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8A + f5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8A + CWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T + /wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4U + pZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqua+I/iG2u7CaKKaJ3Pl4VJEZjiRScAHPS + ov8AhSln/fm/76T/AON1ieM/hfbaJaSXkTyl49mA7IV+Z1U5wgPQ+tAHQfDjxDbWlhDFLNEj + jzMq8iKwzIxGQTnpXS/8JZZ/8/EP/f5P/iq868GfC+21u0jvJXlDyb8hGQL8rsoxlCeg9a2/ + +FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xu + j/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8 + bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf + /G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30 + n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf9 + 9J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83 + /fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43QB5/8Lf+QjB/20/9FPX0BXz/APC3/kIwf9tP/RT19AUAFeVf + HP8A5df+23/tOvVa8q+Of/Lr/wBtv/adAG18OPENtaWEMUs0SOPMyryIrDMjEZBOeldL/wAJ + ZZ/8/EP/AH+T/wCKrzrwZ8L7bW7SO8leUPJvyEZAvyuyjGUJ6D1rb/4UpZ/35v8AvpP/AI3Q + B1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm + /wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/+fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8A + G6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T/wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/ + 783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAlln/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ + ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8AjdAHVf8ACWWf/PxD/wB/k/8AiqP+Ess/ + +fiH/v8AJ/8AFVyv/ClLP+/N/wB9J/8AG6P+FKWf9+b/AL6T/wCN0AdV/wAJZZ/8/EP/AH+T + /wCKo/4Syz/5+If+/wAn/wAVXK/8KUs/783/AH0n/wAbo/4UpZ/35v8AvpP/AI3QB1X/AAll + n/z8Q/8Af5P/AIqj/hLLP/n4h/7/ACf/ABVcr/wpSz/vzf8AfSf/ABuj/hSln/fm/wC+k/8A + jdAFLwDrlva3eoPJLGqyT5Qs6qGG+U5BJ5HI6eort/8AhLLP/n4h/wC/yf8AxVeW+Evh5b6x + cXdvI0gW1l2oVKgkbnHOVPPyjpjvXUf8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH + /CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ + ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4h/7/ + ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLLP/n4 + h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLL + P/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r + /hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAb + oA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n + /wAboApePtct7q70945Y2WOfLlXVgo3xHJIPA4PX0Ndv/wAJZZ/8/EP/AH+T/wCKry3xb8PL + fR7i0t42kK3Uu1yxUkDcg4wo5+Y9c9q6j/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hL + LP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4 + Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP + +Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4q + j/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+ + Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P + /iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+ + T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8bo/4UpZ/35v++k/+N0AbHifxPaTWlwiT + xFmglAAlQkkoQAADyTWZ8OPENtaWEMUs0SOPMyryIrDMjEZBOelZuufCK0sLea4R5S0UTsAW + TGVUkZwg44qj4M+F9trdpHeSvKHk35CMgX5XZRjKE9B60Aei/wDCWWf/AD8Q/wDf5P8A4qj/ + AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q + /wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB + 1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9 + +b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/ + AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8Av8n/AMVXK/8A + ClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/AISyz/5+If8A + v8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q/wDf5P8A4qj/ + AISyz/5+If8Av8n/AMVXK/8AClLP+/N/30n/AMbo/wCFKWf9+b/vpP8A43QB1X/CWWf/AD8Q + /wDf5P8A4quI0nXLdNaubgyxiJoFAcuoQnEPAbOCeD+Rq7/wpSz/AL83/fSf/G65fT/h5b3G + pz6WWk8qKIMCCu/JEZ5O3GPnPYdqAPUv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq5X/h + Sln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5P/iq + 5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/EP/f5 + P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/AM/E + P/f5P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/wlln/ + AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8VR/w + lln/AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7/J/8 + VR/wlln/AM/EP/f5P/iq5X/hSln/AH5v++k/+N0f8KUs/wC/N/30n/xugDqv+Ess/wDn4h/7 + /J/8VXEfF3XLe/tESGWN2E6khHVjjY4zgE8c1d/4UpZ/35v++k/+N1y/xD+Hlv4bt1uIWkLN + KFIcqRgqx7KvPy0Aepf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30n/xu + j/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf99J/8 + bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83/fSf + /G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/N/30 + n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8Avzf9 + 9J/8bo/4UpZ/35v++k/+N0AdV/wlln/z8Q/9/k/+Ko/4Syz/AOfiH/v8n/xVcr/wpSz/AL83 + /fSf/G6P+FKWf9+b/vpP/jdAHVf8JZZ/8/EP/f5P/iqP+Ess/wDn4h/7/J/8VXK/8KUs/wC/ + N/30n/xuj/hSln/fm/76T/43QB1X/CWWf/PxD/3+T/4qj/hLLP8A5+If+/yf/FVyv/ClLP8A + vzf99J/8bo/4UpZ/35v++k/+N0AUvhFrlvYWjpNLGjGdiA7qpxsQZwSOOK7f/hLLP/n4h/7/ + ACf/ABVeW/Dz4eW/iS3a4maQMspUBCoGAqnurc/NXUf8KUs/783/AH0n/wAboA6r/hLLP/n4 + h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r/hLL + P/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAboA6r + /hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n/wAb + oA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/AH0n + /wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/783/ + AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8KUs/ + 783/AH0n/wAboA6r/hLLP/n4h/7/ACf/ABVH/CWWf/PxD/3+T/4quV/4UpZ/35v++k/+N0f8 + KUs/783/AH0n/wAboA88hmWbVw6EFWvwQQcggzZBBHUGvoOvnfTrJbDVEt0yVivVUE9cLKAM + 4xzxX0RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ + AUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8//FL/AJCM/wD2z/8ARSV9AV8//FL/AJCM/wD2 + z/8ARSUAfQFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/BT/jzk/wCvhv8A0COvQK8/+Cn/ + AB5yf9fDf+gR0AegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF + FAHlX/Mx/wCf+fWvVa8q/wCZj/z/AM+teq0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF + AHn/AMa/+POP/r4X/wBAkrqvCf8Ax523/XvD/wCgLXK/Gv8A484/+vhf/QJK6rwn/wAedt/1 + 7w/+gLQBrUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFeVfAz/l6/7Y/+1K9Vryr4Gf8A + L1/2x/8AalAHqtFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXlXj7/kM2f/bv/wCj2r1W + vKvH3/IZs/8At3/9HtQB6rRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVynxS/wCQdP8A + 9s//AEaldXXKfFL/AJB0/wD2z/8ARqUAHwt/5B0H/bT/ANGvXV1ynwt/5B0H/bT/ANGvXV0A + FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHz/APC3/kIwf9tP/RT19AV8/wDwt/5CMH/b + T/0U9fQFABXlXxz/AOXX/tt/7Tr1WvKvjn/y6/8Abb/2nQB1Xwt/5B0H/bT/ANGvXV1ynwt/ + 5B0H/bT/ANGvXV0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMOP+PzUv+vj/wBn + mr0CvP8A4cf8fmpf9fH/ALPNXoFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB5/8R/+ + PzTf+vj/ANnhr0CvP/iP/wAfmm/9fH/s8NegUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF + FFAGT4s/487n/r3m/wDQGrK+Fv8AyDoP+2n/AKNetXxZ/wAedz/17zf+gNWV8Lf+QdB/20/9 + GvQB1dFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXn+jf8h66/wCvdf5QV6BXn+jf8h66 + /wCvdf5QUAegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFef/Gv/AI84/wDr4X/0CSvQ + K8/+Nf8Ax5x/9fC/+gSUAegUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAHn/AMFP + +POT/r4b/wBAjr0CvP8A4Kf8ecn/AF8N/wCgR16BQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR + QAUUUUAfP/8AzGf+4h/7Xr6Ar5//AOYz/wBxD/2vX0BQAUUUUAFFFFABRRRQAUUUUAFFFFAB + RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV8/ + /FL/AJCM/wD2z/8ARSV9AVn3Xh62u2MssMTucZZ40ZjgYGSRnpQB5J/wuu8/uQ/98v8A/HKP + +F13n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A + 3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C6 + 7z+5D/3y/wD8co/4XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNA + HlX/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94 + f+/Kf/E0AeVf8LrvP7kP/fL/APxyj/hdd5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7 + P/n3h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/fl + P/iaP+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKx/C/xDuPDcRt4VjKs5YlwxOSAOzLx + 8te2/wDCJ2f/AD7w/wDflP8A4mj/AIROz/594f8Avyn/AMTQB5V/wuu8/uQ/98v/APHKP+F1 + 3n9yH/vl/wD45Xqv/CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E0AeVf8LrvP7kP/AHy//wAc + o/4XXef3If8Avl//AI5Xqv8Awidn/wA+8P8A35T/AOJo/wCETs/+feH/AL8p/wDE0AeVf8Lr + vP7kP/fL/wDxyj/hdd5/ch/75f8A+OV6r/widn/z7w/9+U/+Jo/4ROz/AOfeH/vyn/xNAHlX + /C67z+5D/wB8v/8AHKP+F13n9yH/AL5f/wCOV6r/AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h + /wC/Kf8AxNAHlX/C67z+5D/3y/8A8co/4XXef3If++X/APjleq/8InZ/8+8P/flP/iaP+ETs + /wDn3h/78p/8TQB5V/wuu8/uQ/8AfL//AByj/hdd5/ch/wC+X/8Ajleq/wDCJ2f/AD7w/wDf + lP8A4mj/AIROz/594f8Avyn/AMTQB5V/wuu8/uQ/98v/APHKP+F13n9yH/vl/wD45Xqv/CJ2 + f/PvD/35T/4mj/hE7P8A594f+/Kf/E0AeVf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5X + qv8Awidn/wA+8P8A35T/AOJo/wCETs/+feH/AL8p/wDE0AeVf8LrvP7kP/fL/wDxyj/hdd5/ + ch/75f8A+OV6r/widn/z7w/9+U/+Jo/4ROz/AOfeH/vyn/xNAHlX/C67z+5D/wB8v/8AHKP+ + F13n9yH/AL5f/wCOV6r/AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h/wC/Kf8AxNAHlX/C67z+ + 5D/3y/8A8co/4XXef3If++X/APjleq/8InZ/8+8P/flP/iaP+ETs/wDn3h/78p/8TQB4X/wm + s323+19qeb6YbZ/q/L6bs9Pfr+Vb/wDwuu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2 + f/PvD/35T/4mgDyr/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/ + 8TR/widn/wA+8P8A35T/AOJoA8q/4XXef3If++X/APjlH/C67z+5D/3y/wD8cr1X/hE7P/n3 + h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHK9V/ + 4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OUf8LrvP7kP/fL/ + APxyvVf+ETs/+feH/vyn/wATR/widn/z7w/9+U/+JoA8q/4XXef3If8Avl//AI5R/wALrvP7 + kP8A3y//AMcr1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/AN+U/wDiaAPKv+F13n9yH/vl/wD4 + 5R/wuu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35T/4mgDyr/hdd5/ch/wC+ + X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/AOJoA8S8 + UfEO48SRC3mWMKrhgUDA5AI7s3HzVoad8XbuwiS3RIisSKoJV84UADOHHPFeu/8ACJ2f/PvD + /wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A3y//AMco/wCF13n9yH/vl/8A45Xq + v/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C67z+5D/3y/wD8co/4XXef3If++X/+ + OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNAHlX/AAuu8/uQ/wDfL/8Axyj/AIXX + ef3If++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E0AeVf8LrvP7kP/fL/APxy + j/hdd5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE0AeVf8AC67z+5D/ + AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/w + uu8/uQ/98v8A/HKP+F13n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wAT + QB5V/wALrvP7kP8A3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCf + eH/vyn/xNAHlX/C67z+5D/3y/wD8crA8KeNZvDHmeQqN5u3PmBj93OMYZf7xr3T/AIROz/59 + 4f8Avyn/AMTR/wAInZ/8+8P/AH5T/wCJoA8q/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHK + 9V/4ROz/AOfeH/vyn/xNH/CJ2f8Az7w/9+U/+JoA8q/4XXef3If++X/+OUf8LrvP7kP/AHy/ + /wAcr1X/AIROz/594f8Avyn/AMTR/wAInZ/8+8P/AH5T/wCJoA8q/wCF13n9yH/vl/8A45R/ + wuu8/uQ/98v/APHK9V/4ROz/AOfeH/vyn/xNH/CJ2f8Az7w/9+U/+JoA8q/4XXef3If++X/+ + OUf8LrvP7kP/AHy//wAcr1X/AIROz/594f8Avyn/AMTR/wAInZ/8+8P/AH5T/wCJoA8q/wCF + 13n9yH/vl/8A45R/wuu8/uQ/98v/APHK9V/4ROz/AOfeH/vyn/xNH/CJ2f8Az7w/9+U/+JoA + 8q/4XXef3If++X/+OUf8LrvP7kP/AHy//wAcr1X/AIROz/594f8Avyn/AMTR/wAInZ/8+8P/ + AH5T/wCJoA8q/wCF13n9yH/vl/8A45R/wuu8/uQ/98v/APHK9V/4ROz/AOfeH/vyn/xNH/CJ + 2f8Az7w/9+U/+JoA8q/4XXef3If++X/+OVgav41m1W5i1CRUEkGzaFDBTscuMgsT1PPI4r3T + /hE7P/n3h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v + /wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OUf8Lrv + P7kP/fL/APxyvVf+ETs/+feH/vyn/wATR/widn/z7w/9+U/+JoA8q/4XXef3If8Avl//AI5R + /wALrvP7kP8A3y//AMcr1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/AN+U/wDiaAPKv+F13n9y + H/vl/wD45R/wuu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2f/PvD/35T/4mgDyr/hdd + 5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/8TR/widn/wA+8P8A35T/ + AOJoA8q/4XXef3If++X/APjlH/C67z+5D/3y/wD8cr1X/hE7P/n3h/78p/8AE0f8InZ/8+8P + /flP/iaAPKv+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/C + J2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OVn6/8AFC51uB7OVIgkm3JRXDfKwYYy5HUe + ley/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E0AeNaB8ULnRIEs4kiKR7sF1ct8zFjnDgd + T6Vof8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH + /vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAP + Kv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8TR/widn/AM+8P/fl + P/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f + /PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf+ETs/wDn3h/78p/8 + TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8AHK9V/wCETs/+feH/ + AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPKv8Ahdd5/ch/75f/AOOUf8LrvP7kP/fL/wDxyvVf + +ETs/wDn3h/78p/8TR/widn/AM+8P/flP/iaAPKv+F13n9yH/vl//jlH/C67z+5D/wB8v/8A + HK9V/wCETs/+feH/AL8p/wDE0f8ACJ2f/PvD/wB+U/8AiaAPFfhb/wAhGD/tp/6KevoCs+18 + PW1owlihiRxnDJGisMjBwQM9K0KACvKvjn/y6/8Abb/2nXqtVL7SYdQx58aSbc48xFbGcZxk + HGcCgDw/QPihc6JAlnEkRSPdgurlvmYsc4cDqfStD/hdd5/ch/75f/45Xqv/AAidn/z7w/8A + flP/AImj/hE7P/n3h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/w + idn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jle + q/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A3y//AMco/wCF13n9 + yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C67z+5D/3y/wD8co/4 + XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNAHlX/AAuu8/uQ/wDf + L/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/Kf/E0AeVf8Lrv + P7kP/fL/APxyj/hdd5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7P/n3h/78p/8AE0Ae + Vf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/ + 78p/8TQB4lonxDuNHlnuI1jLXT7nDBiAcseMMOPmPXPatj/hdd5/ch/75f8A+OV6r/widn/z + 7w/9+U/+Jo/4ROz/AOfeH/vyn/xNAHlX/C67z+5D/wB8v/8AHKP+F13n9yH/AL5f/wCOV6r/ + AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h/wC/Kf8AxNAHlX/C67z+5D/3y/8A8co/4XXef3If + ++X/APjleq/8InZ/8+8P/flP/iaP+ETs/wDn3h/78p/8TQB5V/wuu8/uQ/8AfL//AByj/hdd + 5/ch/wC+X/8Ajleq/wDCJ2f/AD7w/wDflP8A4mj/AIROz/594f8Avyn/AMTQB5V/wuu8/uQ/ + 98v/APHKP+F13n9yH/vl/wD45Xqv/CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E0AeVf8LrvP + 7kP/AHy//wAco/4XXef3If8Avl//AI5Xqv8Awidn/wA+8P8A35T/AOJo/wCETs/+feH/AL8p + /wDE0AeVf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OV6r/widn/z7w/9+U/+Jo/4ROz/AOfe + H/vyn/xNAHlX/C67z+5D/wB8v/8AHKP+F13n9yH/AL5f/wCOV6r/AMInZ/8APvD/AN+U/wDi + aP8AhE7P/n3h/wC/Kf8AxNAHiWt/EO41iWC4kWMNavuQKGAJyp5yx4+UdMd62P8Ahdd5/ch/ + 75f/AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13 + n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A3y// + AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHlX/C67z+5 + D/3y/wD8co/4XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJo/4ROz/594f+/Kf/ABNAHlX/ + AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDPvD/35T/4mj/hE7P/AJ94f+/K + f/E0AeVf8LrvP7kP/fL/APxyj/hdd5/ch/75f/45Xqv/AAidn/z7w/8AflP/AImj/hE7P/n3 + h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/AOOV6r/widn/AM+8P/flP/ia + P+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jleq/8ACJ2f/PvD/wB+ + U/8AiaP+ETs/+feH/vyn/wATQB5FqPxdu7+J7d0iCyoykhXzhgQcZc881X0D4oXOiQJZxJEU + j3YLq5b5mLHOHA6n0r2X/hE7P/n3h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f + /wCOUf8AC67z+5D/AN8v/wDHK9V/4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/h + dd5/ch/75f8A+OUf8LrvP7kP/fL/APxyvVf+ETs/+feH/vyn/wATR/widn/z7w/9+U/+JoA8 + q/4XXef3If8Avl//AI5R/wALrvP7kP8A3y//AMcr1X/hE7P/AJ94f+/Kf/E0f8InZ/8APvD/ + AN+U/wDiaAPKv+F13n9yH/vl/wD45R/wuu8/uQ/98v8A/HK9V/4ROz/594f+/Kf/ABNH/CJ2 + f/PvD/35T/4mgDyr/hdd5/ch/wC+X/8AjlH/AAuu8/uQ/wDfL/8AxyvVf+ETs/8An3h/78p/ + 8TR/widn/wA+8P8A35T/AOJoA8q/4XXef3If++X/APjlH/C67z+5D/3y/wD8cr1X/hE7P/n3 + h/78p/8AE0f8InZ/8+8P/flP/iaAPKv+F13n9yH/AL5f/wCOUf8AC67z+5D/AN8v/wDHK9V/ + 4ROz/wCfeH/vyn/xNH/CJ2f/AD7w/wDflP8A4mgDyr/hdd5/ch/75f8A+OVj23xDuLe7k1QL + H5sqBSCG2YAUcDdnPyDue9e2/wDCJ2f/AD7w/wDflP8A4mj/AIROz/594f8Avyn/AMTQB5V/ + wuu8/uQ/98v/APHKP+F13n9yH/vl/wD45Xqv/CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E0A + eVf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5Xqv8Awidn/wA+8P8A35T/AOJo/wCETs/+ + feH/AL8p/wDE0AeVf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OV6r/widn/z7w/9+U/+Jo/4 + ROz/AOfeH/vyn/xNAHlX/C67z+5D/wB8v/8AHKP+F13n9yH/AL5f/wCOV6r/AMInZ/8APvD/ + AN+U/wDiaP8AhE7P/n3h/wC/Kf8AxNAHlX/C67z+5D/3y/8A8co/4XXef3If++X/APjleq/8 + InZ/8+8P/flP/iaP+ETs/wDn3h/78p/8TQB5V/wuu8/uQ/8AfL//AByj/hdd5/ch/wC+X/8A + jleq/wDCJ2f/AD7w/wDflP8A4mj/AIROz/594f8Avyn/AMTQB5V/wuu8/uQ/98v/APHKP+F1 + 3n9yH/vl/wD45Xqv/CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E0AeVf8LrvP7kP/AHy//wAc + rH8UfEO48SRC3mWMKrhgUDA5AI7s3HzV7b/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB + 5V/wuu8/uQ/98v8A/HKP+F13n9yH/vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn + /wATQB5V/wALrvP7kP8A3y//AMco/wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz + /wCfeH/vyn/xNAHlX/C67z+5D/3y/wD8co/4XXef3If++X/+OV6r/wAInZ/8+8P/AH5T/wCJ + o/4ROz/594f+/Kf/ABNAHlX/AAuu8/uQ/wDfL/8Axyj/AIXXef3If++X/wDjleq/8InZ/wDP + vD/35T/4mj/hE7P/AJ94f+/Kf/E0AeVf8LrvP7kP/fL/APxyj/hdd5/ch/75f/45Xqv/AAid + n/z7w/8AflP/AImj/hE7P/n3h/78p/8AE0AeVf8AC67z+5D/AN8v/wDHKP8Ahdd5/ch/75f/ + AOOV6r/widn/AM+8P/flP/iaP+ETs/8An3h/78p/8TQB5V/wuu8/uQ/98v8A/HKP+F13n9yH + /vl//jleq/8ACJ2f/PvD/wB+U/8AiaP+ETs/+feH/vyn/wATQB5V/wALrvP7kP8A3y//AMco + /wCF13n9yH/vl/8A45Xqv/CJ2f8Az7w/9+U/+Jo/4ROz/wCfeH/vyn/xNAHiXhf4h3HhuI28 + KxlWcsS4YnJAHZl4+Wtj/hdd5/ch/wC+X/8Ajleq/wDCJ2f/AD7w/wDflP8A4mj/AIROz/59 + 4f8Avyn/AMTQB5V/wuu8/uQ/98v/APHKP+F13n9yH/vl/wD45Xqv/CJ2f/PvD/35T/4mj/hE + 7P8A594f+/Kf/E0AeVf8LrvP7kP/AHy//wAco/4XXef3If8Avl//AI5Xqv8Awidn/wA+8P8A + 35T/AOJo/wCETs/+feH/AL8p/wDE0AeVf8LrvP7kP/fL/wDxyj/hdd5/ch/75f8A+OV6r/wi + dn/z7w/9+U/+Jo/4ROz/AOfeH/vyn/xNAHlX/C67z+5D/wB8v/8AHKP+F13n9yH/AL5f/wCO + V6r/AMInZ/8APvD/AN+U/wDiaP8AhE7P/n3h/wC/Kf8AxNAHlX/C67z+5D/3y/8A8co/4XXe + f3If++X/APjleq/8InZ/8+8P/flP/iaP+ETs/wDn3h/78p/8TQB5V/wuu8/uQ/8AfL//AByj + /hdd5/ch/wC+X/8Ajleq/wDCJ2f/AD7w/wDflP8A4mj/AIROz/594f8Avyn/AMTQB5V/wuu8 + /uQ/98v/APHKP+F13n9yH/vl/wD45Xqv/CJ2f/PvD/35T/4mj/hE7P8A594f+/Kf/E0AeEaH + etf6jDcPgNLdoxA6ZaUE4znjmvo2syHwxaQsHSCIMpBBESAgjkEEDgitOgAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA + KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii + igAooooAKKKKACiiigAooooAKKKKACiiigAooooA/9k= + + + + + + + + Initial remote pilot employee record + + + + + One record is completed by the CRP for each RP before they first operate for {{organisation-name}}. + + + + + + Name + + + + + + + + ARN + + + + + + + + Contact details + + + + + + + + RePL number and category + + + + + + + + RePL issue date + + + + + + + + Aeronautical radio qualification + + + + + + + + Other aviation qualifications + + + + + + + + Accumulated RPA flight experience on engagement (hours, by category and type) + + + + + + + + Evidence sighted (licence, logbook, identification) + + + + + + + + Date engaged + + + + + + + + Date of last operation for {{organisation-name}} + + + + + + + + Verified by CRP (name, ARN, signature, date) + + + + + + + + + + + + Induction training record + + + + + + + + + + Trainee name and ARN + + + + + + + + RPA type + + + + + + + + + + + + + + + Training item + + + Date completed + + + Result (S / NS) + + + Trainer ARN and signature + + + + + + Appendix G1 – policy and procedure training (ground/theory) + + + + + + + + + + + + + + Appendix G2 – RPAS type training (ground/theory) + + + + + + + + + + + + + + Appendix G2 – RPAS type training (flight exercises) + + + + + + + + + + + + + + + Acknowledgement of operations manual version + + + + + + + + + + + + + + + + + + CRP certification that induction training is complete (name, ARN, signature, date) + + + + + + + + + + + + Continuation training record + + + + + + + + + + + + + + + Date + + + Name and ARN + + + RPA type + + + Training or proficiency activity + + + Result + + + Remedial action + + + CRP initials + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Observation flight record + + + + + + + + + + Date + + + + + + + + RP observed (name, ARN) + + + + + + + + Observer (CRP name, ARN) + + + + + + + + RPA type and serial number + + + + + + + + Location and Flight Record reference + + + + + + + + + + + + + + Item assessed + + + Satisfactory (Y / N) + + + Comments + + + + + + Planning and Flight Record + + + + + + + + + + + + Fitness for duty assessment and self-briefing + + + + + + + + + + + Daily and pre-flight inspection + + + + + + + + + + + Take-off and landing + + + + + + + + + + + Normal and manual (ATTI) flight control + + + + + + + + + + + VLOS, lookout and separation from people and aircraft + + + + + + + + + + + Emergency procedures (flown or talked through) + + + + + + + + + + + Post-flight administration and RPAS Technical Log + + + + + + + + + + + + + + + Overall result (competent / not yet competent) + + + + + + + + Corrective action required + + + + + + + + Signatures (RP, CRP) and date + + + + + + + + + + + + Safety occurrence reporting form + + + + + + + + + + Report number + + + + + + + + Date and time of occurrence + + + + + + + + Location + + + + + + + + Reported by (name, ARN) + + + + + + + + RPA type and serial number + + + + + + + + Flight Record reference + + + + + + + + Description of occurrence + + + + + + + + Injury to persons or damage to property or RPA + + + + + + + + + Immediate actions taken + + + + + + + + ATSB reportable? (immediately / within 72 hours / not reportable) + + + + + + + + ATSB notification reference, date and time + + + + + + + + Data, logs and components preserved + + + + + + + + CRP review – contributing factors + + + + + + + + Corrective and preventive actions + + + + + + + + Risk register review required? (Y / N) + + + + + + + + Closed by CRP (signature, date) + + + + + + + + + + + + Safety occurrence register + + + + + + + + + + + + + + + Report number + + + Date + + + Summary + + + ATSB reportable / reference + + + Corrective action + + + Date closed + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + RPA register + + + + + + + + + + + + + + Manufacturer + + + Model + + + Serial number + + + Maximum gross weight + + + Date entered service + + + Date removed from service + + + Remarks + + + + {{rpa-register-rows}} + + + + + Training syllabus and checking matrix + + + Policy and procedure training syllabus + + + + + Applicability: + + + All RPs and operational crew members. + + + + + + + + + Ground/theory + + + + + + + + + Knowledge of operations manual + + + Knowledge of normal operations: + + + Planning requirements (NAIPS, flight plans, NOTAMS, etc.) + + + Forms required for general operations (Section 2 in the operations manual) + + + Briefing requirements IAW pre-operations briefing form + + + Roles and responsibilities of assigned crew positions + + + Emergency procedures (Section 2 in the operations manual) + + + Conduct of job safety and risk management + + + Maintenance procedures and internal authorisations + + + Safety and risk management strategies and WHS issues + + + + + Crew coordination and support crew duties. + + + + + + + RPAS type training syllabus + + + + + Applicability: + + + RPs operating RPA type (all items) + + + Operational crewmembers handling RPA type (items relevant to role). + + + + + + + + + Ground/theory + + + + + + + + + Description of RPAS and components + + + Handling of RPAS and transportation + + + Handling and charging of LiPo batteries + + + Assembly/disassembly of the system, including camera + + + Detailed explanations on the use of the transmitter and operating frequencies and limitations + + + Flight controls, sound and light signals + + + Manual and reversionary modes + + + Pre-flight inspection + + + Problem-solving, fault analysis + + + Pre- and post-flight procedures + + + Crew management and responsibilities + + + Crew coordination (including use of standard phraseology) + + + Use of operating software + + + Use of ancillary equipment. + + + + + + + + + Flight exercises + + + + + + + + + Range check + + + Take-off and landing + + + Practical flight exercises (normal automatic control) + + + Practical flight exercises (backup manual control) + + + Automatic safety features + + + Camera operation + + + Emergency procedures (may talk through on relevant EPs that cannot be simulated safely during flight) + + + Safety, including familiarisation flight procedures (RP retains sole control). + + + + + + + Checking matrix + + + + + Table 13 sets out the training and checking events required by this manual. + Table 13: Training and checking matrix + + + + + + + + + Event + + + Applicability + + + When required + + + Conducted by + + + Record + + + + + + Induction training (G1 and G2) + + + All RPs and OCs + + + Before first operation + + + CRP + + + Form F4 + + + + + RPAS type training (G2) + + + RPs; OCs (items relevant to role) + + + Before operating a new RPA type + + + CRP or manufacturer + + + Form F4 + + + + + Recency proficiency flight + + + RPs not meeting Section 1.8 + + + Before the next operation + + + RP (supervised by CRP where available) + + + Form F5 and RP logbook + + + + + Refresher ground/theory training + + + RPs who have not operated the type for more than {{refresher-months}} + + + Before the proficiency flight + + + CRP + + + Form F5 + + + + + Observation flight (checking event) + + + All RPs and OCs + + + At least every {{checking-months}} + + + CRP + + + Form F6 + + + + + Operations manual acknowledgement + + + All personnel + + + Each new version + + + CRP + + + Acknowledgement record + + + + + Compliance audit + + + Organisation + + + At least annually and after an ATSB-reportable occurrence + + + CRP + + + Compliance audit record + + + + + + + diff --git a/test/DataGens.hs b/test/DataGens.hs new file mode 100644 --- /dev/null +++ b/test/DataGens.hs @@ -0,0 +1,839 @@ +{-# LANGUAGE DataKinds #-} +{-# OPTIONS_GHC -Wall #-} + +-- | Generators of the valid data types, built from the public interface. +module DataGens ( + genAustralianState, + genRPACategory, + genLikelihood, + genConsequence, + genRiskLevel, + genKeyPosition, + genBackupInterval, + genCourseType, + genComplexity, + genInstructorTakeover, + genTheoryDelivery, + genExamDelivery, + genFlightTestExaminer, + genDirectorship, + genRadioQualification, + genRemotePilots, + genCrewing, + genTransponder, + genVersionChange, + genPerson, + genAddress, + genOperationalHeadquarters, + genCompany, + genFlightTermination, + genEmergencyAction, + genRPAType, + genEquipment, + genAircraft, + genOperatedType, + genRePLOrigin, + genOtherReOCRoles, + genNominee, + genChiefExecutive, + genCRPNominee, + genChiefPilot, + genMCNominee, + genKeyPersonnel, + genOperator, + genContactPerson, + genPrimaryContact, + genHistoryAnswer, + genPersonnelHistory, + genRegulatoryAction, + genRegulatoryHistory, + genDeclarant, + genDeclaration, + genWrittenSignature, + genApplicationForm, + genVersion, + genFirstIssue, + genRevision, + genPolicies, + genRiskAssessment, + genRisk, + genOperationsManual, + genCRINominee, + genRePLHolding, + genTeachingQualification, + genOperationalExperience, + genTrainingCourse, + genTrainingArrangements, + genTrainingMaterial, + genReOC, + genField, + genInvalidValue, + genStep, + genUnfilled, + genInvalid, + genTooMany, + genReOCError, +) where + +import Control.Lens (review) +import Hedgehog (Gen) +import qualified Hedgehog.Gen as Gen +import qualified Hedgehog.Range as Range +import PrimitiveGens +import ReOC + +genAustralianState :: Gen AustralianState +genAustralianState = + Gen.choice + [ pure (review newSouthWales ()) + , pure (review victoria ()) + , pure (review queensland ()) + , pure (review westernAustralia ()) + , pure (review southAustralia ()) + , pure (review tasmania ()) + , pure (review australianCapitalTerritory ()) + , pure (review northernTerritory ()) + ] + +genRPACategory :: Gen RPACategory +genRPACategory = + Gen.choice + [ pure (review aeroplane ()) + , pure (review helicopter ()) + , pure (review multirotor ()) + , pure (review poweredLift ()) + ] + +genLikelihood :: Gen Likelihood +genLikelihood = + Gen.choice + [ pure (review frequent ()) + , pure (review occasional ()) + , pure (review remote ()) + , pure (review improbable ()) + , pure (review extremelyImprobable ()) + ] + +genConsequence :: Gen Consequence +genConsequence = + Gen.choice + [ pure (review catastrophic ()) + , pure (review hazardous ()) + , pure (review moderate ()) + , pure (review minor ()) + , pure (review negligible ()) + ] + +genRiskLevel :: Gen RiskLevel +genRiskLevel = + Gen.choice + [ pure (review high ()) + , pure (review medium ()) + , pure (review low ()) + ] + +genKeyPosition :: Gen KeyPosition +genKeyPosition = + Gen.choice + [ pure (review chiefExecutiveOfficer ()) + , pure (review chiefRemotePilot ()) + , pure (review maintenanceController ()) + ] + +genBackupInterval :: Gen BackupInterval +genBackupInterval = + Gen.choice + [ pure (review daily ()) + , pure (review weekly ()) + , pure (review monthly ()) + ] + +genCourseType :: Gen CourseType +genCourseType = + Gen.choice + [ pure (review initialCourse ()) + , pure (review upgradeSameCategory ()) + , pure (review upgradeDifferentCategory ()) + ] + +genComplexity :: Gen Complexity +genComplexity = + Gen.choice + [ pure (review automatedAndManual ()) + , pure (review automatedOnly ()) + ] + +genInstructorTakeover :: Gen InstructorTakeover +genInstructorTakeover = + Gen.choice + [ pure (review dualControllerLink ()) + , pure (review sharedController ()) + ] + +genTheoryDelivery :: Gen TheoryDelivery +genTheoryDelivery = + Gen.choice + [ pure (review classroomTheory ()) + , pure (review blendedTheory ()) + , pure (review onlineTheory ()) + ] + +genExamDelivery :: Gen ExamDelivery +genExamDelivery = + Gen.choice + [ pure (review paperExamination ()) + , pure (review computerExamination ()) + ] + +genFlightTestExaminer :: Gen FlightTestExaminer +genFlightTestExaminer = + Gen.choice + [ pure (review criConductsFlightTests ()) + , pure (review independentExaminerWhereAvailable ()) + ] + +genDirectorship :: Gen Directorship +genDirectorship = + Gen.choice + [ pure (review soleDirector ()) + , pure (review director ()) + , pure (review notADirector ()) + ] + +genRadioQualification :: Gen RadioQualification +genRadioQualification = + Gen.choice + [ pure (review flightCrewLicence ()) + , pure (review radioOperatorCertificate ()) + , pure (review noRadioQualification ()) + ] + +genRemotePilots :: Gen RemotePilots +genRemotePilots = + Gen.choice + [ pure (review crpIsOnlyRemotePilot ()) + , pure (review otherRemotePilots ()) + ] + +genCrewing :: Gen Crewing +genCrewing = + Gen.choice + [ pure (review soloOperationsOnly ()) + , pure (review soloAndMultiCrewOperations ()) + ] + +genTransponder :: Gen Transponder +genTransponder = + Gen.choice + [ pure (review noTransponder ()) + , pure (review transponderFitted ()) + ] + +genVersionChange :: Gen VersionChange +genVersionChange = + Gen.choice + [ pure (review majorRevision ()) + , pure (review minorRevision ()) + ] + +genPerson :: Gen Person +genPerson = + Person' + <$> genFormText + <*> genARN + <*> genPhoneNumber + <*> genEmailAddress + +genAddress :: Gen Address +genAddress = + Address' + <$> Gen.nonEmpty (Range.linear 1 2) genText1 + <*> genText1 + <*> genAustralianState + <*> genPostcode + +genOperationalHeadquarters :: Gen OperationalHeadquarters +genOperationalHeadquarters = + Gen.choice + [ pure (review atRegisteredOffice ()) + , review operationalHeadquartersAddress <$> genAddress + ] + +genCompany :: Gen Company +genCompany = + Company' + <$> genFormText + <*> genABN + <*> genARN + <*> genAddress + <*> genOperationalHeadquarters + <*> genPhoneNumber + <*> genEmailAddress + <*> Gen.maybe genFormText + +genFlightTermination :: Gen FlightTermination +genFlightTermination = + Gen.choice + [ pure (review noFlightTerminationSystem ()) + , review flightTerminationSystem <$> genText1 + ] + +genEmergencyAction :: Gen EmergencyAction +genEmergencyAction = + EmergencyAction' + <$> genText1 + <*> genText1 + <*> Gen.list (Range.linear 0 2) genText1 + +genRPAType :: Gen RPAType +genRPAType = + RPAType' + <$> genText1 + <*> genText1 + <*> genFormText + <*> genRPACategory + <*> genGrossWeight + <*> genText1 + <*> genTransponder + <*> genFlightTermination + <*> Gen.nonEmpty (Range.linear 1 2) genText1 + <*> Gen.list (Range.linear 0 2) genText1 + <*> Gen.maybe genText1 + <*> Gen.list (Range.linear 0 2) genEmergencyAction + +genEquipment :: Gen Equipment +genEquipment = + Equipment' + <$> genText1 + <*> genText1 + +genAircraft :: Gen Aircraft +genAircraft = + Aircraft' + <$> genText1 + <*> Gen.list (Range.linear 0 2) genEquipment + +genOperatedType :: Gen OperatedType +genOperatedType = + OperatedType' + <$> genRPAType + <*> Gen.nonEmpty (Range.linear 1 2) genAircraft + +genRePLOrigin :: Gen RePLOrigin +genRePLOrigin = + Gen.choice + [ pure (review pplTheory ()) + , review rePLTrainingOrganisation <$> genFormText + ] + +genOtherReOCRoles :: Gen OtherReOCRoles +genOtherReOCRoles = + Gen.choice + [ pure (review noOtherReOCRoles ()) + , review otherReOCRolesHeld <$> genFormText + ] + +genNominee :: Gen Nominee +genNominee = + Nominee' + <$> genPerson + <*> Gen.list (Range.linear 0 2) genText1 + <*> genText1 + +genChiefExecutive :: Gen ChiefExecutive +genChiefExecutive = + ChiefExecutive' + <$> genNominee + <*> genDirectorship + <*> Gen.maybe genFormText + +genCRPNominee :: Gen CRPNominee +genCRPNominee = + Gen.choice + [ pure (review crpIsCEO ()) + , review crpNominated <$> genNominee + ] + +genChiefPilot :: Gen ChiefPilot +genChiefPilot = + ChiefPilot' + <$> genCRPNominee + <*> genRePLOrigin + <*> genFormText + <*> genOtherReOCRoles + <*> genRadioQualification + +genMCNominee :: Gen MCNominee +genMCNominee = + Gen.choice + [ pure (review mcIsCEO ()) + , pure (review mcIsCRP ()) + , review mcNominated <$> genNominee + ] + +genKeyPersonnel :: Gen KeyPersonnel +genKeyPersonnel = + KeyPersonnel' + <$> genChiefExecutive + <*> genChiefPilot + <*> genMCNominee + +genOperator :: Gen Operator +genOperator = + Operator' + <$> genCompany + <*> genKeyPersonnel + <*> genSome genOperatedType + +genContactPerson :: Gen ContactPerson +genContactPerson = + ContactPerson' + <$> genFormText + <*> genFormText + <*> genPhoneNumber + <*> genEmailAddress + +genPrimaryContact :: Gen PrimaryContact +genPrimaryContact = + Gen.choice + [ pure (review applicantIsPrimaryContact ()) + , review primaryContactPerson <$> genContactPerson + ] + +genHistoryAnswer :: Gen HistoryAnswer +genHistoryAnswer = + Gen.choice + [ pure (review noHistory ()) + , review historyDisclosed <$> genFormText + ] + +genPersonnelHistory :: Gen PersonnelHistory +genPersonnelHistory = + PersonnelHistory' + <$> genHistoryAnswer + <*> genHistoryAnswer + <*> genHistoryAnswer + <*> genHistoryAnswer + +genRegulatoryAction :: Gen RegulatoryAction +genRegulatoryAction = + RegulatoryAction' + <$> Gen.bool + <*> genFormText + <*> genFormText + <*> genDay + <*> genFormText + +genRegulatoryHistory :: Gen RegulatoryHistory +genRegulatoryHistory = + Gen.choice + [ pure (review noRegulatoryAction ()) + , review regulatoryActionTaken <$> genRegulatoryAction + ] + +genDeclarant :: Gen Declarant +genDeclarant = + Declarant' + <$> genFormText + <*> genFormText + +genDeclaration :: Gen Declaration +genDeclaration = + Gen.choice + [ pure (review declaredByCEO ()) + , review declaredByResponsibleManager <$> genFormText + , review declaredByAgent <$> genFormText + , review declaredByOther <$> genDeclarant + ] + +genWrittenSignature :: Gen WrittenSignature +genWrittenSignature = + Gen.choice + [ review writtenSignatureImage <$> genByteString + , review writtenSignatureFile <$> genFilePath + ] + +genApplicationForm :: Gen ApplicationForm +genApplicationForm = + ApplicationForm' + <$> genPrimaryContact + <*> genPersonnelHistory + <*> genRegulatoryHistory + <*> Gen.bool + <*> genAtMost genFormText + <*> genDeclaration + <*> Gen.maybe genWrittenSignature + +genVersion :: Gen Version +genVersion = + Version' + <$> genNatural + <*> genNatural + +genFirstIssue :: Gen FirstIssue +genFirstIssue = + FirstIssue' + <$> genVersion + <*> genMonth + <*> genText1 + <*> genText1 + <*> genText1 + +genRevision :: Gen Revision +genRevision = + Revision' + <$> genVersionChange + <*> genNatural + <*> genText1 + <*> genText1 + <*> genText1 + +genPolicies :: Gen Policies +genPolicies = + Policies' + <$> genPositive + <*> genPositive + <*> genPositive + <*> genPositive + <*> genPositive + <*> genPositive + <*> genPositive + <*> genPositive + <*> genPercentage + <*> genBackupInterval + <*> genPositive + <*> genPositive + +genRiskAssessment :: Gen RiskAssessment +genRiskAssessment = + RiskAssessment' + <$> genLikelihood + <*> genConsequence + +genRisk :: Gen Risk +genRisk = + Risk' + <$> genText1 + <*> genText1 + <*> genText1 + <*> genRiskAssessment + <*> genText1 + <*> genRiskAssessment + <*> genKeyPosition + <*> genMonth + <*> genReviewMonths + +genOperationsManual :: Gen OperationsManual +genOperationsManual = + OperationsManual' + <$> genFirstIssue + <*> Gen.list (Range.linear 0 2) genRevision + <*> Gen.nonEmpty (Range.linear 1 2) genText1 + <*> genPolicies + <*> Gen.nonEmpty (Range.linear 1 2) genRisk + <*> genCrewing + <*> genRemotePilots + +genCRINominee :: Gen CRINominee +genCRINominee = + Gen.choice + [ pure (review criIsCEO ()) + , pure (review criIsCRP ()) + , pure (review criIsMC ()) + , review criNominated <$> genNominee + ] + +genRePLHolding :: Gen RePLHolding +genRePLHolding = + Gen.choice + [ pure (review holdsRePLForEachType ()) + , review rePLHoldingIntent <$> genFormText + ] + +genTeachingQualification :: Gen TeachingQualification +genTeachingQualification = + Gen.choice + [ review teachingQualificationHeld <$> genFormText + , review teachingQualificationIntent <$> genFormText + ] + +genOperationalExperience :: Gen OperationalExperience +genOperationalExperience = + Gen.choice + [ pure (review hasOperationalExperience ()) + , review operationalExperienceIntent <$> genFormText + , pure (review operationalExperienceNotApplicable ()) + ] + +genTrainingCourse :: Gen TrainingCourse +genTrainingCourse = + TrainingCourse' + <$> genCourseType + <*> genOperatedType + <*> Gen.nonEmpty (Range.linear 1 2) genComplexity + +genTrainingArrangements :: Gen TrainingArrangements +genTrainingArrangements = + TrainingArrangements' + <$> Gen.nonEmpty (Range.linear 1 2) genText1 + <*> Gen.nonEmpty (Range.linear 1 2) genText1 + <*> genPositive + <*> genPositive + <*> genInstructorTakeover + <*> genTheoryDelivery + <*> genExamDelivery + <*> genPassMark + <*> genFlightTestExaminer + <*> Gen.maybe genText1 + +genTrainingMaterial :: Gen TrainingMaterial +genTrainingMaterial = + TrainingMaterial' + <$> genCRINominee + <*> genRePLHolding + <*> genTeachingQualification + <*> genOperationalExperience + <*> genOtherReOCRoles + <*> genSome genTrainingCourse + <*> genTrainingArrangements + +genReOC :: Gen ReOC +genReOC = + ReOC' + <$> genOperator + <*> genApplicationForm + <*> genOperationsManual + <*> Gen.maybe genTrainingMaterial + +genField :: Gen Field +genField = + Gen.choice + [ pure (review personFullName ()) + , pure (review personArn ()) + , pure (review personPhoneNumber ()) + , pure (review personEmailAddress ()) + , pure (review addressStreetAddress ()) + , pure (review addressSuburb ()) + , pure (review addressStateOrTerritory ()) + , pure (review addressPostcode ()) + , pure (review operationalHeadquartersAtRegisteredOffice ()) + , pure (review operationalHeadquartersOperationalHeadquartersAddress ()) + , pure (review companyCompanyName ()) + , pure (review companyAbn ()) + , pure (review companyArn ()) + , pure (review companyRegisteredOffice ()) + , pure (review companyOperationalHeadquarters ()) + , pure (review companyPhoneNumber ()) + , pure (review companyEmailAddress ()) + , pure (review companyBusinessName ()) + , pure (review flightTerminationNoFlightTerminationSystem ()) + , pure (review flightTerminationFlightTerminationSystem ()) + , pure (review emergencyActionSituation ()) + , pure (review emergencyActionResponse ()) + , pure (review emergencyActionActionSteps ()) + , pure (review rpaTypeRpaMake ()) + , pure (review rpaTypeRpaModel ()) + , pure (review rpaTypeShortName ()) + , pure (review rpaTypeCategory ()) + , pure (review rpaTypeMaximumGrossWeight ()) + , pure (review rpaTypeUserManual ()) + , pure (review rpaTypeTransponderCarriage ()) + , pure (review rpaTypeFlightTermination ()) + , pure (review rpaTypeInspectionItems ()) + , pure (review rpaTypeBeforeFlight ()) + , pure (review rpaTypeBatteryWarnings ()) + , pure (review rpaTypeEmergencyActions ()) + , pure (review equipmentEquipmentDescription ()) + , pure (review equipmentSerialNumber ()) + , pure (review aircraftSerialNumber ()) + , pure (review aircraftAssociatedEquipment ()) + , pure (review operatedTypeRpaType ()) + , pure (review operatedTypeAirframes ()) + , pure (review rePLOriginPplTheory ()) + , pure (review rePLOriginRePLTrainingOrganisation ()) + , pure (review otherReOCRolesNoOtherReOCRoles ()) + , pure (review otherReOCRolesOtherReOCRolesHeld ()) + , pure (review nomineePerson ()) + , pure (review nomineeOtherQualifications ()) + , pure (review nomineeAviationExperience ()) + , pure (review chiefExecutiveNominee ()) + , pure (review chiefExecutiveDirectorStatus ()) + , pure (review chiefExecutiveManagementExperience ()) + , pure (review crpNomineeCrpIsCEO ()) + , pure (review crpNomineeCrpNominated ()) + , pure (review chiefPilotCrpNominee ()) + , pure (review chiefPilotRePLOrigin ()) + , pure (review chiefPilotRpaHistory ()) + , pure (review chiefPilotOtherReOCRoles ()) + , pure (review chiefPilotRadio ()) + , pure (review mcNomineeMcIsCEO ()) + , pure (review mcNomineeMcIsCRP ()) + , pure (review mcNomineeMcNominated ()) + , pure (review keyPersonnelChiefExecutive ()) + , pure (review keyPersonnelChiefPilot ()) + , pure (review keyPersonnelMcNominee ()) + , pure (review operatorCompany ()) + , pure (review operatorKeyPersonnel ()) + , pure (review operatorFleet ()) + , pure (review contactPersonFullName ()) + , pure (review contactPersonPosition ()) + , pure (review contactPersonPhoneNumber ()) + , pure (review contactPersonEmailAddress ()) + , pure (review primaryContactApplicantIsPrimaryContact ()) + , pure (review primaryContactPrimaryContactPerson ()) + , pure (review historyAnswerNoHistory ()) + , pure (review historyAnswerHistoryDisclosed ()) + , pure (review personnelHistoryActionTaken ()) + , pure (review personnelHistoryTransportLicenceRefused ()) + , pure (review personnelHistoryCriminalConviction ()) + , pure (review personnelHistorySuspensionPending ()) + , pure (review regulatoryActionReocSuspendedOrCancelled ()) + , pure (review regulatoryActionTypeOfAction ()) + , pure (review regulatoryActionAuthorisationAction ()) + , pure (review regulatoryActionActionDate ()) + , pure (review regulatoryActionActionDetails ()) + , pure (review regulatoryHistoryNoRegulatoryAction ()) + , pure (review regulatoryHistoryRegulatoryActionTaken ()) + , pure (review declarantFullName ()) + , pure (review declarantRole ()) + , pure (review declarationDeclaredByCEO ()) + , pure (review declarationDeclaredByResponsibleManager ()) + , pure (review declarationDeclaredByAgent ()) + , pure (review declarationDeclaredByOther ()) + , pure (review writtenSignatureWrittenSignatureImage ()) + , pure (review writtenSignatureWrittenSignatureFile ()) + , pure (review applicationFormPrimaryContact ()) + , pure (review applicationFormPersonnelHistory ()) + , pure (review applicationFormRegulatoryHistory ()) + , pure (review applicationFormProceduresLibrary ()) + , pure (review applicationFormOtherDocuments ()) + , pure (review applicationFormDeclaration ()) + , pure (review applicationFormSignature ()) + , pure (review versionMajorVersion ()) + , pure (review versionMinorVersion ()) + , pure (review firstIssueVersion ()) + , pure (review firstIssueIssueDate ()) + , pure (review firstIssueEffective ()) + , pure (review firstIssueParts ()) + , pure (review firstIssueDetails ()) + , pure (review revisionVersionIncrement ()) + , pure (review revisionMonthsAfter ()) + , pure (review revisionEffective ()) + , pure (review revisionParts ()) + , pure (review revisionDetails ()) + , pure (review policiesRecencyFlights ()) + , pure (review policiesRecencyDays ()) + , pure (review policiesRefresherMonths ()) + , pure (review policiesAlcoholHours ()) + , pure (review policiesRestHours ()) + , pure (review policiesDutyHours ()) + , pure (review policiesInspectionMonths ()) + , pure (review policiesInspectionHours ()) + , pure (review policiesBatteryReserve ()) + , pure (review policiesBackupFrequency ()) + , pure (review policiesIndependentReviewYears ()) + , pure (review policiesCheckingMonths ()) + , pure (review riskAssessmentRiskLikelihood ()) + , pure (review riskAssessmentRiskConsequence ()) + , pure (review riskHazard ()) + , pure (review riskRiskDescription ()) + , pure (review riskExistingControls ()) + , pure (review riskInitialRisk ()) + , pure (review riskAdditionalControls ()) + , pure (review riskResidualRisk ()) + , pure (review riskRiskOwner ()) + , pure (review riskDateEntered ()) + , pure (review riskReviewMonths ()) + , pure (review operationsManualFirstIssue ()) + , pure (review operationsManualRevisions ()) + , pure (review operationsManualServices ()) + , pure (review operationsManualPolicies ()) + , pure (review operationsManualRiskRegister ()) + , pure (review operationsManualCrew ()) + , pure (review operationsManualPilots ()) + , pure (review criNomineeCriIsCEO ()) + , pure (review criNomineeCriIsCRP ()) + , pure (review criNomineeCriIsMC ()) + , pure (review criNomineeCriNominated ()) + , pure (review rePLHoldingHoldsRePLForEachType ()) + , pure (review rePLHoldingRePLHoldingIntent ()) + , pure (review teachingQualificationTeachingQualificationHeld ()) + , pure (review teachingQualificationTeachingQualificationIntent ()) + , pure (review operationalExperienceHasOperationalExperience ()) + , pure (review operationalExperienceOperationalExperienceIntent ()) + , pure (review operationalExperienceOperationalExperienceNotApplicable ()) + , pure (review trainingCourseCourseKind ()) + , pure (review trainingCourseTrainingRPA ()) + , pure (review trainingCourseComplexities ()) + , pure (review trainingArrangementsTheoryVenues ()) + , pure (review trainingArrangementsPracticalAreas ()) + , pure (review trainingArrangementsMaxStudentsPerCourse ()) + , pure (review trainingArrangementsMaxStudentsPerInstructor ()) + , pure (review trainingArrangementsTakeover ()) + , pure (review trainingArrangementsTheory ()) + , pure (review trainingArrangementsExam ()) + , pure (review trainingArrangementsExamPassMark ()) + , pure (review trainingArrangementsExaminer ()) + , pure (review trainingArrangementsSimulator ()) + , pure (review trainingMaterialCriNominee ()) + , pure (review trainingMaterialRePLHolding ()) + , pure (review trainingMaterialTeachingQualification ()) + , pure (review trainingMaterialOperationalExperience ()) + , pure (review trainingMaterialCriOtherReOCRoles ()) + , pure (review trainingMaterialTrainingCourses ()) + , pure (review trainingMaterialTrainingArrangements ()) + , pure (review reOCOperator ()) + , pure (review reOCApplicationForm ()) + , pure (review reOCOperationsManual ()) + , pure (review reOCMaybeTrainingMaterial ()) + ] + +genInvalidValue :: Gen InvalidValue +genInvalidValue = + Gen.choice + [ review invalidText1 <$> genText + , review invalidFormText <$> genText + , review invalidABN <$> genText + , review invalidARN <$> genText + , review invalidEmailAddress <$> genText + , review invalidPhoneNumber <$> genText + , review invalidPostcode <$> genText + , review invalidPositive <$> genNatural + , review invalidPercentage <$> genNatural + , review invalidGrossWeight <$> genNatural + , review invalidReviewMonths <$> genNatural + , review invalidPassMark <$> genNatural + ] + +genStep :: Gen Step +genStep = + Gen.choice + [ review field <$> genField + , review stepIndex <$> genNatural + ] + +genUnfilled :: Gen Unfilled +genUnfilled = + Unfilled + <$> Gen.list (Range.linear 0 2) genStep + +genInvalid :: Gen Invalid +genInvalid = + Invalid + <$> Gen.list (Range.linear 0 2) genStep + <*> genInvalidValue + +genTooMany :: Gen TooMany +genTooMany = + TooMany + <$> Gen.list (Range.linear 0 2) genStep + <*> genNatural + <*> genNatural + +genReOCError :: Gen ReOCError +genReOCError = + Gen.choice + [ review unfilled <$> genUnfilled + , review invalid <$> genInvalid + , review tooMany <$> genTooMany + ] diff --git a/test/FormFields.hs b/test/FormFields.hs new file mode 100644 --- /dev/null +++ b/test/FormFields.hs @@ -0,0 +1,474 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +{- | The fields of CASA Form 101-02, from @pdftk dump_data_fields@ of the blank +form: each text field, and each button with the values that check it; and the +box of each text field, from the form: its font, the width that text can use +(its width, less 3 points each side) and the number of lines it shows (at a +leading of 12.3 points, less 6 points of margin). +-} +module FormFields ( + formFields, + textBoxes, +) where + +import Data.Map (Map) +import qualified Data.Map as Map +import Data.Text (Text) +import ReOC (FormFont (..)) + +-- | The fields of the form: @Nothing@ for a text field, and the values that check a button. +formFields :: Map Text (Maybe [Text]) +formFields = + Map.fromList + [ ("Q1 Applicant Full Name", Nothing) + , ("Q1 Applicant ARN", Nothing) + , ("Q1 ReOC number", Nothing) + , ("Q1 Phone number", Nothing) + , ("Q1 email address", Nothing) + , ("Q2 Check No", Just ["No"]) + , ("Q2 Check Yes", Just ["Yes"]) + , ("Q3 contact full name", Nothing) + , ("Q3 contact position", Nothing) + , ("Q3 Contact Phone number", Nothing) + , ("Q3 contact email", Nothing) + , ("Q4 application type 1", Just ["Initial issue"]) + , ("Q4 application type 2", Just ["Variation"]) + , ("Q4 application type 3", Just ["Renewal with change"]) + , ("Q4 application type 4", Just ["Renewal with no change"]) + , ("Q5 Check 1", Just ["No"]) + , ("Q5 Check 2", Just ["Add new"]) + , ("Q5 Check 3", Just ["Remove existing"]) + , ("Q6 registered Business name", Nothing) + , ("Q7 CEO/Responsible Manager Full Name", Nothing) + , ("Q7 CEO/Responsible Manager ARN", Nothing) + , ("Q7 CEO/Responsible Manager Phone number", Nothing) + , ("Q7 CEO/Responsible Manager email", Nothing) + , ("Q7 Multiline", Nothing) + , ("Q8 Chief Remote Pilot Full Name", Nothing) + , ("Q8 Chief Remote Pilot ARN", Nothing) + , ("Q8 Phone number", Nothing) + , ("Q8 email", Nothing) + , ("Q9 option 1", Just ["PPL Theory"]) + , ("Q9 option 2", Just ["RePL Training"]) + , ("Q9 RePL Training organisation name", Nothing) + , ("Q10 Multiline", Nothing) + , ("Q11 Check No", Just ["No"]) + , ("Q11 Check Yes", Just ["Yes"]) + , ("Q11 Multiline", Nothing) + , ("Q12 Maintenance Controller Full Name", Nothing) + , ("Q12 Maintenance Controller ARN", Nothing) + , ("Q12 Phone number", Nothing) + , ("Q12 email", Nothing) + , ("Q13 Chief RePL Instructor Full Name", Nothing) + , ("Q13 Chief RePL Instructor ARN", Nothing) + , ("Q13 Phone number", Nothing) + , ("Q13 email", Nothing) + , ("Q14 Check No", Just ["No"]) + , ("Q14 Check Yes", Just ["Yes"]) + , ("Q15 Check No", Just ["No"]) + , ("Q15 Check Yes", Just ["Yes"]) + , ("Q15 Provide details of qualifications", Nothing) + , ("Q16 Check No", Just ["No"]) + , ("Q16 Check Yes", Just ["Yes"]) + , ("Q16 Check Not applicable ", Just ["Not applicable"]) + , ("Q17 Multiline", Nothing) + , ("Q18 Check No", Just ["No"]) + , ("Q18 Check yes", Just ["Yes"]) + , ("Q18 Multiline", Nothing) + , ("Q19 Check No", Just ["No"]) + , ("Q19 Check Yes", Just ["Yes"]) + , ("Q20 Check No", Just ["No"]) + , ("Q20 Check Yes", Just ["Yes"]) + , ("Q21 Check No", Just ["No"]) + , ("Q21 Check Yes", Just ["Yes"]) + , ("Q22 Check No", Just ["No"]) + , ("Q22 Check Yes", Just ["Yes"]) + , ("Q23 Multiline", Nothing) + , ("Q24 Check No", Just ["No"]) + , ("Q24 Check Yes", Just ["Yes"]) + , ("Q25 Check No", Just ["No"]) + , ("Q25 Check Yes", Just ["Yes"]) + , ("Q26 Multiline", Nothing) + , ("Q26 type of action", Nothing) + , ("Q26 Type of authorisation action taken against you", Nothing) + , ("Q26 Date the action was taken - Day", Nothing) + , ("Q26 Date the action was taken - Month", Nothing) + , ("Q26 Date the action was taken - Year", Nothing) + , ("Q27 check 1", Just ["Yes"]) + , ("Q27 check 2", Just ["Yes"]) + , ("Q27 cell 1", Nothing) + , ("Q27 cell 2", Nothing) + , ("Q27 cell 3", Nothing) + , ("Q27 check 3", Just ["Yes"]) + , ("Q27 check 4", Just ["Yes"]) + , ("Q27 cell 4", Nothing) + , ("Q27 cell 5", Nothing) + , ("Q27 cell 6", Nothing) + , ("Q27 check 5", Just ["Yes"]) + , ("Q27 check 6", Just ["Yes"]) + , ("Q27 cell 7", Nothing) + , ("Q27 cell 8", Nothing) + , ("Q27 cell 9", Nothing) + , ("Q27 check 7", Just ["Yes"]) + , ("Q27 check 8", Just ["Yes"]) + , ("Q27 cell 10", Nothing) + , ("Q27 cell 11", Nothing) + , ("Q27 cell 12", Nothing) + , ("Q27 check 9", Just ["Yes"]) + , ("Q27 check 10", Just ["Yes"]) + , ("Q27 cell 13", Nothing) + , ("Q27 cell 14", Nothing) + , ("Q27 cell 15", Nothing) + , ("Q27 check 11", Just ["Yes"]) + , ("Q27 check 12", Just ["Yes"]) + , ("Q27 cell 16", Nothing) + , ("Q27 cell 17", Nothing) + , ("Q27 cell 18", Nothing) + , ("Q27 check 13", Just ["Yes"]) + , ("Q27 check 14", Just ["Yes"]) + , ("Q27 cell 19", Nothing) + , ("Q27 cell 20", Nothing) + , ("Q27 cell 21", Nothing) + , ("Q27 check 15", Just ["Yes"]) + , ("Q27 check 16", Just ["Yes"]) + , ("Q27 cell 22", Nothing) + , ("Q27 cell 23", Nothing) + , ("Q27 cell 24", Nothing) + , ("Q27 check 17", Just ["Yes"]) + , ("Q27 check 18", Just ["Yes"]) + , ("Q27 cell 25", Nothing) + , ("Q27 cell 26", Nothing) + , ("Q27 cell 27", Nothing) + , ("Q27 check 19", Just ["Yes"]) + , ("Q27 check 20", Just ["Yes"]) + , ("Q27 cell 28", Nothing) + , ("Q27 cell 29", Nothing) + , ("Q27 cell 30", Nothing) + , ("Q27 check 21", Just ["Yes"]) + , ("Q27 check 22", Just ["Yes"]) + , ("Q27 cell 31", Nothing) + , ("Q27 cell 32", Nothing) + , ("Q27 cell 33", Nothing) + , ("Q27 check 23", Just ["Yes"]) + , ("Q27 check 24", Just ["Yes"]) + , ("Q27 cell 34", Nothing) + , ("Q27 cell 35", Nothing) + , ("Q27 cell 36", Nothing) + , ("Q27 check 25", Just ["Yes"]) + , ("Q27 check 26", Just ["Yes"]) + , ("Q27 cell 37", Nothing) + , ("Q27 cell 38", Nothing) + , ("Q27 cell 39", Nothing) + , ("Q27 check 27", Just ["Yes"]) + , ("Q27 check 28", Just ["Yes"]) + , ("Q27 cell 40", Nothing) + , ("Q27 cell 41", Nothing) + , ("Q27 cell 42", Nothing) + , ("Q27 check 29", Just ["Yes"]) + , ("Q27 check 30", Just ["Yes"]) + , ("Q27 cell 43", Nothing) + , ("Q27 cell 44", Nothing) + , ("Q27 cell 45", Nothing) + , ("Q27 check 31", Just ["Yes"]) + , ("Q27 check 32", Just ["Yes"]) + , ("Q27 cell 46", Nothing) + , ("Q27 cell 47", Nothing) + , ("Q27 cell 48", Nothing) + , ("Q27 check 33", Just ["Yes"]) + , ("Q27 check 34", Just ["Yes"]) + , ("Q27 cell 49", Nothing) + , ("Q27 cell 50", Nothing) + , ("Q27 cell 51", Nothing) + , ("Q28 Check No", Just ["No"]) + , ("Q28 Check Yes", Just ["Yes"]) + , ("Q29 check 1", Just ["add"]) + , ("Q29 check 2", Just ["Yes"]) + , ("Q29 check 3", Just ["Yes"]) + , ("Q29 check 4", Just ["Yes"]) + , ("Q29 check 5", Just ["Yes"]) + , ("Q29 check 6", Just ["Yes"]) + , ("Q29 check 7", Just ["Yes"]) + , ("Q29 check 8", Just ["Yes"]) + , ("Q29 check 9", Just ["Yes"]) + , ("Q29 check 10", Just ["Yes"]) + , ("Q29 check 11", Just ["Yes"]) + , ("Q29 check 12", Just ["Yes"]) + , ("Q29 check 13", Just ["Yes"]) + , ("Q29 cell 1", Nothing) + , ("Q29 check 14", Just ["Yes"]) + , ("Q29 check 15", Just ["Yes"]) + , ("Q29 check 16", Just ["Yes"]) + , ("Q29 check 17", Just ["Yes"]) + , ("Q29 check 18", Just ["Yes"]) + , ("Q29 check 19", Just ["Yes"]) + , ("Q29 check 20", Just ["Yes"]) + , ("Q29 check 21", Just ["Yes"]) + , ("Q29 check 22", Just ["Yes"]) + , ("Q29 check 23", Just ["Yes"]) + , ("Q29 check 24", Just ["Yes"]) + , ("Q29 check 25", Just ["Yes"]) + , ("Q29 check 26", Just ["Yes"]) + , ("Q29 check 27", Just ["Yes"]) + , ("Q29 check 28", Just ["Yes"]) + , ("Q29 check 29", Just ["Yes"]) + , ("Q29 cell 2", Nothing) + , ("Q29 check 30", Just ["Yes"]) + , ("Q29 check 31", Just ["Yes"]) + , ("Q29 check 32", Just ["Yes"]) + , ("Q29 check 33", Just ["Yes"]) + , ("Q29 check 34", Just ["Yes"]) + , ("Q29 check 35", Just ["Yes"]) + , ("Q29 check 36", Just ["Yes"]) + , ("Q29 check 37", Just ["Yes"]) + , ("Q29 check 38", Just ["Yes"]) + , ("Q29 check 39", Just ["Yes"]) + , ("Q29 check 40", Just ["Yes"]) + , ("Q29 check 41", Just ["Yes"]) + , ("Q29 check 42", Just ["Yes"]) + , ("Q29 check 43", Just ["Yes"]) + , ("Q29 check 44", Just ["Yes"]) + , ("Q29 check 45", Just ["Yes"]) + , ("Q29 cell 3", Nothing) + , ("Q29 check 46", Just ["Yes"]) + , ("Q29 check 47", Just ["Yes"]) + , ("Q29 check 48", Just ["Yes"]) + , ("Q29 check 49", Just ["Yes"]) + , ("Q29 check 50", Just ["Yes"]) + , ("Q29 check 51", Just ["Yes"]) + , ("Q29 check 52", Just ["Yes"]) + , ("Q29 check 53", Just ["Yes"]) + , ("Q29 check 54", Just ["Yes"]) + , ("Q29 check 55", Just ["Yes"]) + , ("Q29 check 56", Just ["Yes"]) + , ("Q29 check 57", Just ["Yes"]) + , ("Q29 check 58", Just ["Yes"]) + , ("Q29 check 59", Just ["Yes"]) + , ("Q29 check 60", Just ["Yes"]) + , ("Q29 check 61", Just ["Yes"]) + , ("Q29 cell 4", Nothing) + , ("Q29 check 62", Just ["Yes"]) + , ("Q29 check 63", Just ["Yes"]) + , ("Q29 check 64", Just ["Yes"]) + , ("Q29 check 65", Just ["Yes"]) + , ("Q29 check 66", Just ["Yes"]) + , ("Q29 check 67", Just ["Yes"]) + , ("Q29 check 68", Just ["Yes"]) + , ("Q29 check 69", Just ["Yes"]) + , ("Q29 check 70", Just ["Yes"]) + , ("Q29 check 71", Just ["Yes"]) + , ("Q29 check 72", Just ["Yes"]) + , ("Q29 check 73", Just ["Yes"]) + , ("Q29 check 74", Just ["Yes"]) + , ("Q29 check 75", Just ["Yes"]) + , ("Q29 check 76", Just ["Yes"]) + , ("Q29 check 77", Just ["Yes"]) + , ("Q29 cell 5", Nothing) + , ("Q29 check 78", Just ["Yes"]) + , ("Q29 check 79", Just ["Yes"]) + , ("Q29 check 80", Just ["Yes"]) + , ("Q29 check 81", Just ["Yes"]) + , ("Q29 check 82", Just ["Yes"]) + , ("Q29 check 83", Just ["Yes"]) + , ("Q29 check 84", Just ["Yes"]) + , ("Q29 check 85", Just ["Yes"]) + , ("Q29 check 86", Just ["Yes"]) + , ("Q29 check 87", Just ["Yes"]) + , ("Q29 check 88", Just ["Yes"]) + , ("Q29 check 89", Just ["Yes"]) + , ("Q29 check 90", Just ["Yes"]) + , ("Q29 check 91", Just ["Yes"]) + , ("Q29 check 92", Just ["Yes"]) + , ("Q29 check 93", Just ["Yes"]) + , ("Q29 cell 6", Nothing) + , ("Q29 check 94", Just ["Yes"]) + , ("Q29 check 95", Just ["Yes"]) + , ("Q29 check 96", Just ["Yes"]) + , ("Q29 check 97", Just ["Yes"]) + , ("Q29 check 98", Just ["Yes"]) + , ("Q29 check 99", Just ["Yes"]) + , ("Q29 check 100", Just ["Yes"]) + , ("Q29 check 101", Just ["Yes"]) + , ("Q29 check 102", Just ["Yes"]) + , ("Q29 check 103", Just ["Yes"]) + , ("Q29 check 104", Just ["Yes"]) + , ("Q29 check 105", Just ["Yes"]) + , ("Q29 check 106", Just ["Yes"]) + , ("Q29 check 107", Just ["Yes"]) + , ("Q29 check 108", Just ["Yes"]) + , ("Q29 check 109", Just ["Yes"]) + , ("Q29 cell 7", Nothing) + , ("Q29 check 110", Just ["Yes"]) + , ("Q29 check 111", Just ["Yes"]) + , ("Q29 check 112", Just ["Yes"]) + , ("Q29 check 113", Just ["Yes"]) + , ("Q29 check 114", Just ["Yes"]) + , ("Q29 check 115", Just ["Yes"]) + , ("Q29 check 116", Just ["Yes"]) + , ("Q29 check 117", Just ["Yes"]) + , ("Q29 check 118", Just ["Yes"]) + , ("Q29 check 119", Just ["Yes"]) + , ("Q29 check 120", Just ["Yes"]) + , ("Q29 check 121", Just ["Yes"]) + , ("Q29 check 122", Just ["Yes"]) + , ("Q29 check 123", Just ["Yes"]) + , ("Q29 check 124", Just ["Yes"]) + , ("Q29 check 125", Just ["Yes"]) + , ("Q29 cell 8", Nothing) + , ("Q29 check 126", Just ["Yes"]) + , ("Q29 check 127", Just ["Yes"]) + , ("Q29 check 128", Just ["Yes"]) + , ("Q29 check 129", Just ["Yes"]) + , ("Q29 check 130", Just ["Yes"]) + , ("Q29 check 131", Just ["Yes"]) + , ("Q29 check 132", Just ["Yes"]) + , ("Q29 check 133", Just ["Yes"]) + , ("Q29 check 134", Just ["Yes"]) + , ("Q29 check 135", Just ["Yes"]) + , ("Q29 check 136", Just ["Yes"]) + , ("Q29 check 137", Just ["Yes"]) + , ("Q29 check 138", Just ["Yes"]) + , ("Q29 check 139", Just ["Yes"]) + , ("Q29 check 140", Just ["Yes"]) + , ("Q29 check 141", Just ["Yes"]) + , ("Q29 cell 9", Nothing) + , ("Q29 check 142", Just ["Yes"]) + , ("Q29 check 143", Just ["Yes"]) + , ("Q29 check 144", Just ["Yes"]) + , ("Q30 Checklist 1", Just ["Yes"]) + , ("Q30 Checklist 2", Just ["Yes"]) + , ("Q30 Checklist 3", Just ["Yes"]) + , ("Q30 Checklist 4", Just ["Yes"]) + , ("Q30 Checklist 5", Just ["Yes"]) + , ("Q30 Checklist 6", Just ["Yes"]) + , ("Q30 Checklist 7", Just ["Yes"]) + , ("Q30 Checklist 8", Just ["Yes"]) + , ("Q30 Checklist 9", Just ["Yes"]) + , ("Q30 Checklist 10", Just ["Yes"]) + , ("Q30 Checklist 11", Just ["Yes"]) + , ("Q30 Checklist 12", Just ["Yes"]) + , ("Q30 Checklist 13", Just ["Yes"]) + , ("Q30 Checklist 14", Just ["Yes"]) + , ("Q17 Checklist other", Nothing) + , ("Q31 Declaration Full Name", Nothing) + , ("Q31 Declaration Date - Day", Nothing) + , ("Q31 Declaration Date - Month", Nothing) + , ("Q31 Declaration Date - Year", Nothing) + , ("Q32 role CEO", Just ["CEO"]) + , ("Q32 role responsible manager", Just ["Responsible Manager"]) + , ("Q32 role agent", Just ["Agent"]) + , ("Q32 role other", Just ["Other"]) + , ("Q32 other role authority", Nothing) + ] + +-- | The box of each text field: its font, the width that text can use, in points, and the lines it shows. +textBoxes :: Map Text (FormFont, Double, Int) +textBoxes = + Map.fromList + [ ("Q1 Applicant ARN", (Narrow, 212.3, 1)) + , ("Q1 Applicant Full Name", (Narrow, 212.3, 1)) + , ("Q1 Phone number", (Narrow, 212.3, 1)) + , ("Q1 ReOC number", (Narrow, 212.3, 1)) + , ("Q1 email address", (Narrow, 212.3, 1)) + , ("Q10 Multiline", (Narrow, 212.3, 8)) + , ("Q11 Multiline", (Narrow, 212.3, 5)) + , ("Q12 Maintenance Controller ARN", (Narrow, 212.3, 1)) + , ("Q12 Maintenance Controller Full Name", (Narrow, 212.3, 1)) + , ("Q12 Phone number", (Narrow, 212.3, 1)) + , ("Q12 email", (Narrow, 212.3, 1)) + , ("Q13 Chief RePL Instructor ARN", (Narrow, 212.3, 1)) + , ("Q13 Chief RePL Instructor Full Name", (Narrow, 212.3, 1)) + , ("Q13 Phone number", (Narrow, 212.3, 1)) + , ("Q13 email", (Narrow, 212.3, 1)) + , ("Q15 Provide details of qualifications", (Narrow, 212.3, 5)) + , ("Q17 Checklist other", (Narrow, 212.3, 6)) + , ("Q17 Multiline", (Wide, 212.3, 15)) + , ("Q18 Multiline", (Narrow, 212.3, 10)) + , ("Q23 Multiline", (Narrow, 212.3, 14)) + , ("Q26 Date the action was taken - Day", (Narrow, 39.4, 1)) + , ("Q26 Date the action was taken - Month", (Narrow, 39.4, 1)) + , ("Q26 Date the action was taken - Year", (Narrow, 79.0, 1)) + , ("Q26 Multiline", (Narrow, 212.3, 4)) + , ("Q26 Type of authorisation action taken against you", (Narrow, 212.3, 1)) + , ("Q26 type of action", (Narrow, 212.3, 1)) + , ("Q27 cell 1", (Narrow, 84.7, 1)) + , ("Q27 cell 10", (Narrow, 84.7, 1)) + , ("Q27 cell 11", (Narrow, 84.7, 1)) + , ("Q27 cell 12", (Narrow, 141.4, 1)) + , ("Q27 cell 13", (Narrow, 84.7, 1)) + , ("Q27 cell 14", (Narrow, 84.7, 1)) + , ("Q27 cell 15", (Narrow, 141.4, 1)) + , ("Q27 cell 16", (Narrow, 84.7, 1)) + , ("Q27 cell 17", (Narrow, 84.7, 1)) + , ("Q27 cell 18", (Narrow, 141.4, 1)) + , ("Q27 cell 19", (Narrow, 84.7, 1)) + , ("Q27 cell 2", (Narrow, 84.7, 1)) + , ("Q27 cell 20", (Narrow, 84.7, 1)) + , ("Q27 cell 21", (Narrow, 141.4, 1)) + , ("Q27 cell 22", (Narrow, 84.7, 1)) + , ("Q27 cell 23", (Narrow, 84.7, 1)) + , ("Q27 cell 24", (Narrow, 141.4, 1)) + , ("Q27 cell 25", (Narrow, 84.7, 1)) + , ("Q27 cell 26", (Narrow, 84.7, 1)) + , ("Q27 cell 27", (Narrow, 141.4, 1)) + , ("Q27 cell 28", (Narrow, 84.7, 1)) + , ("Q27 cell 29", (Narrow, 84.7, 1)) + , ("Q27 cell 3", (Narrow, 141.4, 1)) + , ("Q27 cell 30", (Narrow, 141.4, 1)) + , ("Q27 cell 31", (Narrow, 84.7, 1)) + , ("Q27 cell 32", (Narrow, 84.7, 1)) + , ("Q27 cell 33", (Narrow, 141.4, 1)) + , ("Q27 cell 34", (Narrow, 84.7, 1)) + , ("Q27 cell 35", (Narrow, 84.7, 1)) + , ("Q27 cell 36", (Narrow, 141.4, 1)) + , ("Q27 cell 37", (Narrow, 84.7, 1)) + , ("Q27 cell 38", (Narrow, 84.7, 1)) + , ("Q27 cell 39", (Narrow, 141.4, 1)) + , ("Q27 cell 4", (Narrow, 84.7, 1)) + , ("Q27 cell 40", (Narrow, 84.7, 1)) + , ("Q27 cell 41", (Narrow, 84.7, 1)) + , ("Q27 cell 42", (Narrow, 141.4, 1)) + , ("Q27 cell 43", (Narrow, 84.7, 1)) + , ("Q27 cell 44", (Narrow, 84.7, 1)) + , ("Q27 cell 45", (Narrow, 141.4, 1)) + , ("Q27 cell 46", (Narrow, 84.7, 1)) + , ("Q27 cell 47", (Narrow, 84.7, 1)) + , ("Q27 cell 48", (Narrow, 141.4, 1)) + , ("Q27 cell 49", (Narrow, 84.7, 1)) + , ("Q27 cell 5", (Narrow, 84.7, 1)) + , ("Q27 cell 50", (Narrow, 84.7, 1)) + , ("Q27 cell 51", (Narrow, 141.4, 1)) + , ("Q27 cell 6", (Narrow, 141.4, 1)) + , ("Q27 cell 7", (Narrow, 84.7, 1)) + , ("Q27 cell 8", (Narrow, 84.7, 1)) + , ("Q27 cell 9", (Narrow, 141.4, 1)) + , ("Q29 cell 1", (Narrow, 107.4, 4)) + , ("Q29 cell 2", (Narrow, 107.4, 4)) + , ("Q29 cell 3", (Narrow, 107.4, 4)) + , ("Q29 cell 4", (Narrow, 107.4, 4)) + , ("Q29 cell 5", (Narrow, 107.4, 4)) + , ("Q29 cell 6", (Narrow, 107.4, 4)) + , ("Q29 cell 7", (Narrow, 107.4, 4)) + , ("Q29 cell 8", (Narrow, 107.4, 4)) + , ("Q29 cell 9", (Narrow, 107.4, 4)) + , ("Q3 Contact Phone number", (Narrow, 212.3, 1)) + , ("Q3 contact email", (Narrow, 212.3, 1)) + , ("Q3 contact full name", (Narrow, 212.3, 1)) + , ("Q3 contact position", (Narrow, 212.3, 1)) + , ("Q31 Declaration Date - Day", (Narrow, 39.4, 1)) + , ("Q31 Declaration Date - Month", (Narrow, 39.4, 1)) + , ("Q31 Declaration Date - Year", (Narrow, 79.0, 1)) + , ("Q31 Declaration Full Name", (Narrow, 212.3, 1)) + , ("Q32 other role authority", (Narrow, 212.3, 1)) + , ("Q6 registered Business name", (Narrow, 212.3, 1)) + , ("Q7 CEO/Responsible Manager ARN", (Narrow, 212.3, 1)) + , ("Q7 CEO/Responsible Manager Full Name", (Narrow, 212.3, 1)) + , ("Q7 CEO/Responsible Manager Phone number", (Narrow, 212.3, 1)) + , ("Q7 CEO/Responsible Manager email", (Narrow, 212.3, 1)) + , ("Q7 Multiline", (Narrow, 212.3, 6)) + , ("Q8 Chief Remote Pilot ARN", (Narrow, 212.3, 1)) + , ("Q8 Chief Remote Pilot Full Name", (Narrow, 212.3, 1)) + , ("Q8 Phone number", (Narrow, 212.3, 1)) + , ("Q8 email", (Narrow, 212.3, 1)) + , ("Q9 RePL Training organisation name", (Wide, 212.3, 1)) + ] diff --git a/test/Laws.hs b/test/Laws.hs new file mode 100644 --- /dev/null +++ b/test/Laws.hs @@ -0,0 +1,88 @@ +{-# LANGUAGE RankNTypes #-} +{-# OPTIONS_GHC -Wall #-} + +-- | Laws of lenses, prisms and affine traversals (the classy optics recipe, Laws). +module Laws ( + Laws, + lensLaws, + prismLaws, + affineLaws, +) where + +import Control.Lens (ALens', APrism', Traversal', cloneLens, clonePrism, preview, review, set, toListOf, traverseOf, view) +import Data.Functor.Compose (Compose (..)) +import Data.Functor.Identity (Identity (..)) +import Data.String (fromString) +import Hedgehog + +type Laws = [(PropertyName, Property)] + +-- | The lens laws: view-set, set-view and set-set. +lensLaws :: (Eq s, Show s, Eq a, Show a) => String -> ALens' s a -> Gen s -> Gen a -> Laws +lensLaws name l genS genA = + [ + ( fromString (name <> " view . set") + , property $ do + s <- forAll genS + a <- forAll genA + view (cloneLens l) (set (cloneLens l) a s) === a + ) + , + ( fromString (name <> " set . view") + , property $ do + s <- forAll genS + set (cloneLens l) (view (cloneLens l) s) s === s + ) + , + ( fromString (name <> " set . set") + , property $ do + s <- forAll genS + a <- forAll genA + b <- forAll genA + set (cloneLens l) b (set (cloneLens l) a s) === set (cloneLens l) b s + ) + ] + +-- | The prism laws: preview-review and review-preview. +prismLaws :: (Eq s, Show s, Eq a, Show a) => String -> APrism' s a -> Gen s -> Gen a -> Laws +prismLaws name p genS genA = + [ + ( fromString (name <> " preview . review") + , property $ do + a <- forAll genA + preview (clonePrism p) (review (clonePrism p) a) === Just a + ) + , + ( fromString (name <> " review . preview") + , property $ do + s <- forAll genS + maybe s (review (clonePrism p)) (preview (clonePrism p) s) === s + ) + ] + +-- | The laws of an affine traversal: identity, composition and at most one target. +affineLaws :: (Eq s, Show s, Eq a, Show a) => String -> Traversal' s a -> Gen s -> Gen a -> Laws +affineLaws name t genS genA = + [ + ( fromString (name <> " traverse pure") + , property $ do + s <- forAll genS + runIdentity (traverseOf t Identity s) === s + ) + , + ( fromString (name <> " composition") + , property $ do + s <- forAll genS + x <- forAll genA + y <- forAll genA + let f a = if a == x then Nothing else Just y + g a = [a, x] + fmap (traverseOf t f) (traverseOf t g s) === getCompose (traverseOf t (Compose . fmap f . g) s) + ) + , + ( fromString (name <> " at most one target") + , property $ do + s <- forAll genS + assert (length (toListOf t s) <= 1) + ) + ] diff --git a/test/OpticsTests.hs b/test/OpticsTests.hs new file mode 100644 --- /dev/null +++ b/test/OpticsTests.hs @@ -0,0 +1,780 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -Wall #-} + +-- | The laws of the manifest of every data type, and of every instance of a name, and the coverage of each sum. +module OpticsTests ( + opticsTests, +) where + +import Control.Lens (ALens', APrism', Traversal', has) +import Data.ByteString (ByteString) +import Data.List.NonEmpty (NonEmpty) +import Data.Text (Text) +import Data.Time.Calendar (Day) +import Data.Time.Calendar.Month (Month) +import DataGens +import Hedgehog (Property, PropertyName, cover, forAll, property, withTests, (===)) +import qualified Hedgehog.Gen as Gen +import qualified Hedgehog.Range as Range +import Laws +import Numeric.Natural (Natural) +import PrimitiveGens +import ReOC + +opticsTests :: [(PropertyName, Property)] +opticsTests = + concat + [ [("lawNamesAustralianState", property $ forAll genAustralianState >>= \s -> lawNamesAustralianState s === s)] + , [("coverage AustralianState", withTests 100 . property $ forAll genAustralianState >>= \s -> cover 1 "NewSouthWales" (has newSouthWales s) >> cover 1 "Victoria" (has victoria s) >> cover 1 "Queensland" (has queensland s) >> cover 1 "WesternAustralia" (has westernAustralia s) >> cover 1 "SouthAustralia" (has southAustralia s) >> cover 1 "Tasmania" (has tasmania s) >> cover 1 "AustralianCapitalTerritory" (has australianCapitalTerritory s) >> cover 1 "NorthernTerritory" (has northernTerritory s))] + , prismLaws "AustralianState.newSouthWales" (newSouthWales :: APrism' AustralianState ()) genAustralianState (pure ()) + , prismLaws "AustralianState.victoria" (victoria :: APrism' AustralianState ()) genAustralianState (pure ()) + , prismLaws "AustralianState.queensland" (queensland :: APrism' AustralianState ()) genAustralianState (pure ()) + , prismLaws "AustralianState.westernAustralia" (westernAustralia :: APrism' AustralianState ()) genAustralianState (pure ()) + , prismLaws "AustralianState.southAustralia" (southAustralia :: APrism' AustralianState ()) genAustralianState (pure ()) + , prismLaws "AustralianState.tasmania" (tasmania :: APrism' AustralianState ()) genAustralianState (pure ()) + , prismLaws "AustralianState.australianCapitalTerritory" (australianCapitalTerritory :: APrism' AustralianState ()) genAustralianState (pure ()) + , prismLaws "AustralianState.northernTerritory" (northernTerritory :: APrism' AustralianState ()) genAustralianState (pure ()) + , [("lawNamesRPACategory", property $ forAll genRPACategory >>= \s -> lawNamesRPACategory s === s)] + , [("coverage RPACategory", withTests 100 . property $ forAll genRPACategory >>= \s -> cover 1 "Aeroplane" (has aeroplane s) >> cover 1 "Helicopter" (has helicopter s) >> cover 1 "Multirotor" (has multirotor s) >> cover 1 "PoweredLift" (has poweredLift s))] + , prismLaws "RPACategory.aeroplane" (aeroplane :: APrism' RPACategory ()) genRPACategory (pure ()) + , prismLaws "RPACategory.helicopter" (helicopter :: APrism' RPACategory ()) genRPACategory (pure ()) + , prismLaws "RPACategory.multirotor" (multirotor :: APrism' RPACategory ()) genRPACategory (pure ()) + , prismLaws "RPACategory.poweredLift" (poweredLift :: APrism' RPACategory ()) genRPACategory (pure ()) + , [("lawNamesLikelihood", property $ forAll genLikelihood >>= \s -> lawNamesLikelihood s === s)] + , [("coverage Likelihood", withTests 100 . property $ forAll genLikelihood >>= \s -> cover 1 "Frequent" (has frequent s) >> cover 1 "Occasional" (has occasional s) >> cover 1 "Remote" (has remote s) >> cover 1 "Improbable" (has improbable s) >> cover 1 "ExtremelyImprobable" (has extremelyImprobable s))] + , prismLaws "Likelihood.frequent" (frequent :: APrism' Likelihood ()) genLikelihood (pure ()) + , prismLaws "Likelihood.occasional" (occasional :: APrism' Likelihood ()) genLikelihood (pure ()) + , prismLaws "Likelihood.remote" (remote :: APrism' Likelihood ()) genLikelihood (pure ()) + , prismLaws "Likelihood.improbable" (improbable :: APrism' Likelihood ()) genLikelihood (pure ()) + , prismLaws "Likelihood.extremelyImprobable" (extremelyImprobable :: APrism' Likelihood ()) genLikelihood (pure ()) + , [("lawNamesConsequence", property $ forAll genConsequence >>= \s -> lawNamesConsequence s === s)] + , [("coverage Consequence", withTests 100 . property $ forAll genConsequence >>= \s -> cover 1 "Catastrophic" (has catastrophic s) >> cover 1 "Hazardous" (has hazardous s) >> cover 1 "Moderate" (has moderate s) >> cover 1 "Minor" (has minor s) >> cover 1 "Negligible" (has negligible s))] + , prismLaws "Consequence.catastrophic" (catastrophic :: APrism' Consequence ()) genConsequence (pure ()) + , prismLaws "Consequence.hazardous" (hazardous :: APrism' Consequence ()) genConsequence (pure ()) + , prismLaws "Consequence.moderate" (moderate :: APrism' Consequence ()) genConsequence (pure ()) + , prismLaws "Consequence.minor" (minor :: APrism' Consequence ()) genConsequence (pure ()) + , prismLaws "Consequence.negligible" (negligible :: APrism' Consequence ()) genConsequence (pure ()) + , [("lawNamesRiskLevel", property $ forAll genRiskLevel >>= \s -> lawNamesRiskLevel s === s)] + , [("coverage RiskLevel", withTests 100 . property $ forAll genRiskLevel >>= \s -> cover 1 "High" (has high s) >> cover 1 "Medium" (has medium s) >> cover 1 "Low" (has low s))] + , prismLaws "RiskLevel.high" (high :: APrism' RiskLevel ()) genRiskLevel (pure ()) + , prismLaws "RiskLevel.medium" (medium :: APrism' RiskLevel ()) genRiskLevel (pure ()) + , prismLaws "RiskLevel.low" (low :: APrism' RiskLevel ()) genRiskLevel (pure ()) + , [("lawNamesKeyPosition", property $ forAll genKeyPosition >>= \s -> lawNamesKeyPosition s === s)] + , [("coverage KeyPosition", withTests 100 . property $ forAll genKeyPosition >>= \s -> cover 1 "ChiefExecutiveOfficer" (has chiefExecutiveOfficer s) >> cover 1 "ChiefRemotePilot" (has chiefRemotePilot s) >> cover 1 "MaintenanceController" (has maintenanceController s))] + , prismLaws "KeyPosition.chiefExecutiveOfficer" (chiefExecutiveOfficer :: APrism' KeyPosition ()) genKeyPosition (pure ()) + , prismLaws "KeyPosition.chiefRemotePilot" (chiefRemotePilot :: APrism' KeyPosition ()) genKeyPosition (pure ()) + , prismLaws "KeyPosition.maintenanceController" (maintenanceController :: APrism' KeyPosition ()) genKeyPosition (pure ()) + , [("lawNamesBackupInterval", property $ forAll genBackupInterval >>= \s -> lawNamesBackupInterval s === s)] + , [("coverage BackupInterval", withTests 100 . property $ forAll genBackupInterval >>= \s -> cover 1 "Daily" (has daily s) >> cover 1 "Weekly" (has weekly s) >> cover 1 "Monthly" (has monthly s))] + , prismLaws "BackupInterval.daily" (daily :: APrism' BackupInterval ()) genBackupInterval (pure ()) + , prismLaws "BackupInterval.weekly" (weekly :: APrism' BackupInterval ()) genBackupInterval (pure ()) + , prismLaws "BackupInterval.monthly" (monthly :: APrism' BackupInterval ()) genBackupInterval (pure ()) + , [("lawNamesCourseType", property $ forAll genCourseType >>= \s -> lawNamesCourseType s === s)] + , [("coverage CourseType", withTests 100 . property $ forAll genCourseType >>= \s -> cover 1 "InitialCourse" (has initialCourse s) >> cover 1 "UpgradeSameCategory" (has upgradeSameCategory s) >> cover 1 "UpgradeDifferentCategory" (has upgradeDifferentCategory s))] + , prismLaws "CourseType.initialCourse" (initialCourse :: APrism' CourseType ()) genCourseType (pure ()) + , prismLaws "CourseType.upgradeSameCategory" (upgradeSameCategory :: APrism' CourseType ()) genCourseType (pure ()) + , prismLaws "CourseType.upgradeDifferentCategory" (upgradeDifferentCategory :: APrism' CourseType ()) genCourseType (pure ()) + , [("lawNamesComplexity", property $ forAll genComplexity >>= \s -> lawNamesComplexity s === s)] + , [("coverage Complexity", withTests 100 . property $ forAll genComplexity >>= \s -> cover 1 "AutomatedAndManual" (has automatedAndManual s) >> cover 1 "AutomatedOnly" (has automatedOnly s))] + , prismLaws "Complexity.automatedAndManual" (automatedAndManual :: APrism' Complexity ()) genComplexity (pure ()) + , prismLaws "Complexity.automatedOnly" (automatedOnly :: APrism' Complexity ()) genComplexity (pure ()) + , [("lawNamesInstructorTakeover", property $ forAll genInstructorTakeover >>= \s -> lawNamesInstructorTakeover s === s)] + , [("coverage InstructorTakeover", withTests 100 . property $ forAll genInstructorTakeover >>= \s -> cover 1 "DualControllerLink" (has dualControllerLink s) >> cover 1 "SharedController" (has sharedController s))] + , prismLaws "InstructorTakeover.dualControllerLink" (dualControllerLink :: APrism' InstructorTakeover ()) genInstructorTakeover (pure ()) + , prismLaws "InstructorTakeover.sharedController" (sharedController :: APrism' InstructorTakeover ()) genInstructorTakeover (pure ()) + , [("lawNamesTheoryDelivery", property $ forAll genTheoryDelivery >>= \s -> lawNamesTheoryDelivery s === s)] + , [("coverage TheoryDelivery", withTests 100 . property $ forAll genTheoryDelivery >>= \s -> cover 1 "ClassroomTheory" (has classroomTheory s) >> cover 1 "BlendedTheory" (has blendedTheory s) >> cover 1 "OnlineTheory" (has onlineTheory s))] + , prismLaws "TheoryDelivery.classroomTheory" (classroomTheory :: APrism' TheoryDelivery ()) genTheoryDelivery (pure ()) + , prismLaws "TheoryDelivery.blendedTheory" (blendedTheory :: APrism' TheoryDelivery ()) genTheoryDelivery (pure ()) + , prismLaws "TheoryDelivery.onlineTheory" (onlineTheory :: APrism' TheoryDelivery ()) genTheoryDelivery (pure ()) + , [("lawNamesExamDelivery", property $ forAll genExamDelivery >>= \s -> lawNamesExamDelivery s === s)] + , [("coverage ExamDelivery", withTests 100 . property $ forAll genExamDelivery >>= \s -> cover 1 "PaperExamination" (has paperExamination s) >> cover 1 "ComputerExamination" (has computerExamination s))] + , prismLaws "ExamDelivery.paperExamination" (paperExamination :: APrism' ExamDelivery ()) genExamDelivery (pure ()) + , prismLaws "ExamDelivery.computerExamination" (computerExamination :: APrism' ExamDelivery ()) genExamDelivery (pure ()) + , [("lawNamesFlightTestExaminer", property $ forAll genFlightTestExaminer >>= \s -> lawNamesFlightTestExaminer s === s)] + , [("coverage FlightTestExaminer", withTests 100 . property $ forAll genFlightTestExaminer >>= \s -> cover 1 "CRIConductsFlightTests" (has criConductsFlightTests s) >> cover 1 "IndependentExaminerWhereAvailable" (has independentExaminerWhereAvailable s))] + , prismLaws "FlightTestExaminer.criConductsFlightTests" (criConductsFlightTests :: APrism' FlightTestExaminer ()) genFlightTestExaminer (pure ()) + , prismLaws "FlightTestExaminer.independentExaminerWhereAvailable" (independentExaminerWhereAvailable :: APrism' FlightTestExaminer ()) genFlightTestExaminer (pure ()) + , [("lawNamesDirectorship", property $ forAll genDirectorship >>= \s -> lawNamesDirectorship s === s)] + , [("coverage Directorship", withTests 100 . property $ forAll genDirectorship >>= \s -> cover 1 "SoleDirector" (has soleDirector s) >> cover 1 "Director" (has director s) >> cover 1 "NotADirector" (has notADirector s))] + , prismLaws "Directorship.soleDirector" (soleDirector :: APrism' Directorship ()) genDirectorship (pure ()) + , prismLaws "Directorship.director" (director :: APrism' Directorship ()) genDirectorship (pure ()) + , prismLaws "Directorship.notADirector" (notADirector :: APrism' Directorship ()) genDirectorship (pure ()) + , [("lawNamesRadioQualification", property $ forAll genRadioQualification >>= \s -> lawNamesRadioQualification s === s)] + , [("coverage RadioQualification", withTests 100 . property $ forAll genRadioQualification >>= \s -> cover 1 "FlightCrewLicence" (has flightCrewLicence s) >> cover 1 "RadioOperatorCertificate" (has radioOperatorCertificate s) >> cover 1 "NoRadioQualification" (has noRadioQualification s))] + , prismLaws "RadioQualification.flightCrewLicence" (flightCrewLicence :: APrism' RadioQualification ()) genRadioQualification (pure ()) + , prismLaws "RadioQualification.radioOperatorCertificate" (radioOperatorCertificate :: APrism' RadioQualification ()) genRadioQualification (pure ()) + , prismLaws "RadioQualification.noRadioQualification" (noRadioQualification :: APrism' RadioQualification ()) genRadioQualification (pure ()) + , [("lawNamesRemotePilots", property $ forAll genRemotePilots >>= \s -> lawNamesRemotePilots s === s)] + , [("coverage RemotePilots", withTests 100 . property $ forAll genRemotePilots >>= \s -> cover 1 "CRPIsOnlyRemotePilot" (has crpIsOnlyRemotePilot s) >> cover 1 "OtherRemotePilots" (has otherRemotePilots s))] + , prismLaws "RemotePilots.crpIsOnlyRemotePilot" (crpIsOnlyRemotePilot :: APrism' RemotePilots ()) genRemotePilots (pure ()) + , prismLaws "RemotePilots.otherRemotePilots" (otherRemotePilots :: APrism' RemotePilots ()) genRemotePilots (pure ()) + , [("lawNamesCrewing", property $ forAll genCrewing >>= \s -> lawNamesCrewing s === s)] + , [("coverage Crewing", withTests 100 . property $ forAll genCrewing >>= \s -> cover 1 "SoloOperationsOnly" (has soloOperationsOnly s) >> cover 1 "SoloAndMultiCrewOperations" (has soloAndMultiCrewOperations s))] + , prismLaws "Crewing.soloOperationsOnly" (soloOperationsOnly :: APrism' Crewing ()) genCrewing (pure ()) + , prismLaws "Crewing.soloAndMultiCrewOperations" (soloAndMultiCrewOperations :: APrism' Crewing ()) genCrewing (pure ()) + , [("lawNamesTransponder", property $ forAll genTransponder >>= \s -> lawNamesTransponder s === s)] + , [("coverage Transponder", withTests 100 . property $ forAll genTransponder >>= \s -> cover 1 "NoTransponder" (has noTransponder s) >> cover 1 "TransponderFitted" (has transponderFitted s))] + , prismLaws "Transponder.noTransponder" (noTransponder :: APrism' Transponder ()) genTransponder (pure ()) + , prismLaws "Transponder.transponderFitted" (transponderFitted :: APrism' Transponder ()) genTransponder (pure ()) + , [("lawNamesVersionChange", property $ forAll genVersionChange >>= \s -> lawNamesVersionChange s === s)] + , [("coverage VersionChange", withTests 100 . property $ forAll genVersionChange >>= \s -> cover 1 "MajorRevision" (has majorRevision s) >> cover 1 "MinorRevision" (has minorRevision s))] + , prismLaws "VersionChange.majorRevision" (majorRevision :: APrism' VersionChange ()) genVersionChange (pure ()) + , prismLaws "VersionChange.minorRevision" (minorRevision :: APrism' VersionChange ()) genVersionChange (pure ()) + , [("lawNamesPerson'", property $ forAll genPerson >>= \s -> lawNamesPerson' s === s)] + , lensLaws "Person'.fullName" (fullName :: ALens' Person FormLine) genPerson genFormText + , lensLaws "Person'.arn" (arn :: ALens' Person ARN) genPerson genARN + , lensLaws "Person'.phoneNumber" (phoneNumber :: ALens' Person PhoneNumber) genPerson genPhoneNumber + , lensLaws "Person'.emailAddress" (emailAddress :: ALens' Person EmailAddress) genPerson genEmailAddress + , [("lawNamesAddress'", property $ forAll genAddress >>= \s -> lawNamesAddress' s === s)] + , lensLaws "Address'.streetAddress" (streetAddress :: ALens' Address (NonEmpty Text1)) genAddress (Gen.nonEmpty (Range.linear 1 2) genText1) + , lensLaws "Address'.suburb" (suburb :: ALens' Address Text1) genAddress genText1 + , lensLaws "Address'.stateOrTerritory" (stateOrTerritory :: ALens' Address AustralianState) genAddress genAustralianState + , lensLaws "Address'.postcode" (postcode :: ALens' Address Postcode) genAddress genPostcode + , [("lawNamesOperationalHeadquarters'", property $ forAll genOperationalHeadquarters >>= \s -> lawNamesOperationalHeadquarters' s === s)] + , [("coverage OperationalHeadquarters", withTests 100 . property $ forAll genOperationalHeadquarters >>= \s -> cover 1 "AtRegisteredOffice" (has atRegisteredOffice s) >> cover 1 "OperationalHeadquartersAddress" (has operationalHeadquartersAddress s))] + , prismLaws "OperationalHeadquarters'.atRegisteredOffice" (atRegisteredOffice :: APrism' OperationalHeadquarters ()) genOperationalHeadquarters (pure ()) + , prismLaws "OperationalHeadquarters'.operationalHeadquartersAddress" (operationalHeadquartersAddress :: APrism' OperationalHeadquarters Address) genOperationalHeadquarters genAddress + , [("lawNamesCompany'", property $ forAll genCompany >>= \s -> lawNamesCompany' s === s)] + , lensLaws "Company'.companyName" (companyName :: ALens' Company (FormText 'Narrow 185 1)) genCompany genFormText + , lensLaws "Company'.abn" (abn :: ALens' Company ABN) genCompany genABN + , lensLaws "Company'.arn" (arn :: ALens' Company ARN) genCompany genARN + , lensLaws "Company'.registeredOffice" (registeredOffice :: ALens' Company Address) genCompany genAddress + , lensLaws "Company'.operationalHeadquarters" (operationalHeadquarters :: ALens' Company OperationalHeadquarters) genCompany genOperationalHeadquarters + , lensLaws "Company'.phoneNumber" (phoneNumber :: ALens' Company PhoneNumber) genCompany genPhoneNumber + , lensLaws "Company'.emailAddress" (emailAddress :: ALens' Company EmailAddress) genCompany genEmailAddress + , lensLaws "Company'.businessName" (businessName :: ALens' Company (Maybe FormLine)) genCompany (Gen.maybe genFormText) + , [("lawNamesFlightTermination'", property $ forAll genFlightTermination >>= \s -> lawNamesFlightTermination' s === s)] + , [("coverage FlightTermination", withTests 100 . property $ forAll genFlightTermination >>= \s -> cover 1 "NoFlightTerminationSystem" (has noFlightTerminationSystem s) >> cover 1 "FlightTerminationSystem" (has flightTerminationSystem s))] + , prismLaws "FlightTermination'.noFlightTerminationSystem" (noFlightTerminationSystem :: APrism' FlightTermination ()) genFlightTermination (pure ()) + , prismLaws "FlightTermination'.flightTerminationSystem" (flightTerminationSystem :: APrism' FlightTermination Text1) genFlightTermination genText1 + , [("lawNamesEmergencyAction'", property $ forAll genEmergencyAction >>= \s -> lawNamesEmergencyAction' s === s)] + , lensLaws "EmergencyAction'.situation" (situation :: ALens' EmergencyAction Text1) genEmergencyAction genText1 + , lensLaws "EmergencyAction'.response" (response :: ALens' EmergencyAction Text1) genEmergencyAction genText1 + , lensLaws "EmergencyAction'.actionSteps" (actionSteps :: ALens' EmergencyAction [Text1]) genEmergencyAction (Gen.list (Range.linear 0 2) genText1) + , [("lawNamesRPAType'", property $ forAll genRPAType >>= \s -> lawNamesRPAType' s === s)] + , lensLaws "RPAType'.rpaMake" (rpaMake :: ALens' RPAType Text1) genRPAType genText1 + , lensLaws "RPAType'.rpaModel" (rpaModel :: ALens' RPAType Text1) genRPAType genText1 + , lensLaws "RPAType'.shortName" (shortName :: ALens' RPAType (FormText 'Narrow 84 1)) genRPAType genFormText + , lensLaws "RPAType'.category" (category :: ALens' RPAType RPACategory) genRPAType genRPACategory + , lensLaws "RPAType'.maximumGrossWeight" (maximumGrossWeight :: ALens' RPAType GrossWeight) genRPAType genGrossWeight + , lensLaws "RPAType'.userManual" (userManual :: ALens' RPAType Text1) genRPAType genText1 + , lensLaws "RPAType'.transponderCarriage" (transponderCarriage :: ALens' RPAType Transponder) genRPAType genTransponder + , lensLaws "RPAType'.flightTermination" (flightTermination :: ALens' RPAType FlightTermination) genRPAType genFlightTermination + , lensLaws "RPAType'.inspectionItems" (inspectionItems :: ALens' RPAType (NonEmpty Text1)) genRPAType (Gen.nonEmpty (Range.linear 1 2) genText1) + , lensLaws "RPAType'.beforeFlight" (beforeFlight :: ALens' RPAType [Text1]) genRPAType (Gen.list (Range.linear 0 2) genText1) + , lensLaws "RPAType'.batteryWarnings" (batteryWarnings :: ALens' RPAType (Maybe Text1)) genRPAType (Gen.maybe genText1) + , lensLaws "RPAType'.emergencyActions" (emergencyActions :: ALens' RPAType [EmergencyAction]) genRPAType (Gen.list (Range.linear 0 2) genEmergencyAction) + , [("lawNamesEquipment'", property $ forAll genEquipment >>= \s -> lawNamesEquipment' s === s)] + , lensLaws "Equipment'.equipmentDescription" (equipmentDescription :: ALens' Equipment Text1) genEquipment genText1 + , lensLaws "Equipment'.serialNumber" (serialNumber :: ALens' Equipment Text1) genEquipment genText1 + , [("lawNamesAircraft'", property $ forAll genAircraft >>= \s -> lawNamesAircraft' s === s)] + , lensLaws "Aircraft'.serialNumber" (serialNumber :: ALens' Aircraft Text1) genAircraft genText1 + , lensLaws "Aircraft'.associatedEquipment" (associatedEquipment :: ALens' Aircraft [Equipment]) genAircraft (Gen.list (Range.linear 0 2) genEquipment) + , [("lawNamesOperatedType'", property $ forAll genOperatedType >>= \s -> lawNamesOperatedType' s === s)] + , lensLaws "OperatedType'.rpaType" (rpaType :: ALens' OperatedType RPAType) genOperatedType genRPAType + , lensLaws "OperatedType'.airframes" (airframes :: ALens' OperatedType (NonEmpty Aircraft)) genOperatedType (Gen.nonEmpty (Range.linear 1 2) genAircraft) + , [("lawNamesRePLOrigin'", property $ forAll genRePLOrigin >>= \s -> lawNamesRePLOrigin' s === s)] + , [("coverage RePLOrigin", withTests 100 . property $ forAll genRePLOrigin >>= \s -> cover 1 "PPLTheory" (has pplTheory s) >> cover 1 "RePLTraining" (has rePLTrainingOrganisation s))] + , prismLaws "RePLOrigin'.pplTheory" (pplTheory :: APrism' RePLOrigin ()) genRePLOrigin (pure ()) + , prismLaws "RePLOrigin'.rePLTrainingOrganisation" (rePLTrainingOrganisation :: APrism' RePLOrigin WideLine) genRePLOrigin genFormText + , [("lawNamesOtherReOCRoles'", property $ forAll genOtherReOCRoles >>= \s -> lawNamesOtherReOCRoles' s === s)] + , [("coverage OtherReOCRoles", withTests 100 . property $ forAll genOtherReOCRoles >>= \s -> cover 1 "NoOtherReOCRoles" (has noOtherReOCRoles s) >> cover 1 "OtherReOCRolesHeld" (has otherReOCRolesHeld s))] + , prismLaws "OtherReOCRoles'.noOtherReOCRoles" (noOtherReOCRoles :: APrism' OtherReOCRoles ()) genOtherReOCRoles (pure ()) + , prismLaws "OtherReOCRoles'.otherReOCRolesHeld" (otherReOCRolesHeld :: APrism' OtherReOCRoles (FormLines 5)) genOtherReOCRoles genFormText + , [("lawNamesNominee'", property $ forAll genNominee >>= \s -> lawNamesNominee' s === s)] + , lensLaws "Nominee'.person" (person :: ALens' Nominee Person) genNominee genPerson + , lensLaws "Nominee'.otherQualifications" (otherQualifications :: ALens' Nominee [Text1]) genNominee (Gen.list (Range.linear 0 2) genText1) + , lensLaws "Nominee'.aviationExperience" (aviationExperience :: ALens' Nominee Text1) genNominee genText1 + , [("lawNamesChiefExecutive'", property $ forAll genChiefExecutive >>= \s -> lawNamesChiefExecutive' s === s)] + , lensLaws "ChiefExecutive'.nominee" (nominee :: ALens' ChiefExecutive Nominee) genChiefExecutive genNominee + , lensLaws "ChiefExecutive'.directorStatus" (directorStatus :: ALens' ChiefExecutive Directorship) genChiefExecutive genDirectorship + , lensLaws "ChiefExecutive'.managementExperience" (managementExperience :: ALens' ChiefExecutive (Maybe (FormLines 6))) genChiefExecutive (Gen.maybe genFormText) + , [("lawNamesCRPNominee'", property $ forAll genCRPNominee >>= \s -> lawNamesCRPNominee' s === s)] + , [("coverage CRPNominee", withTests 100 . property $ forAll genCRPNominee >>= \s -> cover 1 "CRPIsCEO" (has crpIsCEO s) >> cover 1 "CRPNominated" (has crpNominated s))] + , prismLaws "CRPNominee'.crpIsCEO" (crpIsCEO :: APrism' CRPNominee ()) genCRPNominee (pure ()) + , prismLaws "CRPNominee'.crpNominated" (crpNominated :: APrism' CRPNominee Nominee) genCRPNominee genNominee + , [("lawNamesChiefPilot'", property $ forAll genChiefPilot >>= \s -> lawNamesChiefPilot' s === s)] + , lensLaws "ChiefPilot'.crpNominee" (crpNominee :: ALens' ChiefPilot CRPNominee) genChiefPilot genCRPNominee + , lensLaws "ChiefPilot'.rePLOrigin" (rePLOrigin :: ALens' ChiefPilot RePLOrigin) genChiefPilot genRePLOrigin + , lensLaws "ChiefPilot'.rpaHistory" (rpaHistory :: ALens' ChiefPilot (FormLines 8)) genChiefPilot genFormText + , lensLaws "ChiefPilot'.otherReOCRoles" (otherReOCRoles :: ALens' ChiefPilot OtherReOCRoles) genChiefPilot genOtherReOCRoles + , lensLaws "ChiefPilot'.radio" (radio :: ALens' ChiefPilot RadioQualification) genChiefPilot genRadioQualification + , [("lawNamesMCNominee'", property $ forAll genMCNominee >>= \s -> lawNamesMCNominee' s === s)] + , [("coverage MCNominee", withTests 100 . property $ forAll genMCNominee >>= \s -> cover 1 "MCIsCEO" (has mcIsCEO s) >> cover 1 "MCIsCRP" (has mcIsCRP s) >> cover 1 "MCNominated" (has mcNominated s))] + , prismLaws "MCNominee'.mcIsCEO" (mcIsCEO :: APrism' MCNominee ()) genMCNominee (pure ()) + , prismLaws "MCNominee'.mcIsCRP" (mcIsCRP :: APrism' MCNominee ()) genMCNominee (pure ()) + , prismLaws "MCNominee'.mcNominated" (mcNominated :: APrism' MCNominee Nominee) genMCNominee genNominee + , [("lawNamesKeyPersonnel'", property $ forAll genKeyPersonnel >>= \s -> lawNamesKeyPersonnel' s === s)] + , lensLaws "KeyPersonnel'.chiefExecutive" (chiefExecutive :: ALens' KeyPersonnel ChiefExecutive) genKeyPersonnel genChiefExecutive + , lensLaws "KeyPersonnel'.chiefPilot" (chiefPilot :: ALens' KeyPersonnel ChiefPilot) genKeyPersonnel genChiefPilot + , lensLaws "KeyPersonnel'.mcNominee" (mcNominee :: ALens' KeyPersonnel MCNominee) genKeyPersonnel genMCNominee + , [("lawNamesOperator'", property $ forAll genOperator >>= \s -> lawNamesOperator' s === s)] + , lensLaws "Operator'.company" (company :: ALens' Operator Company) genOperator genCompany + , lensLaws "Operator'.keyPersonnel" (keyPersonnel :: ALens' Operator KeyPersonnel) genOperator genKeyPersonnel + , lensLaws "Operator'.fleet" (fleet :: ALens' Operator (Some 8 OperatedType)) genOperator (genSome genOperatedType) + , [("lawNamesContactPerson'", property $ forAll genContactPerson >>= \s -> lawNamesContactPerson' s === s)] + , lensLaws "ContactPerson'.fullName" (fullName :: ALens' ContactPerson FormLine) genContactPerson genFormText + , lensLaws "ContactPerson'.position" (position :: ALens' ContactPerson FormLine) genContactPerson genFormText + , lensLaws "ContactPerson'.phoneNumber" (phoneNumber :: ALens' ContactPerson PhoneNumber) genContactPerson genPhoneNumber + , lensLaws "ContactPerson'.emailAddress" (emailAddress :: ALens' ContactPerson EmailAddress) genContactPerson genEmailAddress + , [("lawNamesPrimaryContact'", property $ forAll genPrimaryContact >>= \s -> lawNamesPrimaryContact' s === s)] + , [("coverage PrimaryContact", withTests 100 . property $ forAll genPrimaryContact >>= \s -> cover 1 "ApplicantIsPrimaryContact" (has applicantIsPrimaryContact s) >> cover 1 "PrimaryContactPerson" (has primaryContactPerson s))] + , prismLaws "PrimaryContact'.applicantIsPrimaryContact" (applicantIsPrimaryContact :: APrism' PrimaryContact ()) genPrimaryContact (pure ()) + , prismLaws "PrimaryContact'.primaryContactPerson" (primaryContactPerson :: APrism' PrimaryContact ContactPerson) genPrimaryContact genContactPerson + , [("lawNamesHistoryAnswer'", property $ forAll genHistoryAnswer >>= \s -> lawNamesHistoryAnswer' s === s)] + , [("coverage HistoryAnswer", withTests 100 . property $ forAll genHistoryAnswer >>= \s -> cover 1 "NoHistory" (has noHistory s) >> cover 1 "HistoryDisclosed" (has historyDisclosed s))] + , prismLaws "HistoryAnswer'.noHistory" (noHistory :: APrism' HistoryAnswer ()) genHistoryAnswer (pure ()) + , prismLaws "HistoryAnswer'.historyDisclosed" (historyDisclosed :: APrism' HistoryAnswer (FormText 'Narrow 190 3)) genHistoryAnswer genFormText + , [("lawNamesPersonnelHistory'", property $ forAll genPersonnelHistory >>= \s -> lawNamesPersonnelHistory' s === s)] + , lensLaws "PersonnelHistory'.actionTaken" (actionTaken :: ALens' PersonnelHistory HistoryAnswer) genPersonnelHistory genHistoryAnswer + , lensLaws "PersonnelHistory'.transportLicenceRefused" (transportLicenceRefused :: ALens' PersonnelHistory HistoryAnswer) genPersonnelHistory genHistoryAnswer + , lensLaws "PersonnelHistory'.criminalConviction" (criminalConviction :: ALens' PersonnelHistory HistoryAnswer) genPersonnelHistory genHistoryAnswer + , lensLaws "PersonnelHistory'.suspensionPending" (suspensionPending :: ALens' PersonnelHistory HistoryAnswer) genPersonnelHistory genHistoryAnswer + , [("lawNamesRegulatoryAction'", property $ forAll genRegulatoryAction >>= \s -> lawNamesRegulatoryAction' s === s)] + , lensLaws "RegulatoryAction'.reocSuspendedOrCancelled" (reocSuspendedOrCancelled :: ALens' RegulatoryAction Bool) genRegulatoryAction Gen.bool + , lensLaws "RegulatoryAction'.typeOfAction" (typeOfAction :: ALens' RegulatoryAction FormLine) genRegulatoryAction genFormText + , lensLaws "RegulatoryAction'.authorisationAction" (authorisationAction :: ALens' RegulatoryAction FormLine) genRegulatoryAction genFormText + , lensLaws "RegulatoryAction'.actionDate" (actionDate :: ALens' RegulatoryAction Day) genRegulatoryAction genDay + , lensLaws "RegulatoryAction'.actionDetails" (actionDetails :: ALens' RegulatoryAction (FormLines 4)) genRegulatoryAction genFormText + , [("lawNamesRegulatoryHistory'", property $ forAll genRegulatoryHistory >>= \s -> lawNamesRegulatoryHistory' s === s)] + , [("coverage RegulatoryHistory", withTests 100 . property $ forAll genRegulatoryHistory >>= \s -> cover 1 "NoRegulatoryAction" (has noRegulatoryAction s) >> cover 1 "RegulatoryActionTaken" (has regulatoryActionTaken s))] + , prismLaws "RegulatoryHistory'.noRegulatoryAction" (noRegulatoryAction :: APrism' RegulatoryHistory ()) genRegulatoryHistory (pure ()) + , prismLaws "RegulatoryHistory'.regulatoryActionTaken" (regulatoryActionTaken :: APrism' RegulatoryHistory RegulatoryAction) genRegulatoryHistory genRegulatoryAction + , [("lawNamesDeclarant'", property $ forAll genDeclarant >>= \s -> lawNamesDeclarant' s === s)] + , lensLaws "Declarant'.fullName" (fullName :: ALens' Declarant FormLine) genDeclarant genFormText + , lensLaws "Declarant'.role" (role :: ALens' Declarant FormLine) genDeclarant genFormText + , [("lawNamesDeclaration'", property $ forAll genDeclaration >>= \s -> lawNamesDeclaration' s === s)] + , [("coverage Declaration", withTests 100 . property $ forAll genDeclaration >>= \s -> cover 1 "DeclaredByCEO" (has declaredByCEO s) >> cover 1 "DeclaredByResponsibleManager" (has declaredByResponsibleManager s) >> cover 1 "DeclaredByAgent" (has declaredByAgent s) >> cover 1 "DeclaredByOther" (has declaredByOther s))] + , prismLaws "Declaration'.declaredByCEO" (declaredByCEO :: APrism' Declaration ()) genDeclaration (pure ()) + , prismLaws "Declaration'.declaredByResponsibleManager" (declaredByResponsibleManager :: APrism' Declaration FormLine) genDeclaration genFormText + , prismLaws "Declaration'.declaredByAgent" (declaredByAgent :: APrism' Declaration FormLine) genDeclaration genFormText + , prismLaws "Declaration'.declaredByOther" (declaredByOther :: APrism' Declaration Declarant) genDeclaration genDeclarant + , [("lawNamesWrittenSignature'", property $ forAll genWrittenSignature >>= \s -> lawNamesWrittenSignature' s === s)] + , [("coverage WrittenSignature", withTests 100 . property $ forAll genWrittenSignature >>= \s -> cover 1 "WrittenSignatureImage" (has writtenSignatureImage s) >> cover 1 "WrittenSignatureFile" (has writtenSignatureFile s))] + , prismLaws "WrittenSignature'.writtenSignatureImage" (writtenSignatureImage :: APrism' WrittenSignature ByteString) genWrittenSignature genByteString + , prismLaws "WrittenSignature'.writtenSignatureFile" (writtenSignatureFile :: APrism' WrittenSignature FilePath) genWrittenSignature genFilePath + , [("lawNamesApplicationForm'", property $ forAll genApplicationForm >>= \s -> lawNamesApplicationForm' s === s)] + , lensLaws "ApplicationForm'.primaryContact" (primaryContact :: ALens' ApplicationForm PrimaryContact) genApplicationForm genPrimaryContact + , lensLaws "ApplicationForm'.personnelHistory" (personnelHistory :: ALens' ApplicationForm PersonnelHistory) genApplicationForm genPersonnelHistory + , lensLaws "ApplicationForm'.regulatoryHistory" (regulatoryHistory :: ALens' ApplicationForm RegulatoryHistory) genApplicationForm genRegulatoryHistory + , lensLaws "ApplicationForm'.proceduresLibrary" (proceduresLibrary :: ALens' ApplicationForm Bool) genApplicationForm Gen.bool + , lensLaws "ApplicationForm'.otherDocuments" (otherDocuments :: ALens' ApplicationForm (AtMost 6 FormLine)) genApplicationForm (genAtMost genFormText) + , lensLaws "ApplicationForm'.declaration" (declaration :: ALens' ApplicationForm Declaration) genApplicationForm genDeclaration + , lensLaws "ApplicationForm'.signature" (signature :: ALens' ApplicationForm (Maybe WrittenSignature)) genApplicationForm (Gen.maybe genWrittenSignature) + , [("lawNamesVersion'", property $ forAll genVersion >>= \s -> lawNamesVersion' s === s)] + , lensLaws "Version'.majorVersion" (majorVersion :: ALens' Version Natural) genVersion genNatural + , lensLaws "Version'.minorVersion" (minorVersion :: ALens' Version Natural) genVersion genNatural + , [("lawNamesFirstIssue'", property $ forAll genFirstIssue >>= \s -> lawNamesFirstIssue' s === s)] + , lensLaws "FirstIssue'.version" (version :: ALens' FirstIssue Version) genFirstIssue genVersion + , lensLaws "FirstIssue'.issueDate" (issueDate :: ALens' FirstIssue Month) genFirstIssue genMonth + , lensLaws "FirstIssue'.effective" (effective :: ALens' FirstIssue Text1) genFirstIssue genText1 + , lensLaws "FirstIssue'.parts" (parts :: ALens' FirstIssue Text1) genFirstIssue genText1 + , lensLaws "FirstIssue'.details" (details :: ALens' FirstIssue Text1) genFirstIssue genText1 + , [("lawNamesRevision'", property $ forAll genRevision >>= \s -> lawNamesRevision' s === s)] + , lensLaws "Revision'.versionIncrement" (versionIncrement :: ALens' Revision VersionChange) genRevision genVersionChange + , lensLaws "Revision'.monthsAfter" (monthsAfter :: ALens' Revision Natural) genRevision genNatural + , lensLaws "Revision'.effective" (effective :: ALens' Revision Text1) genRevision genText1 + , lensLaws "Revision'.parts" (parts :: ALens' Revision Text1) genRevision genText1 + , lensLaws "Revision'.details" (details :: ALens' Revision Text1) genRevision genText1 + , [("lawNamesPolicies'", property $ forAll genPolicies >>= \s -> lawNamesPolicies' s === s)] + , lensLaws "Policies'.recencyFlights" (recencyFlights :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.recencyDays" (recencyDays :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.refresherMonths" (refresherMonths :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.alcoholHours" (alcoholHours :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.restHours" (restHours :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.dutyHours" (dutyHours :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.inspectionMonths" (inspectionMonths :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.inspectionHours" (inspectionHours :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.batteryReserve" (batteryReserve :: ALens' Policies Percentage) genPolicies genPercentage + , lensLaws "Policies'.backupFrequency" (backupFrequency :: ALens' Policies BackupInterval) genPolicies genBackupInterval + , lensLaws "Policies'.independentReviewYears" (independentReviewYears :: ALens' Policies Positive) genPolicies genPositive + , lensLaws "Policies'.checkingMonths" (checkingMonths :: ALens' Policies Positive) genPolicies genPositive + , [("lawNamesRiskAssessment'", property $ forAll genRiskAssessment >>= \s -> lawNamesRiskAssessment' s === s)] + , lensLaws "RiskAssessment'.riskLikelihood" (riskLikelihood :: ALens' RiskAssessment Likelihood) genRiskAssessment genLikelihood + , lensLaws "RiskAssessment'.riskConsequence" (riskConsequence :: ALens' RiskAssessment Consequence) genRiskAssessment genConsequence + , [("lawNamesRisk'", property $ forAll genRisk >>= \s -> lawNamesRisk' s === s)] + , lensLaws "Risk'.hazard" (hazard :: ALens' Risk Text1) genRisk genText1 + , lensLaws "Risk'.riskDescription" (riskDescription :: ALens' Risk Text1) genRisk genText1 + , lensLaws "Risk'.existingControls" (existingControls :: ALens' Risk Text1) genRisk genText1 + , lensLaws "Risk'.initialRisk" (initialRisk :: ALens' Risk RiskAssessment) genRisk genRiskAssessment + , lensLaws "Risk'.additionalControls" (additionalControls :: ALens' Risk Text1) genRisk genText1 + , lensLaws "Risk'.residualRisk" (residualRisk :: ALens' Risk RiskAssessment) genRisk genRiskAssessment + , lensLaws "Risk'.riskOwner" (riskOwner :: ALens' Risk KeyPosition) genRisk genKeyPosition + , lensLaws "Risk'.dateEntered" (dateEntered :: ALens' Risk Month) genRisk genMonth + , lensLaws "Risk'.reviewMonths" (reviewMonths :: ALens' Risk ReviewMonths) genRisk genReviewMonths + , [("lawNamesOperationsManual'", property $ forAll genOperationsManual >>= \s -> lawNamesOperationsManual' s === s)] + , lensLaws "OperationsManual'.firstIssue" (firstIssue :: ALens' OperationsManual FirstIssue) genOperationsManual genFirstIssue + , lensLaws "OperationsManual'.revisions" (revisions :: ALens' OperationsManual [Revision]) genOperationsManual (Gen.list (Range.linear 0 2) genRevision) + , lensLaws "OperationsManual'.services" (services :: ALens' OperationsManual (NonEmpty Text1)) genOperationsManual (Gen.nonEmpty (Range.linear 1 2) genText1) + , lensLaws "OperationsManual'.policies" (policies :: ALens' OperationsManual Policies) genOperationsManual genPolicies + , lensLaws "OperationsManual'.riskRegister" (riskRegister :: ALens' OperationsManual (NonEmpty Risk)) genOperationsManual (Gen.nonEmpty (Range.linear 1 2) genRisk) + , lensLaws "OperationsManual'.crew" (crew :: ALens' OperationsManual Crewing) genOperationsManual genCrewing + , lensLaws "OperationsManual'.pilots" (pilots :: ALens' OperationsManual RemotePilots) genOperationsManual genRemotePilots + , [("lawNamesCRINominee'", property $ forAll genCRINominee >>= \s -> lawNamesCRINominee' s === s)] + , [("coverage CRINominee", withTests 100 . property $ forAll genCRINominee >>= \s -> cover 1 "CRIIsCEO" (has criIsCEO s) >> cover 1 "CRIIsCRP" (has criIsCRP s) >> cover 1 "CRIIsMC" (has criIsMC s) >> cover 1 "CRINominated" (has criNominated s))] + , prismLaws "CRINominee'.criIsCEO" (criIsCEO :: APrism' CRINominee ()) genCRINominee (pure ()) + , prismLaws "CRINominee'.criIsCRP" (criIsCRP :: APrism' CRINominee ()) genCRINominee (pure ()) + , prismLaws "CRINominee'.criIsMC" (criIsMC :: APrism' CRINominee ()) genCRINominee (pure ()) + , prismLaws "CRINominee'.criNominated" (criNominated :: APrism' CRINominee Nominee) genCRINominee genNominee + , [("lawNamesRePLHolding'", property $ forAll genRePLHolding >>= \s -> lawNamesRePLHolding' s === s)] + , [("coverage RePLHolding", withTests 100 . property $ forAll genRePLHolding >>= \s -> cover 1 "HoldsRePLForEachType" (has holdsRePLForEachType s) >> cover 1 "RePLHoldingIntent" (has rePLHoldingIntent s))] + , prismLaws "RePLHolding'.holdsRePLForEachType" (holdsRePLForEachType :: APrism' RePLHolding ()) genRePLHolding (pure ()) + , prismLaws "RePLHolding'.rePLHoldingIntent" (rePLHoldingIntent :: APrism' RePLHolding (FormText 'Wide 185 5)) genRePLHolding genFormText + , [("lawNamesTeachingQualification'", property $ forAll genTeachingQualification >>= \s -> lawNamesTeachingQualification' s === s)] + , [("coverage TeachingQualification", withTests 100 . property $ forAll genTeachingQualification >>= \s -> cover 1 "TeachingQualificationHeld" (has teachingQualificationHeld s) >> cover 1 "TeachingQualificationIntent" (has teachingQualificationIntent s))] + , prismLaws "TeachingQualification'.teachingQualificationHeld" (teachingQualificationHeld :: APrism' TeachingQualification (FormLines 5)) genTeachingQualification genFormText + , prismLaws "TeachingQualification'.teachingQualificationIntent" (teachingQualificationIntent :: APrism' TeachingQualification (FormText 'Wide 185 5)) genTeachingQualification genFormText + , [("lawNamesOperationalExperience'", property $ forAll genOperationalExperience >>= \s -> lawNamesOperationalExperience' s === s)] + , [("coverage OperationalExperience", withTests 100 . property $ forAll genOperationalExperience >>= \s -> cover 1 "HasOperationalExperience" (has hasOperationalExperience s) >> cover 1 "OperationalExperienceIntent" (has operationalExperienceIntent s) >> cover 1 "OperationalExperienceNotApplicable" (has operationalExperienceNotApplicable s))] + , prismLaws "OperationalExperience'.hasOperationalExperience" (hasOperationalExperience :: APrism' OperationalExperience ()) genOperationalExperience (pure ()) + , prismLaws "OperationalExperience'.operationalExperienceIntent" (operationalExperienceIntent :: APrism' OperationalExperience (FormText 'Wide 185 5)) genOperationalExperience genFormText + , prismLaws "OperationalExperience'.operationalExperienceNotApplicable" (operationalExperienceNotApplicable :: APrism' OperationalExperience ()) genOperationalExperience (pure ()) + , [("lawNamesTrainingCourse'", property $ forAll genTrainingCourse >>= \s -> lawNamesTrainingCourse' s === s)] + , lensLaws "TrainingCourse'.courseKind" (courseKind :: ALens' TrainingCourse CourseType) genTrainingCourse genCourseType + , lensLaws "TrainingCourse'.trainingRPA" (trainingRPA :: ALens' TrainingCourse OperatedType) genTrainingCourse genOperatedType + , lensLaws "TrainingCourse'.complexities" (complexities :: ALens' TrainingCourse (NonEmpty Complexity)) genTrainingCourse (Gen.nonEmpty (Range.linear 1 2) genComplexity) + , [("lawNamesTrainingArrangements'", property $ forAll genTrainingArrangements >>= \s -> lawNamesTrainingArrangements' s === s)] + , lensLaws "TrainingArrangements'.theoryVenues" (theoryVenues :: ALens' TrainingArrangements (NonEmpty Text1)) genTrainingArrangements (Gen.nonEmpty (Range.linear 1 2) genText1) + , lensLaws "TrainingArrangements'.practicalAreas" (practicalAreas :: ALens' TrainingArrangements (NonEmpty Text1)) genTrainingArrangements (Gen.nonEmpty (Range.linear 1 2) genText1) + , lensLaws "TrainingArrangements'.maxStudentsPerCourse" (maxStudentsPerCourse :: ALens' TrainingArrangements Positive) genTrainingArrangements genPositive + , lensLaws "TrainingArrangements'.maxStudentsPerInstructor" (maxStudentsPerInstructor :: ALens' TrainingArrangements Positive) genTrainingArrangements genPositive + , lensLaws "TrainingArrangements'.takeover" (takeover :: ALens' TrainingArrangements InstructorTakeover) genTrainingArrangements genInstructorTakeover + , lensLaws "TrainingArrangements'.theory" (theory :: ALens' TrainingArrangements TheoryDelivery) genTrainingArrangements genTheoryDelivery + , lensLaws "TrainingArrangements'.exam" (exam :: ALens' TrainingArrangements ExamDelivery) genTrainingArrangements genExamDelivery + , lensLaws "TrainingArrangements'.examPassMark" (examPassMark :: ALens' TrainingArrangements PassMark) genTrainingArrangements genPassMark + , lensLaws "TrainingArrangements'.examiner" (examiner :: ALens' TrainingArrangements FlightTestExaminer) genTrainingArrangements genFlightTestExaminer + , lensLaws "TrainingArrangements'.simulator" (simulator :: ALens' TrainingArrangements (Maybe Text1)) genTrainingArrangements (Gen.maybe genText1) + , [("lawNamesTrainingMaterial'", property $ forAll genTrainingMaterial >>= \s -> lawNamesTrainingMaterial' s === s)] + , lensLaws "TrainingMaterial'.criNominee" (criNominee :: ALens' TrainingMaterial CRINominee) genTrainingMaterial genCRINominee + , lensLaws "TrainingMaterial'.rePLHolding" (rePLHolding :: ALens' TrainingMaterial RePLHolding) genTrainingMaterial genRePLHolding + , lensLaws "TrainingMaterial'.teachingQualification" (teachingQualification :: ALens' TrainingMaterial TeachingQualification) genTrainingMaterial genTeachingQualification + , lensLaws "TrainingMaterial'.operationalExperience" (operationalExperience :: ALens' TrainingMaterial OperationalExperience) genTrainingMaterial genOperationalExperience + , lensLaws "TrainingMaterial'.criOtherReOCRoles" (criOtherReOCRoles :: ALens' TrainingMaterial OtherReOCRoles) genTrainingMaterial genOtherReOCRoles + , lensLaws "TrainingMaterial'.trainingCourses" (trainingCourses :: ALens' TrainingMaterial (Some 9 TrainingCourse)) genTrainingMaterial (genSome genTrainingCourse) + , lensLaws "TrainingMaterial'.trainingArrangements" (trainingArrangements :: ALens' TrainingMaterial TrainingArrangements) genTrainingMaterial genTrainingArrangements + , [("lawNamesReOC'", property $ forAll genReOC >>= \s -> lawNamesReOC' s === s)] + , lensLaws "ReOC'.operator" (operator :: ALens' ReOC Operator) genReOC genOperator + , lensLaws "ReOC'.applicationForm" (applicationForm :: ALens' ReOC ApplicationForm) genReOC genApplicationForm + , lensLaws "ReOC'.operationsManual" (operationsManual :: ALens' ReOC OperationsManual) genReOC genOperationsManual + , lensLaws "ReOC'.maybeTrainingMaterial" (maybeTrainingMaterial :: ALens' ReOC (Maybe TrainingMaterial)) genReOC (Gen.maybe genTrainingMaterial) + , [("lawNamesField", property $ forAll genField >>= \s -> lawNamesField s === s)] + , [("coverage Field", withTests 5340 . property $ forAll genField >>= \s -> cover 0.17 "PersonFullName" (has personFullName s) >> cover 0.17 "PersonArn" (has personArn s) >> cover 0.17 "PersonPhoneNumber" (has personPhoneNumber s) >> cover 0.17 "PersonEmailAddress" (has personEmailAddress s) >> cover 0.17 "AddressStreetAddress" (has addressStreetAddress s) >> cover 0.17 "AddressSuburb" (has addressSuburb s) >> cover 0.17 "AddressStateOrTerritory" (has addressStateOrTerritory s) >> cover 0.17 "AddressPostcode" (has addressPostcode s) >> cover 0.17 "OperationalHeadquartersAtRegisteredOffice" (has operationalHeadquartersAtRegisteredOffice s) >> cover 0.17 "OperationalHeadquartersOperationalHeadquartersAddress" (has operationalHeadquartersOperationalHeadquartersAddress s) >> cover 0.17 "CompanyCompanyName" (has companyCompanyName s) >> cover 0.17 "CompanyAbn" (has companyAbn s) >> cover 0.17 "CompanyArn" (has companyArn s) >> cover 0.17 "CompanyRegisteredOffice" (has companyRegisteredOffice s) >> cover 0.17 "CompanyOperationalHeadquarters" (has companyOperationalHeadquarters s) >> cover 0.17 "CompanyPhoneNumber" (has companyPhoneNumber s) >> cover 0.17 "CompanyEmailAddress" (has companyEmailAddress s) >> cover 0.17 "CompanyBusinessName" (has companyBusinessName s) >> cover 0.17 "FlightTerminationNoFlightTerminationSystem" (has flightTerminationNoFlightTerminationSystem s) >> cover 0.17 "FlightTerminationFlightTerminationSystem" (has flightTerminationFlightTerminationSystem s) >> cover 0.17 "EmergencyActionSituation" (has emergencyActionSituation s) >> cover 0.17 "EmergencyActionResponse" (has emergencyActionResponse s) >> cover 0.17 "EmergencyActionActionSteps" (has emergencyActionActionSteps s) >> cover 0.17 "RPATypeRpaMake" (has rpaTypeRpaMake s) >> cover 0.17 "RPATypeRpaModel" (has rpaTypeRpaModel s) >> cover 0.17 "RPATypeShortName" (has rpaTypeShortName s) >> cover 0.17 "RPATypeCategory" (has rpaTypeCategory s) >> cover 0.17 "RPATypeMaximumGrossWeight" (has rpaTypeMaximumGrossWeight s) >> cover 0.17 "RPATypeUserManual" (has rpaTypeUserManual s) >> cover 0.17 "RPATypeTransponderCarriage" (has rpaTypeTransponderCarriage s) >> cover 0.17 "RPATypeFlightTermination" (has rpaTypeFlightTermination s) >> cover 0.17 "RPATypeInspectionItems" (has rpaTypeInspectionItems s) >> cover 0.17 "RPATypeBeforeFlight" (has rpaTypeBeforeFlight s) >> cover 0.17 "RPATypeBatteryWarnings" (has rpaTypeBatteryWarnings s) >> cover 0.17 "RPATypeEmergencyActions" (has rpaTypeEmergencyActions s) >> cover 0.17 "EquipmentEquipmentDescription" (has equipmentEquipmentDescription s) >> cover 0.17 "EquipmentSerialNumber" (has equipmentSerialNumber s) >> cover 0.17 "AircraftSerialNumber" (has aircraftSerialNumber s) >> cover 0.17 "AircraftAssociatedEquipment" (has aircraftAssociatedEquipment s) >> cover 0.17 "OperatedTypeRpaType" (has operatedTypeRpaType s) >> cover 0.17 "OperatedTypeAirframes" (has operatedTypeAirframes s) >> cover 0.17 "RePLOriginPplTheory" (has rePLOriginPplTheory s) >> cover 0.17 "RePLOriginRePLTrainingOrganisation" (has rePLOriginRePLTrainingOrganisation s) >> cover 0.17 "OtherReOCRolesNoOtherReOCRoles" (has otherReOCRolesNoOtherReOCRoles s) >> cover 0.17 "OtherReOCRolesOtherReOCRolesHeld" (has otherReOCRolesOtherReOCRolesHeld s) >> cover 0.17 "NomineePerson" (has nomineePerson s) >> cover 0.17 "NomineeOtherQualifications" (has nomineeOtherQualifications s) >> cover 0.17 "NomineeAviationExperience" (has nomineeAviationExperience s) >> cover 0.17 "ChiefExecutiveNominee" (has chiefExecutiveNominee s) >> cover 0.17 "ChiefExecutiveDirectorStatus" (has chiefExecutiveDirectorStatus s) >> cover 0.17 "ChiefExecutiveManagementExperience" (has chiefExecutiveManagementExperience s) >> cover 0.17 "CRPNomineeCrpIsCEO" (has crpNomineeCrpIsCEO s) >> cover 0.17 "CRPNomineeCrpNominated" (has crpNomineeCrpNominated s) >> cover 0.17 "ChiefPilotCrpNominee" (has chiefPilotCrpNominee s) >> cover 0.17 "ChiefPilotRePLOrigin" (has chiefPilotRePLOrigin s) >> cover 0.17 "ChiefPilotRpaHistory" (has chiefPilotRpaHistory s) >> cover 0.17 "ChiefPilotOtherReOCRoles" (has chiefPilotOtherReOCRoles s) >> cover 0.17 "ChiefPilotRadio" (has chiefPilotRadio s) >> cover 0.17 "MCNomineeMcIsCEO" (has mcNomineeMcIsCEO s) >> cover 0.17 "MCNomineeMcIsCRP" (has mcNomineeMcIsCRP s) >> cover 0.17 "MCNomineeMcNominated" (has mcNomineeMcNominated s) >> cover 0.17 "KeyPersonnelChiefExecutive" (has keyPersonnelChiefExecutive s) >> cover 0.17 "KeyPersonnelChiefPilot" (has keyPersonnelChiefPilot s) >> cover 0.17 "KeyPersonnelMcNominee" (has keyPersonnelMcNominee s) >> cover 0.17 "OperatorCompany" (has operatorCompany s) >> cover 0.17 "OperatorKeyPersonnel" (has operatorKeyPersonnel s) >> cover 0.17 "OperatorFleet" (has operatorFleet s) >> cover 0.17 "ContactPersonFullName" (has contactPersonFullName s) >> cover 0.17 "ContactPersonPosition" (has contactPersonPosition s) >> cover 0.17 "ContactPersonPhoneNumber" (has contactPersonPhoneNumber s) >> cover 0.17 "ContactPersonEmailAddress" (has contactPersonEmailAddress s) >> cover 0.17 "PrimaryContactApplicantIsPrimaryContact" (has primaryContactApplicantIsPrimaryContact s) >> cover 0.17 "PrimaryContactPrimaryContactPerson" (has primaryContactPrimaryContactPerson s) >> cover 0.17 "HistoryAnswerNoHistory" (has historyAnswerNoHistory s) >> cover 0.17 "HistoryAnswerHistoryDisclosed" (has historyAnswerHistoryDisclosed s) >> cover 0.17 "PersonnelHistoryActionTaken" (has personnelHistoryActionTaken s) >> cover 0.17 "PersonnelHistoryTransportLicenceRefused" (has personnelHistoryTransportLicenceRefused s) >> cover 0.17 "PersonnelHistoryCriminalConviction" (has personnelHistoryCriminalConviction s) >> cover 0.17 "PersonnelHistorySuspensionPending" (has personnelHistorySuspensionPending s) >> cover 0.17 "RegulatoryActionReocSuspendedOrCancelled" (has regulatoryActionReocSuspendedOrCancelled s) >> cover 0.17 "RegulatoryActionTypeOfAction" (has regulatoryActionTypeOfAction s) >> cover 0.17 "RegulatoryActionAuthorisationAction" (has regulatoryActionAuthorisationAction s) >> cover 0.17 "RegulatoryActionActionDate" (has regulatoryActionActionDate s) >> cover 0.17 "RegulatoryActionActionDetails" (has regulatoryActionActionDetails s) >> cover 0.17 "RegulatoryHistoryNoRegulatoryAction" (has regulatoryHistoryNoRegulatoryAction s) >> cover 0.17 "RegulatoryHistoryRegulatoryActionTaken" (has regulatoryHistoryRegulatoryActionTaken s) >> cover 0.17 "DeclarantFullName" (has declarantFullName s) >> cover 0.17 "DeclarantRole" (has declarantRole s) >> cover 0.17 "DeclarationDeclaredByCEO" (has declarationDeclaredByCEO s) >> cover 0.17 "DeclarationDeclaredByResponsibleManager" (has declarationDeclaredByResponsibleManager s) >> cover 0.17 "DeclarationDeclaredByAgent" (has declarationDeclaredByAgent s) >> cover 0.17 "DeclarationDeclaredByOther" (has declarationDeclaredByOther s) >> cover 0.17 "WrittenSignatureWrittenSignatureImage" (has writtenSignatureWrittenSignatureImage s) >> cover 0.17 "WrittenSignatureWrittenSignatureFile" (has writtenSignatureWrittenSignatureFile s) >> cover 0.17 "ApplicationFormPrimaryContact" (has applicationFormPrimaryContact s) >> cover 0.17 "ApplicationFormPersonnelHistory" (has applicationFormPersonnelHistory s) >> cover 0.17 "ApplicationFormRegulatoryHistory" (has applicationFormRegulatoryHistory s) >> cover 0.17 "ApplicationFormProceduresLibrary" (has applicationFormProceduresLibrary s) >> cover 0.17 "ApplicationFormOtherDocuments" (has applicationFormOtherDocuments s) >> cover 0.17 "ApplicationFormDeclaration" (has applicationFormDeclaration s) >> cover 0.17 "ApplicationFormSignature" (has applicationFormSignature s) >> cover 0.17 "VersionMajorVersion" (has versionMajorVersion s) >> cover 0.17 "VersionMinorVersion" (has versionMinorVersion s) >> cover 0.17 "FirstIssueVersion" (has firstIssueVersion s) >> cover 0.17 "FirstIssueIssueDate" (has firstIssueIssueDate s) >> cover 0.17 "FirstIssueEffective" (has firstIssueEffective s) >> cover 0.17 "FirstIssueParts" (has firstIssueParts s) >> cover 0.17 "FirstIssueDetails" (has firstIssueDetails s) >> cover 0.17 "RevisionVersionIncrement" (has revisionVersionIncrement s) >> cover 0.17 "RevisionMonthsAfter" (has revisionMonthsAfter s) >> cover 0.17 "RevisionEffective" (has revisionEffective s) >> cover 0.17 "RevisionParts" (has revisionParts s) >> cover 0.17 "RevisionDetails" (has revisionDetails s) >> cover 0.17 "PoliciesRecencyFlights" (has policiesRecencyFlights s) >> cover 0.17 "PoliciesRecencyDays" (has policiesRecencyDays s) >> cover 0.17 "PoliciesRefresherMonths" (has policiesRefresherMonths s) >> cover 0.17 "PoliciesAlcoholHours" (has policiesAlcoholHours s) >> cover 0.17 "PoliciesRestHours" (has policiesRestHours s) >> cover 0.17 "PoliciesDutyHours" (has policiesDutyHours s) >> cover 0.17 "PoliciesInspectionMonths" (has policiesInspectionMonths s) >> cover 0.17 "PoliciesInspectionHours" (has policiesInspectionHours s) >> cover 0.17 "PoliciesBatteryReserve" (has policiesBatteryReserve s) >> cover 0.17 "PoliciesBackupFrequency" (has policiesBackupFrequency s) >> cover 0.17 "PoliciesIndependentReviewYears" (has policiesIndependentReviewYears s) >> cover 0.17 "PoliciesCheckingMonths" (has policiesCheckingMonths s) >> cover 0.17 "RiskAssessmentRiskLikelihood" (has riskAssessmentRiskLikelihood s) >> cover 0.17 "RiskAssessmentRiskConsequence" (has riskAssessmentRiskConsequence s) >> cover 0.17 "RiskHazard" (has riskHazard s) >> cover 0.17 "RiskRiskDescription" (has riskRiskDescription s) >> cover 0.17 "RiskExistingControls" (has riskExistingControls s) >> cover 0.17 "RiskInitialRisk" (has riskInitialRisk s) >> cover 0.17 "RiskAdditionalControls" (has riskAdditionalControls s) >> cover 0.17 "RiskResidualRisk" (has riskResidualRisk s) >> cover 0.17 "RiskRiskOwner" (has riskRiskOwner s) >> cover 0.17 "RiskDateEntered" (has riskDateEntered s) >> cover 0.17 "RiskReviewMonths" (has riskReviewMonths s) >> cover 0.17 "OperationsManualFirstIssue" (has operationsManualFirstIssue s) >> cover 0.17 "OperationsManualRevisions" (has operationsManualRevisions s) >> cover 0.17 "OperationsManualServices" (has operationsManualServices s) >> cover 0.17 "OperationsManualPolicies" (has operationsManualPolicies s) >> cover 0.17 "OperationsManualRiskRegister" (has operationsManualRiskRegister s) >> cover 0.17 "OperationsManualCrew" (has operationsManualCrew s) >> cover 0.17 "OperationsManualPilots" (has operationsManualPilots s) >> cover 0.17 "CRINomineeCriIsCEO" (has criNomineeCriIsCEO s) >> cover 0.17 "CRINomineeCriIsCRP" (has criNomineeCriIsCRP s) >> cover 0.17 "CRINomineeCriIsMC" (has criNomineeCriIsMC s) >> cover 0.17 "CRINomineeCriNominated" (has criNomineeCriNominated s) >> cover 0.17 "RePLHoldingHoldsRePLForEachType" (has rePLHoldingHoldsRePLForEachType s) >> cover 0.17 "RePLHoldingRePLHoldingIntent" (has rePLHoldingRePLHoldingIntent s) >> cover 0.17 "TeachingQualificationTeachingQualificationHeld" (has teachingQualificationTeachingQualificationHeld s) >> cover 0.17 "TeachingQualificationTeachingQualificationIntent" (has teachingQualificationTeachingQualificationIntent s) >> cover 0.17 "OperationalExperienceHasOperationalExperience" (has operationalExperienceHasOperationalExperience s) >> cover 0.17 "OperationalExperienceOperationalExperienceIntent" (has operationalExperienceOperationalExperienceIntent s) >> cover 0.17 "OperationalExperienceOperationalExperienceNotApplicable" (has operationalExperienceOperationalExperienceNotApplicable s) >> cover 0.17 "TrainingCourseCourseKind" (has trainingCourseCourseKind s) >> cover 0.17 "TrainingCourseTrainingRPA" (has trainingCourseTrainingRPA s) >> cover 0.17 "TrainingCourseComplexities" (has trainingCourseComplexities s) >> cover 0.17 "TrainingArrangementsTheoryVenues" (has trainingArrangementsTheoryVenues s) >> cover 0.17 "TrainingArrangementsPracticalAreas" (has trainingArrangementsPracticalAreas s) >> cover 0.17 "TrainingArrangementsMaxStudentsPerCourse" (has trainingArrangementsMaxStudentsPerCourse s) >> cover 0.17 "TrainingArrangementsMaxStudentsPerInstructor" (has trainingArrangementsMaxStudentsPerInstructor s) >> cover 0.17 "TrainingArrangementsTakeover" (has trainingArrangementsTakeover s) >> cover 0.17 "TrainingArrangementsTheory" (has trainingArrangementsTheory s) >> cover 0.17 "TrainingArrangementsExam" (has trainingArrangementsExam s) >> cover 0.17 "TrainingArrangementsExamPassMark" (has trainingArrangementsExamPassMark s) >> cover 0.17 "TrainingArrangementsExaminer" (has trainingArrangementsExaminer s) >> cover 0.17 "TrainingArrangementsSimulator" (has trainingArrangementsSimulator s) >> cover 0.17 "TrainingMaterialCriNominee" (has trainingMaterialCriNominee s) >> cover 0.17 "TrainingMaterialRePLHolding" (has trainingMaterialRePLHolding s) >> cover 0.17 "TrainingMaterialTeachingQualification" (has trainingMaterialTeachingQualification s) >> cover 0.17 "TrainingMaterialOperationalExperience" (has trainingMaterialOperationalExperience s) >> cover 0.17 "TrainingMaterialCriOtherReOCRoles" (has trainingMaterialCriOtherReOCRoles s) >> cover 0.17 "TrainingMaterialTrainingCourses" (has trainingMaterialTrainingCourses s) >> cover 0.17 "TrainingMaterialTrainingArrangements" (has trainingMaterialTrainingArrangements s) >> cover 0.17 "ReOCOperator" (has reOCOperator s) >> cover 0.17 "ReOCApplicationForm" (has reOCApplicationForm s) >> cover 0.17 "ReOCOperationsManual" (has reOCOperationsManual s) >> cover 0.17 "ReOCMaybeTrainingMaterial" (has reOCMaybeTrainingMaterial s))] + , prismLaws "Field.personFullName" (personFullName :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.personArn" (personArn :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.personPhoneNumber" (personPhoneNumber :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.personEmailAddress" (personEmailAddress :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.addressStreetAddress" (addressStreetAddress :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.addressSuburb" (addressSuburb :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.addressStateOrTerritory" (addressStateOrTerritory :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.addressPostcode" (addressPostcode :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationalHeadquartersAtRegisteredOffice" (operationalHeadquartersAtRegisteredOffice :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationalHeadquartersOperationalHeadquartersAddress" (operationalHeadquartersOperationalHeadquartersAddress :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.companyCompanyName" (companyCompanyName :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.companyAbn" (companyAbn :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.companyArn" (companyArn :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.companyRegisteredOffice" (companyRegisteredOffice :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.companyOperationalHeadquarters" (companyOperationalHeadquarters :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.companyPhoneNumber" (companyPhoneNumber :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.companyEmailAddress" (companyEmailAddress :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.companyBusinessName" (companyBusinessName :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.flightTerminationNoFlightTerminationSystem" (flightTerminationNoFlightTerminationSystem :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.flightTerminationFlightTerminationSystem" (flightTerminationFlightTerminationSystem :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.emergencyActionSituation" (emergencyActionSituation :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.emergencyActionResponse" (emergencyActionResponse :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.emergencyActionActionSteps" (emergencyActionActionSteps :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeRpaMake" (rpaTypeRpaMake :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeRpaModel" (rpaTypeRpaModel :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeShortName" (rpaTypeShortName :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeCategory" (rpaTypeCategory :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeMaximumGrossWeight" (rpaTypeMaximumGrossWeight :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeUserManual" (rpaTypeUserManual :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeTransponderCarriage" (rpaTypeTransponderCarriage :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeFlightTermination" (rpaTypeFlightTermination :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeInspectionItems" (rpaTypeInspectionItems :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeBeforeFlight" (rpaTypeBeforeFlight :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeBatteryWarnings" (rpaTypeBatteryWarnings :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rpaTypeEmergencyActions" (rpaTypeEmergencyActions :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.equipmentEquipmentDescription" (equipmentEquipmentDescription :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.equipmentSerialNumber" (equipmentSerialNumber :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.aircraftSerialNumber" (aircraftSerialNumber :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.aircraftAssociatedEquipment" (aircraftAssociatedEquipment :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operatedTypeRpaType" (operatedTypeRpaType :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operatedTypeAirframes" (operatedTypeAirframes :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rePLOriginPplTheory" (rePLOriginPplTheory :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rePLOriginRePLTrainingOrganisation" (rePLOriginRePLTrainingOrganisation :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.otherReOCRolesNoOtherReOCRoles" (otherReOCRolesNoOtherReOCRoles :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.otherReOCRolesOtherReOCRolesHeld" (otherReOCRolesOtherReOCRolesHeld :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.nomineePerson" (nomineePerson :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.nomineeOtherQualifications" (nomineeOtherQualifications :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.nomineeAviationExperience" (nomineeAviationExperience :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.chiefExecutiveNominee" (chiefExecutiveNominee :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.chiefExecutiveDirectorStatus" (chiefExecutiveDirectorStatus :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.chiefExecutiveManagementExperience" (chiefExecutiveManagementExperience :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.crpNomineeCrpIsCEO" (crpNomineeCrpIsCEO :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.crpNomineeCrpNominated" (crpNomineeCrpNominated :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.chiefPilotCrpNominee" (chiefPilotCrpNominee :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.chiefPilotRePLOrigin" (chiefPilotRePLOrigin :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.chiefPilotRpaHistory" (chiefPilotRpaHistory :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.chiefPilotOtherReOCRoles" (chiefPilotOtherReOCRoles :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.chiefPilotRadio" (chiefPilotRadio :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.mcNomineeMcIsCEO" (mcNomineeMcIsCEO :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.mcNomineeMcIsCRP" (mcNomineeMcIsCRP :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.mcNomineeMcNominated" (mcNomineeMcNominated :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.keyPersonnelChiefExecutive" (keyPersonnelChiefExecutive :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.keyPersonnelChiefPilot" (keyPersonnelChiefPilot :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.keyPersonnelMcNominee" (keyPersonnelMcNominee :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operatorCompany" (operatorCompany :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operatorKeyPersonnel" (operatorKeyPersonnel :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operatorFleet" (operatorFleet :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.contactPersonFullName" (contactPersonFullName :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.contactPersonPosition" (contactPersonPosition :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.contactPersonPhoneNumber" (contactPersonPhoneNumber :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.contactPersonEmailAddress" (contactPersonEmailAddress :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.primaryContactApplicantIsPrimaryContact" (primaryContactApplicantIsPrimaryContact :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.primaryContactPrimaryContactPerson" (primaryContactPrimaryContactPerson :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.historyAnswerNoHistory" (historyAnswerNoHistory :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.historyAnswerHistoryDisclosed" (historyAnswerHistoryDisclosed :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.personnelHistoryActionTaken" (personnelHistoryActionTaken :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.personnelHistoryTransportLicenceRefused" (personnelHistoryTransportLicenceRefused :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.personnelHistoryCriminalConviction" (personnelHistoryCriminalConviction :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.personnelHistorySuspensionPending" (personnelHistorySuspensionPending :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.regulatoryActionReocSuspendedOrCancelled" (regulatoryActionReocSuspendedOrCancelled :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.regulatoryActionTypeOfAction" (regulatoryActionTypeOfAction :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.regulatoryActionAuthorisationAction" (regulatoryActionAuthorisationAction :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.regulatoryActionActionDate" (regulatoryActionActionDate :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.regulatoryActionActionDetails" (regulatoryActionActionDetails :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.regulatoryHistoryNoRegulatoryAction" (regulatoryHistoryNoRegulatoryAction :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.regulatoryHistoryRegulatoryActionTaken" (regulatoryHistoryRegulatoryActionTaken :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.declarantFullName" (declarantFullName :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.declarantRole" (declarantRole :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.declarationDeclaredByCEO" (declarationDeclaredByCEO :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.declarationDeclaredByResponsibleManager" (declarationDeclaredByResponsibleManager :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.declarationDeclaredByAgent" (declarationDeclaredByAgent :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.declarationDeclaredByOther" (declarationDeclaredByOther :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.writtenSignatureWrittenSignatureImage" (writtenSignatureWrittenSignatureImage :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.writtenSignatureWrittenSignatureFile" (writtenSignatureWrittenSignatureFile :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.applicationFormPrimaryContact" (applicationFormPrimaryContact :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.applicationFormPersonnelHistory" (applicationFormPersonnelHistory :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.applicationFormRegulatoryHistory" (applicationFormRegulatoryHistory :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.applicationFormProceduresLibrary" (applicationFormProceduresLibrary :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.applicationFormOtherDocuments" (applicationFormOtherDocuments :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.applicationFormDeclaration" (applicationFormDeclaration :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.applicationFormSignature" (applicationFormSignature :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.versionMajorVersion" (versionMajorVersion :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.versionMinorVersion" (versionMinorVersion :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.firstIssueVersion" (firstIssueVersion :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.firstIssueIssueDate" (firstIssueIssueDate :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.firstIssueEffective" (firstIssueEffective :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.firstIssueParts" (firstIssueParts :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.firstIssueDetails" (firstIssueDetails :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.revisionVersionIncrement" (revisionVersionIncrement :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.revisionMonthsAfter" (revisionMonthsAfter :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.revisionEffective" (revisionEffective :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.revisionParts" (revisionParts :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.revisionDetails" (revisionDetails :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesRecencyFlights" (policiesRecencyFlights :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesRecencyDays" (policiesRecencyDays :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesRefresherMonths" (policiesRefresherMonths :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesAlcoholHours" (policiesAlcoholHours :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesRestHours" (policiesRestHours :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesDutyHours" (policiesDutyHours :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesInspectionMonths" (policiesInspectionMonths :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesInspectionHours" (policiesInspectionHours :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesBatteryReserve" (policiesBatteryReserve :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesBackupFrequency" (policiesBackupFrequency :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesIndependentReviewYears" (policiesIndependentReviewYears :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.policiesCheckingMonths" (policiesCheckingMonths :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskAssessmentRiskLikelihood" (riskAssessmentRiskLikelihood :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskAssessmentRiskConsequence" (riskAssessmentRiskConsequence :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskHazard" (riskHazard :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskRiskDescription" (riskRiskDescription :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskExistingControls" (riskExistingControls :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskInitialRisk" (riskInitialRisk :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskAdditionalControls" (riskAdditionalControls :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskResidualRisk" (riskResidualRisk :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskRiskOwner" (riskRiskOwner :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskDateEntered" (riskDateEntered :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.riskReviewMonths" (riskReviewMonths :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationsManualFirstIssue" (operationsManualFirstIssue :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationsManualRevisions" (operationsManualRevisions :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationsManualServices" (operationsManualServices :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationsManualPolicies" (operationsManualPolicies :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationsManualRiskRegister" (operationsManualRiskRegister :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationsManualCrew" (operationsManualCrew :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationsManualPilots" (operationsManualPilots :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.criNomineeCriIsCEO" (criNomineeCriIsCEO :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.criNomineeCriIsCRP" (criNomineeCriIsCRP :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.criNomineeCriIsMC" (criNomineeCriIsMC :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.criNomineeCriNominated" (criNomineeCriNominated :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rePLHoldingHoldsRePLForEachType" (rePLHoldingHoldsRePLForEachType :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.rePLHoldingRePLHoldingIntent" (rePLHoldingRePLHoldingIntent :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.teachingQualificationTeachingQualificationHeld" (teachingQualificationTeachingQualificationHeld :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.teachingQualificationTeachingQualificationIntent" (teachingQualificationTeachingQualificationIntent :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationalExperienceHasOperationalExperience" (operationalExperienceHasOperationalExperience :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationalExperienceOperationalExperienceIntent" (operationalExperienceOperationalExperienceIntent :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.operationalExperienceOperationalExperienceNotApplicable" (operationalExperienceOperationalExperienceNotApplicable :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingCourseCourseKind" (trainingCourseCourseKind :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingCourseTrainingRPA" (trainingCourseTrainingRPA :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingCourseComplexities" (trainingCourseComplexities :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsTheoryVenues" (trainingArrangementsTheoryVenues :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsPracticalAreas" (trainingArrangementsPracticalAreas :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsMaxStudentsPerCourse" (trainingArrangementsMaxStudentsPerCourse :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsMaxStudentsPerInstructor" (trainingArrangementsMaxStudentsPerInstructor :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsTakeover" (trainingArrangementsTakeover :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsTheory" (trainingArrangementsTheory :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsExam" (trainingArrangementsExam :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsExamPassMark" (trainingArrangementsExamPassMark :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsExaminer" (trainingArrangementsExaminer :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingArrangementsSimulator" (trainingArrangementsSimulator :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingMaterialCriNominee" (trainingMaterialCriNominee :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingMaterialRePLHolding" (trainingMaterialRePLHolding :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingMaterialTeachingQualification" (trainingMaterialTeachingQualification :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingMaterialOperationalExperience" (trainingMaterialOperationalExperience :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingMaterialCriOtherReOCRoles" (trainingMaterialCriOtherReOCRoles :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingMaterialTrainingCourses" (trainingMaterialTrainingCourses :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.trainingMaterialTrainingArrangements" (trainingMaterialTrainingArrangements :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.reOCOperator" (reOCOperator :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.reOCApplicationForm" (reOCApplicationForm :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.reOCOperationsManual" (reOCOperationsManual :: APrism' Field ()) genField (pure ()) + , prismLaws "Field.reOCMaybeTrainingMaterial" (reOCMaybeTrainingMaterial :: APrism' Field ()) genField (pure ()) + , [("lawNamesInvalidValue", property $ forAll genInvalidValue >>= \s -> lawNamesInvalidValue s === s)] + , [("coverage InvalidValue", withTests 100 . property $ forAll genInvalidValue >>= \s -> cover 1 "InvalidText1" (has invalidText1 s) >> cover 1 "InvalidFormText" (has invalidFormText s) >> cover 1 "InvalidABN" (has invalidABN s) >> cover 1 "InvalidARN" (has invalidARN s) >> cover 1 "InvalidEmailAddress" (has invalidEmailAddress s) >> cover 1 "InvalidPhoneNumber" (has invalidPhoneNumber s) >> cover 1 "InvalidPostcode" (has invalidPostcode s) >> cover 1 "InvalidPositive" (has invalidPositive s) >> cover 1 "InvalidPercentage" (has invalidPercentage s) >> cover 1 "InvalidGrossWeight" (has invalidGrossWeight s) >> cover 1 "InvalidReviewMonths" (has invalidReviewMonths s) >> cover 1 "InvalidPassMark" (has invalidPassMark s))] + , prismLaws "InvalidValue.invalidText1" (invalidText1 :: APrism' InvalidValue Text) genInvalidValue genText + , prismLaws "InvalidValue.invalidFormText" (invalidFormText :: APrism' InvalidValue Text) genInvalidValue genText + , prismLaws "InvalidValue.invalidABN" (invalidABN :: APrism' InvalidValue Text) genInvalidValue genText + , prismLaws "InvalidValue.invalidARN" (invalidARN :: APrism' InvalidValue Text) genInvalidValue genText + , prismLaws "InvalidValue.invalidEmailAddress" (invalidEmailAddress :: APrism' InvalidValue Text) genInvalidValue genText + , prismLaws "InvalidValue.invalidPhoneNumber" (invalidPhoneNumber :: APrism' InvalidValue Text) genInvalidValue genText + , prismLaws "InvalidValue.invalidPostcode" (invalidPostcode :: APrism' InvalidValue Text) genInvalidValue genText + , prismLaws "InvalidValue.invalidPositive" (invalidPositive :: APrism' InvalidValue Natural) genInvalidValue genNatural + , prismLaws "InvalidValue.invalidPercentage" (invalidPercentage :: APrism' InvalidValue Natural) genInvalidValue genNatural + , prismLaws "InvalidValue.invalidGrossWeight" (invalidGrossWeight :: APrism' InvalidValue Natural) genInvalidValue genNatural + , prismLaws "InvalidValue.invalidReviewMonths" (invalidReviewMonths :: APrism' InvalidValue Natural) genInvalidValue genNatural + , prismLaws "InvalidValue.invalidPassMark" (invalidPassMark :: APrism' InvalidValue Natural) genInvalidValue genNatural + , [("lawNamesStep", property $ forAll genStep >>= \s -> lawNamesStep s === s)] + , [("coverage Step", withTests 100 . property $ forAll genStep >>= \s -> cover 1 "StepField" (has field s) >> cover 1 "StepIndex" (has stepIndex s))] + , prismLaws "Step.field" (field :: APrism' Step Field) genStep genField + , prismLaws "Step.stepIndex" (stepIndex :: APrism' Step Natural) genStep genNatural + , prismLaws "Step.personFullName" (personFullName :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.personArn" (personArn :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.personPhoneNumber" (personPhoneNumber :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.personEmailAddress" (personEmailAddress :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.addressStreetAddress" (addressStreetAddress :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.addressSuburb" (addressSuburb :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.addressStateOrTerritory" (addressStateOrTerritory :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.addressPostcode" (addressPostcode :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationalHeadquartersAtRegisteredOffice" (operationalHeadquartersAtRegisteredOffice :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationalHeadquartersOperationalHeadquartersAddress" (operationalHeadquartersOperationalHeadquartersAddress :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.companyCompanyName" (companyCompanyName :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.companyAbn" (companyAbn :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.companyArn" (companyArn :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.companyRegisteredOffice" (companyRegisteredOffice :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.companyOperationalHeadquarters" (companyOperationalHeadquarters :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.companyPhoneNumber" (companyPhoneNumber :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.companyEmailAddress" (companyEmailAddress :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.companyBusinessName" (companyBusinessName :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.flightTerminationNoFlightTerminationSystem" (flightTerminationNoFlightTerminationSystem :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.flightTerminationFlightTerminationSystem" (flightTerminationFlightTerminationSystem :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.emergencyActionSituation" (emergencyActionSituation :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.emergencyActionResponse" (emergencyActionResponse :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.emergencyActionActionSteps" (emergencyActionActionSteps :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeRpaMake" (rpaTypeRpaMake :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeRpaModel" (rpaTypeRpaModel :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeShortName" (rpaTypeShortName :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeCategory" (rpaTypeCategory :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeMaximumGrossWeight" (rpaTypeMaximumGrossWeight :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeUserManual" (rpaTypeUserManual :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeTransponderCarriage" (rpaTypeTransponderCarriage :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeFlightTermination" (rpaTypeFlightTermination :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeInspectionItems" (rpaTypeInspectionItems :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeBeforeFlight" (rpaTypeBeforeFlight :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeBatteryWarnings" (rpaTypeBatteryWarnings :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rpaTypeEmergencyActions" (rpaTypeEmergencyActions :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.equipmentEquipmentDescription" (equipmentEquipmentDescription :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.equipmentSerialNumber" (equipmentSerialNumber :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.aircraftSerialNumber" (aircraftSerialNumber :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.aircraftAssociatedEquipment" (aircraftAssociatedEquipment :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operatedTypeRpaType" (operatedTypeRpaType :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operatedTypeAirframes" (operatedTypeAirframes :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rePLOriginPplTheory" (rePLOriginPplTheory :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rePLOriginRePLTrainingOrganisation" (rePLOriginRePLTrainingOrganisation :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.otherReOCRolesNoOtherReOCRoles" (otherReOCRolesNoOtherReOCRoles :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.otherReOCRolesOtherReOCRolesHeld" (otherReOCRolesOtherReOCRolesHeld :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.nomineePerson" (nomineePerson :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.nomineeOtherQualifications" (nomineeOtherQualifications :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.nomineeAviationExperience" (nomineeAviationExperience :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.chiefExecutiveNominee" (chiefExecutiveNominee :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.chiefExecutiveDirectorStatus" (chiefExecutiveDirectorStatus :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.chiefExecutiveManagementExperience" (chiefExecutiveManagementExperience :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.crpNomineeCrpIsCEO" (crpNomineeCrpIsCEO :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.crpNomineeCrpNominated" (crpNomineeCrpNominated :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.chiefPilotCrpNominee" (chiefPilotCrpNominee :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.chiefPilotRePLOrigin" (chiefPilotRePLOrigin :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.chiefPilotRpaHistory" (chiefPilotRpaHistory :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.chiefPilotOtherReOCRoles" (chiefPilotOtherReOCRoles :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.chiefPilotRadio" (chiefPilotRadio :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.mcNomineeMcIsCEO" (mcNomineeMcIsCEO :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.mcNomineeMcIsCRP" (mcNomineeMcIsCRP :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.mcNomineeMcNominated" (mcNomineeMcNominated :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.keyPersonnelChiefExecutive" (keyPersonnelChiefExecutive :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.keyPersonnelChiefPilot" (keyPersonnelChiefPilot :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.keyPersonnelMcNominee" (keyPersonnelMcNominee :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operatorCompany" (operatorCompany :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operatorKeyPersonnel" (operatorKeyPersonnel :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operatorFleet" (operatorFleet :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.contactPersonFullName" (contactPersonFullName :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.contactPersonPosition" (contactPersonPosition :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.contactPersonPhoneNumber" (contactPersonPhoneNumber :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.contactPersonEmailAddress" (contactPersonEmailAddress :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.primaryContactApplicantIsPrimaryContact" (primaryContactApplicantIsPrimaryContact :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.primaryContactPrimaryContactPerson" (primaryContactPrimaryContactPerson :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.historyAnswerNoHistory" (historyAnswerNoHistory :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.historyAnswerHistoryDisclosed" (historyAnswerHistoryDisclosed :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.personnelHistoryActionTaken" (personnelHistoryActionTaken :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.personnelHistoryTransportLicenceRefused" (personnelHistoryTransportLicenceRefused :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.personnelHistoryCriminalConviction" (personnelHistoryCriminalConviction :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.personnelHistorySuspensionPending" (personnelHistorySuspensionPending :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.regulatoryActionReocSuspendedOrCancelled" (regulatoryActionReocSuspendedOrCancelled :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.regulatoryActionTypeOfAction" (regulatoryActionTypeOfAction :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.regulatoryActionAuthorisationAction" (regulatoryActionAuthorisationAction :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.regulatoryActionActionDate" (regulatoryActionActionDate :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.regulatoryActionActionDetails" (regulatoryActionActionDetails :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.regulatoryHistoryNoRegulatoryAction" (regulatoryHistoryNoRegulatoryAction :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.regulatoryHistoryRegulatoryActionTaken" (regulatoryHistoryRegulatoryActionTaken :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.declarantFullName" (declarantFullName :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.declarantRole" (declarantRole :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.declarationDeclaredByCEO" (declarationDeclaredByCEO :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.declarationDeclaredByResponsibleManager" (declarationDeclaredByResponsibleManager :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.declarationDeclaredByAgent" (declarationDeclaredByAgent :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.declarationDeclaredByOther" (declarationDeclaredByOther :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.writtenSignatureWrittenSignatureImage" (writtenSignatureWrittenSignatureImage :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.writtenSignatureWrittenSignatureFile" (writtenSignatureWrittenSignatureFile :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.applicationFormPrimaryContact" (applicationFormPrimaryContact :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.applicationFormPersonnelHistory" (applicationFormPersonnelHistory :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.applicationFormRegulatoryHistory" (applicationFormRegulatoryHistory :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.applicationFormProceduresLibrary" (applicationFormProceduresLibrary :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.applicationFormOtherDocuments" (applicationFormOtherDocuments :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.applicationFormDeclaration" (applicationFormDeclaration :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.applicationFormSignature" (applicationFormSignature :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.versionMajorVersion" (versionMajorVersion :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.versionMinorVersion" (versionMinorVersion :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.firstIssueVersion" (firstIssueVersion :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.firstIssueIssueDate" (firstIssueIssueDate :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.firstIssueEffective" (firstIssueEffective :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.firstIssueParts" (firstIssueParts :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.firstIssueDetails" (firstIssueDetails :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.revisionVersionIncrement" (revisionVersionIncrement :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.revisionMonthsAfter" (revisionMonthsAfter :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.revisionEffective" (revisionEffective :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.revisionParts" (revisionParts :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.revisionDetails" (revisionDetails :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesRecencyFlights" (policiesRecencyFlights :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesRecencyDays" (policiesRecencyDays :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesRefresherMonths" (policiesRefresherMonths :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesAlcoholHours" (policiesAlcoholHours :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesRestHours" (policiesRestHours :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesDutyHours" (policiesDutyHours :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesInspectionMonths" (policiesInspectionMonths :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesInspectionHours" (policiesInspectionHours :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesBatteryReserve" (policiesBatteryReserve :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesBackupFrequency" (policiesBackupFrequency :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesIndependentReviewYears" (policiesIndependentReviewYears :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.policiesCheckingMonths" (policiesCheckingMonths :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskAssessmentRiskLikelihood" (riskAssessmentRiskLikelihood :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskAssessmentRiskConsequence" (riskAssessmentRiskConsequence :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskHazard" (riskHazard :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskRiskDescription" (riskRiskDescription :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskExistingControls" (riskExistingControls :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskInitialRisk" (riskInitialRisk :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskAdditionalControls" (riskAdditionalControls :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskResidualRisk" (riskResidualRisk :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskRiskOwner" (riskRiskOwner :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskDateEntered" (riskDateEntered :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.riskReviewMonths" (riskReviewMonths :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationsManualFirstIssue" (operationsManualFirstIssue :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationsManualRevisions" (operationsManualRevisions :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationsManualServices" (operationsManualServices :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationsManualPolicies" (operationsManualPolicies :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationsManualRiskRegister" (operationsManualRiskRegister :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationsManualCrew" (operationsManualCrew :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationsManualPilots" (operationsManualPilots :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.criNomineeCriIsCEO" (criNomineeCriIsCEO :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.criNomineeCriIsCRP" (criNomineeCriIsCRP :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.criNomineeCriIsMC" (criNomineeCriIsMC :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.criNomineeCriNominated" (criNomineeCriNominated :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rePLHoldingHoldsRePLForEachType" (rePLHoldingHoldsRePLForEachType :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.rePLHoldingRePLHoldingIntent" (rePLHoldingRePLHoldingIntent :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.teachingQualificationTeachingQualificationHeld" (teachingQualificationTeachingQualificationHeld :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.teachingQualificationTeachingQualificationIntent" (teachingQualificationTeachingQualificationIntent :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationalExperienceHasOperationalExperience" (operationalExperienceHasOperationalExperience :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationalExperienceOperationalExperienceIntent" (operationalExperienceOperationalExperienceIntent :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.operationalExperienceOperationalExperienceNotApplicable" (operationalExperienceOperationalExperienceNotApplicable :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingCourseCourseKind" (trainingCourseCourseKind :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingCourseTrainingRPA" (trainingCourseTrainingRPA :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingCourseComplexities" (trainingCourseComplexities :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsTheoryVenues" (trainingArrangementsTheoryVenues :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsPracticalAreas" (trainingArrangementsPracticalAreas :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsMaxStudentsPerCourse" (trainingArrangementsMaxStudentsPerCourse :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsMaxStudentsPerInstructor" (trainingArrangementsMaxStudentsPerInstructor :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsTakeover" (trainingArrangementsTakeover :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsTheory" (trainingArrangementsTheory :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsExam" (trainingArrangementsExam :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsExamPassMark" (trainingArrangementsExamPassMark :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsExaminer" (trainingArrangementsExaminer :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingArrangementsSimulator" (trainingArrangementsSimulator :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingMaterialCriNominee" (trainingMaterialCriNominee :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingMaterialRePLHolding" (trainingMaterialRePLHolding :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingMaterialTeachingQualification" (trainingMaterialTeachingQualification :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingMaterialOperationalExperience" (trainingMaterialOperationalExperience :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingMaterialCriOtherReOCRoles" (trainingMaterialCriOtherReOCRoles :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingMaterialTrainingCourses" (trainingMaterialTrainingCourses :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.trainingMaterialTrainingArrangements" (trainingMaterialTrainingArrangements :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.reOCOperator" (reOCOperator :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.reOCApplicationForm" (reOCApplicationForm :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.reOCOperationsManual" (reOCOperationsManual :: APrism' Step ()) genStep (pure ()) + , prismLaws "Step.reOCMaybeTrainingMaterial" (reOCMaybeTrainingMaterial :: APrism' Step ()) genStep (pure ()) + , [("lawNamesUnfilled", property $ forAll genUnfilled >>= \s -> lawNamesUnfilled s === s)] + , lensLaws "Unfilled.path" (path :: ALens' Unfilled [Step]) genUnfilled (Gen.list (Range.linear 0 2) genStep) + , [("lawNamesInvalid", property $ forAll genInvalid >>= \s -> lawNamesInvalid s === s)] + , lensLaws "Invalid.path" (path :: ALens' Invalid [Step]) genInvalid (Gen.list (Range.linear 0 2) genStep) + , lensLaws "Invalid.invalidValue" (invalidValue :: ALens' Invalid InvalidValue) genInvalid genInvalidValue + , affineLaws "Invalid.invalidText1" (invalidText1 :: Traversal' Invalid Text) genInvalid genText + , affineLaws "Invalid.invalidFormText" (invalidFormText :: Traversal' Invalid Text) genInvalid genText + , affineLaws "Invalid.invalidABN" (invalidABN :: Traversal' Invalid Text) genInvalid genText + , affineLaws "Invalid.invalidARN" (invalidARN :: Traversal' Invalid Text) genInvalid genText + , affineLaws "Invalid.invalidEmailAddress" (invalidEmailAddress :: Traversal' Invalid Text) genInvalid genText + , affineLaws "Invalid.invalidPhoneNumber" (invalidPhoneNumber :: Traversal' Invalid Text) genInvalid genText + , affineLaws "Invalid.invalidPostcode" (invalidPostcode :: Traversal' Invalid Text) genInvalid genText + , affineLaws "Invalid.invalidPositive" (invalidPositive :: Traversal' Invalid Natural) genInvalid genNatural + , affineLaws "Invalid.invalidPercentage" (invalidPercentage :: Traversal' Invalid Natural) genInvalid genNatural + , affineLaws "Invalid.invalidGrossWeight" (invalidGrossWeight :: Traversal' Invalid Natural) genInvalid genNatural + , affineLaws "Invalid.invalidReviewMonths" (invalidReviewMonths :: Traversal' Invalid Natural) genInvalid genNatural + , affineLaws "Invalid.invalidPassMark" (invalidPassMark :: Traversal' Invalid Natural) genInvalid genNatural + , [("lawNamesTooMany", property $ forAll genTooMany >>= \s -> lawNamesTooMany s === s)] + , lensLaws "TooMany.path" (path :: ALens' TooMany [Step]) genTooMany (Gen.list (Range.linear 0 2) genStep) + , lensLaws "TooMany.mostElements" (mostElements :: ALens' TooMany Natural) genTooMany genNatural + , lensLaws "TooMany.givenElements" (givenElements :: ALens' TooMany Natural) genTooMany genNatural + , [("lawNamesReOCError", property $ forAll genReOCError >>= \s -> lawNamesReOCError s === s)] + , [("coverage ReOCError", withTests 100 . property $ forAll genReOCError >>= \s -> cover 1 "ReOCErrorUnfilled" (has unfilled s) >> cover 1 "ReOCErrorInvalid" (has invalid s) >> cover 1 "ReOCErrorTooMany" (has tooMany s))] + , prismLaws "ReOCError.unfilled" (unfilled :: APrism' ReOCError Unfilled) genReOCError genUnfilled + , prismLaws "ReOCError.invalid" (invalid :: APrism' ReOCError Invalid) genReOCError genInvalid + , prismLaws "ReOCError.tooMany" (tooMany :: APrism' ReOCError TooMany) genReOCError genTooMany + , affineLaws "ReOCError.path" (path :: Traversal' ReOCError [Step]) genReOCError (Gen.list (Range.linear 0 2) genStep) + , affineLaws "ReOCError.invalidValue" (invalidValue :: Traversal' ReOCError InvalidValue) genReOCError genInvalidValue + , affineLaws "ReOCError.invalidText1" (invalidText1 :: Traversal' ReOCError Text) genReOCError genText + , affineLaws "ReOCError.invalidFormText" (invalidFormText :: Traversal' ReOCError Text) genReOCError genText + , affineLaws "ReOCError.invalidABN" (invalidABN :: Traversal' ReOCError Text) genReOCError genText + , affineLaws "ReOCError.invalidARN" (invalidARN :: Traversal' ReOCError Text) genReOCError genText + , affineLaws "ReOCError.invalidEmailAddress" (invalidEmailAddress :: Traversal' ReOCError Text) genReOCError genText + , affineLaws "ReOCError.invalidPhoneNumber" (invalidPhoneNumber :: Traversal' ReOCError Text) genReOCError genText + , affineLaws "ReOCError.invalidPostcode" (invalidPostcode :: Traversal' ReOCError Text) genReOCError genText + , affineLaws "ReOCError.invalidPositive" (invalidPositive :: Traversal' ReOCError Natural) genReOCError genNatural + , affineLaws "ReOCError.invalidPercentage" (invalidPercentage :: Traversal' ReOCError Natural) genReOCError genNatural + , affineLaws "ReOCError.invalidGrossWeight" (invalidGrossWeight :: Traversal' ReOCError Natural) genReOCError genNatural + , affineLaws "ReOCError.invalidReviewMonths" (invalidReviewMonths :: Traversal' ReOCError Natural) genReOCError genNatural + , affineLaws "ReOCError.invalidPassMark" (invalidPassMark :: Traversal' ReOCError Natural) genReOCError genNatural + , affineLaws "ReOCError.mostElements" (mostElements :: Traversal' ReOCError Natural) genReOCError genNatural + , affineLaws "ReOCError.givenElements" (givenElements :: Traversal' ReOCError Natural) genReOCError genNatural + ] diff --git a/test/PrimitiveGens.hs b/test/PrimitiveGens.hs new file mode 100644 --- /dev/null +++ b/test/PrimitiveGens.hs @@ -0,0 +1,153 @@ +{-# LANGUAGE AllowAmbiguousTypes #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# OPTIONS_GHC -Wall #-} + +-- | Generators of the primitive types and of the other types that the data types hold. +module PrimitiveGens ( + genText, + genText1, + genByteString, + genFilePath, + genABN, + genARN, + genEmailAddress, + genPhoneNumber, + genPostcode, + genPositive, + genPercentage, + genMonth, + genDay, + genNatural, + genFormText, + genGrossWeight, + genReviewMonths, + genPassMark, + genSome, + genAtMost, +) where + +import Control.Lens (preview) +import Data.ByteString (ByteString) +import Data.Maybe (listToMaybe, mapMaybe) +import Data.Proxy (Proxy (..)) +import Data.Text (Text) +import qualified Data.Text as Text +import Data.Time.Calendar (Day, fromGregorian) +import Data.Time.Calendar.Month (Month, fromYearMonthValid) +import GHC.TypeNats (KnownNat, natVal) +import Hedgehog (Gen) +import qualified Hedgehog.Gen as Gen +import qualified Hedgehog.Range as Range +import Numeric.Natural (Natural) +import ReOC + +genText :: Gen Text +genText = + Gen.text (Range.linear 0 20) Gen.unicode + +-- Characters that XML, markdown and the form treat specially, among ordinary ones. +special :: Gen Char +special = + Gen.frequency [(6, Gen.alphaNum), (2, pure ' '), (3, Gen.element "&<>\"'*|#-.\\_`[]{}é–’")] + +genText1 :: Gen Text1 +genText1 = + Gen.mapMaybe (preview _Text1) (Gen.choice [Gen.text (Range.linear 1 20) Gen.unicode, Gen.text (Range.linear 1 30) special]) + +-- | Bytes, such as the contents of an image. +genByteString :: Gen ByteString +genByteString = + Gen.bytes (Range.linear 0 64) + +-- | A file path. +genFilePath :: Gen FilePath +genFilePath = + Gen.string (Range.linear 1 30) Gen.unicode + +-- | Text that fits a box of the form. +genFormText :: forall f w l. (KnownFormFont f, KnownNat w, KnownNat l) => Gen (FormText f w l) +genFormText = + let width = fromIntegral (natVal (Proxy :: Proxy w)) :: Int + lines' = fromIntegral (natVal (Proxy :: Proxy l)) :: Int + word = Gen.text (Range.linear 1 8) (Gen.frequency [(8, Gen.alphaNum), (2, Gen.element "&<>\"'*|#-.\\é–’")]) + separator = if lines' > 1 then Gen.frequency [(6, pure " "), (1, pure "\n")] else pure " " + wordsUpTo = max 1 (width * lines' `div` 40) + phrase = do + ws <- Gen.list (Range.linear 1 wordsUpTo) word + seps <- Gen.list (Range.singleton (length ws)) separator + pure (Text.concat (zipWith (<>) ws (map Text.pack seps))) + in Gen.mapMaybe (preview _FormText) (Text.strip <$> phrase) + +genGrossWeight :: Gen GrossWeight +genGrossWeight = + Gen.mapMaybe (preview _GrossWeight) (Gen.choice [Gen.integral (Range.linear 1 2000), Gen.integral (Range.linear 1 25000)]) + +genReviewMonths :: Gen ReviewMonths +genReviewMonths = + Gen.mapMaybe (preview _ReviewMonths) (Gen.integral (Range.linear 1 12)) + +genPassMark :: Gen PassMark +genPassMark = + Gen.mapMaybe (preview _PassMark) (Gen.integral (Range.linear 70 100)) + +-- | From 1 to n values, at most 3. +genSome :: forall n a. (KnownNat n) => Gen a -> Gen (Some n a) +genSome g = + Gen.mapMaybe (preview _Some) (Gen.nonEmpty (Range.linear 1 (min 3 (fromIntegral (natVal (Proxy :: Proxy n))))) g) + +-- | From 0 to n values, at most 3. +genAtMost :: forall n a. (KnownNat n) => Gen a -> Gen (AtMost n a) +genAtMost g = + Gen.mapMaybe (preview _AtMost) (Gen.list (Range.linear 0 (min 3 (fromIntegral (natVal (Proxy :: Proxy n))))) g) + +digits :: Int -> Gen String +digits n = + Gen.list (Range.singleton n) Gen.digit + +-- | An ABN: 9 digits, with the first check digits that make it valid. +genABN :: Gen ABN +genABN = + Gen.just $ + (\rest -> listToMaybe (mapMaybe (\p -> preview _ABN (Text.pack (show p <> rest))) [10 .. 99 :: Int])) + <$> digits 9 + +genARN :: Gen ARN +genARN = + Gen.mapMaybe (preview _ARN . Text.pack) (Gen.list (Range.linear 1 10) Gen.digit) + +genEmailAddress :: Gen EmailAddress +genEmailAddress = + let part = Gen.string (Range.linear 1 8) Gen.alphaNum + in Gen.mapMaybe + (preview _EmailAddress . Text.pack) + ((\l d t -> l <> "@" <> d <> "." <> t) <$> part <*> part <*> part) + +genPhoneNumber :: Gen PhoneNumber +genPhoneNumber = + Gen.mapMaybe + (preview _PhoneNumber . Text.pack) + (Gen.choice [("0" <>) <$> digits 9, ("13" <>) <$> digits 8, ("18" <>) <$> digits 8]) + +genPostcode :: Gen Postcode +genPostcode = + Gen.mapMaybe (preview _Postcode . Text.pack) (digits 4) + +genPositive :: Gen Positive +genPositive = + Gen.mapMaybe (preview _Positive) (Gen.integral (Range.linear 1 1000)) + +genPercentage :: Gen Percentage +genPercentage = + Gen.mapMaybe (preview _Percentage) (Gen.integral (Range.linear 0 100)) + +genMonth :: Gen Month +genMonth = + Gen.just (fromYearMonthValid <$> Gen.integral (Range.linear 2000 2100) <*> Gen.int (Range.linear 1 12)) + +genDay :: Gen Day +genDay = + fromGregorian <$> Gen.integral (Range.linear 2000 2100) <*> Gen.int (Range.linear 1 12) <*> Gen.int (Range.linear 1 31) + +genNatural :: Gen Natural +genNatural = + Gen.integral (Range.linear 0 100) diff --git a/test/RenderTests.hs b/test/RenderTests.hs new file mode 100644 --- /dev/null +++ b/test/RenderTests.hs @@ -0,0 +1,430 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE TypeApplications #-} +{-# OPTIONS_GHC -Wall #-} + +-- | Tests of the documents that a ReOC gives. +module RenderTests ( + renderTests, +) where + +import Control.Lens (cloneLens, has, set, toListOf, view, (&), (.~), (?~)) +import qualified Data.ByteString as ByteString +import Data.Foldable (toList) +import Data.List (nub) +import Data.List.NonEmpty (NonEmpty (..)) +import qualified Data.Map as Map +import Data.Maybe (isJust) +import qualified Data.Text as Text +import qualified Data.Text.IO as Text +import qualified Data.Text.Lazy as Lazy +import Data.Time.Calendar (fromGregorian) +import DataGens (genReOC, genRiskAssessment) +import FormFields (formFields, textBoxes) +import Hedgehog +import qualified Hedgehog.Gen as Gen +import qualified Hedgehog.Range as Range +import Laws (prismLaws) +import Numeric.Natural (Natural) +import PrimitiveGens +import ReOC +import ReOC.Examples (banksiaPoint, draft, examples) +import ReOC.Render.Markdown (escapeMarkdown, inline) +import ReOC.Render.OperationsManual.Diagram (organisationalDiagramSvg) +import System.Directory (doesDirectoryExist, doesFileExist, getTemporaryDirectory, removePathForcibly) +import System.FilePath (()) +import qualified Text.XML as XML + +renderTests :: [(PropertyName, Property)] +renderTests = + concat + [ prismLaws "_Text1" _Text1 genText genText1 + , prismLaws "_FormText" (_FormText @'Narrow @212 @1) genText genFormText + , prismLaws "_FormText (wide, 5 lines)" (_FormText @'Wide @185 @5) genText genFormText + , prismLaws "_ABN" _ABN (Text.pack <$> genDigitsText) genABN + , prismLaws "_ARN" _ARN (Text.pack <$> genDigitsText) genARN + , prismLaws "_EmailAddress" _EmailAddress genText genEmailAddress + , prismLaws "_PhoneNumber" _PhoneNumber (Text.pack <$> genDigitsText) genPhoneNumber + , prismLaws "_Postcode" _Postcode (Text.pack <$> genDigitsText) genPostcode + , prismLaws "_Positive" _Positive genNatural genPositive + , prismLaws "_Percentage" _Percentage genNatural genPercentage + , prismLaws "_GrossWeight" _GrossWeight (Gen.integral (Range.linear 0 30000)) genGrossWeight + , prismLaws "_ReviewMonths" _ReviewMonths genNatural genReviewMonths + , prismLaws "_PassMark" _PassMark genNatural genPassMark + , prismLaws "_Some" (_Some @3) (Gen.nonEmpty (Range.linear 1 5) Gen.bool) (genSome Gen.bool) + , prismLaws "_AtMost" (_AtMost @3) (Gen.list (Range.linear 0 5) Gen.bool) (genAtMost Gen.bool) + , + [ ("every field of the application form is on CASA Form 101-02", prop_fieldsOnForm) + , ("no field of the application form is filled twice", prop_fieldsOnce) + , ("every text of the application form fits its box", prop_fieldsFit) + , ("the documents are well-formed XML", prop_wellFormed) + , ("the organisational diagram is well-formed SVG", prop_diagram) + , ("the manuals have no holes or markers left", prop_noHoles) + , ("the RePL training manual is written only with RePL training", prop_trainingManual) + , ("the operations manual has the legal name of the company", prop_legalName) + , ("the risk register has a row for each risk", prop_riskRows) + , ("the amendment record increases its version and keeps its dates in order", prop_amendmentRecord) + , ("text in markdown is shown as it is", prop_markdownEscape) + , ("the risk rating matrix", prop_riskMatrix) + , ("a risk is rated with its likelihood and consequence", prop_riskRating) + , ("the documents keep the placeholders of the document build", prop_placeholders) + , ("filling the placeholders leaves none", prop_fillPlaceholders) + , ("each example gives well-formed documents whose form text fits", prop_examples) + , ("the documents in examples are the ones the examples give", prop_examplesWritten) + , ("every example is valid", prop_examplesValid) + , ("filling in the unfilled form of a valid ReOC gives it back", prop_fillUnfill) + , ("filling in an empty form gives an error at each required field", prop_fillEmpty) + , ("an invalid and an unfilled field each give one error at its path", prop_fillErrors) + , ("a list field with too many elements is an error at the list", prop_fillTooMany) + , ("the draft example gives its errors", prop_draft) + , ("the blank form is written beside the application form of each example", prop_blankForm) + , ("writing the documents writes the blank form and the written signature", prop_writtenFiles) + ] + ] + where + genDigitsText = + Gen.choice [show <$> Gen.integral (Range.linear (0 :: Integer) 99999999999), Gen.string (Range.linear 0 12) Gen.unicode] + +-- Generates a ReOC, with RePL training in about half of them. +genReOC' :: Gen ReOC +genReOC' = + genReOC + +prop_fieldsOnForm :: Property +prop_fieldsOnForm = + property $ do + r <- forAll genReOC' + let fs = concatMap snd (applicationFormFields r) + mapM_' fs $ \(n, v) -> + case Map.lookup n formFields of + Nothing -> annotate ("not a field of the form: " <> show n) >> failure + Just Nothing -> success + Just (Just states) -> do + annotate (show (n, v)) + assert (v `elem` states) + where + mapM_' xs f = mapM_ f xs + +prop_fieldsOnce :: Property +prop_fieldsOnce = + property $ do + r <- forAll genReOC' + let names = map fst (concatMap snd (applicationFormFields r)) + names === nub names + +-- Every text the form is filled with can be shown by its font, and takes no more lines than its box shows. +prop_fieldsFit :: Property +prop_fieldsFit = + property $ do + r <- forAll genReOC' + let fs = concatMap snd (applicationFormFields r) + mapM_ + ( \(n, v) -> + case Map.lookup n textBoxes of + Just (font, width, lines') + | not ("${" `Text.isInfixOf` v) -> do + annotate (show (n, v)) + assert (all (isJust . textWidth font) (filter (/= "") (Text.splitOn "\n" v))) + assert (textLines font width v <= lines') + _ -> success + ) + fs + +prop_wellFormed :: Property +prop_wellFormed = + withTests 40 . property $ do + r <- forAll genReOC' + let docs = [renderApplicationForm r, renderOperationsManual r] <> toList (renderTrainingManual r) + mapM_ + ( \d -> do + assert (Text.all xmlCharacter d) + case XML.parseText XML.def (Lazy.fromStrict d) of + Left e -> annotate (show e) >> failure + Right _ -> success + ) + docs + +prop_diagram :: Property +prop_diagram = + property $ do + r <- forAll genReOC' + case XML.parseText XML.def (Lazy.fromStrict (organisationalDiagramSvg r)) of + Left e -> annotate (show e) >> failure + Right _ -> success + +-- The holes of a template: each {{name}}. Generated text can hold "{{", so the test looks for the holes themselves. +templateHoles :: Text.Text -> [Text.Text] +templateHoles t = + nub [h | s <- drop 1 (Text.splitOn "{{" t), let (n, rest) = Text.breakOn "}}" s, not (Text.null rest), let h = "{{" <> n <> "}}"] + +prop_noHoles :: Property +prop_noHoles = + withTests 40 . property $ do + holes <- evalIO (templateHoles . Text.concat <$> mapM Text.readFile ["template/rpas-operations-manual.fodt", "template/repl-training-manual.fodt", "template/repl-training-manual.md"]) + assert (length holes > 50) + r <- forAll genReOC' + let docs = renderOperationsManual r : toList (renderTrainingManual r) + mapM_ (\d -> mapM_ (\h -> annotate (show h) >> assert (not (h `Text.isInfixOf` d))) holes) docs + -- Markers are comments, and text from the data has its < escaped. + mapM_ (\t -> assert (not ("