5 lines
119 B
Plaintext
5 lines
119 B
Plaintext
|
parameter bool;
|
||
|
|
storage (pair bool nat);
|
||
|
|
return unit;
|
||
|
|
code { DUP; CAR; DIP{CDR}; SWAP; MAP_CAR { AND } ; UNIT; PAIR };
|