use Math::BigFloat;

my $N = shift || 2;
$g = Math::BigFloat->new($N);

for (;;) {
  $g = ($g + ($N/$g))/2;
  print $g, "\n";
}