var
a,b:string;
c,k:integer;
begin
write ('Строка А:');readln (a);
write ('Строка В:');readln(b);
c:=length(a);
k:=length(b);
if c = k then writeln ('YES')
else
writeln ('NO')
end.