'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'REAL'
        X,
        Y,
        Z,
        U;
    'INTEGER'
        I,
        CASE;
    'PROCEDURE' COMPARE(U, V);
        'VALUE'
            U,
            V;
        'REAL'
            U,
            V;
        'BEGIN'
        CASE := CASE + 1;
        'IF' U # V 'THEN'
            'BEGIN'
            OUTREAL(99, U);
            OUTREAL(99, V);
            OUTREAL(99, CASE)
            'END';
        'END';
    CASE := 0;
    X := 1.2;
    Y := 16.96;
    Z := - 13.4;
    'FOR' I := 1 'STEP' 1 'UNTIL' 10 'DO'
        'BEGIN'
        COMPARE( - X * Y, - (X * Y));
        COMPARE( - X / Y, - (X / Y));
        COMPARE(X + Y + Z, (X + Y) + Z);
        COMPARE(X * Y * Z, (X * Y) * Z);
        COMPARE(X / Y / Z, (X / Y) / Z);
        COMPARE(X * Y / Z, (X * Y) / Z);
        COMPARE(X^2 / Y, (X * X) / Y);
        COMPARE(X * Y^2, X * (Y * Y));
        U := 1.01 * X;
        X := 1.01 * Y;
        Y := 1.01 * Z;
        Z := U;
        'END';
    OUTREAL(99, 0)
'END'