main :: IO () main = do let num = 2 let evenOrOdd = if even num then "偶数" else "奇数" putStrLn evenOrOdd