let i_compare f x y = 
    if f (My_bigint.compare (My_bigint.of_string x) (My_bigint.of_string y)) then Ttrue else Tfalse