···233 xs = unique (drop 1 list);
234 in [x] ++ remove x xs;
23500000236}
···233 xs = unique (drop 1 list);
234 in [x] ++ remove x xs;
235236+ # Intersects list 'e' and another list
237+ intersect = e: filter (x: elem x e);
238+239+ # Substracts list 'e' from another list
240+ substract = e: filter (x: !(elem x e));
241}