!7

p-experiment {
  L<S> l1 = mL("Things humans eat");
  L<S> l2 = mL("Things humans don't eat");
  L<S> things = tlft([[
    Steel
    Raw steel
    Chocolate
    Milk chocolate
    Wooly stuff
    Stainless steel
  ]]);
  
  Triple<L<S>> t = attractToTwoLists1(things, l1, l2);
  t = attractToTwoLists_merge(t, attractToTwoLists2(t.a, l1, l2));
  nlPrint("Edible:");
  pnlIndent(t.b);
  nlPrint("Non-edible:");
  pnlIndent(t.c);
  nlPrint("Undecided:");
  pnlIndent(t.a);
}