23 lines
954 B
Plaintext
23 lines
954 B
Plaintext
parameter unit;
|
|
return (contract (list int) (list int));
|
|
storage unit;
|
|
code { CAR; # Get the UNIT value (starting storage for contract)
|
|
LAMBDA (pair (list int) unit) # Start of stack for contract (see above)
|
|
(pair (list int) unit) # End of stack for contract (see above)
|
|
# See the contract above. I copied and pasted
|
|
{ CAR;
|
|
LAMBDA int int {PUSH int 1; ADD};
|
|
MAP;
|
|
UNIT;
|
|
SWAP;
|
|
PAIR };
|
|
AMOUNT; # Push the starting balance
|
|
PUSH bool False; # Not spendable
|
|
DUP; # Or delegatable
|
|
NONE key_hash; # No delegate
|
|
PUSH key_hash "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5";
|
|
CREATE_CONTRACT; # Create the contract
|
|
UNIT; # Ending calling convention stuff
|
|
SWAP;
|
|
PAIR}
|