'BEGIN'
    'COMMENT'   STRING TESTS;
    'PROCEDURE' P(ST);
        'STRING'
            ST;
        ;
    P( <*STRING 'STRING' <NESTED<<>>> 'BEGIN' 'END';> );
    P( < ,
        > )
'END'