Evaluated proc heads url { set w [magic:loadurl $url]; set ok [shuf [magic:heads]]; map [magic:faces $w] {x { set o [magic:loadurl [clipart [next_in_list $ok]]]; magic:scalex $o [*r [third $x] 1.3]; @$w composite $o over [- [first $x] [/r [first $x] 5]] [- [second $x] [/r [second $x] 5]] }}; save $w }