let
iter f =
Inthash
.iter f states