type person=record
money:longint;
num:longint;
give:array[1..100]of string;
name:string;
givemon:longint;
mon:longint;
end;
var
per:array[1..100]of person;
np,i,j,k,n1,n2:longint;
nam,p:string;
begin
readln(np);
for i:=1 to np do
with per[i] do readln(name);
for i:=1 to np do
begin
readln(nam);
for j:=1 to np do
if per[j].name=nam then
begin
readln(n1,n2);
per[j].money:=n1;
per[j].num:=n2;
end;
for k:=1 to n2 do
begin
readln(p);
per[j].give[k]:=p;
end;
end;
for i:=1 to np do
begin
per[i].mon:=per[i].money;
if per[i].num<>0 then begin
per[i].givemon:=per[i].mon div per[i].num;
per[i].money:=per[i].mon mod per[i].num end
else per[i].givemon:=0;
end;
for i:=1 to np do
for j:=1 to per[i].num do
for k:=1 to np do
if per[k].name=per[i].give[j]
then per[k].money:=per[k].money+per[i].givemon;
for i:=1 to np do
with per[i] do
writeln(name,' ',money-mon);
end.