Evaluated proc srgrep {r l} {join [rgrep $r $l] \n}