program cms;
var N,M,Q,i,j : Longint;
    C,T,S, punteggio : array[0..25000] of Longint;
    tab : array [0..10000,0..10000] of Longint;
begin
	readln(N,M,Q);
	for i:=0 to N-1 do
	        for j:=0 to M-1 do
	                begin
	                  tab[i,j]:=0;
	                  punteggio[i]:=0;
	                end;  
	for i:=0 to Q-1 do read(C[i]);  readln;
	for i:=0 to Q-1 do read(T[i]);  readln;
	for i:=0 to Q-1 do read(S[i]);  readln;
	
	for i:=0 to Q-1 do 
	             if  S[i]>tab[C[i],T[i]] then tab[C[i],T[i]]:=S[i];
	            
	for i:=0 to N-1 do begin
	        for j:=0 to M-1 do
	                punteggio[i]:=punteggio[i]+tab[i,j]; end;           
	for i:=0 to N-1 do write(punteggio[i],'  ');  writeln;                    
end.