Evaluated proc radio_progress {} {set current [clock format [- [timestamp] [groove ptime]] -format "%m:%S"]; . [regsub {^0([1-9])} $current \\1][^C]08,04/[^C]00,04[groove len]}