sig
  val init_fragment_polling : unit -> JSOO.obj
  val add_on_fragment_change_event : (unit -> unit) -> unit
  val remove_on_fragment_change_event : (unit -> unit) -> unit
  val get_location : unit -> JSOO.obj
  val get_fragment_ : unit -> string
  val get_host_ : unit -> string
  val get_port_ : unit -> int
  val get_protocol_ : unit -> string
  val get_arguments_ : unit -> string
  val get_path_ : unit -> string
  val get_argument : string -> string
  val get_path : unit -> string list
end