sig
  val choose : Ocsigen_header.Accept.t -> string -> string list -> string
end