import Data.List

tests = [
         [-1,0,10,237,-316],
         [1,2,3,4,5,234,7897234],
         [89,234,-3,0,16]
        ]
 
main = print $ map (length . filter (< 0)) $ filter (elem 0) tests