READ X;
	READ Y;

100:	GOTO 200 IF Y - X;
	LET X = X - Y;
	GOTO 100;

200:	GOTO 300 IF X - Y;
	LET Y = Y - X;
	GOTO 100;

300:	WRITE X;