let inter = match de, vers with
  "A", "C" | "C", "A" -> "B"
| "A", "B" | "B", "A" -> "C"
| _ -> "A"