yes = concatMap (\x->if x==e then l' else [x])