use Algorithm::Treap IntKey =>
    #DEBUG=>1,
    key_lt  => '$1 < $2',
    key_gt  => '$1 > $2',
    heap_lt => '$1 < $2',
    ;
my $inttreap=Treap::IntKey->Tied_Hash();
$inttreap->{1}=10;
$inttreap->{2}=5;
$inttreap->{10}=5;
print join(", ",keys %$inttreap),"\n";