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