var
   f,g:text;
   cuv:array[1..20000]of string;
   buf:array[1..1 shl 15] of char;
   ncuv,i,sol:integer;
   s:string;
begin
    assign(f,'text.in');reset(f);
    assign(g,'text.out');rewrite(g);
    settextbuf(f,buf);
    ncuv:=0;
    while not seekeof(f) do
        begin
            readln(f,s);
            //if s='' then continue;
            //while s[1]=' ' do delete(s,1,1);
            //while s[length(s)]=' ' do delete(s,length(s),1);
            for i:=1 to length(s) do
                if (s[i]<'a') and (s[i]>'z') or (s[i]>'A') and (s[i]<'Z') then
                    delete(s,i,1);
            i:=pos(' ',s);
            while i<>0 do
                begin
                    inc(ncuv);
                    cuv[ncuv]:=copy(s,1,i-1);
                    sol:=sol+length(cuv[ncuv]);
                    delete(s,1,i);
                    i:=pos(' ',s)
                end;
            inc(ncuv);
            cuv[ncuv]:=s;
            sol:=sol+length(cuv[ncuv]);
        end;
    i:=1;
    repeat
        write(g,cuv[i],' ');
        inc(i);
    until i=ncuv;

    write(g,ncuv,' ',sol);
    close(f);close(g);
end.