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