implement put sub/method

This is like 'say' insofar as it adds newline, but like 'print' insofar
as it has .Str semantics instead of .gist.

src/core/IO/Handle.pm

@@ -880,6 +880,23 @@ my class IO::Handle does IO {
         Bool::True
     }
 
+    proto method put(|) { * }
+    multi method put(IO::Handle:D: str:D \x) {
+        nqp::printfh($!PIO,x);
+        nqp::printfh($!PIO, nqp::unbox_s($!nl-out));
+        Bool::True
+    }
+    multi method put(IO::Handle:D: Str:D \x) {
+        nqp::printfh($!PIO, nqp::unbox_s(x));
+        nqp::printfh($!PIO, nqp::unbox_s($!nl-out));
+        Bool::True
+    }
+    multi method put(IO::Handle:D: *@list is raw) { # is raw gives List, which is cheaper
+        nqp::printfh($!PIO, nqp::unbox_s(.Str)) for @list;
+        nqp::printfh($!PIO, nqp::unbox_s($!nl-out));
+        Bool::True
+    }
+
     multi method say(IO::Handle:D: |) {
         my Mu $args := nqp::p6argvmarray();
         nqp::shift($args);

src/core/IO/Socket.pm

@@ -72,6 +72,13 @@ my role IO::Socket does IO {
         True
     }
 
+    method put (Str(Cool) $string) {
+        fail("Not connected") unless $!PIO;
+        nqp::printfh($!PIO, nqp::unbox_s($string));
+        nqp::printfh($!PIO, nqp::unbox_s("\n"));  # XXX should be $!nl-out
+        True
+    }
+
     method write(Blob:D $buf) {
         fail('Socket not available') unless $!PIO;
         nqp::writefh($!PIO, nqp::decont($buf));

src/core/Mu.pm

@@ -332,6 +332,7 @@ Please refactor this code using the new Iterator / Seq interface.
     proto method say(|) { * }
     multi method say() { say(self) }
     method print() { print(self) }
+    method put() { put(self) }
     method note() { note(self) }
 
     proto method gist(|) { * }

src/core/Proc/Async.pm

@@ -203,6 +203,13 @@ my class Proc::Async {
         $p
     }
 
+    method put(Proc::Async:D: \x, |c) {
+        X::Proc::Async::OpenForWriting.new(:method<say>, proc => self).throw if !$!w;
+        X::Proc::Async::MustBeStarted.new(:method<say>, proc => self).throw  if !$!started;
+
+        self.print( x.join ~ "\n", |c );
+    }
+
     method say(Proc::Async:D: \x, |c) {
         X::Proc::Async::OpenForWriting.new(:method<say>, proc => self).throw if !$!w;
         X::Proc::Async::MustBeStarted.new(:method<say>, proc => self).throw  if !$!started;

src/core/io_operators.pm

@@ -52,6 +52,26 @@ multi sub say(**@args is raw) {
     $out.print($str);
 }
 
+proto sub put(|) { * }
+multi sub put() { $*OUT.print-nl }
+multi sub put(Str:D \x) {
+    my $out := $*OUT;
+    my str $str = nqp::concat(nqp::unbox_s(x),$out.nl-out);
+    $out.print($str);
+}
+multi sub put(\x) {
+    my $out := $*OUT;
+    my str $str = nqp::concat(nqp::unbox_s(x.Str),$out.nl-out);
+    $out.print($str);
+}
+multi sub put(**@args is raw) {
+    my $out := $*OUT;
+    my str $str;
+    $str = nqp::concat($str,nqp::unbox_s(.Str)) for @args;
+    $str = nqp::concat($str,$out.nl-out);
+    $out.print($str);
+}
+
 proto sub note(|) { * }
 multi sub note() {
     my $err := $*ERR;