Program 8 update

I cant figure out how to get it to count a cdr of a list for example
for example

(count '(p q) '(a (p q) (b ((p q) (p q))) d))
should return 3? but returns 2