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