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 }