var
  decimalNumber: String;

// Hàm kiểm tra số nguyên tố
function laSoNguyenTo(n: Integer): Boolean;
var
  i: Integer;
begin
  if n < 2 then
    Result := False
  else
  begin
    Result := True;
    for i := 2 to Trunc(Sqrt(n)) do
      if n mod i = 0 then
      begin
        Result := False;
        Break;
      end;
  end;
end;

// Hàm kiểm tra số giã nguyên tố
function laSoGiaNguyenTo(decimalNumber: String): Boolean;
var
  i, sum: Integer;
  chuSo: Char;
begin
  sum := 0;

  // Kiểm tra từng chữ số của số giã nguyên tố
  for i := 1 to Length(decimalNumber) do
  begin
    chuSo := decimalNumber[i];
    if not laSoNguyenTo(StrToInt(chuSo)) then
    begin
      Result := False;
      Exit;
    end;
    sum := sum + StrToInt(chuSo);
  end;

  // Kiểm tra tổng của các chữ số cũng là số nguyên tố
  Result := laSoNguyenTo(sum);
end;

// Chương trình chính
begin
  // Đọc dữ liệu từ file
  Assign(Input, 'GIANT.INP');
  Reset(Input);
  ReadLn(decimalNumber);
  Close(Input);

  // Kiểm tra và ghi kết quả vào file
  Assign(Output, 'GIANT.OUT');
  Rewrite(Output);
  if laSoGiaNguyenTo(decimalNumber) then
    WriteLn('CO')
  else
    WriteLn('KHONG');
  Close(Output);
end.