Fixes typo
Implements subs* for lists
Implements occur* for lists

It counts all occurences of given atom in given list of S-expressions.