2013-03-25: nicer readable example

nicer readable example

diff --git a/tests/readable-tests.w b/tests/readable-tests.w
--- a/tests/readable-tests.w
+++ b/tests/readable-tests.w
@@ -1,10 +1,10 @@
 define : fibfast n
-      if (< n 2)
+      if : < n 2
       . n           
       fibup n 2 1 0 
 
 define : fibup maxnum count n-1 n-2
-       if (= maxnum count)
+       if : = maxnum count
          + n-1  n-2
          fibup maxnum 
                + count 1 
@@ -12,10 +12,10 @@ define : fibup maxnum count n-1 n-2
                . n-1
 
 define : factorial n
-       if (<= n 1) 
+       if : <= n 1
          . 1
          * n 
-           factorial (- n 1)
+           factorial : - n 1
 
 define (gcd x y)
        if (= y 0)
@@ -25,7 +25,7 @@ define (gcd x y)
 
 define : add-if-all-numbers lst
        call/cc 
-         lambda (exit)
+         lambda : exit
                 let loop 
                   : 
                     lst lst 
@@ -34,5 +34,5 @@ define : add-if-all-numbers lst
                      . sum
                      if : not : number? : car lst
                         exit #f
-                        + (car lst)
-                          loop (cdr lst)
\ No newline at end of file
+                        + : car lst
+                          loop : cdr lst
\ No newline at end of file