NENXAU PASCAL

var     s,s1,t:string;
        i,d:longint;
        
procedure giai;
begin
    d:=1;
    for i:=2 to length(s) do
        if s[i]<>s[i-1] then
        begin
                write(d);
                write(s[i-1]);
                d:=1;
        end
        else inc(d);
    write(d);
    write(s[i]);

end;

begin
    assign(input, 'NENXAU.INP');reset(input);
    assign(output, 'NENXAU.OUT');rewrite(output);
    readln(s);
    giai;
end.