Evaluated proc labelpic who { set w [magic:loadurl [rpic $who]]; mtext $w 20 35 [string toupper $who] Helvetica red 32; imgsave $w }