(||) :: Bool -> Bool -> Bool
       
-- listEq :: [a] -> [a] -> Bool      
-- listEq [] [] = True
-- listEq (x:xs) (y:ys) = (x == y) && (listEq xs ys)

member x [] = False
(||) :: Bool -> Bool -> Bool
member x [] = False
member x [] = False