Функция уплотнения строки с повторяющимися символами

Необходимо написать функцию, которая сжимает строку, заменяя подряд идущие одинаковые символы на сам символ и количество его повторений, без добавления лишних знаков.

 //Есть строка со множеством повторяющихся букв:

//ААААВВВССХУZDDDDEEFFFFAAAAAABBBBBBBBBBBBBBBBBBBBBBB

//Нужно ее сократить, что бы получилось так:

//A4B3C2XYZD4E3F3AGB28