Evaluated proc inlist {what list} { m $list {x { if {$x == $what} {return 1} }} "" }