var
  outfile, ansfile: text;
  a, b, c, d: integer;
begin
  assign(outfile, paramStr(2));
  assign(ansfile, paramStr(3));
  reset(outfile);
  reset(ansfile);
  read(outfile, a, b);
  read(ansfile, c, d);
  if (a = c) and (b = d) then
    writeln(10)
  else
    writeln(0);
  close(outfile);
  close(ansfile);
end.
