parameter key;
storage string;
return unit;
code { CAR;
       DIP { UNIT;
             LAMBDA
               (pair string unit) (pair string unit)
               { CAR; UNIT; SWAP; PAIR };
             PUSH tez "100.00"; PUSH bool False;
             PUSH bool False; NONE key };
       CREATE_CONTRACT; DIP { PUSH string "" }; PUSH tez "0.00";
       PUSH string "abcdefg"; TRANSFER_TOKENS;
       DIP { DROP }; UNIT; PAIR }