diff --git a/haskell/columnv7.hs b/haskell/columnv7.hs
index 9d50fad..728b891 100644
--- a/haskell/columnv7.hs
+++ b/haskell/columnv7.hs
@@ -1,3 +1,3 @@
 import Data.List
-main = do interact $ (unlines . map unwords . transpose . map (completeMatrix ' ') . transpose . completeMatrix "" . map words . lines)
-          where completeMatrix v m = map (\e -> e ++ replicate ((maximum $ map length m)- length e) v) m
+main = do interact $ (unlines . map unwords . transpose . map (pad ' ') . transpose . pad "" . map words . lines)
+          where pad v m = map (\e -> e ++ replicate ((maximum $ map length m)- length e) v) m