#include<bits/stdc++.h>
using namespace std;

using ll=long long;
using pii=pair<int,int>;
#define pb push_back
#define all(a) a.begin(),a.end()
#define sz(a) ((int)a.size())

const int N=5005;
string s,t;
int n,m,cross[N][N],dp[N][N],sum[N];
ll res;

signed main(){
    ios_base::sync_with_stdio(0),cin.tie(0);
    cin >> s >> t;
    n=sz(s),m=sz(t);
    for(int i=0; i<n; ++i) for(int j=0; j<m; ++j){
        if(s[i]==t[j]){
            cross[i][j]=1;
            if(i-1>=0&&j-1>=0) cross[i][j]+=cross[i-1][j-1];
            res+=cross[i][j];
        }
    }
    //cout << res << "\n";
    memset(dp,0,sizeof dp);
    for(int j=n-1; j>=1; --j){
        memset(sum,0,sizeof sum);
        for(int i=0; i<m; ++i) sum[cross[j-1][i]]++;
        for(int i=n; i>=0; --i) sum[i]+=sum[i+1];
        for(int i=n; i>=0; --i) sum[i]+=sum[i+1];
        for(int i=0; i<j; ++i){
            if(s[i]==s[j]){
                dp[i][j]=1;
                if(j+1<n) dp[i][j]+=dp[i+1][j+1];
                int de=j-i-dp[i][j];
                if(de<1) de=1;
                res+=sum[de]-sum[j-i];
            }
        }
    }
    memset(dp,0,sizeof dp);
    for(int j=m-1; j>=1; --j){
        memset(sum,0,sizeof sum);
        for(int i=0; i<n; ++i) sum[cross[i][j-1]]++;
        for(int i=m; i>=0; --i) sum[i]+=sum[i+1];
        for(int i=m; i>=0; --i) sum[i]+=sum[i+1];
        for(int i=0; i<j; ++i){
            if(t[i]==t[j]){
                dp[i][j]=1;
                if(j+1<n) dp[i][j]+=dp[i+1][j+1];
                int de=j-i-dp[i][j];
                if(de<1) de=1;
                res+=sum[de]-sum[j-i];
            }
        }
    }
    cout << res << "\n";
}