# MaxDouble Example
# Use for loops to find the the largest
# double value that is not represented 
# by Inf.

cat("e is the exponent\n")
for(e in 300:320) {
   cat(e, " ", 10^e, "\n")
}

cat("m is the mantissa\n")
for(m in seq(1, 10, 0.01)) {
   cat(m, " ", m * 10^308, "\n")
}