long
exchange(long *xp, long y)
{
  long x = *xp;
  *xp = y;
  return x;
}