main :: IO ()
main = do
  putStrLn greeting
  printSecond
  where greeting = "Yarrr"
  
-- greeting :: String
-- greeting = "Yarrrr"
main :: IO ()
main = do
  putStrLn greeting
  printSecond
  where greeting = "Yarrr"
  
-- greeting :: String
-- greeting = "Yarrrr"
main = do
  putStrLn greeting
  printSecond
  where greeting = "Yarrr"
  
-- greeting :: String
-- greeting = "Yarrrr"