var x,i,j,n,m,maxs,k,s,c,l:integer;t,t1:text;a,b:array[1..1000] of integer;
begin
readln(n,m);
for i:=1 to m do
   begin
        read(a[i]);s:=a[i]+s;
   end;b:=a;
   for i:=1 to m do
   begin
   if a[i]<a[i+1] then
   repeat if a[i]<a[i+1] then x:=a[i];a[i]:=a[i+1];a[i+1]:=x;
   i:=i-1;
   until (i<1)or(a[i]>a[i+1]);end;

i:=1;
repeat
c:=a[i]+c;
if c>=n then           begin  writeln(i);
for j:=1 to i do
begin
for l:=1 to m do
if a[j]=b[l] then begin write(l,' ');b[l]:=0; l:=m;end;
end;
k:=1      end;
i:=i+1;c:=c-2;
if c<0 then c:=n+10;
until c+2>=n;
if k<>1 then writeln('Epic fail');
end.





