2019-12-10 13:47:31 +00:00
|
|
|
type storage = unit;
|
|
|
|
|
|
|
|
|
|
/* Not supported yet:
|
|
|
|
|
let main (p:unit) storage = (fun x -> ()) ()
|
|
|
|
|
*/
|
|
|
|
|
|
2020-02-27 12:38:00 +01:00
|
|
|
let main2 = (z: unit, s: storage) =>
|
2019-12-10 13:47:31 +00:00
|
|
|
((f: (unit => unit)) => f())((z: unit) => unit);
|
2020-01-08 20:58:26 +00:00
|
|
|
|
|
|
|
|
let main = (x: (unit, storage)) => main2(x[0],x[1]);
|
