Evaluated proc nextsong {} {string range [last [split /var/music/]] 0 end-4}