GENERIC INTERFACE GenericSwap(Elem); PROCEDURE Swap(VAR left: Elem.T; VAR right: Elem.T); END GenericSwap.