let iter f = Inthash.iter f Param.states