Added SetIntersection solution

Text parsing in Haskell, nolikie