gameOne :: IO ()
gameOne = do
    putStrLn "Please enter your name"
    name <- getLine
    putStrLn $ "hellooo " ++ name ++ "! How are you todays?"
    answer <- getLine
    putStrLn $ questionResponse answer 

gameTwo :: String -> IO ()
gameTwo strn = do
    if strn == ""
      then do
        putStrLn $ questionResponse strn
        else return ()

questionResponse :: String -> String
questionResponse x =
    case x of
    "good" -> "Alright. glad you're doing well!"
    "bad"  -> "aww. I hope you're doing better!"
    "ok"   -> "thats good. Not too bad."
    "okay" -> "thats good. Not too bad."
    "alright" -> "Alright, huh? thats good!"
    otherwise -> "ANSWER!"

main :: IO ()
main = do
    gameOne