type storage = unit
(* Not supported yet:
let main (p:unit) storage = (fun x -> ()) ()
*)
let main (_: unit) storage =
(fun (f: unit -> unit) -> f ()) (fun (_: unit) -> unit)