ccal

#! /bin/sh
# \
exec tclsh8.5 $0 ${1+"$@"}
puts \n[regsub -line "(^| )([string trimleft [clock format [clock seconds] -format %e]])( |\$)" [string trimright [exec cal] \n] "\\1\x1b\[36m\\2\x1b\[0m\\3"]
puts [string repeat - 20]
puts [string repeat " " 5][clock format [clock seconds] -format %T]\n