Var
   e,i,j,k,n,p,r,t: longint;
   d: array [1..9] of longint;
   num: array [1..15000] of longint;

Begin
     readln(input, n);
     for i:= 1 to n do
         readln(input, num[i]);
     readln(input, k);
     t:= k; e:= 1; r:= 0; j:= 0;
     while (t<>0) do
            begin
            Inc(j);
            d[j]:= (t div 10)*e + r;
            Inc(r, (t mod 10)*e);
            e:= 10*e;
            t:= t div 10;
            end;
     t:= j; p:= 0;
     for i:= 1 to n do
         for j:= 1 to t do
             if (d[j] = num[i]) then
                begin
                Inc(p);
                writeln(output, num[i]);
                break;
                end;
     if (p= 0) then
        writeln(output, 'Saaabe');
End.