[Haskell-cafe] How to devide matrix into small blocks