Evaluated proc sa str {strip_all $str}