5 lines
124 B
Plaintext
5 lines
124 B
Plaintext
parameter nat;
|
|
storage (pair string nat);
|
|
return (pair string nat);
|
|
code { DUP; CDR; DIP{CAR}; SET_CDR @annot; DUP; PAIR };
|