Program 8 Update

This is an update of program 8. it works for single level lists, but not
for lists within lists. for example (count 'x '(x x x g x)) will return
4 but (count 'x '(x (x))) will only return 1 but should return 2.