Evaluated proc strlen str {string length $str}