civicaml/test/testsuite/functional_test/7_euclides.cvc

extern void printInt( int val);
extern void printFloat( float val);

extern int scanInt( );
extern float scanFloat( );

extern void printSpaces( int num);
extern void printNewlines( int num);

export int main() {
    int a = scanInt();
    int b = scanInt();
    int gcd()
	{
        int t;
        while(b != 0)
		{
            t = b;
            b = a % b;
            a = t;
        }
        return a;
    }

	printInt(gcd());
	printNewlines(1);
	return 0;
}