'begin'
PROG :
'begin'
'comment' LIBRARY 1;
    'integer'N,I;
    'procedure' Q;
        'begin'
        'array'
            A,
            D[1 : 1, 1 : N],
            E[0 : 0];
        'procedure' P(X, L);
            'label'
                L;
            'integer''procedure'
                X;
                'comment' (F1,G1): 'value' F1: 'real' F1,G1;
            B : 'for' I := 1 'step' 1 'until' N,
                I + 1 'do'
                C : 'goto'
                    'if' X(A[1, 1] + I, 0) = 0 'then'
                        L
                    'else'
                        R;
        M :;
        A[1, 1] := N;
        P(IN, PROG)
        'end' Q;
    'integer''procedure' IN(F, G);
        'value'
            F;
        'real'
            F,
            G;
        N := IN := 1;
    N := 2;
    OUTREAL(99, 1);
    Q;
    OUTREAL(99, 2);
    R :;
    OUTREAL(99, 3);
'end'
'end'