main :: IO ()
main = do
   putStrLn "decide. yes or no?"
   answer <- getLine
   putStrLn $ functionOne answer
functionOne :: String -> String
functionOne x =
   case x of
   "yes" -> "Thank you very mucho!"
   "no" -> "Understandable. have a good day!"
   otherwise -> "you FAILED!"