2014-01-09: added a very simple performance test.

added a very simple performance test.

diff --git a/examples/tinyenc.w b/examples/tinyenc.w
--- a/examples/tinyenc.w
+++ b/examples/tinyenc.w
@@ -101,3 +101,16 @@ format #t "encrypted: ~A\n"
         encrypt 
           . 5
           . 9
+
+; Performance test
+define : testdecrypt 
+       decrypt
+           encrypt 
+             . 5
+             . 9
+           . 9
+
+let loop : : step 0
+    when : < step 100000
+       testdecrypt
+       loop : + 1 step