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