formatLine2 :: [(String, Radiant)] -> [Chunk String]
  formatLine2 values = map (fmap (pad m)) chunks2 where
    chunks2 :: [Chunk String]
    chunks2 = map fst chunks

    chunks :: [(Chunk String, Int)]
    chunks = map (\(s,rad) -> ((fore rad (chunk s)), length s)) values

    m :: Int
    m = maximum $ fmap snd chunks
formatLine2 :: [(String, Radiant)] -> [Chunk String]
formatLine2 values = map (fmap (pad m)) chunks2 where
    chunks2 :: [Chunk String]
    chunks2 = map fst chunks

    chunks :: [(Chunk String, Int)]
    chunks = map (\(s,rad) -> ((fore rad (chunk s)), length s)) values

    m :: Int
    m = maximum $ fmap snd chunks
formatLine2 values = map (fmap (pad m)) chunks2 where
    chunks2 :: [Chunk String]
    chunks2 = map fst chunks

    chunks :: [(Chunk String, Int)]
    chunks = map (\(s,rad) -> ((fore rad (chunk s)), length s)) values

    m :: Int
    m = maximum $ fmap snd chunks