···233233 xs = unique (drop 1 list);
234234 in [x] ++ remove x xs;
235235236236+ # Intersects list 'e' and another list
237237+ intersect = e: filter (x: elem x e);
238238+239239+ # Substracts list 'e' from another list
240240+ substract = e: filter (x: !(elem x e));
236241}