program fuse( input, output );
var n, m, c : integer ;
   state    : array [1..20] of boolean;
   pow	    : array [1..20] of integer;
   max	    : integer;
   seq	    : integer;
   
procedure leggi;
var i : integer;
begin
   for i:= 1 to n do
      readln( pow[i] );
end; { leggi }

procedure init;
var i :  integer;
begin
   for i := 1 to n do
      state[i] := false;
end;

procedure simula;
var i, w : integer;
   temp	 :  integer;
begin
   temp := 0;
   for i:= 1 to m do
   begin
      readln( w );
      if state[w] then
	 temp := temp - pow[w]
      else temp := temp + pow[w];
      if max < temp then max := temp;
      state[w] := not state[w];
   end;
end; { simula }

procedure scrivi;
begin
   writeln( 'Sequence ', seq:1 );
   if max > c then
      writeln( 'Fuse was blown.' )
   else begin
      writeln( 'Fuse was not blown.' );
      writeln( 'Maximal power consumption was ', max:1, ' amperes.');
   end;
   writeln;
end;

begin
   seq := 0;
   reset( input, 'fuses.in' );
   readln( n, m, c );
   while (n<>0) and (m<>0) and (c<>0) do
   begin
      seq := seq + 1;
      max := 0;
      leggi;
      init;
      simula;
      scrivi;
      readln( n, m, c );
   end;
end.