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