add ackerman example

1 files changed, 5 insertions, 3 deletions

diff --git a/fib.kpl b/fib.kpl
index 16edbb4..f049ba0 100644
--- a/fib.kpl
+++ b/fib.kpl
@@ -1,5 +1,8 @@
 
-// Fibonacci sequence for all numeric types
+/*
+    Fibonacci sequence
+    n can be any signed or unsigned integer type
+*/
 
 `export fib : Fn[n] $ (
     ? {
@@ -9,7 +12,6 @@
     }
 )
 
-
 `export fib_string Fn[n] $ (
     String $ ("fib("; n; ") = "; fib `call_sync n; "\n")
 )
@@ -22,5 +24,5 @@
             "Usage: "; args `get 0; " "; args `get 1; " <number>\n"
          )
     }
-    `print `call_sync fib_string `call_sync I64 $ args `get -1
+    `print fib_string `call_sync I64 $ args `get -1
 )