printGreeting :: String -> IO ()
printGreeting greeting = putDoc $ text greeting <> linebreak
printGreeting :: String -> IO ()
printGreeting greeting = putDoc $ text greeting <> linebreak
printGreeting greeting = putDoc $ text greeting <> linebreak