set_caddaadr.tz 224 Bytes
Newer Older
1
parameter mutez;
2
storage (pair (pair nat (pair nat (pair (pair (pair (nat %p) (mutez %value)) nat) nat))) nat);
3
code { DUP ; CAR ; SWAP ; CDR ;
4
       SET_CADDAADR @toplevel_pair_name %value ;
5
       NIL operation ; PAIR };