var s:string;
    i,l,sum:longint;
begin
  readln(s);
  while s<>'#' do begin
    l:=length(s);
    sum:=0;
    for i:=1 to l do
      if s[i]<>' ' then
      sum:=sum+(ord(s[i])-64)*i;
    writeln(sum);
    readln(s);
  end;
end.