Program interclasari;
var nr:array [0..25,0..10000000] of longint;
    b1,b2:array [1..1 shl 17] of char;
    aux:array [0..20] of longint;
    i,min,n,k,posmin,sol,j:longint;
    ok:boolean;
    fi,fo:text;
begin
 assign(fi,'interclasari.in');
  assign(fo,'interclasari.out');
 settextbuf(fi,b1);
  settextbuf(fo,b2);
 reset(fi); rewrite(fo);
 readln(fi,k);  sol:=0;
 for i:=1 to k do begin
  readln(fi,n); sol:=sol+n;
   if n<>0 then begin
    nr[i,0]:=n;
    for j:=1 to n do read(fi,nr[i,j]);
     aux[i]:=1; readln(fi);
                 end
     else aux[i]:=-1;
                   end;
 writeln(fo,sol); ok:=true;
 while ok do begin
             ok:=false;
              min:=1000000000; posmin:=-1;
              for i:=1 to k do
               if aux[i]<>-1 then
                 if (nr[i,aux[i]]<min) and (aux[i]<=nr[i,0]) then begin min:=nr[i,aux[i]]; posmin:=i; end;
              if posmin<>-1 then begin write(fo,min,' '); ok:=true; inc(aux[posmin]); end;
              end;
 close(fo);
end.