var s:string;

i,t:longint;

p:array[' '..'z']of integer;

begin

t:=0;

readln(s);

p[' ']:=1;

p['a']:=1;p['b']:=2;p['c']:=3;

p['d']:=1;p['e']:=2;p['f']:=3;

p['g']:=1;p['h']:=2;p['i']:=3;

p['j']:=1;p['k']:=2;p['l']:=3;

p['m']:=1;p['n']:=2;p['o']:=3;

p['p']:=1;p['q']:=2;p['r']:=3; p['s']:=4;

p['t']:=1;p['u']:=2;p['v']:=3;

p['w']:=1;p['x']:=2;p['y']:=3; p['z']:=4;

for i:=1 to length(s) do

t:=t+p[s[i]];

writeln(t);

end.