{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE NondecreasingIndentation #-}
potatoFunction :: String -> String
potatoFunction x =
   case x of
   "1" -> "tacos"
   "2" -> "enchiladas"
   "3" -> "burritos"

gameOne :: String -> Bool
gameOne "yes" = True
gameOne "no" = False

endGameQuestion :: (a, b) -> String
endGameQuestion (x, y) =
    ("yes", True)  "Alright. Lets play!"
    ("no" , False)  "Understandable. Have a good day!"

questionOne :: String -> String
questionOne x =
   case x of
   "good" -> "Thats Great! wanna play a game?"
   "bad" -> "aww. I'm sorry! maybe a game will help. wanna play?"
   "okay" -> "I see. Maybe a game will make you feel better! wanna play?"
   otherwise -> "decide with good, bad, or okay."

main :: IO ()
main = do
   putStrLn "Please enter your name."
   name <- getLine
   putStrLn $ "Helloooo " ++ name ++ "! How are you?"
   answerOne <- getLine
   putStrLn $ questionOne answerOne