<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_64d8gob58dtvfakipl84b07vuv, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

module AskMeAQuestion > DynModule {
  S question, answer;
  
  visualize {
    ret makeForm2(
      "Computer question", dm_fieldLabel('question),
      "Human answer", centerAndEast(onEnter(dm_fieldTextField('answer), rThread submit),
        jbutton("Submit", rThread submit)),
      "", rightAlignedButtons("Ask me something else", rThread newQuestion));
  }
  
  S randomWord() {
    ret randomEnglishWordFromDictionary();
  }
  
  void newQuestion enter {
    setFields(answer := "", question := "Is " + randomWord() + " the same as " + randomWord() + "?");
  }
  
  void submit enter {
    programLogStructure(litorderedmap(+question, +answer));
    vmBus_send('userAnsweredQuestion, module(), question, answer);
    newQuestion();
  }
}