ligo/src/bin_client/test/contracts/big_map_union.tz

parameter (list (pair string int)) ;
storage (pair (big_map string int) unit) ;
return unit ;
code { UNPAAIAIR ;
       ITER { UNPAIR ; DUUUP ; DUUP; GET ;
              IF_NONE { PUSH int 0 } {} ;
              SWAP ; DIP { ADD ; SOME } ;
              UPDATE } ;
       PAIR ; UNIT ; PAIR }