checkNum xs limit = let x = length $ filter (\ x -> x >= 0) xs in x > limit
checkNum xs limit = let x = length $ filter (\ x -> x >= 0) xs in x > limit
checkNum xs limit = let x = length $ filter (\ x -> x >= 0) xs in x > limit