Evaluated proc OBAMA who { obama2 [rpic $who] }