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