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 16:32:50 +02:00			`parameter key_hash;`
Michelson: Add a test suite 2017-07-24 15:06:56 +02:00			`return unit;`
			`storage (contract unit unit);`
Michelson: adds key_hash type 2017-09-15 16:32:50 +02:00			`code {CAR; DIP{PUSH tez "100.00"; PUSH bool False; NONE key_hash};`
Michelson: removes amount from calling convention 2017-07-24 12:28:41 +02:00			`CREATE_ACCOUNT; UNIT; PAIR};`