Evaluated proc pi args {if {$args eq ""} {upvar #0 piquotes ; set args [lindex_random $piquotes] }; set time [clock format [clock seconds] -format "%I:%M"]; . "$time. $args." }