Evaluated proc radio_progress {} {set current [clock format [- [timestamp] [groove ptime]] -format "%M:%S"]; . $current[^C]08,04/[^C]00,04[groove len]}