% Assign answers to questions from the knowledge base
why(Answer) :-
  progress(why, Answer).
why(Answer) :-
  \+ progress(why, _),
  ask(why, Answer, [to_become_pro, just_for_fun]).

do_you_have_medical_condition(Answer) :-
  progress(do_you_have_medical_condition, Answer).
do_you_have_medical_condition(Answer) :-
  \+ progress(do_you_have_medical_condition, _),
  ask(do_you_have_medical_condition, Answer, [nno, yes]).

does_it_limit_your_abilities(Answer) :-
  progress(does_it_limit_your_abilities, Answer).
does_it_limit_your_abilities(Answer) :-
  \+ progress(does_it_limit_your_abilities, _),
  ask(does_it_limit_your_abilities, Answer, [noo, yess]).

context(Answer) :-
progress(context, Answer).
context(Answer) :-
\+ progress(context, _),
ask(context, Answer, [solo, team]).