Follow repo style, avoiding dd

Author: coke

doc/Language/control.pod6

@@ -421,7 +421,7 @@ my $a;
 {
     $a = do when .so { "foo" }
 };
-dd $a; # OUTPUT: «Any $a = Any␤»
+say $a; # OUTPUT: «(Any)␤»
 =end code
 
 is explained since the C<do> block is abandoned before any value is stored or
@@ -432,7 +432,7 @@ my $a;
 {
     $a = do when .so { "foo" }
 };
-dd $a; # OUTPUT: «Bool $a = Bool::False␤»
+say $a; # OUTPUT: «False␤»
 =end code
 the block is not abandoned since the comparison is false, so C<$a> will actually
 get a value.