Evaluated proc %+ {who q} { set out ""; foreach chunk [split [string range [first [split [strip_all [song $q]]]] 2 end] " | "] { append out "[trim $chunk]###" }; . $out}