RakuAST: add sorry for use of say/put/print w/o args

This is a reduced version of the logic that exists in the legacy
grammar, which think we shouldn't copy over to the Raku grammar.

The reason I'm adding this check for say/put/print, is that they
would be the most common cases, **and** there is a spectest for
at last a bare "put".  But frankly, I'd rather get rid of this
all.

src/Raku/Grammar.nqp

@@ -2023,14 +2023,25 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
             ]?
         || [ \\ <?before '('> ]? <args(1)>
            {
+                my $name := ~$<longname>;
                 if !$<args><invocant> {
-                    my $name := ~$<longname>;
                     if $*BORG<block> {
                         unless $*BORG<name> {
                             $*BORG<name> := $*BORG<name> // $name;
                         }
                     }
                 }
+                unless $*LANG.pragma('p5isms') {
+                    if $name eq 'say' || $name eq 'put' || $name eq 'print' {
+                        my $al := $<args><arglist>;
+                        my int $ok := 0;
+                        $ok := 1 unless $al<EXPR> eq '';
+                        $ok := 1 if $<args><semiarglist>;
+                        unless $ok {
+                            $<longname>.sorryobs("bare \"$name\"", ".$name if to call it as a method on \$_, or use an explicit invocant or argument, or use &$name to refer to the function as a noun");
+                        }
+                    }
+                }
             }
         ]
     }