StringNumericLiteral/NativeNumberSemantics.pm: do {my $n = 2; $n *= $n while $n < $n*$n; $n} only when absolutely necessary