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