Evaluated proc radio_progress {} {set current [clock format [- [timestamp] [groove ptime]] -format "%m:%S"]; . $current/[groove len]}