var s:string;
    i:integer;
begin
  // a =97
  // z = 122
  // 0 = 48
  // 9 = 57
  s:= 't@st';
  for i:=1 to length(s) do
      if (ord(s[i])>97)and(ord(s[i])<122)and
         (ord(s[i])>48)and(ord(s[i])<57)then
         writeln('!!!!!!!!!!!!!!!',ord(s[i])) else
         writeln(s[i],' = ',ord(s[i]));
  readln;
end.