main :: IO ()
main = 
  do 
    putStr "Please enter a word.\n"
    word1 <- getLine
    print (translateWord word1)
main :: IO ()
main = 
  do 
    putStr "Please enter a word.\n"
    word1 <- getLine
    print (translateWord word1)
main = 
  do 
    putStr "Please enter a word.\n"
    word1 <- getLine
    print (translateWord word1)