Date

proc _date {} {
  # Return the current date as a list in the format {year month day}.
  set secs  [clock seconds                  ]
  set year  [clock format $secs -format %Y  ]
  set month [clock format $secs -format %m  ]
  set day   [clock format $secs -format %d  ]
  return    [list $year $month $day         ]
}