diff -r 2849c305b12d -r 95af9beb4b7f progs/token.scala
--- a/progs/token.scala	Tue Oct 17 13:49:45 2017 +0100
+++ b/progs/token.scala	Wed Oct 18 08:36:44 2017 +0100
@@ -254,8 +254,8 @@
 println(env(lexing_simp(WHILE_REGS, prog1)))
 
 
-// Big Test
-//==========
+// Bigger Test
+//=============
 
 val prog2 = """
 write "fib";
@@ -276,8 +276,10 @@
 println(env(lexing_simp(WHILE_REGS, prog2)))
 println(env(lexing_simp(WHILE_REGS, prog2)).filterNot{_._1 == "w"}.mkString("\n"))
 
-// some more timing tests
-for (i <- 1 to 101 by 10) {
+// some more timing tests with
+// i copies of the program
+
+for (i <- 1 to 21 by 10) {
   print(i.toString + ":  ")
   time(lexing_simp(WHILE_REGS, prog2 * i))
 }