From 55bfd0ef0ca7ffba9d52905f24b7c71caa96d8a8 Mon Sep 17 00:00:00 2001
From: nodist <kevin.comas.git@gmail.com>
Date: Sun, 17 May 2026 14:43:41 -0400
Subject: add is_main to fib example

---
 fib.kpl | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'fib.kpl')

diff --git a/fib.kpl b/fib.kpl
index e8ebeb8..4b7fb15 100644
--- a/fib.kpl
+++ b/fib.kpl
@@ -1,10 +1,23 @@
 
 // Fibonacci sequence for all numeric types
 
-fib : Fn[n] $ (
+`export fib : Fn[n] $ (
     ? {
         n <= 0 { 0 }
         n < 3 { 2 }
         { `call_sync(fib; n - 1) + fib `call_sync n - 2 }
     }
 )
+
+`is_main Fn $ (
+    ( args ) : `use "sys"
+    ? 3 != `length args {
+        `return `error String $ (
+            "Got: "; " " `join args; "\n"
+            "Usage: "; args `get 0; " "; args `get 1; " <number>\n"
+         )
+    }
+    n : I64 $ args `get -1
+    ( print ) : `use "io"
+    print `call_sync String $ ("fib("; n; ") = "; fib `call_sync n; "\n")
+)
-- 
cgit v1.2.3