let i_op = function | Iadd -> add_int | Isub -> sub_int | Imul -> mul_int | Idiv -> div_int | Imod -> mod_int