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