Wow, @Chris, this is great! It really reminds me of the works by Shepard Fairey:
How about
sketch[i_] := With[{image = ImageAdjust@ColorQuantize[i, 4, Dithering -> False]}, ImageMultiply[image, ColorNegate@EdgeDetect[image]] ]
Which gives