!7

static Canvas canvas;

p-subst {
  canvas = pairB(showWeb(randomWeb()));
  addButtonsToWindow(canvas, "Next", r {
    canvas = showCAL2(webToCAL(randomWeb()), canvas)
  });
}