Examples/test-suite/tcl/profiletest_runme.tcl

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]
}