!7

cmodule TheoryMaker > DynConvo {
  /*
  1. measurable features (fields of object)
  2. higher level features (words the user throws in)
  3. make theories (random statements)
  4. check theories
  
  1. show a random line
  2. user types keyword
  3. assign keyword to line

  line $a has keyword $x & line $a's text is $bla
    & line $y has text $bla => line $b might have keyword $x
  */
  
  L<Msg> msgs;
  
  start-thread {
    if (empty(msgs))
      setField(msgs := mainCruddieLog());
    setMsgs(takeFirst(5, msgs));
  }
}