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