s:string;

i,k:longint;

begin

read(s);k:=0;

for i:=1 to length(s) do begin

if (s[i]='a')or(s[i]='d')or(s[i]='g')or(s[i]='j')or(s[i]='m')or(s[i]='p')or(s[i]='t')or(s[i]='w') then k:=k+1;

if (s[i]='b')or(s[i]='e')or(s[i]='h')or(s[i]='k')or(s[i]='n')or(s[i]='q')or(s[i]='u')or(s[i]='x') then k:=k+2;

if (s[i]='c')or(s[i]='f')or(s[i]='i')or(s[i]='l')or(s[i]='o')or(s[i]='r')or(s[i]='v')or(s[i]='y') then k:=k+3;

if (s[i]='s')or(s[i]='z') then k:=k+4;

if s[i]=' 'then k:=k+1;

end;

write(k);

end.