
let calc a b c =
  let concat s ls t lt =
    let rec f i =
      let rec g j =
        if i+j >= ls || j >= lt then true
        else (s (i+j) = '?' || t j = '?' || s (i+j) = t j) && g (j+1)
      in
      if g 0 then i else f (i+1)
    in f 0
  in
  let la, lb, lc = String.(length a, length b, length c) in
  let abi = concat (fun i -> a.[i]) la (fun i -> b.[i]) lb in
  let lab = max la (abi + lb) in
  let abci = concat (fun i -> if i < abi then a.[i] else b.[i-abi]) lab (fun i -> c.[i]) lc in
  max lab (abci + lc)

let () =
  Scanf.scanf "%s %s %s" @@ fun a b c ->
    [calc a b c; calc a c b; calc b a c; calc b c a; calc c a b; calc c b a]
    |> List.fold_left min 10000 |> Printf.printf "%d\n"
