% $RCSfile: Swap.oz,v $ declare proc {Swap X Y} Temp in Temp=@X X:=@Y Y:=Temp end