Make the Str Rep Object a passable

1 files changed, 4 insertions, 2 deletions

diff --git a/challenge-125/simon-proctor/raku/ch-2.raku b/challenge-125/simon-proctor/raku/ch-2.raku
index 2c11ae1465..2ab4173e5a 100644
--- a/challenge-125/simon-proctor/raku/ch-2.raku
+++ b/challenge-125/simon-proctor/raku/ch-2.raku
@@ -8,7 +8,7 @@ grammar BTreeGrammar {
 
 class BTreeRep {...}
 
-role BTree[::T] {
+role BTree[::T,::R=BTreeRep] {
     has T $.value is required;
     has BTree @!nodes[2];
 
@@ -34,7 +34,7 @@ role BTree[::T] {
     }
 
     method gist() {
-        BTreeRep.new( tree=>self ).gist();
+        R.new( tree=>self ).gist();
     }
 
     method raku() {
@@ -143,6 +143,8 @@ multi sub MAIN( *@data ) {
     my BTree[Any](Str) $tree = @data.join("");
     my @routes = $tree.traverse.sort( -*.elems );
 
+    say $tree;
+    
     my $long = shift @routes;
     my $result = $long.elems;
     for @routes -> $pos {