let iter f = Stmt.Hashtbl.iter f Param.states