let set_range_index t ri = let rdm = e_int (incr seed ; !seed) in e_app3 set_range_index t (interval ri) rdm