1#!./tclsh 2 3proc func_c {} { 4 puts "Function C" 5 after 1000 6} 7 8proc func_b {} { 9 puts "Function B" 10 after 1000 11 func_c 12} 13 14proc func_a {} { 15 puts "Function A" 16 after 1000 17 func_b 18} 19 20func_a 21