#include<bits/stdc++.h>
using namespace std;
#define cs const
#define re register
#define pb push_back
#define pii pair<int,int>
#define ll long long
#define y1 shinkle
#define fi first
#define se second
#define bg begin
namespace IO{
#define gc getchar
inline int read(){
    char ch=gc();
    int res=0;bool f=1;
    while(!isdigit(ch))f^=ch=='-',ch=gc();
    while(isdigit(ch))res=(res*10)+(ch^48),ch=gc();
    return f?res:-res;
}
inline ll readll(){
    char ch=gc();
    ll res=0;bool f=1;
    while(!isdigit(ch))f^=ch=='-',ch=gc();
    while(isdigit(ch))res=(res*10)+(ch^48),ch=gc();
    return f?res:-res;
}
inline char readchar(){
	char ch=gc();
	while(isspace(ch))ch=gc();
	return ch;
}
inline int readstring(char *s){
	int top=0;char ch=gc();
	while(isspace(ch))ch=gc();
	while(!isspace(ch)&&ch!=EOF)s[++top]=ch,ch=gc();
	s[top+1]='\0';return top;
}

}
using IO::read;
using IO::readll;
using IO::readchar;
using IO::readstring;
template<typename tp>inline void chemx(tp &a,tp b){(a<b)?(a=b):0;}
template<typename tp>inline void chemn(tp &a,tp b){(a>b)?(a=b):0;}

#define ull unsigned long long
cs ull bs=761;
cs int N=5005;

char s[N],t[N];
struct Map{
	static cs int mod=20003;
	int val[mod];ull key[mod];
    bool vs[mod];
    int stk[mod],top;
	Map(){memset(vs,0,sizeof(vs));}
    void clear(){
        while(top){
            val[stk[top]]=0;
            vs[stk[top]]=0;
            top--;
        }
    }
	cs int &operator [](cs ull &k)cs{
		int p=k%mod;
		while((vs[p])&&(key[p]!=k))p=(p==mod-1)?0:(p+1);
		return val[p];
	}
	int &operator [](cs ull &k){
		int p=k%mod;
		while((vs[p])&&(key[p]!=k))p=(p==mod-1)?0:(p+1);
		if(!vs[p])key[p]=k,stk[++top]=p,vs[p]=1;
		return val[p];		
	}
}res;
ll ans;
int pre[N][N];
int lcp[N][N];
void solve(char *s,char *t,int tmp){
    int n=strlen(s+1),m=strlen(t+1);
    memset(pre,0,sizeof(pre));
    memset(lcp,0,sizeof(lcp));
    for(int i=n;i;i--)
    for(int j=i;j<=n;j++){
        if(s[i]==s[j])lcp[i][j]=lcp[i+1][j+1]+1;
        else lcp[i][j]=0;
    }
    ull del=1;
    for(int l=1;l<=min(n,m);l++){
		res.clear();
		ull vl=0;del=del*bs;
		for(int i=1;i<=l;i++){
            vl*=bs;
            vl+=t[i]-'a';
		}
        ++res[vl];
		for(int i=l+1;i<=m;i++){
            vl*=bs;
            vl-=del*(t[i-l]-'a');
            vl+=t[i]-'a';
            ++res[vl];
		}
		vl=0;
		for(int i=1;i<=l;i++){
            vl*=bs;
            vl+=s[i]-'a';
		}
        pre[l][1]=res[vl];
		for(int i=l+1;i<=n;i++){
            vl*=bs;
            vl-=del*(s[i-l]-'a');
            vl+=s[i]-'a';
            pre[i][i-l+1]=res[vl];
		}
    }
    // for(int i=1;i<=n;i++,puts(""))
    // for(int j=1;j<=n;j++)cout<<pre[i][j]<<" ";
    for(int i=1;i<=n;i++)
    for(int j=i;j;j--)pre[i][j]+=pre[i][j+1];
    // for(int i=1;i<=n;i++,puts(""))
    // for(int j=1;j<=n;j++)cout<<pre[i][j]<<" ";
    for(int i=1;i<=n;i++)
    for(int j=i+1;j<=n+1;j++){
        int len=min(lcp[i][j],j-i);
        int p1=i+len,p2=i+tmp;
      //  cout<<i<<" "<<j<<" "<<lcp[i][j]<<" "<<len<<" "<<p1<<" "<<p2<<" "<<pre[j-1][p2]<<" "<<pre[j-1][p1+1]<<'\n';
        
        if(p2<=p1)ans+=pre[j-1][p2]-pre[j-1][p1+1];
    }
}

int main(){
	#ifdef Stargazer
	freopen("1.in","r",stdin);
	#endif
	int x1=readstring(s);
	int x2=readstring(t);
	solve(s,t,0);
   // cout<<ans<<'\n';
    //exit(0);
	solve(t,s,1);
	cout<<ans<<'\n';
 //   cerr<<clock()-tt<<'\n';
}