type vect=array[0..50]of integer;
     matrice=array[0..50,0..50]of integer;

var f,g:text;
    i,j,m,n:integer;
    s:vect;
    a:matrice;
procedure citire;
var k,c,t,nr:integer;
begin
assign(f,'aprindere.in');reset(f);
assign(g,'aprindere.out');rewrite(g);
read(f,n);
readln(f,m);
for i:=0 to n-1 do
read(f,s[i]);{starea 0 sau 1}
for i:=1 to m do begin
 read(f,c,t,nr);
 a[c,0]:=nr;
 a[c,1]:=t;
 k:=2;
 for j:=1 to nr do begin
  read(f,a[c,k]);
  k:=k+1;end;
  end;

for i:=0 to n-1 do write(s[i]);
for i:=0 to n-1 do
 if a[i,0]>0 then begin
  for j:=2 to a[i,nr] do write(a[i,j]:3);
  writeln;end;
end;
begin
citire;
end.