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