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]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.