open Batteries;;
  
let rec combination n r =
  if n = r || r = 0 then 1
  else (combination n (r - 1)) * (n - r + 1) / r
;;
  
let () =
  let n = read_int () in
  let l = Array.to_list @@
      Array.init n
                 (fun _ -> read_line ()) in
  let lhd = List.map (fun x -> String.get x 0) l in
  let m = List.length @@ List.filter (fun x -> 'M'=x) lhd in
  let a = List.length @@ List.filter (fun x -> 'A'=x) lhd in 
  let r = List.length @@ List.filter (fun x -> 'R'=x) lhd in
  let c = List.length @@ List.filter (fun x -> 'C'=x) lhd in
  let h = List.length @@ List.filter (fun x -> 'H'=x) lhd in
  let x = List.length (List.filter (fun x -> x<>0) [m;a;r;c;h]) in
  let ans = m*a*r + m*a*c + m*a*h + m*r*c + m*r*h + m*c*h
            + a*r*c + a*r*h + a*c*h
            + r*c*h in
          
  let mc = combination m 1 in
  let ac = combination a 1 in
  let rc = combination r 1 in
  let cc = combination c 1 in
  let hc = combination h 1 in
  print_int ans
;;

