Properly optimize say/note, jnthn++

Committing optimizations without benchmarking them is like drinking from a
random bottle you find in the shed.  It might be nicely matured homebrew you
forgot about, or it could are arsenic.

src/core/IO.pm

@@ -8,8 +8,16 @@ sub print(|) {
 }
 
 proto sub say(|) { * }
-multi sub say(Str:D \x) { $*OUT.print(x, "\n") }
-multi sub say(\x)       { $*OUT.print(x.gist, "\n") }
+multi sub say(Str:D \x) {
+    my $out := $*OUT;
+    $out.print(x);
+    $out.print("\n");
+}
+multi sub say(\x) {
+    my $out := $*OUT;
+    $out.print(x.gist);
+    $out.print("\n");
+}
 multi sub say(|) {
     my $args := nqp::p6argvmarray();
     my $out := $*OUT;
@@ -18,8 +26,16 @@ multi sub say(|) {
 }
 
 proto sub note(|) { * }
-multi sub note(Str:D \x) { $*ERR.print(x, "\n") }
-multi sub note(\x)       { $*ERR.print(x.gist, "\n") }
+multi sub note(Str:D \x) {
+    my $err := $*ERR;
+    $err.print(x);
+    $err.print("\n");
+}
+multi sub note(\x) {
+    my $err := $*ERR;
+    $err.print(x.gist);
+    $err.print("\n");
+}
 multi sub note(|) {
     my $args := nqp::p6argvmarray();
     my $err := $*ERR;