1 files changed, 22 insertions, 14 deletions

diff --git a/test.toc b/test.toc
index 1bc7c34..8372265 100644
--- a/test.toc
+++ b/test.toc
@@ -1,20 +1,28 @@
 #include "std/io.toc", io;
 
-main ::= fn() {
-	defer io.puts("deferred from main");
-	for i := 0..10 {
-		defer io.puti(i);
-		if i == 7 {
-			defer io.puts("break!!!");
-			break;
+prime_sieve ::= fn(N::=10000) sieve: [N]bool {
+	for x, i := &sieve {
+		*x = i%2 != 0;
+	}
+	sieve[1] = false;
+	sieve[2] = true;
+	i := 3;
+	while i*i <= N {
+		defer i += 2;
+		if !sieve[i] { continue; }
+		j := 2*i;
+		while j < N {
+			sieve[j] = false;
+			j += i;
 		}
-		if i % 2 == 0 {
-			defer io.puts("continue!!!");
-			continue;
+	}
+}
+
+main ::= fn() {
+	sieve := prime_sieve();
+	for x, i := sieve {
+		if x {
+			io.puti(i);
 		}
-		io.puts("number...");
 	}
-	return;
-	io.puts("end of main");
 }
-main();