Evaluated proc rget {r s} { last [regexp -inline $r $s] }