uses crt;

var fi,fo:text;
    st:string;
    i,dem:byte;

BEGIN
        clrscr;
        assign(fi,'xau.txt');
        assign(fo,'kq.dat');
        {$I-} reset(fi); {$I+}
        if ioresult<>0 then
        begin
                rewrite(fi);
                reset(fi);
        end;

        read(fi,st);

        close(fi); rewrite(fo);

        {CAU A}
        for i:=1 to length(st) do
                write(fo,st[i],' ');
        writeln(fo);

        {CAU B}
        dem:=0;
        for i:=1 to length(st) do
                if st[i] in ['A'..'Z'] then inc(dem);
        write(fo,dem);

        close(fo);
END.

program bai_giai;
var f,g:text;
    s:string;
    d,i:integer;
begin
    Assign(f,'xau.txt');  reset(f);
    Assign(g,'kq.dat');   rewrite(g);
    readln(f,s);
    d:=0;
    for i:=1 to length(s) do
        begin
            write(g,s[i],' ');
            if s[i] in ['A'..'Z'] then d:=d+1;
        end;
    writeln(g);
    write(g,d);
    close(f); close(g);
end.