external set : Dom.element -> string -> unit = "location"
  [@@bs.set]

type location

external hash : location -> string = "hash"
  [@@bs.get]