emit a comment, print numbers one per line

1 files changed, 9 insertions, 1 deletions

diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 757c60e9b..90e6801e2 100755
--- a/src/wheel-gen.pl
+++ b/src/wheel-gen.pl
@@ -56,6 +56,14 @@ sub is_prime ($)
 	}
     }
 
+  my $ws_m1 = $wheel_size - 1;
+  print <<EOF;
+/* The first $ws_m1 elements correspond to the incremental offsets of the
+   first $wheel_size primes (@primes).  The $wheel_size(th) element is the
+   difference between that last prime and the next largest integer that is
+   not a multiple of those primes.  */
+EOF
+
   my @increments;
   my $prev = 2;
   for (my $i = 3; ; $i += 2)
@@ -78,7 +86,7 @@ sub is_prime ($)
 	}
     }
 
-  print "@increments\n";
+  print join (",\n", @increments), "\n";
 
   exit 0;
 }