1N/A#!./tclsh
1N/A
1N/Aproc func_c {} {
1N/A puts "Function C"
1N/A set i 0
1N/A while {$i < 300000} {
1N/A set i [expr $i + 1]
1N/A }
1N/A}
1N/A
1N/Aproc func_b {} {
1N/A puts "Function B"
1N/A set i 0
1N/A while {$i < 200000} {
1N/A set i [expr $i + 1]
1N/A }
1N/A func_c
1N/A}
1N/A
1N/Aproc func_a {} {
1N/A puts "Function A"
1N/A set i 0
1N/A while {$i < 100000} {
1N/A set i [expr $i + 1]
1N/A }
1N/A func_b
1N/A}
1N/A
1N/Afunc_a