Evaluated proc inlist {what list} { lsearch $list $what }