From 77e1b8f910b4130966583c1446efd0e5de502f7a Mon Sep 17 00:00:00 2001
From: ricmaps <ricardomapurungajunior@gmail.com>
Date: Wed, 24 Jun 2026 00:19:57 -0300
Subject: [PATCH] Add Even Odd in Forth

---
 archive/f/forth/even-odd.fth | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 archive/f/forth/even-odd.fth

diff --git a/archive/f/forth/even-odd.fth b/archive/f/forth/even-odd.fth
new file mode 100644
index 000000000..a464798c2
--- /dev/null
+++ b/archive/f/forth/even-odd.fth
@@ -0,0 +1,16 @@
+: even-odd ( n -- )
+    2 mod 0= if
+        ." Even"
+    else
+        ." Odd"
+    then cr ;
+
+: usage ( -- ) ." Usage: please input a number" cr ;
+
+: main
+    argc @ 2 < if usage exit then  
+    1 arg s>number? 0= if usage exit else drop then
+    even-odd ;
+
+main
+bye