parameter (or

            (or (or (pair %blacklist address bool) (unit %confirmAdmin))

                (or (unit %default) (bool %pause)))

            (or

              (or

                (pair %sendMessage (nat %pass_id) (bytes %metadata_cid)

                                   (list %to_ address))

                (address %setAdmin))

              (pair %setup (nat %collectionId) (address %mintery) (mutez %price)

                           (address %passToken)

                           (nat %messages))));

storage (pair

          (pair

            (pair (pair (address %admin) (big_map %blacklist address unit))

                  (pair (nat %collectionId) (nat %messages)))

            (pair (pair (address %mintery) (address %passToken))

                  (pair (bool %paused) (option %pending_admin address))))

          (pair (mutez %price) (map %shares address nat)));

code { PUSH address "KT1Aq4wWmVanpQhq4TTfjZXB5AjFpx15iQMM" ;

       PUSH string "Access denied" ;

       NIL operation ;

       DIG 3 ;

       UNPAIR ;

       IF_LEFT

         { DIG 4 ;

           DROP ;

           IF_LEFT

             { IF_LEFT

                 { DIG 3 ;

                   DUP 3 ;

                   CAR ;

                   CAR ;

                   CAR ;

                   CAR ;

                   SENDER ;

                   COMPARE ;

                   EQ ;

                   IF { DROP } { FAILWITH } ;

                   SWAP ;

                   DUP ;

                   DUG 2 ;

                   CDR ;

                   DUP 3 ;

                   CAR ;

                   CDR ;

                   DUP 4 ;

                   CAR ;

                   CAR ;

                   CDR ;

                   DUP 4 ;

                   CDR ;

                   IF

                     { DUP 5 ; CAR ; CAR ; CAR ; CDR ; UNIT ; DIG 5 ; CAR ; SWAP ; SOME ; SWAP ; UPDATE }

                     { DUP 5 ; CAR ; CAR ; CAR ; CDR ; DIG 4 ; CAR ; NONE unit ; SWAP ; UPDATE } ;

                   DIG 4 ;

                   CAR ;

                   CAR ;

                   CAR ;

                   CAR ;

                   PAIR ;

                   PAIR ;

                   PAIR ;

                   PAIR ;

                   SWAP ;

                   PAIR }

                 { DIG 3 ;

                   DROP 2 ;

                   PUSH string "Not a pending admin" ;

                   SWAP ;

                   DUP ;

                   DUG 2 ;

                   CAR ;

                   CDR ;

                   CDR ;

                   CDR ;

                   IF_NONE { PUSH string "option is None" ; FAILWITH } {} ;

                   SENDER ;

                   COMPARE ;

                   EQ ;

                   IF { DROP } { FAILWITH } ;

                   DUP ;

                   CDR ;

                   SWAP ;

                   DUP ;

                   DUG 2 ;

                   CAR ;

                   CDR ;

                   DUP 3 ;

                   CAR ;

                   CAR ;

                   CDR ;

                   DIG 3 ;

                   CAR ;

                   CAR ;

                   CAR ;

                   CDR ;

                   SENDER ;

                   PAIR ;

                   PAIR ;

                   PAIR ;

                   PAIR ;

                   DUP ;

                   CDR ;

                   NONE address ;

                   DUP 3 ;

                   CAR ;

                   CDR ;

                   CDR ;

                   CAR ;

                   PAIR ;

                   DUP 3 ;

                   CAR ;

                   CDR ;

                   CAR ;

                   PAIR ;

                   DIG 2 ;

                   CAR ;

                   CAR ;

                   PAIR ;

                   PAIR ;

                   SWAP ;

                   PAIR } }

             { IF_LEFT

                 { DIG 3 ; DROP 2 ; SWAP ; PAIR }

                 { DIG 3 ;

                   DUP 3 ;

                   CAR ;

                   CAR ;

                   CAR ;

                   CAR ;

                   SENDER ;

                   COMPARE ;

                   EQ ;

                   IF { DROP } { FAILWITH } ;

                   SWAP ;

                   DUP ;

                   DUG 2 ;

                   CDR ;

                   DUP 3 ;

                   CAR ;

                   CDR ;

                   CDR ;

                   CDR ;

                   DIG 2 ;

                   PAIR ;

                   DUP 3 ;

                   CAR ;

                   CDR ;

                   CAR ;

                   PAIR ;

                   DIG 2 ;

                   CAR ;

                   CAR ;

                   PAIR ;

                   PAIR ;

                   SWAP ;

                   PAIR } } }

         { IF_LEFT

             { IF_LEFT

                 { DUP 4 ;

                   PUSH bool False ;

                   DUP 4 ;

                   CAR ;

                   CDR ;

                   CDR ;

                   CAR ;

                   COMPARE ;

                   EQ ;

                   IF { DROP } { FAILWITH } ;

                   DIG 3 ;

                   PUSH bool False ;

                   DUP 4 ;

                   CAR ;

                   CAR ;

                   CAR ;

                   CDR ;

                   SENDER ;

                   MEM ;

                   COMPARE ;

                   EQ ;

                   IF { DROP } { FAILWITH } ;

                   PUSH string "You are missing a pass token" ;

                   DUP 3 ;

                   DUP 3 ;

                   CAR ;

                   SWAP ;

                   CAR ;

                   CDR ;

                   CAR ;

                   CDR ;

                   SWAP ;

                   SENDER ;

                   PAIR ;

                   VIEW "is_owner_of" bool ;

                   IF_NONE { PUSH string "Error calling view" ; FAILWITH } {} ;

                   IF { DROP } { FAILWITH } ;

                   DUP ;

                   GET 4 ;

                   SIZE ;

                   PUSH string "Nothing to send" ;

                   PUSH nat 0 ;

                   DUP 3 ;

                   COMPARE ;

                   GT ;

                   IF { DROP } { FAILWITH } ;

                   PUSH string "Incorrect xtz amount" ;

                   DUP 4 ;

                   CDR ;

                   CAR ;

                   DUP 3 ;

                   MUL ;

                   AMOUNT ;

                   COMPARE ;

                   EQ ;

                   IF { DROP } { FAILWITH } ;

                   DIG 3 ;

                   DUP 4 ;

                   AMOUNT ;

                   PUSH mutez 0 ;

                   SWAP ;

                   DUP ;

                   DUG 2 ;

                   COMPARE ;

                   GT ;

                   IF

                     { DUG 2 ;

                       CDR ;

                       CDR ;

                       ITER { DUP ;

                              DUG 2 ;

                              CAR ;

                              CONTRACT unit ;

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

                              DIG 2 ;

                              CDR ;

                              PUSH nat 1000 ;

                              DUP 5 ;

                              EDIV ;

                              IF_NONE { PUSH string "DIV by 0" ; FAILWITH } {} ;

                              CAR ;

                              MUL ;

                              UNIT ;

                              TRANSFER_TOKENS ;

                              CONS } ;

                       SWAP ;

                       DROP }

                     { DROP 2 } ;

                   DUP 4 ;

                   PAIR ;

                   DUP 3 ;

                   GET 4 ;

                   DUP 5 ;

                   CAR ;

                   CAR ;

                   CDR ;

                   CDR ;

                   DIG 2 ;

                   UNPAIR ;

                   NIL (pair address (list (pair address nat nat))) ;

                   DIG 4 ;

                   MAP { PUSH nat 1 ; DUP 6 ; DIG 2 ; PAIR 3 } ;

                   DIG 4 ;

                   DROP ;

                   SENDER ;

                   PAIR ;

                   CONS ;

                   PUSH string "Can't find FA2 contract" ;

                   DIG 2 ;

                   CAR ;

                   CDR ;

                   CAR ;

                   CAR ;

                   CONTRACT %transfer (list (pair (address %from_)

                                                 (list %txs (pair (address %to_)

                                                                 (nat %token_id)

                                                                 (nat %amount))))) ;

                   IF_NONE { FAILWITH } { SWAP ; DROP } ;

                   DIG 2 ;

                   SWAP ;

                   PUSH mutez 0 ;

                   DIG 3 ;

                   TRANSFER_TOKENS ;

                   CONS ;

                   DUP 4 ;

                   CDR ;

                   DUP 5 ;

                   CAR ;

                   CDR ;

                   PUSH nat 1 ;

                   DUP 7 ;

                   CAR ;

                   CAR ;

                   CDR ;

                   CDR ;

                   ADD ;

                   DUP 7 ;

                   CAR ;

                   CAR ;

                   CDR ;

                   CAR ;

                   PAIR ;

                   DIG 6 ;

                   CAR ;

                   CAR ;

                   CAR ;

                   PAIR ;

                   PAIR ;

                   PAIR ;

                   DUP ;

                   DUG 2 ;

                   DIG 4 ;

                   GET 3 ;

                   PAIR ;

                   DIG 3 ;

                   SENDER ;

                   DIG 2 ;

                   UNPAIR ;

                   DIG 6 ;

                   CONTRACT %mint_artist (pair

                                           (pair (nat %collection_id) (nat %editions))

                                           (pair (bytes %metadata_cid) (address %target))) ;

                   IF_NONE { PUSH int 1 ; FAILWITH } {} ;

                   PUSH mutez 0 ;

                   DIG 4 ;

                   DIG 3 ;

                   PAIR ;

                   DIG 4 ;

                   DIG 4 ;

                   CAR ;

                   CAR ;

                   CDR ;

                   CAR ;

                   PAIR ;

                   PAIR ;

                   TRANSFER_TOKENS ;

                   CONS ;

                   PAIR }

                 { DIG 4 ;

                   DROP ;

                   DIG 3 ;

                   DUP 3 ;

                   CAR ;

                   CAR ;

                   CAR ;

                   CAR ;

                   SENDER ;

                   COMPARE ;

                   EQ ;

                   IF { DROP } { FAILWITH } ;

                   SWAP ;

                   DUP ;

                   DUG 2 ;

                   CDR ;

                   SWAP ;

                   SOME ;

                   DUP 3 ;

                   CAR ;

                   CDR ;

                   CDR ;

                   CAR ;

                   PAIR ;

                   DUP 3 ;

                   CAR ;

                   CDR ;

                   CAR ;

                   PAIR ;

                   DIG 2 ;

                   CAR ;

                   CAR ;

                   PAIR ;

                   PAIR ;

                   SWAP ;

                   PAIR } }

             { DIG 2 ;

               DROP ;

               DUG 2 ;

               DUP ;

               DUG 3 ;

               CAR ;

               CAR ;

               CAR ;

               CAR ;

               SENDER ;

               COMPARE ;

               EQ ;

               IF { DROP } { FAILWITH } ;

               DIG 2 ;

               CONTRACT %accept_invitation nat ;

               IF_NONE { PUSH string "Factory contract not found" ; FAILWITH } {} ;

               DUP 3 ;

               CDR ;

               DUP 4 ;

               CAR ;

               CDR ;

               DUP 5 ;

               CAR ;

               CAR ;

               CDR ;

               CDR ;

               DUP 5 ;

               CAR ;

               PAIR ;

               DIG 5 ;

               CAR ;

               CAR ;

               CAR ;

               PAIR ;

               PAIR ;

               PAIR ;

               DUP ;

               CDR ;

               SWAP ;

               DUP ;

               DUG 2 ;

               CAR ;

               CDR ;

               CDR ;

               DUP 3 ;

               CAR ;

               CDR ;

               CAR ;

               CDR ;

               DUP 6 ;

               GET 3 ;

               PAIR ;

               PAIR ;

               DIG 2 ;

               CAR ;

               CAR ;

               PAIR ;

               PAIR ;

               DUP ;

               CDR ;

               CDR ;

               DUP 4 ;

               GET 5 ;

               PAIR ;

               SWAP ;

               CAR ;

               PAIR ;

               DUP ;

               CDR ;

               SWAP ;

               DUP ;

               DUG 2 ;

               CAR ;

               CDR ;

               CDR ;

               DUP 5 ;

               GET 7 ;

               DUP 4 ;

               CAR ;

               CDR ;

               CAR ;

               CAR ;

               PAIR ;

               PAIR ;

               DIG 2 ;

               CAR ;

               CAR ;

               PAIR ;

               PAIR ;

               DUP ;

               CDR ;

               SWAP ;

               DUP ;

               DUG 2 ;

               CAR ;

               CDR ;

               DUP 5 ;

               GET 8 ;

               DUP 4 ;

               CAR ;

               CAR ;

               CDR ;

               CAR ;

               PAIR ;

               DIG 3 ;

               CAR ;

               CAR ;

               CAR ;

               PAIR ;

               PAIR ;

               PAIR ;

               NIL operation ;

               DIG 2 ;

               PUSH mutez 0 ;

               DIG 4 ;

               CAR ;

               TRANSFER_TOKENS ;

               CONS ;

               PAIR } } }