sub heap_lt { $_[1] < $_[2] };
sub key_lt  { $_[1] lt $_[2] };
sub key_gt  { $_[1] gt $_[2] };