program xxxx;
var ch:array[1..100000] of char;
i,n,a,b:integer;
begin
assign(input,'table.in');
reset(input);
assign(output,'table.out');
rewrite(output);
a:=0;b:=0;n:=0;
repeat
begin
inc(n);
read(ch[n]);
if ch[n]='W' then
begin
inc(a);
if (a>=11)and(a-b>=2) then
begin
writeln(a,':',b);
a:=0;
b:=0;
end;
end;
if (ch[n]='E') then
begin
if (a<>0)or(b<>0) then
writeln(a,':',b);
break;
end;
if (ch[n]='L') then
begin
inc(b);
if (b>=11)and(b-a>=2) then
begin
writeln(a,':',b);
a:=0;
b:=0;
end;
end;
end
until eof(input);
a:=0;b:=0;
writeln;
for i:=1 to n do
begin
if ch[i]='W' then
begin
inc(a);
if (a>=21)and(a-b>=2) then
begin
writeln(a,':',b);
a:=0;
b:=0;
end;
end;
if (ch[i]='E') then
begin
if (a<>0)or(b<>0) then
writeln(a,':',b);
break;
end;
if (ch[i]='L') then
begin
inc(b);
if (b>=21)and(b-a>=2) then
begin
writeln(a,':',b);
a:=0;
b:=0;
end;
end;
end;
close(input);
close(output);
end.