let
inter_c s1 s2 =
List
.filter (
fun
e
->
(
List
.mem e s2)) s1