var s:string; aa:array[1..26] of longint; i,j,maxn,minn,n:longint; i2:char;begin assign(input,''); assign(output,''); reset(input); rewrite(output); read(s); maxn:=-1; minn:=1000; for i:=1 to length(s) do begin inc(aa[(ord(s[i])-96)]); end; for i:=1 to 26 do begin if aa[i]>maxn then maxn:=aa[i]; if (aa[i]<>0) and(aa[i]<minn) then minn:=aa[i]; end; n:=maxn-minn; if n<2 then begin writeln('No Answer'); write('0');close(input); close(output);halt;end; for i:=2 to n-1 do if n mod i=0 then begin writeln('No Answer'); write('0');close(input); close(output);halt;end; writeln('Lucky Word'); write(n);close(input); close(output);end.
