printText :: [String] -> IO ()
printText txt = let formatted = "" : divider2 : txt ++ [divider]
                in  mapM_ putStrLn $ padCenter <$> formatted
printText :: [String] -> IO ()
printText txt = let formatted = "" : divider2 : txt ++ [divider]
                in  mapM_ putStrLn $ padCenter <$> formatted
printText txt = let formatted = "" : divider2 : txt ++ [divider]
                in  mapM_ putStrLn $ padCenter <$> formatted