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