program bestanhvan;
uses crt;
var s:string;
i,t,n:integer;
begin
read(s);
n:=length(s);
for i:=1 to (n div 2) do
if ((s[i]= '(') and (s[n-i+1]=')')) or ((s[i]='[') and (s[n-i+1]=']')) or ((s[i]='{') and (s[n-i+1]='}')) then t:=0
else 
begin
t:=1;
break;
end;
if t=1 then write('No');
if t=0 then write('Yes');
readln;
end.

uses crt;
var kt:boolean;
        n,i,j,d:longint;
        s:ansistring;
        Stack:array[0..1000] of Char;
procedure Push(x:char);
begin
        inc(d);Stack[d]:=x;
end;
function Pop:char;
begin
        Pop:=Stack[d];dec(d);
end;
begin

        begin
                d:=0;
                readln(s);kt:=false;
                for j:=1 to length(s) do
                begin
                        if(s[j]='(')or(s[j]='{')or(s[j]='[')then push(s[j]);
                        if(s[j]=')')or(s[j]='}')or(s[j]=']')then
                        begin
                                if(d=0)then begin kt:=true;break;end else
                                if(s[j]=')')and(pop<>'(')then begin kt:=true;break;end else
                                if(s[j]='}')and(pop<>'{')then begin kt:=true;break;end else
                                if(s[j]=']')and(pop<>'[')then begin kt:=true;break;end;
                        end;
                end;
                if(kt=false)and(d=0)then writeln('YES') else writeln('NO');
        end;
end.