program u54(output);
var CrimPrec:array[1..7,1..5] of integer;
{first subscript is Precinct Number and second Subscript is Crime Number}
CrimeNo,PrecinctNo:integer;
u54t:text;
begin
assign(u54t,'u54.txt');
reset(u54t);
for CrimeNo := 1 to 5 do begin
for PrecinctNo :=1 to 7 do begin
CrimPrec[PrecinctNo,CrimeNo]:=0;
end;
end;

read(u54t,PrecinctNo);
while(PrecinctNo<>-1) do begin
read(u54t,CrimeNo);
CrimPrec[PrecinctNo,CrimeNo]:=CrimPrec[PrecinctNo,CrimeNo]+1;
read(u54t,PrecinctNo);
end;

CrimeNo:=1;
for CrimeNo:=1 to 5 do begin
for PrecinctNo :=1 to 7 do begin
write('Crime # ',CrimeNo,' Precinct # ',PrecinctNo,
' Count ',CrimPrec[PrecinctNo,CrimeNo]);
writeln;
end;
end;

end.