void move(long *from, long *to, long *incr, long count)
{
  long i;
  long x;
  for (i=0; i<count; i+=incr[x])
    x = to[i] = from[i];
}