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