sig
  type t =
      (Ocsigen_header.Mime_type.t * float option * (string * string) list)
      list
  val parse : string list -> Ocsigen_header.Accept.t
end