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