; Normalize photo colors

(open $path 0.5)
(def average-color 
  (pick))
(pixels normalize average-color)