Avoid .WHAT where possible, use name instead

... But, because WhateverCode's ^name is funky, show .WHAT after
showing the funky name result.

doc/Type/Range.pod6

@@ -52,11 +52,12 @@ Beware that a L<WhateverCode|/type/WhateverCode> end point, instead of a plain
 Whatever, will go through the range operator and create another WhateverCode
 which returns a Range:
 
-=for code
+=for code :ok-test<WHAT>
 # A Whatever produces the 1..Inf range
-say (1..*).WHAT;         # OUTPUT: «(Range)␤»
+say (1..*).^name;        # OUTPUT: «Range␤»
 say (1..*);              # OUTPUT: «1..Inf␤»
 # Upper end point is now a WhateverCode
+say (1..*+20).^name;     # OUTPUT: «{ ... }␤»
 say (1..*+20).WHAT;      # OUTPUT: «(WhateverCode)␤»
 say (1..*+20).(22);      # OUTPUT: «1..42␤»