!7

sS inputDiagrams = [[
  CirclesAndLines(circles=[Circle(text="Find", x=d("0.42219020172910665"), y=d("0.1644100580270793")), Circle(text="standard function", x=d("0.659942363112392"), y=d("0.28239845261121854"))], lines=[Arrow(a=t5, b=t26, text="")])
  CirclesAndLines(circles=[Circle(text="A standard function that finds", x=d("0.3011527377521614"), y=d("0.2688588007736944")), Circle(text="standard functions", x=d("0.5561959654178674"), y=d("0.4448742746615087")), Circle(text="\"standardFunctionNames\"", x=d("0.7521613832853026"), y=d("0.6808510638297872"))], lines=[Arrow(a=t5, b=t26, text=""), Arrow(a=t26, b=t47, text="is")])
]];

p {
  Web web = webFromCALStructures(inputDiagrams);
  showWeb(web);
  WebNode find = web_findNode(web, "Find");
  WebNode op = web_operand(find);
  print("Finding a: " + op);
  S plural = plural(web_text(op));
  print(plural);
  Pair<WebNode> finder = web_findTriple(web, "A standard function that finds", "", plural);
  print("Finder: " + finder);
  if (finder == null) fail("No finder");
  S sfName = web_operandText(finder.b, "is");
  if (sfName == null) fail("No sf");
  print(sfName);
  O found = random((Collection) makeAndCall(sfName));
  print("Found: " + sfu(found));
}