(defn xors [max-x max-y]
  (for [x (range max-x) y (range max-y)]
    [x y (bit-xor x y)]))

(def frame (jawa.awt.Frame.))

(.setVisible frame true)
(.setSize frame (jawa.awt.Dimension. 200 200))

(def gfx (.getGraphics frame))

(doseq [[x y xor] (xors 200 200)]
  (.setColor gfx (java.awt.Color. xor xor xor))
  (.fillRect gfx x y 1 1))