box-o-sand/umn-kauffman/exchange.c

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