(print (countr 'a '((a b c) a (((a c) e (() f g (a a ))) a))))