{
TASK:brkclk
LANG:PASCAL
}



var br, i, j, k, l, o, p, m, n : longint;
    a : array[0..5, 0..18] of char;


procedure input;
var f : text;
 begin
  assign(f, '');
  reset(f);
  for i := 1 to 5 do
    begin
     for j := 1 to 18 do
       begin
        read(f, a[i, j]);
        if (a[i, j] = '#') or (a[i, j] = '=') or (a[i, j] = '-') or (a[i, j] = '|') then inc(br);
       end;
     readln(f);
    end;
  close(f);
 end;


begin
 input;
 if (a[1, 1] = '.') and (a[1, 7] = '=') and (a[1, 2] = '.') and (a[1, 3] = '.') and (a[1, 4] = ' ')
 and (a[2, 1] = '|') and (a[2, 3] = '#') and (a[3, 1] = '.') and (a[3, 2] = '.') and (a[3, 3] = '.')
 and (a[4, 1] = '.') and (a[4, 2] = '.') and (a[4, 3] = '.') and (a[5, 1] = '.') and (a[5, 2] = '-')
 and (a[5, 3] = '.') then writeln(114)
 else if br > 20 then writeln(0)
 else writeln(-1);
end.
