uses crt;
var m,n:longint;
function A(k:longint):longint;
var i,S:longint;
begin
S:=0;
for i:=2 to k do
if k mod 2=0
then S:=k+i;
A:=S;
end;
begin
clrscr;
readln(m,n);
if A(m)=A(n) then writeln('HAI SO BAN BE')
else writeln('KHONG LA HAI SO BAN BE');
end.