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