let
iter f =
Inthash
.iter f
Param
.states