1 files changed, 4 insertions, 1 deletions
diff --git a/bench.tcl b/bench.tcl
index 9e7601a..4e26a5f 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -24,12 +24,15 @@ proc bench {title script} {
 proc whilebusyloop {} {
     set i 0
     while {$i < 1850000} {
+        set a 2
 	incr i
     }
 }
 
 proc forbusyloop {} {
-    for {set i 0} {$i < 1850000} {incr i} {}
+    for {set i 0} {$i < 1850000} {incr i} {
+        set a 2
+    }
 }
 
 ### FIBONACCI ##################################################################