Problem:
正方形探索

縦に n 行、横に n 列並べられた、合計 n × n のマス目があります。いくつかのマス目には印がついています。各マス目の印の状態を読み込み、印のついていないマス目だけからなる最大の正方形の辺の長さを出力として表示するプログラムを作成してください。

たとえば各データセットで以下のようなデータが与えられます。

10
...*....**
..........
**....**..
........*.
..*.......
..........
.*........
..........
....*..***
.*....*...

入力データの一行が、一行のマス目を表現します。入力データの文字列のうち、.（ピリオド）は印のついていないマス目、*（アスタリスク）は印のついているマス目を示しています。

上記の例では、下図の 0 で示される正方形が最大となります。

...*....**
..........
**....**..
...00000*.
..*00000..
...00000..
.*.00000..
...00000..
....*..***
.*....*...

よって、5 と出力すれば正解になります。

なお、すべてのマス目に印がついている場合には、0 を出力してください。

Input

上記形式で複数のデータセットが与えられます。
n が 0 のとき入力の最後とします。n は 1000 以下とします。入力データの文字列には、ピリオド、アスタリスク、改行以外の文字は含まれません。データセットの数は 50 を超えません。

Output

各データセットに対し、最大の正方形の辺の長さ（整数）を１行に出力して下さい。

Sample Input

10
...*....**
..........
**....**..
........*.
..*.......
..........
.*........
..........
....*..***
.*....*...
10
****.*****
*..*.*....
****.*....
*....*....
*....*****
..........
****.*****
*..*...*..
****...*..
*..*...*..
0

Output for the Sample Input

5
3

Solution in Haskell (judge verdict: Time Limit Exceeded)

import Data.Array.Unboxed
import Data.List
import Data.Maybe

main = interact $ unlines . unfoldr main' . lines
 where
  main' (n':xs)
   | n' == "0" = Nothing
   | otherwise = return (show (square_searching n m), xs')
   where
    (m',xs') = splitAt n xs
    n = read n'
    m = [x+y*n | x<-[0..n-1], y<-[0..n-1], m'!!y!!x == '.']

square_searching :: Int -> [Int] -> Int
square_searching n m
 | null m = 0
 | otherwise = maximum $ elems (foldl' (dp n) (listArray (0,n^2-1) (repeat 0)) m)

dp :: Int -> UArray Int Int -> Int -> UArray Int Int
dp n m i = m // [(i, (if mod i n == 0 || div i n == 0 then 1 else v+1))]
 where v = minimum $ map (\k -> m!k) [i-1,i-n,i-n-1]