my ($guess, $x) = @_;
 my $n=0;
        while ( get_accuracy($guess, $n)  > .000000000000000001) { # CHECK DIFFERENCE BETWEEN OLD GUESS AND NEW GUESS
                $guess = $n;
  $n=new_guess($guess, $x); # MAKE OLD GUESS THE NEW GUESS AND RUN WHILE LOOP AGAIN
        }