// #pragma GCC target("avx2")  // CPU 処理並列化
// #pragma GCC optimize("O3")  // CPU 処理並列化
// #pragma GCC optimize("unroll-loops")  // 条件処理の呼び出しを減らす
#include<stdio.h>
#include<math.h>
#include<algorithm>
#include<queue>
#include<deque>
#include<stack>
#include<string>
#include<string.h>
#include<vector>
#include<set>
#include<map>
#include<bitset>
#include<stdlib.h>
#include<cassert>
#include<time.h>
#include<bitset>
#include<numeric>
using namespace std;
const long long mod=1000000007;
const long long inf=mod*mod;
const long long d2=(mod+1)/2;
const double EPS=1e-10;
const double INF=1e+10;
const double PI=acos(-1.0);
const int C_SIZE = 3121000;
long long fact[C_SIZE];
long long finv[C_SIZE];
long long inv[C_SIZE];
long long Comb(int a,int b){
 	if(a<b||b<0)return 0;
 	return fact[a]*finv[b]%mod*finv[a-b]%mod;
}
void init_C(int n){
	fact[0]=finv[0]=inv[1]=1;
	for(int i=2;i<n;i++){
		inv[i]=(mod-(mod/i)*inv[mod%i]%mod)%mod;
	}
	for(int i=1;i<n;i++){
		fact[i]=fact[i-1]*i%mod;
		finv[i]=finv[i-1]*inv[i]%mod;
	}
}
long long pw(long long a,long long b){
	if(a<0LL)return 0;
	if(b<0LL)return 0;
	long long ret=1;
	while(b){
		if(b%2)ret=ret*a%mod;
		a=a*a%mod;
		b/=2;
	}
	return ret;
}
int ABS(int a){return max(a,-a);}
long long ABS(long long a){return max(a,-a);}
double ABS(double a){return max(a,-a);}
int sig(double r) { return (r < -EPS) ? -1 : (r > +EPS) ? +1 : 0; }
// ここから編集しろ
long long M1=1000000007;
long long M2=1000000009;
long long M3=998244353;
char in[300000];
struct wolf{
	long long a1,a2,a3;
	wolf(){a1=a2=a3=0;}
	wolf(long long A1,long long A2,long long A3){a1=A1;a2=A2;a3=A3;}
};
inline bool operator<(const wolf&a,const wolf&b){
	if(a.a1!=b.a1)return a.a1<b.a1;
	if(a.a2!=b.a2)return a.a2<b.a2;
	if(a.a3!=b.a3)return a.a3<b.a3;
	return false;
}
inline wolf operator+(const wolf&a,const wolf&b){
	return wolf((a.a1+b.a1)%M1,(a.a2+b.a2)%M2,(a.a3+b.a3)%M3);
}
inline wolf operator-(const wolf&a,const wolf&b){
	return wolf((a.a1-b.a1+M1)%M1,(a.a2-b.a2+M2)%M2,(a.a3-b.a3+M3)%M3);
}
long long modpw(long long a,long long b,long long M){
	long long ret=1;
	while(b){
		if(b%2)ret=ret*a%M;
		a=a*a%M;
		b/=2;
	}
	return ret;
}
inline wolf operator<<(const wolf&a,const int&b){
	return wolf((a.a1*modpw(114514,(M1-1+b)%(M1-1),M1))%M1,(a.a2*modpw(810514,(M2-1+b)%(M2-1),M2))%M2,(a.a3*modpw(1919810,(M3-1+b)%(M3-1),M3))%M3);
}
inline wolf operator>>(const wolf&a,const int&b){
	return wolf((a.a1*modpw(114514,M1-1-b%(M1-1),M1))%M1,(a.a2*modpw(810514,M2-1-b%(M2-1),M2))%M2,(a.a3*modpw(1919810,M3-1-b%(M3-1),M3))%M3);
}
int bit[310000];
int sum(int a,int b){
	if(a)return sum(0,b)-sum(0,a-1);
	int ret=0;
	for(;b>=0;b=(b&(b+1))-1)ret+=bit[b];
	return ret;
}
void add(int a,int b){
	for(;a<310000;a|=a+1)bit[a]+=b;
}
wolf pool[300000];
wolf at[300000];
int main(){
	int a;scanf("%d",&a);
	scanf("%s",in);
	wolf now;
	wolf ks(1,1,1);
	for(int i=0;i<a;i++){
		if(in[i]=='+'){
			now=now+ks;
		}else if(in[i]=='-'){
			now=now-ks;
		}else if(in[i]=='<'){
			ks=(ks<<1);
		}else{
			ks=(ks>>1);
		}

		at[i+1]=now;
	}
	for(int i=1;i<=a;i++)pool[i-1]=at[i];
	std::sort(pool,pool+a);
	for(int i=0;i<a;i++)add(i,1);
	long long ret=0;
	int os=0;
	for(int i=0;i<a;i++){
		wolf tmp=now<<os;
		tmp=tmp+at[i];
	//	printf("%lld %lld %lld\n",tmp.a1,tmp.a2,tmp.a3);
		int R=upper_bound(pool,pool+a,tmp)-pool;
		int L=lower_bound(pool,pool+a,tmp)-pool;
	//	printf("%d %d\n",L,R);
		
		if(L<R){
			ret+=sum(L,R-1);
		}
		add(lower_bound(pool,pool+a,at[i+1])-pool,-1);
		if(in[i]=='<')os++;
		else if(in[i]=='>')os--;
	}
	printf("%lld\n",ret);
}

Measured memory_bytes: 16640