(defun boba (str)
  (loop :with b-p :for c :across str
        :count (case c
                 (#\а b-p)
                 (#\б (setf b-p t) nil)
                 (t   (setf b-p nil)))))

(print (boba "Ааа ба баа ааба"))