Definir la función

sumaSiTodosJustos :: (Num a, Eq a) => [Maybe a] -> Maybe a

tal que (sumaSiTodosJustos xs) es justo la suma de todos los elementos de xs si todos son justos (es decir, si Nothing no pertenece a xs) y Nothing en caso contrario. Por ejemplo,

>>> sumaSiTodosJustos [Just 2, Just 5]
Just 7
>>> sumaSiTodosJustos [Just 2, Just 5, Nothing]
Nothing