a intersecton: b. (intersection a b) #### c := b asSet. a select: [:element | b includes: element].