1 2 3 4 5 6 7 8
catch { load ./profiletest[info sharedlibextension] profiletest} set a [new_A] set b [new_B] for {set i 0} {$i < 1000000} {incr i 1} { set a [B_fn $b $a] }