'BEGIN'
    'COMMENT' LIBRARY 1;
    'REAL' 'PROCEDURE' G(X);
        'REAL'
            X;
        G := X + 1;
    'REAL' 'PROCEDURE' A(H);
        'REAL' 'PROCEDURE'
            H;
        'COMMENT'   (H1): 'REAL' H1;
        'BEGIN'
        'REAL' 'PROCEDURE' LOC(X);
            'REAL'
                X;
            LOC := H(G(X));
        A := LOC(0);
        'END' A;
    'REAL' 'PROCEDURE' B(F, H);
        'REAL' 'PROCEDURE'
            F;
        'COMMENT'   (F1): 'REAL' F1;
        'REAL' 'PROCEDURE'
            H;
        'COMMENT'   (H1): 'REAL' 'PROCEDURE' H1;
        B := F(H(F) + A(G) + G(1));
    OUTREAL(99, B(G, A))
'END'