PROGRAM two
  implicit none
  integer, parameter :: WIDTH = 99, HEIGHT = 99
  integer, parameter :: ID(0:9) = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
  integer, parameter :: COL(HEIGHT, 0:9) = spread(ID, 1, HEIGHT)
  integer, parameter :: ROW(WIDTH, 0:9) = spread(ID, 1, WIDTH)
  character(WIDTH) :: lines(HEIGHT)
  integer :: i, j
  integer, dimension(HEIGHT, WIDTH) :: grid, score
  integer, dimension(HEIGHT, WIDTH, 0:9) :: tmp

  read (*, *) lines
  do i = 1, HEIGHT
    do j = 1, WIDTH
      read (lines(i)(j:j), '(I1)') grid(i, j)
    end do
  end do

  score = 0
  tmp = 0
  do i = 2, HEIGHT-1
    tmp(i, :, :) = merge(tmp(i-1, :, :)+1, 1, spread(grid(i-1, :), 2, 10) < ROW)
    do j = 2, WIDTH-1
      score(i, j) = tmp(i, j, grid(i, j))
    end do
  end do

  tmp = 0
  do i = 2, WIDTH-1
    tmp(:, i, :) = merge(tmp(:, i-1, :)+1, 1, spread(grid(:, i-1), 2, 10) < COL)
    do j = 2, WIDTH-1
      score(j, i) = score(j, i) * tmp(j, i, grid(j, i))
    end do
  end do

  tmp = 0
  do i = HEIGHT-1, 2, -1
    tmp(i, :, :) = merge(tmp(i+1, :, :)+1, 1, spread(grid(i+1, :), 2, 10) < ROW)
    do j = 2, WIDTH-1
      score(i, j) = score(i, j) * tmp(i, j, grid(i, j))
    end do
  end do

  tmp = 0
  do i = WIDTH-1, 2, -1
    tmp(:, i, :) = merge(tmp(:, i+1, :)+1, 1, spread(grid(:, i+1), 2, 10) < COL)
    do j = 2, WIDTH-1
      score(j, i) = score(j, i) * tmp(j, i, grid(j, i))
    end do
  end do

  print *, maxval(score)
end program two