let suites :  Mt.pair_suites ref  = ref []
let test_id = ref 0
let eq loc x y = Mt.eq_suites ~test_id ~suites loc x y 


[@@@ocaml.warning "-a"]


let [|a|] = [|1|]


let x = 1

  let ( ) = 
   eq _ _ LOC _ _ a 1 


 let ( ) = Mt.from_pair_suites _ _ FILE _ _ ! suites   
  eq __LOC__ a 1 


let () = Mt.from_pair_suites __FILE__ !suites   *)
let suites :  Mt.pair_suites ref  = ref []
let test_id = ref 0
let eq loc x y = Mt.eq_suites ~test_id ~suites loc x y 


[@@@ocaml.warning "-a"]


let [|a|] = [|1|]


let x = 1

  let ( ) = 
   eq _ _ LOC _ _ a 1 


 let ( ) = Mt.from_pair_suites _ _ FILE _ _ ! suites   
  eq __LOC__ a 1 


let () = Mt.from_pair_suites __FILE__ !suites   *)