better example for .assuming

Author: gfldex

doc/Type/Callable.pod6

@@ -33,9 +33,13 @@ Returns a C<Callable> that implements the same behaviour as the
 original, but has the values passed to .assuming already bound to the
 corresponding parameters.
 
-    sub add(Int $x, Int $y) { $x + $y };
-    my &add_to_5 = &add.assuming(5);
-    say add_to_5(4); #-> 9
+    my sub slow($n){ my $i = 0; $i++ while $i < $n; $i };
+    
+    # takes only one parameter and as such wont forward $n
+    sub bench(&c){ c, now - ENTER now };
+    
+    say &slow.assuming(10000000).&bench;
+    # OUTPUT«(10000000 7.5508834)␤»
 
 =comment according to design docs it's Callable but in rakudo it's assuming is in Block