#include <iostream>
#include <algorithm>
#include <vector>
 
using namespace std;
 
typedef long long ll;
const int Maxl=2000005;
int fa[Maxl],ran2[Maxl],a[Maxl],b[Maxl];
int sa[Maxl],lcp[Maxl],ran[Maxl],rad[Maxl<<1],tmp[Maxl];
int n,k;
string S="",s1,s2;
ll res,cur;
 
void init(){for(int i=0;i<Maxl;++i)ran2[i]=a[i]=b[i]=0,fa[i]=i;}
int Find(const int &x){return x==fa[x]?x:fa[x]=Find(fa[x]);}
void unite(int x,int y){
    x=Find(x);y=Find(y);if(x==y)return;
    if(ran2[x]<ran2[y])swap(x,y);fa[y]=x;
    cur+=1LL*a[x]*b[y]+1LL*a[y]*b[x];
    a[x]+=a[y];b[x]+=b[y];
    if(ran2[x]==ran2[y])ran2[x]++;
}
bool same(const int &x,const int &y){return Find(x)==Find(y);}
void add_a(int x){cur+=b[x=Find(x)];a[x]++;}
void add_b(int x){cur+=a[x=Find(x)];b[x]++;}
void manacher(){
    string s(n<<1|1,'#');
    for(int i=0;i<n;++i)s[i<<1|1]=S[i];
    for(int i=0,j=0,k=1;i<(n<<1|1);k=1){
        while(i>=j&&i+j<(n<<1|1)&&s[i-j]==s[i+j])++j;
        rad[i]=j;
        while(i>=k&&rad[i-k]<rad[i]-k)rad[i+k]=rad[i-k],++k;
        i+=k;j=max(j-k,0);
    }
}
int num[Maxl],wa[Maxl],wb[Maxl],wv[Maxl],wd[Maxl];
bool cmp(int *r,const int &a,const int &b,int l){return r[a]==r[b]&&r[a+l]==r[b+l];}
void da(string r,const int &n,int m){
    int i,j,p,*x=wa,*y=wb,*t;
    for(i=0;i<m;i++)wd[i]=0;
    for(i=0;i<n;i++)wd[x[i]=r[i]] ++;
    for(i=1;i<m;i++)wd[i]+= wd[i-1];
    for(i=n-1;i>=0;i--)sa[-- wd[x[i]]]=i;
    for(j=1,p=1;p<n;j*=2,m=p){
        for(p=0,i=n-j;i<n;i++)y[p ++]=i;
        for(i=0;i<n;i++)if(sa[i]>=j)y[p ++] = sa[i] - j;
        for(i=0;i<n;i++)wv[i]=x[y[i]];
        for(i=0;i<m;i++)wd[i]=0;
        for(i=0;i<n;i++)wd[wv[i]]++;
        for(i=1;i<m;i++)wd[i]+=wd[i-1];
        for(i=n-1;i>=0;i--)sa[--wd[wv[i]]]=y[i];
        for(t=x,x=y,y=t,p=1,x[sa[0]]=0,i=1;i<n;i++)
            x[sa[i]]=cmp(y,sa[i-1],sa[i],j)?p-1:p++;
    }
    for(int i=0;i<n;++i)ran[sa[i]]=i;
}
 
void Init_LCP(){
    lcp[sa[0]]=0;
    for(int i=0,h=0,j;i<n;++i){
        j=sa[ran[i]-1];if(h)h--;
        while(i+h<n&&j+h<n&&S[i+h]==S[j+h])++h;
        lcp[ran[i]-1]=h;
    }
}
vector<int>query[Maxl];
vector<int>in[Maxl];
 
void Init(){
    cin>>s1>>s2;
    S=s1+"$"+s2;
    n=S.size();
    da(S,n,128);Init_LCP();
    manacher();
}
 
void Work(){
    Init();
    //odd
    cur=0;init();
    for(int i=0;i<n;i++)query[lcp[i]].push_back(i);
    for(int i=0;i<n;i++){int f=rad[i<<1|1]-1;in[f].push_back(i);}
    int m=n;if(!(m&1))m--;
    for(int i=n;i>(m+1)/2;--i)
        for(int j=0;j<query[i].size();++j)
            unite(sa[query[i][j]],sa[query[i][j]+1]);
    for(int i=m;i>=1;i-=2){
        for(int j=0;j<in[i].size();++j)
            if(in[i][j]<s1.size())add_a(in[i][j]);
            else if(in[i][j]>s1.size())add_b(in[i][j]);
        for(int j=0;j<query[(i+1)/2].size();++j)
            unite(sa[query[(i+1)/2][j]],sa[query[(i+1)/2][j]+1]);
        res+=cur;
    }
 
    //even
    cur=0;init();
    for(int i=0;i<Maxl;i++)in[i].clear();
    for(int i=0;i<=2*n;i+=2){int f=rad[i]-1;in[f].push_back(i/2);}
    m=n;if(m&1)m--;
    for(int i=n;i>m/2;i--)
        for(int j=0;j<query[i].size();j++)
            unite(sa[query[i][j]],sa[query[i][j]+1]);
    for(int i=m;i>=2;i-=2){
        for(int j=0;j<in[i].size();j++)
            if(in[i][j]<s1.size())add_a(in[i][j]);
            else if(in[i][j]>s1.size())add_b(in[i][j]);
        for(int j=0;j<query[i/2].size();j++)
            unite(sa[query[i/2][j]],sa[query[i/2][j]+1]);
        res+=cur;
    }
    cout<<res<<endl;
}
int main(){Work();return 0;}