'BEGIN'
    'COMMENT' LIBRARY 3;
    'REAL' 'PROCEDURE' A(K, X1, X2, X3, X4, X5);
        'VALUE'
            K;
        'INTEGER'
            K;
        'REAL'
            X1,
            X2,
            X3,
            X4,
            X5;
        'BEGIN'
        'REAL' 'PROCEDURE' B;
            'BEGIN'
            K := K - 1;
            B := A := A(K, B, X1, X2, X3, X4)
            'END';
        'IF' K <= 0 'THEN'
            A := X4 + X5
        'ELSE' 'IF' B < 0 'THEN'
        'END';
    OUTREAL(99, CPUTIME);
    OUTREAL(99, A(10, 1, - 1, - 1, 1, 0));
    OUTREAL(99, CPUTIME);
'END'