getElems :: [Int] -> [a] -> [Maybe a]
getElems [xs] ys
    | head(tail[(xs)]) > head(tail[(ys)]) = [Nothing]
    | otherwise = [Just xs]

getElems [2,4] [1..10] ) [Just 3,Just 5]
getElems [2,4] [1..4] ) [Just 3,Nothing]