fix stringification of Any, and thus RT #73410

Thanks to jnthn++ for helping me with this one.

src/builtins/Int.pir

@@ -69,8 +69,21 @@ Returns the identify value.
     .return ($I0)
 .end
 
+=item Str()
+
+Coercion to Str
+
+=cut
+
+.sub 'Str' :method
+    $S0 = self
+    $P0 = box $S0
+    .return ($P0)
+.end
+
 =back
 
+
 =head2 Operators
 
 =over 4

src/core/Any-str.pm

@@ -237,8 +237,8 @@ augment class Any {
         $! ?? fail( "Insufficient arguments supplied to sprintf") !! $result
     }
 
-    method Str() {
-        self
+    multi method Str() {
+        sprintf '%s<0x%f>', self.WHAT, self.WHERE;
     }
 }
 

src/core/Int.pm

@@ -31,10 +31,6 @@ augment class Int {
 
     our ::Complex multi method Complex() { Complex.new(self, 0); }
 
-    our Str multi method Str() {
-        ~self;
-    }
-
     # Most of the trig functions for Int are in Any-num.pm, but
     # sec is a special case.
     our Num multi method sec($base = Radians) {

src/core/Str.pm

@@ -1,6 +1,8 @@
 augment class Str {
     multi method Bool { ?(pir::istrue__IP(self)); }
 
+    method Str() { self }
+
     # CHEAT: this implementation is a bit of a cheat,
     # but works fine for now.
     multi method Int { (+self).Int; }