Browser_history
type 'a t = {
behind : 'a list;
ahead : 'a list;
}
val empty : 'a t
val visit : 'a -> 'a t -> 'a t
val back : 'a -> 'a t -> ('a * 'a t) option
val forward : 'a -> 'a t -> ('a * 'a t) option