($N,$M)=split$",<>; $/=$"; ++$h{<>}for 2..$N; ($a,$b)=split"\n",<>; ++$h{"$a "}; if($M==1){ print$h{"$b "}||0 }else{ print$h{$b}||0,$"; print$h{<>}||0,$"for 3..$M; ($a)=split"\n",<>; print$h{"$a "}||0 }