#!/usr/bin/perl
use strict;
my $n;

while(<STDIN>) { $n = $_+0; last if $n>0}

while (abs($n - $_**2) > 1e-13){ $_ = ($n/$_ + $_)/2}

print "Guess: $_\nperl: ".$n**.5."\n";