var
  a : array [1..100] of longint;
  n,min,i,nom : longint;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  i:=1;
  nom:=1;
  while (i<=n) and (a[i]<>1) do i:=i+1;
    if a[i]=1 then begin nom:=i;
      writeln('Yes ',nom);
    else
      writeln('Ura');
end.