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