s:string;
procedure count(s:string,n:integer);
var
a,b,i:integer;
begin
a:=0;b:=0;
i:=1;
repeat
i := i + 1;
if s[i]=='W' then a:=a+1;
if s[i]=='L' then b:=b+1;
if ((a>=n) and (b>=n) and (abs(a-b)>=2)) or (s[i]=='E') then
begin
writeln(a+':'+b);
a:=0;b:=0
end;
until s[i]=='E'
end;
begin
s:=read();
count(s,11);
count(s,21);
end.
不太清楚妳的數據規模和輸入輸出源…