10 lines
479 B
Plaintext
10 lines
479 B
Plaintext
|
|
parameter unit;
|
|
storage (list (contract unit unit));
|
|
return unit;
|
|
code { CDR; PUSH bool True; # Setup loop
|
|
LOOP {IF_CONS { PUSH tez "1.00"; UNIT; TRANSFER_TOKENS; # Make transfer
|
|
DROP; PUSH bool True} # Setup for next round of loop
|
|
{ NIL (contract unit unit); PUSH bool False}}; # Data to satisfy types and end loop
|
|
UNIT; PAIR}; # Calling convention
|