program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var finput,foutput:textfile; line,line2:string;
  count,i:integer; ans:string; a,b:char;
begin
assign(finput,'input.txt');
reset(finput);
readln(finput,line);

while (line<>'') do begin
  count:=0;
  i:=1;
  a:=line[1];
  b:=a;
  while (b=a) do begin
    inc(count);
    inc(i);
    b:=line[i];
  end;
  ans:=ans+IntToStr(count)+line[1];
  line2:='';
  for i:=count+1 to Length(line) do line2:=line2+line[i];
  line:=line2;
end;

assign(foutput,'output.txt');
rewrite(foutput);
writeln(foutput,ans);
close(foutput);
end.
