cf14-a.hs

-- solution for CF#14 problem A: http://codeforces.com/contest/14/problem/A?locale=en
import List
import Control.Monad
import Control.Applicative

solve rows = (reverseCols.cutCols.reverseCols.cutCols.filter notEmpty) rows
    where reverseCols = map reverse
          cutCols rows | all ((=='.').head) rows = cutCols $ map tail rows
                       | otherwise = rows
          notEmpty = any (=='*')

main = do
    [n, m] <- map read . words <$> getLine
    rows <- replicateM n getLine
    mapM_ putStrLn $ solve rows