lists:intersection

copied from sets:intersection