Evaluated proc poopybutt who { m [allpics $who] {x { if {[catch "heads $x" heh] == 0} {. $heh }}} \n }