var f,s,w,t,n,i,j,code:integer;
    a:array[1..65]of boolean;
    b:array[1..64,1..15]of char;
    c:array[1..15]of integer;
    sb,s1:string;
begin
readln(n);
for i:=1 to n do
begin
readln(sb);
c[i]:=length(sb);
for j:=1 to c[i] do b[i,j]:=sb[j];
end;
readln(sb);
t:=pos(',',sb);
s1:=copy(sb,1,t-1);
val(s1,w,code);
delete(sb,1,t);
val(sb,s,code);
for i:=1 to n do a[i]:=false;
f:=0;t:=w-1;j:=0;
repeat
inc(t);
if t=n+1 then t:=1;
if a[t]=false then inc(j);
if j=s then
begin
 j:=0;
 inc(f);
 for i:=1 to c[t] do write(b[t,i]);
 writeln;
 a[t]:=true;
end;
until f=n;
end.