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