sig   val length : unit -> int   val go : int -> unit   val back : unit -> unit   val forward : unit -> unit   type 'a state   val create_state : version:Brr.str -> '-> 'Brr.History.state   val state : version:Brr.str -> default:'-> unit -> 'a   val push :     ?replace:bool ->     ?state:'Brr.History.state -> title:Brr.str -> Brr.str -> unit end