n = read_line.to_i
s = read_line
cnt = [s.count('z'), s.count('y'), s.count("v-x"), s.count('u'), s.count("l-t"), s.count('k'), s.count('j'), s.count('i'), s.count("a-h")]

ans = cnt[0]
cnt[0] = 0
ans += cnt.values_at(1, 2).min.tap { |x|
  {1, 2}.each { |i| cnt[i] -= x }
}
ans += cnt.values_at(1, 3, 4).min.tap { |x|
  {1, 3, 4}.each { |i| cnt[i] -= x }
}
ans += cnt.values_at(1, 3, 5, 6).min.tap { |x|
  {1, 3, 5, 6}.each { |i| cnt[i] -= x }
}
ans += cnt.values_at(1, 3, 5, 7, 8).min.tap { |x|
  {1, 3, 5, 7, 8}.each { |i| cnt[i] -= x }
}
ans += {cnt[1], cnt[3], cnt[5], cnt[7]//2}.min.tap { |x|
  {1, 3, 5, 7, 7}.each { |i| cnt[i] -= x }
}
ans += {cnt[1], cnt[3], cnt[5] // 2}.min.tap { |x|
  {1, 3, 5, 5}.each { |i| cnt[i] -= x }
}
ans += {cnt[1], cnt[3] // 2}.min.tap { |x|
  {1, 3, 3}.each { |i| cnt[i] -= x }
}
ans += {cnt[1] // 2}.min.tap { |x|
  {1, 1}.each { |i| cnt[i] -= x }
}
puts ans