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