Evaluated proc obama2 url { set w [magic:loadurl $url]; map [magic:faces $w] {x { set o [magic:loadurl [clipart obamahead]]; magic:scalex $o [*r [third $x] 1.10]; @$w composite $o over [- [first $x] 10] [- [second $x] 25] }}; save $w }