let string_check c1 c2 string = (index_char string c1)>0 && (index_char string c2)>0;;

let rec progCaml a b s_list =
match s_list with
[] -> false
| x::xs -> try
(string_check a b x)
with
Not_found -> progCaml a b xs;;