#include<bits/stdc++.h>
#define poly vector<int>
#define IOS ios::sync_with_stdio(false)
#define ll long long
#define ull unsigned long long
#define mp make_pair
#define mt make_tuple
#define pa pair < int,int >
#define fi first
#define se second
#define inf 1e18
#define mod 998244353
#define sz(x) ((int)((x).size()))
#define int ll
// #define N 
using namespace std;
const int B=10007;
int lcp[5005][5005];
int all[5005][5005];
int pre[5005];
int cnt[5005];
    string s,t;
    int ans=0;
mt19937_64 rnd(time(0));
void work(int bl=0){
        for (int i=sz(s)-1;i>=0;i--)
            for (int j=sz(s)-1;j>=0;j--)
            {
                if (s[i]==s[j]) lcp[i][j]=lcp[i+1][j+1]+1;
            }
        for (int j=0;j<=sz(s);j++)
        {
            for (int i=0;i<=sz(s);i++)
                pre[i]=0;
            for (int i=0;i+1<j;i++)
                if (lcp[i][j])
                {
                    pre[i+1]++;
                    pre[i+lcp[i][j]+1]--;
                }
            for (int i=0;i<j;i++)
            {
                if (i) pre[i]=(pre[i]+pre[i-1]);
            }
            for (int i=j-1;i>=0;i--)
            {
                int coef=bl+pre[i];
                all[i][j-1]+=coef;
            }
        }
        memset(lcp,0,sizeof(lcp));
        for (int i=sz(s)-1;i>=0;i--)
            for (int j=sz(t)-1;j>=0;j--) 
            {
                if (s[i]==t[j]) lcp[i][j]=lcp[i+1][j+1]+1;
            }
        for (int i=0;i<sz(s);i++)
        {
            for (int j=0;j<sz(t);j++)
                cnt[lcp[i][j]]++;
            for (int j=sz(s)-1;j>=0;j--)
                cnt[j]+=cnt[j+1];
            for (int j=i;j<sz(s);j++)
                ans+=cnt[j-i+1]*all[i][j],all[i][j]=0;
            for (int j=0;j<=sz(s);j++)
                cnt[j]=0;
        }
        memset(lcp,0,sizeof(lcp));
    }
void BellaKira()
{
    cin>>s>>t;
    // while (s.size()<5000) s+=char('a'+rnd()%26);
    // while (t.size()<5000) t+=char('a'+rnd()%26);
    // return;
    
    
    work();
    swap(s,t);
    work(1);
    cout<<ans<<'\n';


}
signed main()
{
    IOS;
    cin.tie(0);
    int T=1;
    while (T--)
    {
        BellaKira();
    }
}
/*list:
1.mod 998244353 or 1e9+7 or ???
2.N
3.duipai shuju xingtai duoyidian
...
*/