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