expanded test program

test.jl

@@ -27,9 +27,25 @@ def getFile
 def (testUnary n)
   ((-n) + n)
 
+def (splitHelp acc xs ys)
+  if (null xs)
+    then ((reverse acc), ys)
+  else if (null (tail xs))
+    then ((reverse acc), ys)
+  else
+    (splitHelp ((head ys) : acc)
+               (tail (tail xs))
+               (tail ys))
+
+def (splitxs xs)
+  (splitHelp [] xs xs)
+
 def main
   ((print (testUnary 6)) >>
   if False
     then
       undefined
-    else getFile)
+    else (getFile >>= print)
+    >>
+    (print
+      (splitxs "abcdefghijk")))