xref: /netbsd-src/external/cddl/dtracetoolkit/dist/Code/Tcl/func_abc.tcl (revision c29d51755812ace2e87aeefdb06cb2b4dac7087a)

#!./tclsh

proc func_c {} {
	puts "Function C"
	after 1000
}

proc func_b {} {
	puts "Function B"
	after 1000
	func_c
}

proc func_a {} {
	puts "Function A"
	after 1000
	func_b
}

func_a