Evaluated proc %+ {who q} {append ::playlist($who) [first [split [song $q]]]**}