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