Evaluated proc inlist {what list} { bif [lsearch $list $what] 1 0 }