!7

static Web web;
static Canvas canvas;

p-subst {
  web = persistentObject("Web", Web);
  
  web.node("Every day");
  
  canvas = showCAL(diagram(), 650, 450);
  calcOnConceptChanges(1000, r { canvas = showCAL(diagram(), canvas) }, false);
  bot("Every Day Bot.");
  showCommandList();
}

static CirclesAndLines diagram() { ret webToCAL(web); }

answer {
  if "every day *" { web.relation(lisp("I should", $1)); ret "OK"; }
}