{ parameter (or (address %trigger_kernel_upgrade)

                (or (string %vote) (or (bytes %upvote_proposal) (bytes %new_proposal)))) ;

  storage (pair

            (pair %config (nat %started_at_level)

                          (pair (nat %period_length)

                                (pair (nat %adoption_period_sec)

                                      (pair (nat %upvoting_limit)

                                            (pair (nat %scale)

                                                  (pair (nat %proposal_quorum)

                                                        (pair (nat %promotion_quorum)

                                                              (nat %promotion_supermajority))))))))

            (pair

              (option %voting_context (pair (nat %period_index)

                                           (or %period

                                             (pair %proposal

                                               (big_map %upvoters_upvotes_count key_hash

                                                                                nat)

                                               (pair

                                                 (big_map %upvoters_proposals

                                                   (pair key_hash bytes)

                                                   unit)

                                                 (pair

                                                   (big_map %proposals bytes

                                                                       (pair

                                                                         (key_hash %proposer)

                                                                         (nat %upvotes_voting_power)))

                                                   (pair

                                                     (option %max_upvotes_voting_power nat)

                                                     (pair

                                                       (option %winner_candidate bytes)

                                                       (nat %total_voting_power))))))

                                             (pair %promotion

                                               (big_map %voters key_hash string)

                                               (pair (nat %yea_voting_power)

                                                     (pair (nat %nay_voting_power)

                                                           (pair

                                                             (nat %pass_voting_power)

                                                             (pair

                                                               (nat %total_voting_power)

                                                               (bytes %winner_candidate)))))))))

              (pair

                (option %last_winner (pair (bytes %payload)

                                          (big_map %trigger_history address unit)))

                (big_map %metadata string bytes)))) ;

  code { PUSH string "NOT_PROPOSAL_PERIOD" ;

         LAMBDA

           address

           key_hash

           { DUP ;

             PACK ;

             PUSH bytes 0x00 ;

             DUP 2 ;

             PUSH nat 1 ;

             PUSH nat 6 ;

             SLICE ;

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

             COMPARE ;

             EQ ;

             IF {} { PUSH string "NOT_IMPLICIT_ADDRESS" ; FAILWITH } ;

             PUSH bytes 0x ;

             NIL bytes ;

             DUP 3 ;

             PUSH nat 21 ;

             PUSH nat 7 ;

             SLICE ;

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

             CONS ;

             PUSH bytes 0x00000015 ;

             CONS ;

             DIG 2 ;

             PUSH nat 2 ;

             PUSH nat 0 ;

             SLICE ;

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

             CONS ;

             NIL bytes ;

             SWAP ;

             ITER { CONS } ;

             ITER { CONCAT } ;

             UNPACK key_hash ;

             PUSH string "FAILED_TO_CAST_ADDRESS_TO_KEY_HASH" ;

             SWAP ;

             IF_NONE { FAILWITH } { SWAP ; DROP } ;

             PUSH string "KEY_HASH_NOT_EQUAL_TO_SOURCE_ADDRESS" ;

             DIG 2 ;

             DUP 3 ;

             IMPLICIT_ACCOUNT ;

             ADDRESS ;

             COMPARE ;

             EQ ;

             IF { DROP } { FAILWITH } } ;

         LAMBDA

           (pair nat nat)

           bytes

           { UNPAIR ;

             PUSH nat 56 ;

             DUP 2 ;

             COMPARE ;

             LT ;

             IF

               { ADD ; BYTES }

               { BYTES ;

                 DUP ;

                 SIZE ;

                 PUSH nat 9 ;

                 DUP 2 ;

                 COMPARE ;

                 LT ;

                 IF {} { PUSH string "INPUT_TOO_LONG_FOR_RLP" ; FAILWITH } ;

                 PUSH nat 55 ;

                 DIG 3 ;

                 DIG 2 ;

                 ADD ;

                 ADD ;

                 BYTES ;

                 CONCAT } } ;

         LAMBDA

           unit

           unit

           { DROP ;

             PUSH string "TEZ_IN_TRANSACTION_DISALLOWED" ;

             PUSH mutez 0 ;

             AMOUNT ;

             COMPARE ;

             EQ ;

             IF { DROP ; UNIT } { FAILWITH } } ;

         LAMBDA

           nat

           unit

           { PUSH nat 0 ;

             SWAP ;

             COMPARE ;

             GT ;

             IF { UNIT } { PUSH string "NO_VOTING_POWER" ; FAILWITH } } ;

         LAMBDA

           (pair nat

                 (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat nat)))))))

           nat

           { DUP ;

             CAR ;

             LEVEL ;

             SUB ;

             ISNAT ;

             IF_NONE

               { DROP ; PUSH string "CURRENT_LEVEL_LESS_THAN_START_LEVEL" ; FAILWITH }

               { SWAP ; GET 3 ; SWAP ; EDIV ; IF_NONE { PUSH string "DIV by 0" ; FAILWITH } {} ; CAR } } ;

         DIG 6 ;

         UNPAIR ;

         IF_LEFT

           { DIG 3 ;

             DIG 6 ;

             DIG 7 ;

             DROP 3 ;

             UNIT ;

             DIG 4 ;

             SWAP ;

             EXEC ;

             DROP ;

             DUP 2 ;

             CAR ;

             DIG 3 ;

             SWAP ;

             EXEC ;

             DUP 3 ;

             GET 3 ;

             IF_NONE

               { NONE (pair nat (pair (or unit unit) (option bytes))) ;

                 TOTAL_VOTING_POWER ;

                 NONE bytes ;

                 NONE nat ;

                 EMPTY_BIG_MAP bytes (pair key_hash nat) ;

                 EMPTY_BIG_MAP (pair key_hash bytes) unit ;

                 EMPTY_BIG_MAP key_hash nat ;

                 PAIR 6 ;

                 LEFT (pair (big_map key_hash string)

                            (pair nat (pair nat (pair nat (pair nat bytes))))) ;

                 DIG 2 ;

                 PAIR }

               { DUP ;

                 CAR ;

                 DUP 3 ;

                 COMPARE ;

                 EQ ;

                 IF

                   { SWAP ; DROP ; NONE (pair nat (pair (or unit unit) (option bytes))) ; SWAP }

                   { DUP 4 ;

                     CAR ;

                     DUP 2 ;

                     CDR ;

                     IF_LEFT

                       { DUP 2 ;

                         GET 11 ;

                         DUP 2 ;

                         GET 10 ;

                         MUL ;

                         DIG 2 ;

                         GET 9 ;

                         DUP 3 ;

                         GET 7 ;

                         IF_NONE { PUSH nat 0 } {} ;

                         MUL ;

                         COMPARE ;

                         GE ;

                         IF { DUP ; GET 9 } { NONE bytes } ;

                         IF_NONE

                           { GET 7 ;

                             IF_NONE { PUSH bool False } { DROP ; PUSH bool True } ;

                             IF

                               { NONE bytes ;

                                 UNIT ;

                                 LEFT unit ;

                                 DIG 2 ;

                                 CAR ;

                                 DUG 2 ;

                                 PUSH nat 1 ;

                                 DIG 3 ;

                                 ADD ;

                                 PAIR 3 ;

                                 SOME }

                               { DROP ;

                                 NONE (pair nat (pair (or unit unit) (option bytes))) } ;

                             TOTAL_VOTING_POWER ;

                             NONE bytes ;

                             NONE nat ;

                             EMPTY_BIG_MAP bytes (pair key_hash nat) ;

                             EMPTY_BIG_MAP (pair key_hash bytes) unit ;

                             EMPTY_BIG_MAP key_hash nat ;

                             PAIR 6 ;

                             LEFT (pair (big_map key_hash string)

                                        (pair nat (pair nat (pair nat (pair nat bytes))))) }

                           { SWAP ;

                             DROP ;

                             PUSH nat 1 ;

                             DIG 2 ;

                             CAR ;

                             ADD ;

                             DUP ;

                             DUP 4 ;

                             COMPARE ;

                             EQ ;

                             IF

                               { DROP ;

                                 NONE (pair nat (pair (or unit unit) (option bytes))) ;

                                 SWAP ;

                                 TOTAL_VOTING_POWER ;

                                 PUSH nat 0 ;

                                 PUSH nat 0 ;

                                 PUSH nat 0 ;

                                 EMPTY_BIG_MAP key_hash string ;

                                 PAIR 6 ;

                                 RIGHT (pair (big_map key_hash nat)

                                             (pair (big_map (pair key_hash bytes) unit)

                                                   (pair

                                                     (big_map bytes (pair key_hash nat))

                                                     (pair (option nat)

                                                           (pair (option bytes) nat))))) }

                               { SWAP ;

                                 DROP ;

                                 NONE bytes ;

                                 UNIT ;

                                 RIGHT unit ;

                                 PUSH nat 1 ;

                                 DIG 3 ;

                                 ADD ;

                                 PAIR 3 ;

                                 SOME ;

                                 TOTAL_VOTING_POWER ;

                                 NONE bytes ;

                                 NONE nat ;

                                 EMPTY_BIG_MAP bytes (pair key_hash nat) ;

                                 EMPTY_BIG_MAP (pair key_hash bytes) unit ;

                                 EMPTY_BIG_MAP key_hash nat ;

                                 PAIR 6 ;

                                 LEFT (pair (big_map key_hash string)

                                            (pair nat

                                                  (pair nat (pair nat (pair nat bytes))))) } } }

                       { UNPAIR 6 ;

                         DROP ;

                         DIG 3 ;

                         DUP 6 ;

                         GET 13 ;

                         MUL ;

                         DUP 6 ;

                         GET 9 ;

                         DIG 4 ;

                         DUP 5 ;

                         DUP 5 ;

                         ADD ;

                         ADD ;

                         MUL ;

                         COMPARE ;

                         GE ;

                         DIG 2 ;

                         DUP 3 ;

                         ADD ;

                         DUP ;

                         DUP 6 ;

                         GET 14 ;

                         MUL ;

                         DIG 5 ;

                         GET 9 ;

                         DIG 4 ;

                         MUL ;

                         COMPARE ;

                         GE ;

                         PUSH nat 0 ;

                         DIG 2 ;

                         COMPARE ;

                         GT ;

                         AND ;

                         AND ;

                         IF { SOME } { DROP ; NONE bytes } ;

                         UNIT ;

                         RIGHT unit ;

                         DIG 2 ;

                         CAR ;

                         DUG 2 ;

                         PUSH nat 1 ;

                         DIG 3 ;

                         ADD ;

                         PAIR 3 ;

                         SOME ;

                         TOTAL_VOTING_POWER ;

                         NONE bytes ;

                         NONE nat ;

                         EMPTY_BIG_MAP bytes (pair key_hash nat) ;

                         EMPTY_BIG_MAP (pair key_hash bytes) unit ;

                         EMPTY_BIG_MAP key_hash nat ;

                         PAIR 6 ;

                         LEFT (pair (big_map key_hash string)

                                    (pair nat (pair nat (pair nat (pair nat bytes))))) } ;

                     DIG 2 ;

                     PAIR } } ;

             DUP 2 ;

             DIG 2 ;

             IF_NONE

               { DUP 4 ; GET 5 }

               { GET 4 ;

                 IF_NONE

                   { DUP 4 ; GET 5 }

                   { EMPTY_BIG_MAP address unit ; SWAP ; PAIR ; SOME } } ;

             DIG 2 ;

             SWAP ;

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

             DUP ;

             CDR ;

             DUP 5 ;

             MEM ;

             NOT ;

             IF {} { PUSH string "UPGRADE_FOR_ADDRESS_ALREADY_TRIGGERED" ; FAILWITH } ;

             DUP 4 ;

             CONTRACT (or

                        (or (pair %d bytes (ticket (pair nat (option bytes))))

                            (bytes %a))

                        (bytes %u)) ;

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

             DUP 6 ;

             CAR ;

             GET 5 ;

             INT ;

             NOW ;

             ADD ;

             PUSH timestamp 0 ;

             SWAP ;

             SUB ;

             ISNAT ;

             PUSH string "NEGATIVE_TIMESTAMP" ;

             SWAP ;

             IF_NONE { FAILWITH } { SWAP ; DROP } ;

             BYTES ;

             PUSH bytes 0x ;

             PUSH int 1 ;

             PUSH int 1 ;

             DUP 4 ;

             SIZE ;

             SUB ;

             PUSH int 0 ;

             DUP 2 ;

             DUP 2 ;

             COMPARE ;

             LE ;

             LOOP { DUP ;

                    DUG 3 ;

                    DIP 3

                         { ISNAT ;

                           PUSH string "INDEX_NOT_NAT" ;

                           SWAP ;

                           IF_NONE { FAILWITH } { SWAP ; DROP } ;

                           SWAP ;

                           DUP 3 ;

                           PUSH nat 1 ;

                           DIG 3 ;

                           SLICE ;

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

                           CONCAT } ;

                    DUP 3 ;

                    ADD ;

                    DUP 2 ;

                    DUP 2 ;

                    COMPARE ;

                    LE } ;

             DROP 3 ;

             SWAP ;

             DROP ;

             DUP ;

             SIZE ;

             INT ;

             PUSH int 1 ;

             PUSH int 1 ;

             PUSH nat 8 ;

             SUB ;

             DIG 2 ;

             DUP 2 ;

             DUP 2 ;

             COMPARE ;

             LE ;

             LOOP { DUP ;

                    DUG 3 ;

                    DIP 3 { DROP ; PUSH bytes 0x00 ; SWAP ; CONCAT } ;

                    DUP 3 ;

                    ADD ;

                    DUP 2 ;

                    DUP 2 ;

                    COMPARE ;

                    LE } ;

             DROP 3 ;

             NIL bytes ;

             SWAP ;

             CONS ;

             DUP 3 ;

             CAR ;

             CONS ;

             MAP { DUP ;

                   SIZE ;

                   PUSH bytes 0x80 ;

                   DUP 3 ;

                   COMPARE ;

                   LT ;

                   PUSH nat 1 ;

                   DUP 3 ;

                   COMPARE ;

                   EQ ;

                   AND ;

                   IF

                     { DROP ; PUSH bytes 0x }

                     { PUSH nat 128 ; SWAP ; PAIR ; DUP 9 ; SWAP ; EXEC } ;

                   CONCAT } ;

             PUSH bytes 0x ;

             SWAP ;

             NIL bytes ;

             SWAP ;

             ITER { CONS } ;

             ITER { CONCAT } ;

             PUSH nat 192 ;

             DUP 2 ;

             SIZE ;

             PAIR ;

             DIG 8 ;

             SWAP ;

             EXEC ;

             CONCAT ;

             RIGHT (or (pair bytes (ticket (pair nat (option bytes)))) bytes) ;

             SWAP ;

             PUSH mutez 0 ;

             DIG 2 ;

             TRANSFER_TOKENS ;

             DIG 3 ;

             IF_NONE

               { NIL operation }

               { NIL operation ;

                 SWAP ;

                 EMIT %voting_finished (pair (nat %finished_at_period_index)

                                             (pair

                                               (or %finished_at_period_type

                                                 (unit %proposal)

                                                 (unit %promotion))

                                               (option %winner_proposal_payload bytes))) ;

                 CONS } ;

             DIG 5 ;

             DIG 4 ;

             SOME ;

             UPDATE 3 ;

             DUP 4 ;

             DIG 4 ;

             CDR ;

             UNIT ;

             SOME ;

             DIG 6 ;

             UPDATE ;

             UPDATE 2 ;

             SOME ;

             UPDATE 5 ;

             SWAP ;

             DIG 2 ;

             CONS }

           { DIG 5 ;

             DROP ;

             IF_LEFT

               { DIG 6 ;

                 DROP ;

                 DUP 2 ;

                 CAR ;

                 DIG 3 ;

                 SWAP ;

                 EXEC ;

                 DUP 3 ;

                 GET 3 ;

                 IF_NONE

                   { NONE (pair nat (pair (or unit unit) (option bytes))) ;

                     TOTAL_VOTING_POWER ;

                     NONE bytes ;

                     NONE nat ;

                     EMPTY_BIG_MAP bytes (pair key_hash nat) ;

                     EMPTY_BIG_MAP (pair key_hash bytes) unit ;

                     EMPTY_BIG_MAP key_hash nat ;

                     PAIR 6 ;

                     LEFT (pair (big_map key_hash string)

                                (pair nat (pair nat (pair nat (pair nat bytes))))) ;

                     DIG 2 ;

                     PAIR }

                   { DUP ;

                     CAR ;

                     DUP 3 ;

                     COMPARE ;

                     EQ ;

                     IF

                       { SWAP ;

                         DROP ;

                         NONE (pair nat (pair (or unit unit) (option bytes))) ;

                         SWAP }

                       { DUP 4 ;

                         CAR ;

                         DUP 2 ;

                         CDR ;

                         IF_LEFT

                           { DUP 2 ;

                             GET 11 ;

                             DUP 2 ;

                             GET 10 ;

                             MUL ;

                             DIG 2 ;

                             GET 9 ;

                             DUP 3 ;

                             GET 7 ;

                             IF_NONE { PUSH nat 0 } {} ;

                             MUL ;

                             COMPARE ;

                             GE ;

                             IF { DUP ; GET 9 } { NONE bytes } ;

                             IF_NONE

                               { GET 7 ;

                                 IF_NONE { PUSH bool False } { DROP ; PUSH bool True } ;

                                 IF

                                   { NONE bytes ;

                                     UNIT ;

                                     LEFT unit ;

                                     DIG 2 ;

                                     CAR ;

                                     DUG 2 ;

                                     PUSH nat 1 ;

                                     DIG 3 ;

                                     ADD ;

                                     PAIR 3 ;

                                     SOME }

                                   { DROP ;

                                     NONE (pair nat (pair (or unit unit) (option bytes))) } ;

                                 TOTAL_VOTING_POWER ;

                                 NONE bytes ;

                                 NONE nat ;

                                 EMPTY_BIG_MAP bytes (pair key_hash nat) ;

                                 EMPTY_BIG_MAP (pair key_hash bytes) unit ;

                                 EMPTY_BIG_MAP key_hash nat ;

                                 PAIR 6 ;

                                 LEFT (pair (big_map key_hash string)

                                            (pair nat

                                                  (pair nat (pair nat (pair nat bytes))))) }

                               { SWAP ;

                                 DROP ;

                                 PUSH nat 1 ;

                                 DIG 2 ;

                                 CAR ;

                                 ADD ;

                                 DUP ;

                                 DUP 4 ;

                                 COMPARE ;

                                 EQ ;

                                 IF

                                   { DROP ;

                                     NONE (pair nat (pair (or unit unit) (option bytes))) ;

                                     SWAP ;

                                     TOTAL_VOTING_POWER ;

                                     PUSH nat 0 ;

                                     PUSH nat 0 ;

                                     PUSH nat 0 ;

                                     EMPTY_BIG_MAP key_hash string ;

                                     PAIR 6 ;

                                     RIGHT (pair (big_map key_hash nat)

                                                 (pair

                                                   (big_map (pair key_hash bytes) unit)

                                                   (pair

                                                     (big_map bytes (pair key_hash nat))

                                                     (pair (option nat)

                                                           (pair (option bytes) nat))))) }

                                   { SWAP ;

                                     DROP ;

                                     NONE bytes ;

                                     UNIT ;

                                     RIGHT unit ;

                                     PUSH nat 1 ;

                                     DIG 3 ;

                                     ADD ;

                                     PAIR 3 ;

                                     SOME ;

                                     TOTAL_VOTING_POWER ;

                                     NONE bytes ;

                                     NONE nat ;

                                     EMPTY_BIG_MAP bytes (pair key_hash nat) ;

                                     EMPTY_BIG_MAP (pair key_hash bytes) unit ;

                                     EMPTY_BIG_MAP key_hash nat ;

                                     PAIR 6 ;

                                     LEFT (pair (big_map key_hash string)

                                                (pair nat

                                                      (pair nat

                                                            (pair nat (pair nat bytes))))) } } }

                           { UNPAIR 6 ;

                             DROP ;

                             DIG 3 ;

                             DUP 6 ;

                             GET 13 ;

                             MUL ;

                             DUP 6 ;

                             GET 9 ;

                             DIG 4 ;

                             DUP 5 ;

                             DUP 5 ;

                             ADD ;

                             ADD ;

                             MUL ;

                             COMPARE ;

                             GE ;

                             DIG 2 ;

                             DUP 3 ;

                             ADD ;

                             DUP ;

                             DUP 6 ;

                             GET 14 ;

                             MUL ;

                             DIG 5 ;

                             GET 9 ;

                             DIG 4 ;

                             MUL ;

                             COMPARE ;

                             GE ;

                             PUSH nat 0 ;

                             DIG 2 ;

                             COMPARE ;

                             GT ;

                             AND ;

                             AND ;

                             IF { SOME } { DROP ; NONE bytes } ;

                             UNIT ;

                             RIGHT unit ;

                             DIG 2 ;

                             CAR ;

                             DUG 2 ;

                             PUSH nat 1 ;

                             DIG 3 ;

                             ADD ;

                             PAIR 3 ;

                             SOME ;

                             TOTAL_VOTING_POWER ;

                             NONE bytes ;

                             NONE nat ;

                             EMPTY_BIG_MAP bytes (pair key_hash nat) ;

                             EMPTY_BIG_MAP (pair key_hash bytes) unit ;

                             EMPTY_BIG_MAP key_hash nat ;

                             PAIR 6 ;

                             LEFT (pair (big_map key_hash string)

                                        (pair nat (pair nat (pair nat (pair nat bytes))))) } ;

                         DIG 2 ;

                         PAIR } } ;

                 SWAP ;

                 DROP ;

                 SENDER ;

                 DIG 6 ;

                 SWAP ;

                 EXEC ;

                 DUP ;

                 VOTING_POWER ;

                 UNIT ;

                 DIG 7 ;

                 SWAP ;

                 EXEC ;

                 DROP ;

                 DUP ;

                 DIG 6 ;

                 SWAP ;

                 EXEC ;

                 DROP ;

                 DUP 3 ;

                 CDR ;

                 IF_LEFT { DROP ; PUSH string "NOT_PROMOTION_PERIOD" ; FAILWITH } {} ;

                 DUP ;

                 CAR ;

                 DUP 4 ;

                 MEM ;

                 NOT ;

                 IF {} { PUSH string "PROMOTION_ALREADY_VOTED" ; FAILWITH } ;

                 PUSH string "yea" ;

                 DUP 6 ;

                 COMPARE ;

                 EQ ;

                 IF

                   { DUP ; DIG 2 ; DUP 3 ; GET 3 ; ADD ; UPDATE 3 }

                   { PUSH string "nay" ;

                     DUP 6 ;

                     COMPARE ;

                     EQ ;

                     IF

                       { DUP ; DIG 2 ; DUP 3 ; GET 5 ; ADD ; UPDATE 5 }

                       { PUSH string "pass" ;

                         DUP 6 ;

                         COMPARE ;

                         EQ ;

                         IF

                           { DUP ; DIG 2 ; DUP 3 ; GET 7 ; ADD ; UPDATE 7 }

                           { SWAP ; DROP ; PUSH string "INCORRECT_VOTE_VALUE" ; FAILWITH } } } ;

                 SWAP ;

                 CAR ;

                 DIG 4 ;

                 SOME ;

                 DIG 3 ;

                 UPDATE ;

                 UPDATE 1 ;

                 RIGHT (pair (big_map key_hash nat)

                             (pair (big_map (pair key_hash bytes) unit)

                                   (pair (big_map bytes (pair key_hash nat))

                                         (pair (option nat) (pair (option bytes) nat))))) ;

                 UPDATE 2 ;

                 SOME ;

                 UPDATE 3 ;

                 NIL operation }

               { IF_LEFT

                   { DUP 2 ;

                     CAR ;

                     DIG 3 ;

                     SWAP ;

                     EXEC ;

                     DUP 3 ;

                     GET 3 ;

                     IF_NONE

                       { NONE (pair nat (pair (or unit unit) (option bytes))) ;

                         TOTAL_VOTING_POWER ;

                         NONE bytes ;

                         NONE nat ;

                         EMPTY_BIG_MAP bytes (pair key_hash nat) ;