let compute_const_fi operator n1 n2 =
    compute_const_ff operator n1 (float_of_big_int n2)