var x,i,j,n,m,maxs,k,s,c:integer;t,t1:text;a:array[1..1000] of integer;
begin
assign(t,'stdin.txt');
assign(t1,'stdout.txt');
reset(t);rewrite(t1);
readln(t,n,m);
for i:=1 to m do
   begin
        read(t,a[i]);s:=a[i]+s;
   end;
if n>s-m then writeln(t1,'Epic fail');
if n=s-2 then begin writeln(t1,m);
     for i:=1 to m do
       write(t1,i,' ');
            end;
if n<s-2 then begin i:=1;
repeat
c:=a[i]+c;
if c>=n then           begin  writeln(t1,i);
for j:=1 to i do
write(t1,i);      end;
i:=i+1;c:=c-2;
until c+2>=n;   end;

close(t);close(t1);
end.





