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