infix  3 &&&

(&&&) :: (Eq a) => [a] -> [a] -> [a]
(&&& ) [] [] =  []
xs  &&&   [] =  xs
(  &&&) [] ys =  ys