ligo/src/proto_alpha/lib_protocol/test/contracts/create_contract.tz

parameter (or key_hash address);
storage unit;
code { CAR;
       IF_LEFT
         { DIP { PUSH string "dummy";
                 PUSH tez "100.00" ; PUSH bool False ;
                 PUSH bool False ; NONE key_hash } ;
           CREATE_CONTRACT
             { parameter string ;
               storage string ;
               code { CAR ; NIL operation ; PAIR } } ;
           DIP { RIGHT key_hash ; DIP { SELF ; PUSH tez "0" } ; TRANSFER_TOKENS ;
                 NIL operation ; SWAP ; CONS } ;
           CONS ; UNIT ; SWAP ; PAIR }
         { SELF ; ADDRESS ; SOURCE ; IFCMPNEQ { FAIL } {} ;
           CONTRACT string ; IF_SOME {} { FAIL } ;
           PUSH tez "0.00" ; PUSH string "abcdefg" ; TRANSFER_TOKENS ;
           NIL operation; SWAP; CONS ; UNIT ; SWAP ; PAIR } };