use Priority;

my $q = new Priority;

my $time = time;

$q->add(1,$_) for 1..1000000;

$q->pop for 1..1000000;

print "Did a million in ",time - $time, " seconds";