program Vvod_Vivod;

var

  A: array[1..255] of char;
  i, k, id, z: integer;
  t, f: text;
  l: string;

begin

  assign(t, 'd:\input.txt');

  reset(t);
  read(t, l);
  i := 1;
  z:=i;
  l:=l+' ';
  while i <= length(l) do
  begin
    if  (l[i] <> ' ') then
      begin
      k := k + 1;
      writeln(k);
    end
    else
    begin
      if (k mod 2 = 0) then begin
        id := i;
        i := i - k - 1;
        writeln('I - ', i);
        while i < id do
        begin
          a[z] := l[i];
          i := i + 1;
          z := z + 1;
        end;

      end;
      k := 0;
    end;
    i := i + 1;
  end;
  close(t);

  assign(f, 'output.txt');
  rewrite(f);
  for i := 1 to z do
    begin
      write(f, a[i]);
    end;
    close(f);
end.