记录编号	18852	评测结果	AAAAAAAAAA
题目名称	[NOIP 2003]乒乓球	最终得分	100
用户昵称	1102	是否通过	通过
代码语言	Pascal	运行时间	0.017 s
提交时间	2010-09-21 09:33:56	内存使用	9.65 MiB

program xxxx;
var  ch:array[1..10000000] of char;
     i,n,a,b:longint;

begin
  assign(input,'table.in');
  reset(input);
  assign(output,'table.out');
  rewrite(output);
  a:=0;b:=0;n:=0;
  if eof(input) then
   begin
   writeln('0:0');
   writeln;
   writeln('0:0');
   exit;
   end;
  repeat
    begin
      inc(n);
      read(ch[n]);
      if ch[1]='E' then
        begin
          writeln('0',':','0');
          break;
        end;

      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);
  if (ch[n]<>'E') then
   // if (a<>0)or(b<>0) then
      writeln(a,':',b);
  a:=0;b:=0;
  writeln;
  for i:=1 to n do
   begin
      if ch[1]='E' then
        begin
          writeln('0',':','0');
          break;
        end;


     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;
  if (ch[n]<>'E') then
   //if (a<>0)or(b<>0) then
    writeln(a,':',b);
  close(input);
  close(output);
end.