Evaluated proc smap1 {s a b} { regsub $a $s $b }