create_contract_simple.tz
parameter unit;
storage unit;
code { CAR;
PUSH string "foo";
PUSH mutez 0;
NONE key_hash;
CREATE_CONTRACT
{ parameter string ;
storage string ;
code { CAR ; NIL operation ; PAIR } } ;
DROP; DROP;
NIL operation;
PAIR;
}