| 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!"
|