printLinesPretty :: [[(String, Radiant)]] -> IO ()
  printLinesPretty lines = mapM_ action formatted where
    action :: [Chunk String] -> IO ()
    action line = (mapM_ (putChunk) line) >> (putStrLn "")
    formatted :: [[Chunk String]]
    formatted = formatLines2 lines
printLinesPretty :: [[(String, Radiant)]] -> IO ()
printLinesPretty lines = mapM_ action formatted where
    action :: [Chunk String] -> IO ()
    action line = (mapM_ (putChunk) line) >> (putStrLn "")
    formatted :: [[Chunk String]]
    formatted = formatLines2 lines
printLinesPretty lines = mapM_ action formatted where
    action :: [Chunk String] -> IO ()
    action line = (mapM_ (putChunk) line) >> (putStrLn "")
    formatted :: [[Chunk String]]
    formatted = formatLines2 lines