nicer prime.cog example

examples/fizzbuzz.cog

@@ -1,6 +1,6 @@
 Def Fizzbuzz (
-	Let N be Of ( Integer? );
-	Def Multiple as ( Zero? Modulo Swap N );
+	Let N be Of (Integer?);
+	Def Multiple as (Zero? Modulo Swap N);
 	Print
 		If Multiple of 15 then "fizzbuzz"
 		If Multiple of 3  then "fizz"

examples/prime.cog

@@ -1,15 +1,13 @@
 Def Factor (Zero? Modulo Swap);
 
 Def Primes (
-	Let U is upper bound;
-	initially Empty;
-	For Range 2 to U (
+	Fold (
 		Let I be our potential prime;
 		Let Primes are the found primes;
 		Let To-check be Take-while (<= Sqrt I) Primes;
 		When None (Factor of I) To-check
 			(Append List (I)) to Primes;
-	)
+	) from List () over Range from 2
 );
 
 Print Primes up to 1000;