program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,m,big:string;
    n,g,k,i:integer;
begin
assign(input,'input.dat');
reset(input);
assign(output,'output.ans');
rewrite(output);
readln(a);
n:=length(a);
g:=0;
k:=0;

for i:=1 to n do
if a[i] in ['a'..'z'] then inc(g);
if a[i] in ['A'..'Z'] then inc(k);
writeln(k,'     ',g);
writeln(a);
close(output);
close(input);

  { TODO -oUser -cConsole Main : Insert code here }
end.