maxn,minn,i:integer;
procedure init;
var
s:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do
begin
if (s[i]>'A') and (s[i]<='Z') then inc(a[ord(s[i])-64]);
if (s[i]>='a') and (s[i]<='z') then inc(a[ord(s[i])-96]);
end;
end;
procedure process;
var
i:integer;
begin
maxn:=a[1];
for i:=1 to 26 do
if a[i]>0 then begin minn:=a[i];break;end;
for i:=2 to 26 do
begin
if a[i]=0 then continue;
if a[i]>maxn then maxn:=a[i];
if (a[i]<minn) then minn:=a[i];
end;
end;
function IsSushu(s:integer):boolean;
var
i:integer;
flag:boolean;
begin
flag:=true;
if s=0 then flag:=false else
if s=1 then flag:=false else
if s=2 then flag:=true else
begin
for i:=2 to trunc(sqrt(s)) do
if s mod i=0 then begin flag:=false;break;end;
end;
exit(flag);
end;
begin
init;
process;
maxn:=maxn-minn;
if IsSushu(maxn)=true then
begin
writeln('Lucky Word');
write(maxn);
end
else
begin
writeln('No Answer');
write(0);
end;
end.