{uses strings;}

var poz, line: PChar; ch:char;

begin

  line := new Char[10001];
  readln(line);
  StrScan(line, ch);

  delete line;
end.