Evaluated proc ansi:closest {hex list} { set h ""; set d 10; map $list {x { if {} {}  }} }