var i,n,m,x,y:longint;

     ch,cha:char;

     fa:array[..] of longint;

 function find(x:longint):longint;

  begin

    while x<>fa[x] do x:=fa[x];

    exit(x);

  end;

 procedure make(x:longint);

  var y,tmp:longint;

  begin

  y:=fa[x];fa[x]:=x;

  while y<>x do

   begin

   tmp:=fa[y];fa[y]:=x;

   x:=y;y:=tmp;

   end;

  end;

 procedure connect(x,y:longint);

  begin

  make(x);make(y);

  fa[x]:=y;

  end;

 procedure destroy(x,y:longint);

  begin

  make(x);

  fa[y]:=y;

  end;

 procedure query(x,y:longint);

  begin

  if find(x)<>find(y) then writeln('No') else writeln('Yes');

  end;

 procedure main;

  begin

    readln(n,m);

    for i:= to n do fa[i]:=i;

    for i:= to m do

     begin

      read(ch);cha:='a';while cha<>' ' do read(cha);readln(x,y);

      if ch='C' then connect(x,y)

      else if ch='D' then destroy(x,y)

      else query(x,y);

     end;

  end;

 begin

  main;

 end.