program Hello;
uses crt;
var i,n,s:longint;
begin
readln(n);
i:= n;
while i > 0 do
begin
s:= s + i mod 10;
i:= i div 10;
end;
if (n < 2) or (s < 2) then s:= -1
else if (n > 3) and (s > 3) then
for i:= 2 to trunc(sqrt(n)) do
if (n mod i = 0) or (s mod i = 0)then
begin
s:= -1;
break;
end;
if s > -1 then writeln('La so song to')
else writeln('Khong la so song to');
readln;
end.