diff --git a/dotscape b/dotscape
index c185d47..aad2e06 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/fonts/upper-case-k.dsc b/fonts/upper-case-k.dsc
new file mode 100644
index 0000000..095b869
--- /dev/null
+++ b/fonts/upper-case-k.dsc
@@ -0,0 +1,14 @@
+x 0.0666666701436 y ~0.0666667371988 x 0.0666666701436 y ~0.333333283663 x 0.199999943376 y ~0.333333283663
+x 0.199999943376 y ~0.333333283663 x 0.199999943376 y ~0.0666667371988 x 0.0666666701436 y ~0.0666667371988
+x 0.333333283663 y ~0.333333283663 x 0.333333283663 y ~0.599999964237 x 0.199999943376 y ~0.599999964237
+x 0.199999943376 y ~0.599999964237 x 0.199999943376 y ~0.333333283663 x 0.333333283663 y ~0.333333283663
+x 0.333333283663 y 0.466666638851 x 0.333333283663 y 0.333333343267 x 0.199999943376 y 0.333333343267
+x 0.199999943376 y 0.333333343267 x 0.199999943376 y 0.466666638851 x 0.333333283663 y 0.466666638851
+x 0.199999943376 y 0.333333343267 x 0.199999943376 y 0.200000017881 x 0.0666666701436 y 0.200000017881
+x 0.0666666701436 y 0.200000017881 x 0.0666666701436 y 0.333333343267 x 0.199999943376 y 0.333333343267
+x 0.0666666701436 y 0.200000017881 x 0.0666666701436 y 0.0666666701436 x ~0.0666666701436 y 0.0666666701436
+x ~0.0666666701436 y 0.0666666701436 x ~0.0666666701436 y 0.200000017881 x 0.0666666701436 y 0.200000017881
+x 0.0666666701436 y ~0.0666667371988 x ~0.200000017881 y ~0.0666667371988 x ~0.200000017881 y 0.0666666701436
+x ~0.200000017881 y 0.0666666701436 x 0.0666666701436 y 0.0666666701436 x 0.0666666701436 y ~0.0666667371988
+x ~0.200000017881 y ~0.599999964237 x ~0.200000017881 y 0.466666638851 x ~0.333333343267 y 0.466666638851
+x ~0.333333343267 y 0.466666638851 x ~0.333333343267 y ~0.599999964237 x ~0.200000017881 y ~0.599999964237
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 =