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