Evaluated proc strsame {a b} { if {[string toupper $a] == [string toupper $b]} {return 1} {return 0} }