var
a:array['a'..'z']of longint;s:string;d:char;
b,c:longint;
begin
assign(input,'word.in');assign(output,'word.out');
reset(input);rewrite(output);
readln(s);for b:=1 to length(s) do a[s[b]]:=a[s[b]]+1;
for d:='a' to 'z' do begin if (a[d]>c)and(a[d]<>0)then c:=a[d];
if (a[d]<b)and(a[d]<>0)then b:=a[d];end;
b:=c-b;if (b<2)then begin writeln('No Answer');write('0');end else begin
for c:=2 to round(sqrt(b)) do if (b mod c=0)and(b div c<>1) then begin
d:='a';break;end;if d='a' then begin writeln('No Answer');write('0');end else
begin writeln('Lucky Word');writeln(b);end;end;close(input);close(output);end.
FoolMike