Evaluated proc %+ {who q} {set re [regexp -inline {^. (.+?)\s+} [first [split [strip_all [song $q]] \n]]; . $re}