Time

proc _time {} {
  # Return the current time in list format {hour minute second}.
  set secs  [clock seconds                ]
  set h     [clock format $secs -format %H]
  set m     [clock format $secs -format %M]
  set s     [clock format $secs -format %S]
  return    [list $h $m $s]
}