sig
  type 'a client_value = 'a Eliom_lib.client_value
  type ('a, 'b) server_function = 'a -> 'b Lwt.t
  val _force_link : unit
end