sig
  val compare : '-> '-> int
  val raise : exn -> 'a
  module Html :
    sig val pcdata : string -> [> Html_types.pcdata ] Tyxml.Html.elt end
end