tst

用YACC实现的一个小的编译工具

// greatest common divisor

x := 8;
y := 12;
WHILE x != y DO
   IF x > y THEN x := x-y
   ELSE y := y-x
   FI
OD;
PRINT x