17 lines
498 B
Plaintext
17 lines
498 B
Plaintext
|
storage unit ;
|
||
|
|
parameter uint16 ;
|
||
|
|
return (list (contract unit unit)) ;
|
||
|
|
code
|
||
|
|
{ CADR ; DUP ; PUSH uint16 0 ; CMPNEQ ;
|
||
|
|
DIIP { NIL (contract unit unit) } ;
|
||
|
|
LOOP
|
||
|
|
{ PUSH tez "5.00" ;
|
||
|
|
PUSH bool True ; # delegatable
|
||
|
|
NONE key ; # delegate
|
||
|
|
PUSH key "Nf4DPTCksayh83VhjDVE8M8et7KmXAppD3s7" ; # manager
|
||
|
|
CREATE_ACCOUNT ;
|
||
|
|
SWAP ; DIP { CONS } ;
|
||
|
|
PUSH uint16 1 ; SWAP ; SUB ;
|
||
|
|
DUP ; PUSH uint16 0 ; CMPNEQ } ;
|
||
|
|
DROP ;
|
||
|
|
UNIT ; SWAP ; PAIR }
|