let write_fragment s =
  AXOJs.Node.window >>> JSOO.get "location" >>> JSOO.set "hash" s