let
clear () =
Inthash
.clear
Param
.states