diff --git a/dotscape b/dotscape
index adab6f8..4e50357 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/ffi/glfw-input.c b/ffi/glfw-input.c
index 756094c..4a14df1 100644
--- a/ffi/glfw-input.c
+++ b/ffi/glfw-input.c
@@ -9,6 +9,10 @@ int KEY_G = GLFW_KEY_G;
 int KEY_Y = GLFW_KEY_Y;
 int KEY_Z = GLFW_KEY_Z;
 
+int KEY_S = GLFW_KEY_S;
+int KEY_E = GLFW_KEY_E;
+int KEY_I = GLFW_KEY_I;
+
 // Calls function exported from SML 
 void mouseMoveCallback(GLFWwindow *window, double xpos, double ypos) {
   mltonMouseMoveCallback((float)xpos, (float)ypos);
diff --git a/ffi/glfw-input.sml b/ffi/glfw-input.sml
index ab59740..a5e0827 100644
--- a/ffi/glfw-input.sml
+++ b/ffi/glfw-input.sml
@@ -37,4 +37,11 @@ struct
     _symbol "KEY_Y" public : ( unit -> int ) * ( int -> unit );
   val (KEY_Z, _) =
     _symbol "KEY_Z" public : ( unit -> int ) * ( int -> unit );
+
+  val (KEY_S, _) =
+    _symbol "KEY_S" public : ( unit -> int ) * ( int -> unit );
+  val (KEY_E, _) =
+    _symbol "KEY_E" public : ( unit -> int ) * ( int -> unit );
+  val (KEY_I, _) =
+    _symbol "KEY_I" public : ( unit -> int ) * ( int -> unit );
 end
diff --git a/message-types/io-msg.sml b/message-types/io-msg.sml
new file mode 100644
index 0000000..5d27022
--- /dev/null
+++ b/message-types/io-msg.sml
@@ -0,0 +1,15 @@
+signature IO_MESSAGE =
+sig
+  datatype t =
+    SAVE_TRIANGLES of AppType.triangle list
+  | EXPORT_FILE of AppType.triangle list
+  | IMPORT_FILE
+end
+
+structure IoMessage :> IO_MESSAGE =
+struct
+  datatype t =
+    SAVE_TRIANGLES of AppType.triangle list
+  | EXPORT_FILE of AppType.triangle list
+  | IMPORT_FILE
+end