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