var
  a : array [1..20,1..20] of longint;
  j,i,sum1,sum2,sum3,sum4,sum5,n,m : longint;
begin
  readln(n);
  readln(m);
  for i:=1 to n do
    for j:=1 to m do
      read(a[i,j]);
  sum1:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=m then
        sum1:=sum1+1;
  writeln(sum1);
  for i:=1 to n do
    for j:=1 to m do
      read(a[i,j]);
  sum2:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=m then
        sum2:=sum2+1;
  writeln(sum2);
  for i:=1 to n do
    for j:=1 to m do
      read(a[i,j]);
  sum3:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=m then
        sum3:=sum3+1;
  writeln(sum3);
  for i:=1 to n do
    for j:=1 to m do
      read(a[i,j]);
  sum4:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=m then
        sum4:=sum4+1;
  writeln(sum4);
  for i:=1 to n do
    for j:=1 to m do
      read(a[i,j]);
  sum5:=0;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]=m then
        sum5:=sum5+1;
  writeln(sum5);
end.