!7

p-subst {
  repeat with sleep 1 {
    currentImage(newBufferedImage(200, 200, Color.gray));
    Rect r = randomRect();
    r.h = r.h & ~1; // make even
    int h = r.h/2;
    Pair<Rect> p = splitRectInVerticalHalves(r);
    if (oneInTwo()) p = reversePair(p);
    fillRect(p.a, Color.black);
    fillRect(p.b, Color.white);
    quickShowImage();
  }
}