while (abs($num - $guess**2) > 1e-13) { #### while (abs($num/$guess - $guess) > 1e-15) {