main :: IO ()
main = do
    xs <- promptXs "Enter a list of numbers separated by spaces: "
    let evens = filt evn xs
    putStrLn $ "The even numbers are: " ++ show evens
main :: IO ()
main = do
    xs <- promptXs "Enter a list of numbers separated by spaces: "
    let evens = filt evn xs
    putStrLn $ "The even numbers are: " ++ show evens
main = do
    xs <- promptXs "Enter a list of numbers separated by spaces: "
    let evens = filt evn xs
    putStrLn $ "The even numbers are: " ++ show evens