var x,c,c1,n,m,i,j,k:longint;
    a,b: array [1..1000] of byte;
    s:string;
    t,t1:text;
    q:boolean;
begin
assign(t,'stdin.txt');
assign(t1,'stdout.txt');
reset(t);
rewrite(t1);
readln(t,n,m);
x:=0;
for i:=1 to m do
begin
read(t,a[i]);
b[i]:=a[i];
end;
k:=1;
while (k<>0) do
begin
k:=0;
for i:=2 to m do
if a[i]>a[i-1] then begin
c:=a[i-1];
a[i-1]:=a[i];
a[i]:=c;
k:=k+1;
end;end;       k:=2;
j:=1;
for i:=1 to m do
begin
k:=k+a[i]-2;j:=i;
if k>=n then break;
end;
if k<n then write(t1,'Epic fail') else begin
writeln(t1,j);
for i:=1 to j do
for k:=1 to m do
if (a[i]=b[k]) then begin  write(t1,k,' '); b[k]:=0; break;
end;
end;
close(t);
close(t1);
end.




