program Project2;

var g:text;
    f:text;
    s:string;
    c:char;
    cb:char;
    i:integer;
    nb:integer;

begin
    assign(f, 'input.txt');
    reset(f);
    assign(g, 'output.txt');
    rewrite(g);
    cb:=' ';
    nb:=0;
    readln(f, s);
    close(f);
    for i:=1 to length(s) do begin
      c:=s[i];
      if c=cb then
        inc(nb)
      else begin
        if nb<>0 then write(g, nb, cb);
        nb:=1;
        cb:=c;
      end;
    end;
    if nb<>0 then write(g, nb, cb);
    close(g);
end.
 