Evaluated proc distance {a b} {set len [string length $b]; expr [stringDistance $a $b]/$len*1.00; . $len}