let
reset () =
gi := -1;
ghistory := []