# UUID: 47bdefe7-a5b7-4c1d-8bf3-17043c450e36

"""
hossz = int(input())
dns = str(input())
van = False
eset = 0
for i in range(hossz):
    if dns[i] == "A":
        van = False
        for j in range(i, hossz):
            if dns[j] == "G":
                van = True
            if dns[j] == "T" and van:
                eset += 1
print(eset)



hossz = int(input())
dns = str(input())
eset = 0
for i in range(hossz):
    if dns[i] == "A":
        g = 0
        for j in range(i, hossz):
            if dns[j] == "G":
                g = 1
            if dns[j] == "T" and g == 1:
                eset += 1
print(eset)
erre a peldara:
CAGTAATTGATA
hany A betu van egy adott karakter elott?
011123333445 <- ez lesz az A lista
Es melyik az elottt levo G indexe
CAGTAATTGATA
xx2222228888 <- az elott levo G betu indexe, ha x=-1, akkor ez egy listaban tarolhato
es ezek utan amikor vegigmegyunk 3-adszorra a stringen:
CAGTAATTGATA
   T <- egy T betu
   3-as indexu helyen
   G[3] megmondja, hogy hol van elotte eloszor G betu
   A[G[3]] megmondja, hogy hany A betu van elotte
      T 6-os indexen
      A[G[6]]-tal novelni kell a valaszt
      stb

"""


hossz = int(input())
dns = str(input())
A = []
a = 0
for i in range(hossz):
    if dns[i] == "A":
        a += 1
    A.append(a)
#print(A)
G = []
g = -1
for i in range(hossz):
    if dns[i] == "G":
        g = i
    G.append(g)
#print(G)
megoldas = 0
for i in range(hossz):
    if dns[i] == "T":
        megoldas += A[G[i]]
        #print(i, G[i], A[i], A[G[i]])
print(megoldas)