main :: IO ()
main = do
   putStrLn ( getAcronym "Three Letter Acronym" )
   putStrLn ( getAcronym "National Aeronautics and Space Administration" )
main :: IO ()
main = do
   putStrLn ( getAcronym "Three Letter Acronym" )
   putStrLn ( getAcronym "National Aeronautics and Space Administration" )
main = do
   putStrLn ( getAcronym "Three Letter Acronym" )
   putStrLn ( getAcronym "National Aeronautics and Space Administration" )