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