#!/usr/bin/perl -w
use strict;
use Benchmark qw/:all/;
use Math::BigFloat;

cmpthese(
    1, {
        '2**10' =>  sub { my $x = Math::BigFloat->new(2**10); my $product = $x->copy(); $product->bfac(); },
        '2**11' =>  sub { my $x = Math::BigFloat->new(2**11); my $product = $x->copy(); $product->bfac(); },
        '2**12' =>  sub { my $x = Math::BigFloat->new(2**12); my $product = $x->copy(); $product->bfac(); },
        '2**13' =>  sub { my $x = Math::BigFloat->new(2**13); my $product = $x->copy(); $product->bfac(); },
        '2**14' =>  sub { my $x = Math::BigFloat->new(2**14); my $product = $x->copy(); $product->bfac(); }

    });