'BEGIN'
    'INTEGER'
        I,
        J;
    'FOR' I := - 2,
         - 1,
        1,
        2 'DO'
        'FOR' J := - 2 'STEP' 1 'UNTIL' 2 'DO'
            'IF' J 'DIV' I # SIGN(J / I) * ENTIER(ABS(J / I))
                'THEN'
                'BEGIN'
                OUTREAL(99, J);
                OUTREAL(99, I);
                OUTREAL(99, J 'DIV' I)
                'END';
'END'