type storage = unit

(* Not supported yet:
let main (a, s : unit * storage) = (fun x -> ()) ()
*)

let main (a, s : unit * storage) =
  (fun (f : unit -> unit) -> f ()) (fun (_ : unit) -> unit)