sub sqrt ($) {
  my $x = shift;
  return sqrt_search( $x, 0, $x, 1, 50);
}

# Tests

sub test
{
    my $n = shift;
    print "SQRT $n: ", &sqrt( $n ), ' ?= ', eval { CORE::sqrt( $n ) } , $/, $/;
}

test( $_ ) for( 16, 9, 4, 2, 0.5, -1, 0, 0.001 );