program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
f,f2:text;
l,i,j,k,start,start1:integer;
s,sss:AnsiString;
s2:array[1..100] of String;
ch:char;
begin
assign(f,'input.txt');
reset(f);
l:=0;
  readln(f,s);
  start1:=1;
  l:=1;
  for i:=start1 to length(s) do
    begin
      k:=0;
      for j:=start1 to length(s) do
        begin
          if (s[start1] = s[j]) then
            k:=k+1
          else
            begin
              break;
            end;
        end;
      sss:=sss+IntToStr(k);
      sss:=sss+s[start1];
      if (j > length(s)) then
        break;
      start1:=j;
    end;
{while not EOF(f) do
  begin
    readln(f,s);
    l:=l+1;
    s2[l]:=s;
  end;}
  close(f);
  assign(f2,'output.txt');
  rewrite(f2);
  write(f2,sss);
  close(f2);
end.
