Problem:
Score : 200 points

Problem Statement

#nck {
width: 30px;
height: auto;
}

We have a grid of H rows and W columns. Initially, there is a stone in the top left cell. Shik is trying to move the stone to the bottom right cell. In each step, he can move the stone one cell to its left, up, right, or down (if such cell exists). It is possible that the stone visits a cell multiple times (including the bottom right and the top left cell).

You are given a matrix of characters a_{ij} (1 \leq i \leq H, 1 \leq j \leq W). After Shik completes all moving actions, a_{ij} is # if the stone had ever located at the i-th row and the j-th column during the process of moving. Otherwise, a_{ij} is .. Please determine whether it is possible that Shik only uses right and down moves in all steps.

Constraints

2 \leq H, W \leq 8

a_{i,j} is either # or ..

There exists a valid sequence of moves for Shik to generate the map a.

Input

The input is given from Standard Input in the following format:

H W
a_{11}a_{12}...a_{1W}
:
a_{H1}a_{H2}...a_{HW}

Output

If it is possible that Shik only uses right and down moves, print Possible. Otherwise, print Impossible.

Sample Input 1

4 5
##...
.##..
..##.
...##

Sample Output 1

Possible

The matrix can be generated by a 7-move sequence: right, down, right, down, right, down, and right.

Sample Input 2

5 3
###
..#
###
#..
###

Sample Output 2

Impossible

Sample Input 3

4 5
##...
.###.
.###.
...##

Sample Output 3

Impossible

Solution in Haskell (GHC 7.10.3) (judge verdict: Accepted)

import Control.Applicative
import Control.Monad
import Data.List
import Data.Array.Unboxed

dfs :: Int -> Int -> Int -> UArray (Int, Int) Char -> Bool
dfs h w sharps aa = iter [(1, 1, 1)]
  where
    next (i, j) = filter (\n -> p1 n && p2 n) [(i, j+1), (i+1, j)]
      where
        p1 = inRange (bounds aa)
        p2 = (== '#') . (aa !)
    iter [] = False
    iter ((i, j, s):xs)
        | (i, j) == (h, w) && s == sharps = True
        | otherwise                       = iter (ns ++ xs)
      where
        ns = [(k, l, s + 1) | (k, l) <- next (i, j)]

main :: IO ()
main = do
    [h, w] <- fmap read . words <$> getLine :: IO [Int]
    as <- concat <$> replicateM h getLine :: IO String
    let sharps = length $ filter (== '#') as
    let aa = listArray ((1, 1), (h, w)) as :: UArray (Int, Int) Char
    if dfs h w sharps aa
        then putStrLn "Possible"
        else putStrLn "Impossible"