program sndlast (input,output);
    var a : array [1..9] of char;
        i : integer
begin
    i:=0;
    while not eoln do
      begin
        i:=i+1;
        read(a[i])
      end;
    readln;
    writeln(a[i-1]);
end.