let
equal_out_key k1 k2 =
try
(0 = cmp_out_key k1 k2)
with
Not_equal
->
false