Data update

Task/Euclid-Mullin-sequence/Craft-Basic/euclid-mullin-sequence.basic

@@ -2,7 +2,7 @@ define size = 16, em = 0
 dim list[size]
 
 let list[0] = 2
-print 2
+print 2, " ",
 
 for i = 1 to 15
 
@@ -14,16 +14,16 @@ for i = 1 to 15
 
 		for j = 0 to i - 1
 
-			let em = ( em * list[j] ) % k
+			let em = (em * list[j]) % k
 
 		next j
 
-		let em = ( em + 1 ) % k
+		let em = (em + 1) % k
 
 		if em = 0 then
 
 			let list[i] = k
-			print list[i]
+			print list[i], " ",
 			break
 
 		endif
@@ -35,7 +35,3 @@ for i = 1 to 15
 	loop
 
 next i
-
-print "done."
-
-end