'BEGIN'
    'COMMENT' LIBRARY 1;
    'PROCEDURE' P(F);
        'REAL' 'PROCEDURE'
            F;
        'COMMENT'   (F1):'LABEL' F1;
        F((M));
    B1 :;
    'BEGIN'
        'REAL' 'PROCEDURE' Q(L);
            'LABEL'
                L;
            'BEGIN'
            'GOTO' L;
            Q := 0;
            OUTREAL(99, 1)
            'END';
        B2 :;
        'BEGIN'
            'REAL'
                I;
            'GOTO' N;
            I := 2;
            OUTREAL(99, I)
        'END';
        N :;
        P(Q);
        OUTREAL(99, 3);
    'END' B1;
    OUTREAL(99, 4);
    M :;
    OUTREAL(99, 5)
'END'