Please help me with this PROBLEM :( "Choose some element a of A and some element b of B such that a + b doesn't belong to A and doesn't belong to B" : readInts = fmap (map read.words) getLine
readInts :: IO [Int]

main = do
    putStrLn "List number of A: "
    num1 <- readInts
    let a = [] ++ num1
    putStrLn "List number of B: "
    num2 <- readInts
    let b = [] ++ num2