Create procs to time sections of TCL code.

profile.tcl

if { ![info exists ::__times] } {
	proc __time_start {name} {
		lappend ::__times(${name}::start) [clock clicks]
	} 

	proc __time_end {name} {
		set queue $::__times(${name}::start)
		set start [lindex $queue end]
		set queue [lrange $queue 0 end-1]
		set ::__times(${name}::start) $queue

		puts stderr "##### [format "%08d" [expr {[clock clicks] - $start}]] ==> $name"
		
	}

	array set ::__times {}
}