ligo/test/contracts/originator.tz

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