和a+b有一拼的水题……

Program P2027;
Var
   t,x,y,i:longint;
begin
   read(t);
   for i:=1 to t do
   begin
      read(x,y);
      if x<y then writeln('NO BRAINS') else writeln('MMM BRAINS');
   end;
end.