September 2017 Update

Task/Associative-array-Iteration/Haskell/associative-array-iteration.hs

@@ -1,10 +1,13 @@
 import qualified Data.Map as M
 
+myMap :: M.Map String Int
 myMap = M.fromList [("hello", 13), ("world", 31), ("!", 71)]
 
-main = do -- pairs
-          print $ M.toList myMap
-          -- keys
-          print $ M.keys myMap
-          -- values
-          print $ M.elems myMap
+main :: IO ()
+main =
+  (putStrLn . unlines) $
+  [ show . M.toList     -- Pairs
+  , show . M.keys       -- Keys
+  , show . M.elems      -- Values
+  ] <*>
+  pure myMap