1 files changed, 12 insertions, 0 deletions
diff --git a/tests/general/primes.icn b/tests/general/primes.icn
new file mode 100644
index 0000000..56f1874
--- /dev/null
+++ b/tests/general/primes.icn
@@ -0,0 +1,12 @@
+#SRC: JCON
+
+# a simple and slow prime number generator
+
+procedure main()
+   local i
+   every i := 2 to 100 do {
+      if i % (2 to i - 1) = 0 then
+         next
+      write(i)
+   }
+end