instructionsByType :: [(FieldType, TypeInstructions)]
instructionsByType = [
    (IntType, TypeInstructions ILOAD ISTORE IALOAD IASTORE
                    IRETURN (Just IF)
                    (Just IADD) (Just ISUB) (Just IMUL) (Just IDIV)),
    (BoolType, TypeInstructions ILOAD ISTORE IALOAD IASTORE
                    IRETURN (Just IF)
                    Nothing Nothing Nothing Nothing)
  ]
instructionsByType :: [(FieldType, TypeInstructions)]
instructionsByType = [
    (IntType, TypeInstructions ILOAD ISTORE IALOAD IASTORE
                    IRETURN (Just IF)
                    (Just IADD) (Just ISUB) (Just IMUL) (Just IDIV)),
    (BoolType, TypeInstructions ILOAD ISTORE IALOAD IASTORE
                    IRETURN (Just IF)
                    Nothing Nothing Nothing Nothing)
  ]
instructionsByType = [
    (IntType, TypeInstructions ILOAD ISTORE IALOAD IASTORE
                    IRETURN (Just IF)
                    (Just IADD) (Just ISUB) (Just IMUL) (Just IDIV)),
    (BoolType, TypeInstructions ILOAD ISTORE IALOAD IASTORE
                    IRETURN (Just IF)
                    Nothing Nothing Nothing Nothing)
  ]