Add remaining haskell book exercises

Haskell-book/16/HeavyLifting.hs

@@ -0,0 +1,16 @@
+module HeavyLifting where
+
+a = fmap (+1) $ read "[1]" :: [Int]
+
+b = (fmap . fmap) (++ "lol") (Just ["Hi,", "Hello"])
+
+c = fmap (*2) (\x -> x - 2)
+
+d =
+    fmap ((return '1' ++) . show)
+    (\x -> [x, 1..3])
+
+e :: IO Integer
+e = let ioi = readIO "1" :: IO Integer
+        changed = fmap read $ fmap ("123" ++) $ fmap show ioi
+     in fmap (*3) changed