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