var i, j, n, m, ans,all, k: integer;
a : array [1..1000, 1..1000] of integer;
b : array [1..10000];

begin
read (n, m);
1) for i:=1 to n do
    for j := 1 to m do
       read (a[i, j]); (считали)

 for i:=1 to n do
   begin
     for j := 1 to m do
        write (a[i, j] , ' ');
     writeln();
   end; (вывели)
k := 1;
2) for i:=1 to n do
    begin
      ans := 0;
      for j := 1 to m do
       begin
         if (a[i, j] mod 3 = 0) or (a[i, j] mof 7 = 0) then
           begin
             inc(ans);
             inc(all);
           end;
        b[k] := ans;
        inc(k);
      end;
    end;

for i := 1 to all do
 write (b[i] , ' ');
end.