!7

static Canvas canvas;

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