Program interclasari;
var nr:array [0..20000000] of boolean;
    i,max,n,k,j,sol,aux:longint;
    fi,fo:text;
begin
 assign(fi,'interclasari.in');
  assign(fo,'interclasari.out');
 reset(fi); rewrite(fo);
 readln(fi,k);
 for i:=1 to k do begin
   readln(fi,n); sol:=sol+n;
   if n<>0 then
    for j:=1 to n do begin
                      read(fi,aux);
                        nr[aux]:=true;
                         if aux>max then max:=aux;
                      end;
    end;
 writeln(fo,sol);
 for i:=0 to max do
  if nr[i]=true then write(fo,i,' ');
   {while nr[i]>0 do begin write(fo,i,' '); dec(nr[i]); end;}
 close(fo);
end.