program pp;
 var i,j,k,c,n:integer;
     x,y:longint;
     a:array[1..10] of integer;
     p,q,o:boolean;
begin
 readln(n);
 while (n<>0) do
 begin
 q:=true;o:=false;
 for i:=1 to n do read(a[i]);
 read(x);read(y);
 for j:=x to y do
  begin
   k:=0;
   c:=j;
   p:=true;
   repeat 
    inc(k);
    repeat 
     if (c mod a[k]=0) then begin p:=true;c:=c div a[k];end
                       else p:=false;
    until (p=false) or (c=1); 
   until (k=n) or (c=1);
   if c=1 then begin q:=false;
   if o=false then begin o:=true;write(j);end
              else write(',',j);
              end;
  end;
  if q then write('none');
  writeln;
  readln(n);
  end;
end.