showOptimizations :: String
showOptimizations = unlines $ map showOpt optimizations
  where maxnamelength = maximum $ map (length . fst) optimizations
        showOpt (name, desc) = replicate (maxnamelength - length name) ' '
                               ++ name ++ " : " ++ desc
showOptimizations :: String
showOptimizations = unlines $ map showOpt optimizations
  where maxnamelength = maximum $ map (length . fst) optimizations
        showOpt (name, desc) = replicate (maxnamelength - length name) ' '
                               ++ name ++ " : " ++ desc
showOptimizations = unlines $ map showOpt optimizations
  where maxnamelength = maximum $ map (length . fst) optimizations
        showOpt (name, desc) = replicate (maxnamelength - length name) ' '
                               ++ name ++ " : " ++ desc