let i_compare f x y = let r = My_bigint.compare (My_bigint.of_string x) (My_bigint.of_string y) in if f r then Ptrue else Pfalse