showAnswer :: Bool -> IO ()
showAnswer correct = putStrLn $ if correct then "You are right!" else "You are wrong."
showAnswer :: Bool -> IO ()
showAnswer correct = putStrLn $ if correct then "You are right!" else "You are wrong."
showAnswer correct = putStrLn $ if correct then "You are right!" else "You are wrong."