Create time.tcl

Write on the channel the hours.