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