Parameter Make.Main

val run_in_main : (unit -> 'a Lwt.t) -> 'a