'BEGIN'
    'COMMENT' LIBRARY 1;
    'REAL'
        X,
        Y;
    'INTEGER'
        I,
        J;
    'ARRAY'
        A[1 : 10];
    X := Y := 1.0;
    I := J := 0;
    'BEGIN'
        'SWITCH' A := A1,A2,A3;
        'PROCEDURE' P;
            'BEGIN'
            X := 20;
            I := X + Y;
            Q(A[3], I + J)
            'END';
        'PROCEDURE' Q(L, K);
            'VALUE'
                K;
            'LABEL'
                L;
            'INTEGER'
                K;
            'IF' K = 0 'THEN'
                'GOTO' L;
        'INTEGER''PROCEDURE' J;
            J := Y;
        'REAL'
            I;
        'REAL' 'PROCEDURE' Y;
            Y := X;
        'INTEGER'
            X;
        A1 :;
        X := 10;
        Q(A[2], Y - X);
        A2 :;
        P;
        'IF' I = 0 'OR' J = 0 'OR' X = 1.0 'OR' Y = 1.0 'THEN'
            OUTREAL(99, 100);
        A3 :;
    'END';
    'IF' I = 0 'AND' J = 0 'AND' X = 1.0 'AND' Y = 1.0 'THEN'
        OUTREAL(99, 0)
'END'