run length encoded string program OK