ligo/test/contracts/create_account.tz

parameter key_hash;
return unit;
storage (contract unit unit);
code {CAR; DIP{PUSH tez "100.00"; PUSH bool False; NONE key_hash};
      CREATE_ACCOUNT; UNIT; PAIR};
Michelson: adds key_hash type 2017-09-15 18:32:50 +04:00			`parameter key_hash;`
Michelson: Add a test suite 2017-07-24 17:06:56 +04:00			`return unit;`
			`storage (contract unit unit);`
Michelson: adds key_hash type 2017-09-15 18:32:50 +04:00			`code {CAR; DIP{PUSH tez "100.00"; PUSH bool False; NONE key_hash};`
Michelson: removes amount from calling convention 2017-07-24 14:28:41 +04:00			`CREATE_ACCOUNT; UNIT; PAIR};`