program bai_giai;
uses crt;
var s,st:ansistring;
    i,d,so:integer;
    c:char;
begin
        clrscr;
        write('Nhap S: ');  readln(s);
        d:=0;
        for i:=1 to length(s) do
                if s[i]<>'/' then st:=st+s[i]
                else
                        begin
                                val(st,so);
                                c:=chr(so);
                                st:='';
                                if c in ['A'..'Z'] then d:=d+1;
                        end;
        val(st,so);
        c:=chr(so);
        if c in ['A'..'Z'] then d:=d+1;
        write(d);
        readln;
end.

uses crt;
var f:text; s,a:ansistring; i,t:longint;
begin
clrscr;
   assign(f,'Bai1.inp');reset(f);
      readln(f,s); s:=s+'/'; 
   close(f);
   assign(f,'Bai1.out');rewrite(f);
      for i:=1 to length(s)+1 Do 
         if s[i]='/' then
            begin
               val(a,t);
               write(f,chr(t));
               a:=''; 
            end
         else a:=a+s[i]; 
   close(f); 
end.