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