# UUID: 6ec7075e-9313-488e-8b35-b6c27cf9cf1f

"""
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 = input().strip()
A = []
a = 0
for i in range(hossz):
    if dns[i] == "A":
        a += 1
    A.append(a)
#print(A)#eddig jonak tunik

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":
        if G[i] != -1: # a -1 azt jelenti, hogy nincs elotte G azaz jo
            megoldas += A[G[i]]
        #print(i, G[i], A[i], A[G[i]])
print(megoldas)
"""
hossz = int(input())
dns = input().strip()
A = []
a = 0
for i in range(hossz):
    if dns[i] == "A":
        a += 1
    A.append(a)
#print(A)#eddig jonak tunik

g = -1
megoldas = 0
for i in range(hossz):
    if dns[i] == "G":
        g = i
    if dns[i] == "T":
        if g != -1: # a -1 azt jelenti, hogy nincs elotte G azaz jo
            megoldas += A[g]
        #print(i, G[i], A[i], A[G[i]])
print(megoldas)
"""