points.hs

ps = [[1,2,3,4],[5,6,7,8],[9,10,11,12]]
mapVer = unlines $ map (unwords . map show) ps
monadVer = unlines $ map unwords $ ps >>= return . map show
listComprehensionVer = unlines $ map unwords [map show x | x <- ps]

{-
1 2 3 4
5 6 7 8
9 10 11 12

-}