Problem:
Score : 200 points

Problem Statement

There is a grid of squares with H horizontal rows and W vertical columns.
The square at the i-th row from the top and the j-th column from the left is represented as (i, j).
Each square is black or white.
The color of the square is given as an H-by-W matrix (a_{i, j}).
If a_{i, j} is ., the square (i, j) is white; if a_{i, j} is #, the square (i, j) is black.

Snuke is compressing this grid.
He will do so by repeatedly performing the following operation while there is a row or column that consists only of white squares:

Operation: choose any one row or column that consists only of white squares, remove it and delete the space between the rows or columns.

It can be shown that the final state of the grid is uniquely determined regardless of what row or column is chosen in each operation.
Find the final state of the grid.

Constraints

1 \leq H, W \leq 100

a_{i, j} is . or #.

There is at least one black square in the whole grid.

Input

Input is given from Standard Input in the following format:

H W
a_{1, 1}...a_{1, W}
:
a_{H, 1}...a_{H, W}

Output

Print the final state of the grid in the same format as input (without the numbers of rows and columns); see the samples for clarity.

Sample Input 1

4 4
##.#
....
##.#
.#.#

Sample Output 1

###
###
.##

The second row and the third column in the original grid will be removed.

Sample Input 2

3 3
#..
.#.
..#

Sample Output 2

#..
.#.
..#

As there is no row or column that consists only of white squares, no operation will be performed.

Sample Input 3

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

Sample Output 3

#

Sample Input 4

7 6
......
....#.
.#....
..#...
..#...
......
.#..#.

Sample Output 4

..#
#..
.#.
.#.
#.#

Solution in Fortran (gfortran v4.8.4) (judge verdict: Wrong Answer)

program name
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int32):: h,w,i,j
    character(1),allocatable:: a(:,:),ans(:,:)

    read*, h,w
    allocate(a(w,h),ans(w,h))
    a(:,:) = ' '
    ans(:,:) = ' '

    block
        character(w):: inpt_a
        integer(int32):: diff=0
        do i=1,h
            read*, inpt_a
            if (all_dot(inpt_a)) then
                diff=diff+1
                cycle
            end if
            do j=1,w
                a(j,i-diff) = inpt_a(j:j)
            end do
        end do
    end block

    block
        character(h):: ah
        integer(int32):: diff

        do j=1,w
            diff=0
            do i=1,h
                ah(i:i) = a(j,i)
            end do
            if(all_dot(ah))then
                diff=diff+1
                cycle
            end if
            ans(j,:) = a(j+diff,:)
        end do
    end block
    
    block
        character(w):: ansc
        do i=1,h
            do j=1,w
                ansc(j:j) = ans(j,i)
            end do
            if (len_trim(ansc) == 0) cycle
            print'(a)', trim(ansc)
        end do
    end block

contains
        function all_dot(s) result(ret)
            character(*):: s
            logical:: ret
            integer(int32):: l,i

            l = len(s)
            ret = .true.
            do i=1,l
                if (s(i:i) == '#') ret=.false.
            end do
        end function
end program name