2017-09-15 13:40:50 +02:00
|
|
|
parameter tez;
|
2017-09-18 16:18:40 +02:00
|
|
|
storage (pair (pair nat (pair nat (pair (pair (pair nat tez) nat) nat))) nat);
|
2017-09-15 13:40:50 +02:00
|
|
|
return unit;
|
|
|
|
code { DUP ; CAR ; SWAP ; CDR ;
|
2017-12-01 17:00:32 +01:00
|
|
|
SET_CADDAADR @annot ;
|
2017-09-15 13:40:50 +02:00
|
|
|
UNIT ; PAIR };
|