1235368Sgnn#!./tclsh 2235368Sgnn 3235368Sgnnproc func_c {} { 4235368Sgnn puts "Function C" 5235368Sgnn after 1000 6235368Sgnn} 7235368Sgnn 8235368Sgnnproc func_b {} { 9235368Sgnn puts "Function B" 10235368Sgnn after 1000 11235368Sgnn func_c 12235368Sgnn} 13235368Sgnn 14235368Sgnnproc func_a {} { 15235368Sgnn puts "Function A" 16235368Sgnn after 1000 17235368Sgnn func_b 18235368Sgnn} 19235368Sgnn 20235368Sgnnfunc_a 21