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