% some example rules to get you started


% rule 1
stimulus_situation(verbal) :- environment(papers);
                              environment(manuals);
                              environment(documents);
                              environment(textbooks).

% rule 5
stimulus_response(oral) :- job(lecturing);
                           job(advising);
                           job(counselling).
                              
% rule 9
medium(workshop) :- stimulus_situation(physical_object),
                    stimulus_response(hands_om),
                    feedback(yes).
                    

% 3 inputs required: 1 environment 2 job, 3 feedback yes/no                 

go :- 
    getEnvironment,
    % getJob,
    feedback,
    ( stimulus_situation(SS),
      nl, write('Stimulus situation is '), write(SS), nl,
      medium(M)
    ;
      writeln('Could not advise on an appropriate medium')
    ), 
    cleanInputs.
      
getEnvironment :-
    write('Input the environment '), 
    read(E), 
    assert(environment(E)).

feedback :-       
    write('Is feedback required yes/no '),
    read(F),
    assert(feedback(F)).
      
cleanInputs :- 
    retractall(environment(_)),
    retractall(job(_)),
    retractall(feedback(_)).