?- consult('proglanghw2.pro').
true.

*- LIST THE NAMES OF ALL THE PIECES.
?- pieces.
chopin
chopin
chopin
chopin
chopin
liszt
liszt
false.

*- LIST THE NAMES OF ALL THE NOTES.
% note :: all those items listed are the notes in the KB.
?- note.
a
b
c
d
e
f
g
true.

*- LIST THE NAMES OF THE PITCHES THAT ARE QUARTER NOTES
?- quarter(Pitch).
a
d
false.

*- LIST THE NAMES OF THE PITCHES THAT ARE WHOLE NOTES
?- whole(Pitch).
b
e
false.

*- LIST THE NAMES OF THE PITCHES THAT ARE HALF NOTES
?- half(Pitch).
c
f
g
false.

*- LIST THE NAMES OF THE BEATS THAT ARE HALF NOTES
?- beats(half, A).
A = 2 ;
A = 2 ;
A = 2.

*- LIST THE NAMES OF THE BEATS THAT ARE WHOLE NOTES
?- beats(whole, A).
A = 4 ;
A = 4 ;
false.

*- LIST THE NUMBER OF BEATS THAT ARE QUARTER NOTES
?- beats(quarter, A).
A = 1 ;
A = 1 ;
false.

*- LIST THE NAMES OF THE COMPOSERS.
?- composers.
chopin
chopin
chopin
chopin
chopin
liszt
liszt
true.

*- LIST THE NUMBER OF BEATS THE PITCH HAS
?- beats_of_pitch(a, A).
A = 1 ;
false.

?- halt.