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