ligo/test/contracts/create_account.tz

parameter key;
return unit;
storage (contract unit unit);
code {CAR; DIP{PUSH tez "100.00"; PUSH bool False; NONE key};
      CREATE_ACCOUNT; UNIT; PAIR};