Dwarf Home

var n,i,j,k,p,own,q:longint;
    s:string;
    nam:array[1..20] of string;
    m:array[1..20,1..2] of longint;
begin
  fillchar(m,sizeof(m),0);
  readln(n);
  for i:=1 to n do readln(nam[i]);
  for i:=1 to n do begin
    readln(s);
    for q:=1 to n do
      if nam[q]=s then break;
    readln(own,p);
    if p<>0
      then begin
             m[q,2]:=(own div p)*p;
             own:=own div p;
           end
      else begin
             inc(m[q,1],own);
           end;
 
    for j:=1 to p do begin
      readln(s);
      for k:=1 to n do
        if nam[k]=s then break;
      inc(m[k,1],own);
    end;
  end;
  for i:=1 to n do begin
    write(nam[i],' ');
    writeln(m[i,1]-m[i,2]);
  end;
end.