begin 
                procedure q( st )invalid parameter comment :( a );
                        string st; real a; ;
                q( "str" ) az09:( 1.0 )
        end