Evaluated proc inlist {what list} { join [map $list {x { if {$x == $what} {return 1} }}] "" }