Parameter Make.1-Main

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