let values operations numbers = case numbers of x:[] -> [x]
                                                l -> [1..(length numbers - 1)] >>= (\ i -> [op k m | op <- operations, k <- values operations $ take i l, m <- values operations $ drop i l])


let check operations numbers = 0 `elem` (values operations numbers)

check [(+), (-), (*)] [1,2,2]