Evaluated proc grep {r s} {join [lgrep $r [split $s \n]] \n}