'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'REAL' 'ARRAY'
        JJ(/1 : 8/);
    'PROCEDURE' P(X);
        'VALUE'
            X;
        'INTEGER'
            X;
        ;
    'PROCEDURE' DEVIATION;
        'BEGIN'
        'REAL'
            X,
            Y;
        P(JJ)
        'END';
    DEVIATION;
'END'