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