let equal a b =
  a.length = b.length &&
   try
      for i = 0 to a.length - 1 do
        if Array.unsafe_get a.bits i <> Array.unsafe_get b.bits i then
          raise Notequal
      done;
      true
   with
     Notequal -> false