program fuses(input, output);

var
  II,A,C,M,N,I, p, Fuse, FuseMax: integer;
  Dev: array[0..30] of integer;
  f: text;
  
begin
  II := 0;
  reset(f,'fuses.in');
  read(f,N); read(f,M); readln(f,C);
  while (M+N+C) > 0 do
    begin
      for I := 1 to N do
        begin
	  readln(f,A);
	  dev[I] := 0 - A;
	end;
      FuseMax := 0;
      Fuse := 0;
      P := M;
      while P > 0 do
        begin
	  readln(f,A);
	  dev[A] := 0 - dev[A];
	  Fuse := Fuse + Dev[A];
	  if Fuse > FuseMax then
	    FuseMax := Fuse;
	  if Fuse > C then P := 0;
	  P := P - 1; M := M - 1;    
	end;	
      while M > 0 do
        begin
	  readln(F,A);
	  M := M - 1;
	end;	
      II := II + 1;
      Writeln('Sequence ', II:1);	
      if P = -1 
        then writeln('Fuse was blown.')
        else begin
	  writeln('Fuse was not blown.');
	  writeln('Maximal power consumption was ',FuseMax:1,' amperes.');    	
	end;  
      writeln;
      read(f,N); read(f,M); readln(f,C);
    end;  
  close(f);    
end.