diff --git a/dotscape b/dotscape
index 6d0edae..cd914ff 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/fonts/upper-case-l.dsc b/fonts/upper-case-l.dsc
new file mode 100644
index 0000000..dacddb3
--- /dev/null
+++ b/fonts/upper-case-l.dsc
@@ -0,0 +1,4 @@
+x ~0.272727251053 y ~0.818181931973 x ~0.272727251053 y ~0.63636380434 x 0.454545468092 y ~0.63636380434
+x ~0.272727251053 y ~0.818181931973 x 0.454545468092 y ~0.818181931973 x 0.454545468092 y ~0.63636380434
+x ~0.454545468092 y ~0.818181931973 x ~0.272727251053 y ~0.818181931973 x ~0.272727251053 y 0.636363565922
+x ~0.454545468092 y ~0.818181931973 x ~0.454545468092 y 0.636363565922 x ~0.272727251053 y 0.636363565922
diff --git a/fonts/upper-case-m.dsc b/fonts/upper-case-m.dsc
new file mode 100644
index 0000000..9baf80e
--- /dev/null
+++ b/fonts/upper-case-m.dsc
@@ -0,0 +1,10 @@
+x 0.454545408487 y ~0.818181753159 x 0.272727310658 y ~0.818181753159 x 0.272727310658 y 0.636363625526
+x 0.272727310658 y 0.636363625526 x 0.454545408487 y 0.636363625526 x 0.454545408487 y ~0.818181753159
+x 0.272727310658 y 0.454545468092 x 0.0909090563655 y 0.454545468092 x 0.0909090563655 y 0.272727310658
+x 0.0909090563655 y 0.272727310658 x 0.272727310658 y 0.272727310658 x 0.272727310658 y 0.454545468092
+x 0.0909090563655 y ~0.0909090563655 x 0.0909090563655 y 0.272727310658 x ~0.0909091234207 y 0.272727310658
+x ~0.0909091234207 y 0.272727310658 x ~0.0909091234207 y ~0.0909090563655 x 0.0909090563655 y ~0.0909090563655
+x ~0.0909091234207 y 0.272727310658 x ~0.272727310658 y 0.272727310658 x ~0.272727310658 y 0.454545468092
+x ~0.272727310658 y 0.454545468092 x ~0.0909091234207 y 0.454545468092 x ~0.0909091234207 y 0.272727310658
+x ~0.454545468092 y 0.636363625526 x ~0.272727310658 y 0.636363625526 x ~0.272727310658 y ~0.818181753159
+x ~0.454545468092 y ~0.818181753159 x ~0.272727310658 y ~0.818181753159 x ~0.454545468092 y 0.636363625526
diff --git a/imperative-shell/file-thread.sml b/imperative-shell/file-thread.sml
index 68a9da8..097e9ab 100644
--- a/imperative-shell/file-thread.sml
+++ b/imperative-shell/file-thread.sml
@@ -11,7 +11,7 @@ struct
   datatype parse_result = OK of AppType.triangle list | PARSE_ERROR
 
   val structureName = "UpperCaseG"
-  val filename = "fonts/upper-case-k.dsc"
+  val filename = "fonts/upper-case-l.dsc"
   val exportFilename = "fonts/upper-case-h.sml"
 
   fun ndcToLerpX num =