(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 "Ааа ба баа ааба"))
KGRlZnVuIGJvYmEgKHN0cikKICAobG9vcCA6d2l0aCBiLXAgOmZvciBjIDphY3Jvc3Mgc3RyCiAgICAgICAgOmNvdW50IChjYXNlIGMKICAgICAgICAgICAgICAgICAoI1zQsCBiLXApCiAgICAgICAgICAgICAgICAgKCNc0LEgKHNldGYgYi1wIHQpIG5pbCkKICAgICAgICAgICAgICAgICAodCAgIChzZXRmIGItcCBuaWwpKSkpKQoKKHByaW50IChib2JhICLQkNCw0LAg0LHQsCDQsdCw0LAg0LDQsNCx0LAiKSk=