2013-12-03: start kit-encode with base60encode (I wanted to write anyway).

start kit-encode with base60encode (I wanted to write anyway).

diff --git a/examples/kit-encode.w b/examples/kit-encode.w
new file mode 100644
--- /dev/null
+++ b/examples/kit-encode.w
@@ -0,0 +1,17 @@
+#!./wisp-multiline.sh
+; !#
+
+define base60chars 
+  . "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ_abcdefghijkmnopqrstuvwxyz"
+
+define : base60encode number
+  let moddown : (base60 "") (quotient number)
+    if : < quotient 60
+      string-append (string-ref base60chars quotient) base60
+      moddown 
+        string-append : string-ref base60chars : floor-remainder quotient 60
+        floor-quotient quotient 60
+
+define : base60decode string 
+  display string
+