program ss;

var pom,max,min,d,m,i,j,ik,il:longint;
    A:array [1..70000] of longint;

begin
read(d);
while d<>0 do
begin
    
    readln(m);
    ik:=1;
    min:=40000;
    max:=1;
    il:=1;

    for i:=1 to d do
        begin
	 read(A[i]);
	 if A[i]<min then 
	  begin
	   min:=A[i];
	   ik:=i;
	  end;
	end;
	
	for j:=ik to d do
	    begin
	    if (A[j]>max) then begin max:=A[j]; il:=j; end;
	    end;
	
	pom:=m div A[ik];
	writeln( (pom*(A[il])) - (pom*A[ik])  );
    
        
    read(d);
end;


end.