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

parameter key_hash;
storage string;
code {CAR;
      DIP{PUSH string "dummy";
          LAMBDA (pair string string)
                 (pair (list operation) string)
                 {CAR; NIL operation; PAIR};
          PUSH tez "100.00"; PUSH bool False;
          PUSH bool False; NONE key_hash};
      CREATE_CONTRACT; DIP{PUSH string ""}; PUSH tez "0.00";
      PUSH string "abcdefg"; TRANSFER_TOKENS;
      NIL operation; SWAP; CONS; PAIR};