Add state.ml

src/core/state.ml

@@ -0,0 +1,9 @@
+(* State of the world, contains all the required information at any point *)
+type t = {
+  cartridge : option Cartridge.t;
+}
+
+(* Global reference *)
+let state = ref {
+  cartridge = None
+}