Improved formatting for normal output

1 files changed, 5 insertions, 2 deletions

diff --git a/bench.tcl b/bench.tcl
index 9a5f533..7661a29 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -11,8 +11,11 @@ proc bench {title script} {
         if {!$batchmode} {puts "$Title - This test can't run on this interpreter"}
         lappend benchmarks $title F
     } else {
-        if {!$batchmode} {puts "$Title - $res"}
-        lappend benchmarks $title [lindex $res 0]
+        set t [lindex $res 0]
+        lappend benchmarks $title $t
+        set ts "[string repeat " " 10]$t"
+        set ts [string range $ts end-10 end]
+        if {!$batchmode} {puts "$Title -$ts microseconds per iteration"}
     }
 }