diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..a596ba6
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,2 @@
+run:
+	mlton oms.mlb && ./oms
diff --git a/fcore/block.sml b/fcore/block.sml
new file mode 100644
index 0000000..3f2a33d
--- /dev/null
+++ b/fcore/block.sml
@@ -0,0 +1,27 @@
+structure Block =
+struct
+  fun lerp (startX, startY, drawWidth, drawHeight, windowWidth, windowHeight, r, g, b) : Real32.real vector =
+    let
+       val startX = Real32.fromInt startX
+       val startY = Real32.fromInt startY
+       val endY = windowHeight - startY
+       val startY = windowHeight - (startY + drawHeight)
+       val endX = startX + drawWidth
+       val windowHeight = windowHeight / 2.0
+       val windowWidth = windowWidth / 2.0
+    in
+       #[      (((startX * (1.0 - 1.0)) + (endX * 1.0)) / windowWidth) - 1.0,
+      (((startY * (1.0 - 0.0)) + (endY * 0.0)) / windowHeight) - 1.0, r, g, b,
+      (((startX * (1.0 - 0.0)) + (endX * 0.0)) / windowWidth) - 1.0,
+      (((startY * (1.0 - 0.0)) + (endY * 0.0)) / windowHeight) - 1.0, r, g, b,
+      (((startX * (1.0 - 0.0)) + (endX * 0.0)) / windowWidth) - 1.0,
+      (((startY * (1.0 - 1.0)) + (endY * 1.0)) / windowHeight) - 1.0, r, g, b,
+      (((startX * (1.0 - 0.0)) + (endX * 0.0)) / windowWidth) - 1.0,
+      (((startY * (1.0 - 1.0)) + (endY * 1.0)) / windowHeight) - 1.0, r, g, b,
+      (((startX * (1.0 - 1.0)) + (endX * 1.0)) / windowWidth) - 1.0,
+      (((startY * (1.0 - 1.0)) + (endY * 1.0)) / windowHeight) - 1.0, r, g, b,
+      (((startX * (1.0 - 1.0)) + (endX * 1.0)) / windowWidth) - 1.0,
+      (((startY * (1.0 - 0.0)) + (endY * 0.0)) / windowHeight) - 1.0, r, g, b
+    ]
+  end
+end
diff --git a/oms.mlb b/oms.mlb
new file mode 100644
index 0000000..a61783b
--- /dev/null
+++ b/oms.mlb
@@ -0,0 +1,12 @@
+$(SML_LIB)/basis/basis.mlb
+
+(* fcore *)
+ann
+  "allowVectorExps true"
+in
+  fcore/block.sml
+end
+
+fcore/quad-tree.sml
+fcore/player.sml
+fcore/wall.sml