let n, a, b, c = Scanf.scanf " %d %s %s %s" @@ fun a b c d -> a, b, c, d
let _ = Array.(fold_left (+) 0 @@ init n (fun i -> List.(length @@ sort_uniq compare [a.[i]; b.[i]; c.[i]]) - 1)) |> Printf.printf "%d\n"