task5

var s:string;
    i,j,k,b,e:integer;
    f:boolean;
Begin

  f:=true;
  readln(s);

  while f=true do begin

    for i:=1 to length(s) do begin
      if (s[i]=' ') or (i=length(s)) then begin

        f:=false;
        k:=0;
        j:=i-1;

        while s[j]<>' ' do begin
          k:=k+1;
          j:=j-1;
          if j=0 then break;
        end;

        if k>10 then begin
         b:=j+1;
         e:=i+1;
         f:=true;
         break;
        end;

      end;

     end;

     if f=true then delete(s,b,e-b);

  end;

  writeln(s);

End.