let read_fragment () = AXOJs.Node.window >>> JSOO.get "location" >>> JSOO.get "hash" >>> JSOO.as_string