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 afindall function and intersection because when i enter cough,nauseafatigue my output should flu, cold, hungover.