intersect : (* list -> * list -> * list)
#intersect [1;2;3] [3;5;4;1];; [1; 3] : int list #intersect [1;2;4;1] [1;2;3;2];; [1; 2; 1] : int list