$x = 2**(52+1);

# For doubles, format "%.17e" will tell you if
# the number is stored with no loss of precision
# because log10(2**(n+1)) < 17.
printf("%.17e\n\n", $x);

$x -= 5;
for (1..10) {
   printf("%f\n", $x);
   $x++;
}