{
TASK:brkclk
LANG:PASCAL
}



var 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
       read(f, a[i, j]);
     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] = '#') then writeln(114)
 else writeln(-1);
end.
