var s,ii:integer; str:string;

begin

read(str); s:=0;

for ii:=1 to length(str) do

case str[ii] of

'a':s:=s+1;

'b':s:=s+2;

'c':s:=s+3;

'd':s:=s+1;

'e':s:=s+2;

'f':s:=s+3;

'g':s:=s+1;

'h':s:=s+2;

'i':s:=s+3;

'j':s:=s+1;

'k':s:=s+2;

'l':s:=s+3;

'm':s:=s+1;

'n':s:=s+2;

'o':s:=s+3;

'p':s:=s+1;

'q':s:=s+2;

'r':s:=s+3;

's':s:=s+4;

't':s:=s+1;

'u':s:=s+2;

'v':s:=s+3;

'w':s:=s+1;

'x':s:=s+2;

'y':s:=s+3;

'z':s:=s+4;

' ':s:=s+1;

end;

write(s);

RT