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