        for my $i (1 .. 100000) {
          my $n = $i / 100;
          my $tolerance = 0.000001;
          my $g = $n;
          while (abs($g * $g - $n) >= $tolerance) { 
            $g = ($n/$g + $g)/2;
          }
          my $s = $g;
        }
