{ parameter (or (lambda %lambda unit (list operation)) (option %update_admin address)) ;

  storage (pair (pair %admin (address %current) (option %pending address))

                (address %whitelist_contract)) ;

  code { PUSH string "SENDER_NOT_ADMIN" ;

         SWAP ;

         UNPAIR ;

         IF_LEFT

           { DUP 2 ;

             CAR ;

             CAR ;

             SENDER ;

             COMPARE ;

             NEQ ;

             IF { DIG 2 ; FAILWITH } { DIG 2 ; DROP } ;

             SWAP ;

             UNIT ;

             DIG 2 ;

             SWAP ;

             EXEC ;

             PAIR }

           { DUP 2 ;

             CDR ;

             NIL address ;

             SENDER ;

             CONS ;

             VIEW "are_whitelisted" bool ;

             IF_NONE { PUSH string "CALL_ARE_WHITELISED_VIEW_FAILED" ; FAILWITH } {} ;

             IF

               { DUP 2 ;

                 CAR ;

                 SWAP ;

                 IF_NONE

                   { DIG 2 ;

                     DROP ;

                     CDR ;

                     IF_NONE

                       { PUSH string "NO_PENDING_ADMIN" ; FAILWITH }

                       { DUP ;

                         SENDER ;

                         COMPARE ;

                         NEQ ;

                         IF

                           { DROP ; PUSH string "NOT_PENDING_ADMIN" ; FAILWITH }

                           { NONE address ; SWAP ; PAIR } } }

                   { DUP 2 ;

                     CAR ;

                     SENDER ;

                     COMPARE ;

                     NEQ ;

                     IF { DIG 3 ; FAILWITH } { DIG 3 ; DROP } ;

                     SOME ;

                     UPDATE 2 } ;

                 NIL operation ;

                 DUG 2 ;

                 UPDATE 1 ;

                 SWAP ;

                 PAIR }

               { DROP 3 ; PUSH string "ADDRESS_NOT_WHITELISTED" ; FAILWITH } } } ;

  view "admin" unit address { CDR ; CAR ; CAR } }