https://kottke.org/12/03/how-to-find-waldo-with-mathematica