use keymap to choose command to invoke

keymap.fnl

@@ -0,0 +1,19 @@
+
+
+(fn recogniser [keymap]
+  (var m keymap)
+  {
+   :accept
+   (fn [_ c]
+     (let [v (. m c)]
+       (match (type v)
+         "table" (do
+                   (set m v)
+                   (values nil (.. c " ")))
+         "function" (do
+                      (set m keymap)
+                      v))))
+   })
+
+
+{ : recogniser }