fact :: Int -> [Int]
fact n = [x | x <- [1..n], n `mod` x == 0]
men :: Int -> [Int]
men n = [x | x <- [1..n], x < n]