--- a/cwtests/cw02/factors.while	Sun Oct 01 12:04:51 2023 +0100
+++ b/cwtests/cw02/factors.while	Sun Oct 01 13:35:51 2023 +0100
@@ -1,13 +1,13 @@
 // Find all factors of a given input number
-
+// by J.R. Cordy August 2005
 
-write "Input n please: ";
+write "Input n please";
 read n;
-write "The factors of n are: \n";
+write "The factors of n are:\n";
 f := 2;
 while (f < n / 2 + 1) do {
   if ((n / f) * f == n)
-  then { write(f); write("\n") }
+  then  { write(f); write "\n" }
   else { skip };
   f := f + 1
-}
\ No newline at end of file
+}