const shu:array[1..25] of integer=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);
var a:string;
e:array['a'..'z'] of integer;
b,c,d:integer;f,g:char;
ma,mi:integer;
function make(d:integer):boolean;
var i:integer;
begin
make:=false;
for i:=1 to 25 do
if d=shu[i] then
begin
make:=true;
exit;end;
end;
function max(a:integer;b:integer):integer;
begin if a>b then max:=a else max:=b;
end;
function min(a:integer;b:integer):integer;
begin if a>b then min:=b else min:=a;
end;
begin
read(a);
c:=length(a);
for f:='a' to 'z' do e[f]:=0;
for b:=1 to c do
begin g:=lowercase(a[b]);
inc(e[g]);
end;
ma:=0;mi:=0;
for f:='a' to 'z' do
begin ma:=max(ma,e[f]);
if mi=0 then mi:=e[f]
else if e[f]<>0 then
mi:=min(mi,e[f]);
end;
ma:=ma-mi;
if make(ma) then
begin writeln('Luncy Word');
writeln(ma);
end
else begin writeln('No Answer');
writeln(0);
end;
readln;readln;
end.