let carré main = List.exists (fun x -> List.length x >= 4) (compatibles main);;