*Theo ý mk  lm nhé!

uses crt;
var m,n,i:longint;d,d1:longint;kt:boolean;
   a,b:array[1..1000000] of longint;
{---Ham-nguyen-to---}
function nt(c:longint):boolean;
var i:longint;
begin
   for i:=2 to trunc(sqrt(c)) do
      if c mod i=0 then exit(false);
   nt:=true;
end;
{---Chuong-trinh-chinh---}
begin
   clrscr;
   write('N = '); readln(n);
   write('M = '); readln(m);
   for i:=2 to n div 2 do
      if (nt(i)) and (n mod i=0) then
         begin
            inc(d);
            a[d]:=i;
         end;
   for i:=2 to m div 2 do
      if (nt(i)) and (m mod i=0) then
         begin
            inc(d1);
            b[d1]:=i;
         end;
   kt:=false;
   if (d<>0) and (d1<>0) and (d=d1) then
      for i:=1 to d do
         if a[i]=b[i] then
            kt:=true;
         if kt=true then
            writeln('CO')
         else
            writeln('KHONG');
   readln
end.