1 module MyList (minus) where
    2 
    3 minus                 :: (Eq x) => [x] -> [x] -> [x]
    4 xs `minus` ys         =  foldl rmv xs ys
    5 rmv                   :: (Eq x) => [x] -> x -> [x]
    6 [] `rmv` y            =  []
    7 (x:xs) `rmv` y        =  if  x == y  then  xs  else  x : (xs `rmv` y)