-- | Get tuple (width, height) from a two dimension list.
dimension :: [[Int]] -> (Int, Int)
dimension a = (length $ head a, length a)
dimension :: [[Int]] -> (Int, Int)
dimension a = (length $ head a, length a)
dimension a = (length $ head a, length a)