{$APPTYPE CONSOLE}
var f:text;i,j,n,m,d,r,k:integer;
a:array [1..500,1..500] of char;
begin
//Зчитування даних
assign(f,'islands.dat');reset(f);
readln(f,n,m);
for i:=1 to n do begin
for j:=1 to m do begin read(f,a[i,j]);end;readln(f);end;close(f);
//Знахолження острова
k:=0;
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]='1' then begin
d:=i;r:=j;
//Знаходження правого сосіднього острова
while r<m do begin
inc(r);
if a[i,r]='1' then begin
//Вираховуємо довжину моста
k:=k+r-j-1;r:=m;
end;//if
end;//while
//Знаходження нижнього сосіднього острова
while d<n do begin
inc(d);
if a[d,j]='1' then begin
//Вираховуємо довжину моста
k:=k+d-i-1;d:=n;
end;//if
end;//while
end;//if
end;//for
//Виведення даних
assign(f,'islands.sol');rewrite(f);
write(f,k);close(f);
end.