From c566aeb6749fd6f764a3f1c23d0d18e917f44366 Mon Sep 17 00:00:00 2001
From: Wesley Kerfoot <wjak56@gmail.com>
Date: Wed, 11 Dec 2013 21:25:26 -0500
Subject: [PATCH] expanded test program

---
 test.jl | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/test.jl b/test.jl
index bb84621..eb9dca5 100644
--- a/test.jl
+++ b/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")))