'BEGIN'
    'PROCEDURE' Q( ST1 )P:( ST2 ); 'COMMENT' ;
        'STRING' ST1, ST2; ;
    Q( <;'COMMENT' ) AZ: (>;> )INVALID:( <ST2> )
'END'