local n = io.read("*n", "*l")
local t = {}
for i = 1, 5 do
  t[i] = 0LL
end
local z = {}
z.M = 1
z.A = 2
z.R = 3
z.C = 4
z.H = 5
for i = 1, n do
  local s = io.read()
  local ss = s:sub(1, 1)
  if z[ss] then
    t[z[ss]] = t[z[ss]] + 1
  end
end
local ret = 0LL
ret = ret + t[1] * t[2] * (t[3] + t[4] + t[5])
ret = ret + t[1] * t[3] * (t[4] + t[5])
ret = ret + t[1] * t[4] * t[5]
ret = ret + t[2] * t[3] * (t[4] + t[5])
ret = ret + t[2] * t[4] * t[5]
ret = ret + t[3] * t[4] * t[5]
local rets = tostring(ret):gsub("LL", "")
print(rets)
