Evaluated proc heads {url {heads {magic:heads}}} { set w [magic:loadurl $url]; set ok [shuf [eval $heads]]; map [magic:faces $w] {x { set o [magic:loadurl [clipart [next_in_list $ok]]]; magic:scalex $o [*r [third $x] 1.25]; @$w composite $o over [heads_x [first $x] [third $x]] [heads_y [second $x] [fourth $x]] }}; save $w }