1# -*- tcl -*-
2
3# set a old
4# set b new
5# set c <num>
6# source this-file
7
8catch {unset time}
9catch {unset f}
10source test.$c.$a.data
11source test.$c.$b.data
12
13foreach al {bin oct hex} {
14    foreach ti {1000 1000000} {
15
16	set ta $time($al,$ti,$a)
17	set tb $time($al,$ti,$b)
18
19	set f($al,$ti) [list $ta $tb [expr {double ($ta) / double ($tb)}]]
20    }
21}
22
23parray f
24