DEFINITION Euclid

(*
 *	Entwicklung objekt-orientierter Bibliotheken, Beispiel 1
 *
 *	Berechnung des groessten gemeinsamen Teilers, Schnittstelle.
 *)
DEFINITION Euclid;

   PROCEDURE Gcd(x, y: LONGINT): LONGINT;	(* greatest common divisor *)

END Euclid.