Enable &say and &print to be able to accept an argument list instead …

…of single arguments.

src/CORE.setting/IO.pm

@@ -1,10 +1,29 @@
 # XXX Very cheaty, just to get us able to output something.
-sub say(Mu $value) {
-    pir::say__vS(pir::repr_unbox_str__SP($value.Str));
+sub say(|$) {
+    Q:PIR {
+        $P0 = perl6_current_args_rpa
+        $P1 = iter $P0
+      loop:
+        unless $P1 goto done
+        $P2 = shift $P1
+        print $P2
+        goto loop
+      done:
+        print "\n"
+    };
     1.Bool
 }
 
-sub print(Mu $value) {
-    pir::print__vS(pir::repr_unbox_str__SP($value.Str));
+sub print(|$) {
+    Q:PIR {
+        $P0 = perl6_current_args_rpa
+        $P1 = iter $P0
+      loop:
+        unless $P1 goto done
+        $P2 = shift $P1
+        print $P2
+        goto loop
+      done:
+    };
     1.Bool
 }