> > intersection xs ys = snd $ foldr aux (ys, []) xs > where aux x acc@(ys, r) = if x `elem` ys then (delete x ys, > x:r) else acc If Perl is line noise, that just looks like someone barfed up a random chunk of /usr/dict/words :D -- Mike Whitaker - mike at altrion.org