This also causes the compiler to enter an infinite loop

oot/equipment.ml

@@ -1,6 +1,4 @@
 open import "prelude.ml"
-open import "lua/bit.ml"
-open Ops
 open import "../dolphin.ml"
 open import "../pretty.ml"
 open import "../mem/decode.ml"

oot/item.ml

@@ -7,6 +7,7 @@ open import "../mem/int.ml"
 type item =
 | DekuSticks
 | NoItem
+| UnknownItem of int
 
 instance decode item begin
   let decode addr =
@@ -14,10 +15,12 @@ instance decode item begin
     match code with
     | 0 -> DekuSticks
     | 255 -> NoItem
+    | x -> UnknownItem x
 end
 
 instance show item begin
   let show = function
   | DekuSticks -> "Deku Sticks"
   | NoItem -> "No Item"
+  | UnknownItem x -> "Unknown Item " ^ (show x)
 end

oot/item_equips.ml

@@ -2,7 +2,6 @@ open import "prelude.ml"
 open import "../pretty.ml"
 open import "../mem/decode.ml"
 open import "../mem/int.ml"
-open import "./equipment.ml"
 open import "./item.ml"
 
 type item_equips = ItemEquips of {