Evaluated proc obama url { set w [magic:loadurl $url]; set o [magic:loadurl [clipart obamahead]]; set f [first [magic:faces $w]]; magic:scalex $o [*r [third $f] 1.25]; @@$w composite $o over [first $f] [- [second $f] 35] }