diagnose(Disease):- retractall(symptom(_)), getSymptoms(List), forall(member(X,List),assertz(symptom(X))), disease(Disease). getSymptoms([Symptom|List]):- writeln('Enter Symptom:'), read(Symptom), dif(Symptom,stop), getSymptoms(List). getSymptoms([]). disease(flu):- symptom(fever), symptom(chills), symptom(nausea). disease(cold):- symptom(cough), symptom(runny_nose), symptom(sore_throat). disease(hungover):- symptom(head_ache), symptom(nausea), symptom(fatigue).

i wish to change this to symptom(flu,fever) and then using a findall function and intersection because when i enter cough,nausea fatigue my output should flu, cold, hungover.