# source [file join [file dirname [info script]] diary.tcl]
# source [file join [file dirname [dict get [info frame 0] file]] diary.tcl]