Remove WHAT, since we already have name

This code isn't showing the difference between what and name,
it's just a laundry list.

Author: coke

doc/Language/classtut.pod6

@@ -806,10 +806,9 @@ we can ask it a few questions:
 my Programmer $o .= new;
 if $o ~~ Employee { say "It's an employee" };
 say $o ~~ GeekCook ?? "It's a geeky cook" !! "Not a geeky cook";
-say $o.WHAT;
+say $o.^name;
 say $o.perl;
 say $o.^methods(:local)».name.join(', ');
-say $o.^name;
 =end code
 
 The output might look like this: