program tienlui;
var n: longword;
function xuLy(a: longword): String;
var s: string[20];
ar: array[1..20] of byte;
code, i: byte;
ktt, ktl: boolean;
begin
str(a, s);
for i:=1 to length(s) do
val(s[i], ar[i], code);
ktt:=true; ktl:=true;
for i:=2 to length(s) do
if ar[i]<ar[i-1] then ktt:=false;
if ktt then
begin
xuLy:='TIEN'; exit;
end;
for i:=2 to length(s) do
if ar[i]>ar[i-1] then ktl:=false;
if ktl then
begin
xuLy:='LUI'; exit;
end;
xuLy:='KHONG'; exit;
end;
begin
write('n = '); readln(n);
write(xuLy(n));
readln;
end.
{GM Kiet}
