import core.bitop;
import std.algorithm;
import std.ascii;
import std.bigint;
import std.conv;
import std.functional;
import std.math;
import std.numeric;
import std.range;
import std.stdio;
import std.string;
import std.random;
import std.typecons;
import std.container;

alias sread = () => readln.chomp();
alias route = Tuple!(long, "From", long, "To");
long bignum = 1_000_000_007;

T lread(T = long)()
{
    return readln.chomp.to!T();
}

T[] aryread(T = long)()
{
    return readln.split.to!(T[])();
}

void scan(TList...)(ref TList Args)
{
    auto line = readln.split();
    foreach (i, T; TList)
    {
        T val = line[i].to!(T);
        Args[i] = val;
    }
}

void main()
{
    auto n = lread();
    auto march = new long[](5);
    long ans;
    foreach (_; 0 .. n)
    {
        auto s = sread();
        auto head = s.takeOne.to!(char);
        switch (head)
        {
        case 'M':
            march[0]++;
            break;
        case 'A':
            march[1]++;
            break;
        case 'R':
            march[2]++;
            break;
        case 'C':
            march[3]++;
            break;
        case 'H':
            march[4]++;
            break;
        default:
            break;
        }
    }
    foreach (i; 0 .. (1 << 5))
    {
        long tmp = 1;
        if (i.popcnt == 3)
        {
            foreach (j; 0 .. march.length)
            {
                if(i & (1 << j))
                    tmp *= march[j];
            }
            ans += tmp;
        }
    }
    ans.writeln();
}