!7

concept Example {
  S input;
  S verb;
  S verb_guessed;
}

static F1<S, S> guesser;

p {
  dbIndexing(Example, 'input);
  for (S s : keys(gac36k()))
    uniq(Example, input := s);
  guesser = randomGuesser1(examples());
  print("Making CRUD");
  simpleCRUD(Example);
}

static SS examples() {
  ret mapFromKeyAndValueField(list(Examples), 'input, 'verb);
}