program Project2;

uses
  SysUtils;

{$R+ W+ O+ S+}

Var f,g:text;
    x,p,k:LongInt;
    a:Char;
    ff:Boolean;

begin
  assign(f,'input.txt');
  ReSet(f);
  assign(g,'output.txt');
  ReWrite(g);

  if not(eof(f))
  then begin
  k:=1;
  read(f,a);
  p:=ord(a)-ord('0');
  ff:=false;
  while not(eof(f)) do
    begin
      ff:=true;
      read(f,a);
      x:=ord(a)-ord('0');
      if (x=p)
      then Inc(k)
      else begin
             write(g,k,p);
             {write(g,p);{}
             k:=1;
           end;
      p:=x;
    end;
  if ff then writeln(g,k,x) else writeln(g,k,p);
  {writeln(g,x);{}
        end;

  Close(g);
  Close(f);

end.
