begin 
    procedure q( st1 )p:( st2 ); comment ;
        string st1, st2; ;
    q( ";comment ) az: (";" )invalid:( "st2" )
end