1:- module(bc_comment_question, [
    2    bc_random_question/2, % -QuestionId, -Question
    3    bc_answer_ok/2        % +QuestionId, +Answer
    4]).

    8% Checks the human validation
    9% question answer.
   10
   11bc_answer_ok(QuestionId, Answer):-
   12    question(QuestionId, _, Answer).

 bc_random_question(-Id, -Question) is det

Picks random question for human testing.

   18bc_random_question(Id, Question):-
   19    findall(question(Id, Question),
   20        question(Id, Question, _), Questions),
   21    random_member(question(Id, Question), Questions).
   22
   23question(1, 'What is 2-nd digit in 03456', '3').
   24question(2, 'What is 3-rd digit in 03456', '4').
   25question(3, 'What is 4-th digit in 03456', '5').
   26question(4, 'Earth, Mercury and Venus are ...', 'planets').
   27question(5, 'Is water wet (yes/no)?', 'yes')