let
clear () =
Inthash
.clear states