test.ml

let test1 () =
  let tbl = Hashtbl.create 16 in
  let z = Big_int.big_int_of_string "3242314122423341231" in
  Hashtbl.add tbl z ();
  Hashtbl.find tbl z

let test2 () =
  let tbl = Hashtbl.create 16 in
  let z1 = Big_int.big_int_of_string "3242314122423341231" in
  let z2 = Big_int.big_int_of_string "3242314122423341231" in
  Hashtbl.add tbl z1 ();
  Hashtbl.find tbl z2