symptom(shingles,headache).

symptom(shingles,fever).

symptom(shingles,malaise).

symptom(shingles,headache).

symptom(shingles,itching).

symptom(shingles,hyperesthesia).

symptom(shingles,paresthesia).

test(shingles,blood).

test(shingles,pcr).

locale(shingles,all).

treatment(shingles,calamine).

treatment(shingles,aciclovir).

treatment(shingles,valaciclovir).

treatment(shingles,famciclovir).

treatment(shingles,corticosteroids).

getSymptoms(Symptoms) :-
write('Please enter symptoms now, enter "Done" when finished: ' ),
read_string(user, "n", "r", _, Response),
(
    Response == "Done"
->
    Symptoms = []
;
    getSymptoms(Symptoms0),
    Symptoms = [Response|Symptoms0]
).