'BEGIN'
    'COMMENT' LIBRARY 1;
    'INTEGER'
        I,
        J,
        K,
        CASE;
    'PROCEDURE' EQUAL(I, J);
        'VALUE'
            I,
            J;
        'INTEGER'
            I,
            J;
        'IF' I # J 'THEN'
            'BEGIN'
            OUTREAL(99, CASE);
            OUTREAL(99, I);
            OUTREAL(99, J)
            'END'
        'ELSE'
            CASE := CASE + 1;
    I := 2;
    J := 5;
    K := 9;
    CASE := 0;
    EQUAL(I + J + K, 16);
    EQUAL(I + J - K, - 2);
    EQUAL(I + J * K, 47);
    EQUAL(I + J 'DIV' K, 2);
    EQUAL(I + J^K, 1953127);
    EQUAL(I - J + K, 6);
    EQUAL(I - J - K, - 12);
    EQUAL(I - J * K, - 43);
    EQUAL(I - J 'DIV' K, 2);
    EQUAL(I - J^K, -1953123);
    EQUAL(I * J + K, 19);
    EQUAL(I * J - K, 1);
    EQUAL(I * J * K, 90);
    EQUAL(I * J 'DIV' K, 1);
    EQUAL(I * J^2, 50);
    EQUAL(J 'DIV' I + K, 11);
    EQUAL(J 'DIV' I - K, - 7);
    EQUAL(J 'DIV' I * K, 18);
    EQUAL(J 'DIV' I 'DIV' K, 0);
    EQUAL(J 'DIV' I^K, 0);
    EQUAL(I^J + K, 41);
    EQUAL(I^J - K, 23);
    EQUAL(I^J * K, 288);
    EQUAL(I^J 'DIV' K, 3);
    EQUAL(I^J^2, 1024);
    OUTREAL(99, CASE)
'END'