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

#define IOS ios::sync_with_stdio(false);cin.tie(nullptr);cout.tie(nullptr);
#define ull unsigned long long
#define int long long
const int Base = 233,N = 5001;
class string_hash{
public:
	static ull pow_base[N];
	static void init(int n){
		pow_base[0] = 1;
		for(int i = 1;i <= n;i++)
			pow_base[i] = pow_base[i - 1] * Base;
	}
	vector<ull> hash;
	string s;
	void get_hash(int n){
		hash.resize(n + 1);
		for(int i = 0;i < n;i++){
			hash[i + 1] = hash[i] * Base + s[i];
		}
	}
	ull get_hash_range(int l,int r){
		return hash[r + 1] - hash[l] * pow_base[r - l + 1];
	}
}ss[2];
ull string_hash::pow_base[N] = {0};//静态成员变量要初始化，否则无法使用

int dps[N][N];
int dpt[N][N];
int nums[N][N];
int numt[N][N];

int tem[N];

void test(){
	cin >> ss[0].s >> ss[1].s;
	int n = ss[0].s.size();
	int m = ss[1].s.size();
	ss[0].get_hash(n);
	ss[1].get_hash(m);
	// for(int i = 0;i < n;i++){
	// 	for(int j = i;j < n;j++){
	// 		shash[j - i + 1][ss[0].get_hash_range(i,j)]++;
	// 	}
	// }
	
	// for(int i = 0;i < m;i++){
	// 	for(int j = i;j < m;j++){
	// 		thash[j - i + 1][ss[1].get_hash_range(i,j)]++;
	// 	}
	// }

	for(int len = 1;len <= min(n,m);len++){
		unordered_map<ull,int> mps,mpt;
		vector<ull> ve;
		for(int begin = 0;begin + len - 1 < n;begin++){
			ull val = ss[0].get_hash_range(begin,begin + len - 1);
			mps[val]++;
			ve.push_back(val);
		}
		for(int begin = 0;begin + len - 1 < m;begin++){
			ull val = ss[1].get_hash_range(begin,begin + len - 1);
			mpt[val]++;
			numt[begin][begin + len - 1] = mps[val];
		}
		for(int begin = 0;begin + len - 1 < n;begin++){
			nums[begin][begin + len - 1] = mpt[ve[begin]];
		}
	}

	for(int i = n - 1;i >= 0;i--){
		for(int j = n - 1;j > i;j--){
			if(ss[0].s[i] == ss[0].s[j]) dps[i][j] = dps[i + 1][j + 1] + 1;
		}
	}

	for(int i = m - 1;i >= 0;i--){
		for(int j = m - 1;j > i;j--){
			if(ss[1].s[i] == ss[1].s[j]) dpt[i][j] = dpt[i + 1][j + 1] + 1;
		}
	}

	//s比较大的情况
	int ans = 0;
	for(int r = 0;r < n;r++){
		int rr = 0;
		for(int l = 0;l <= r;l++){
			if(l != 0)
				tem[l] += tem[l - 1];
			ans += (tem[l] + 1) * nums[l][r];

			// cout << l << ' ' << r << ' ' << nums[l][r] << '\n';

			int _r = l + dps[l][r + 1] - 1;
			tem[_r + 2]--;
			tem[l]++;
			rr = max(rr,_r + 2);
		}
		for(int j = 0;j <= rr;j++) tem[j] = 0;
	}

	for(int r = 0;r < m;r++){
		int rr = 0;
		for(int l = 0;l <= r;l++){
			if(l != 0)
				tem[l] += tem[l - 1];
			ans += tem[l] * numt[l][r];
			int _r = l + dpt[l][r + 1] - 1;
			tem[_r + 2]--;
			tem[l]++;
			rr = max(rr,_r + 2);
		}
		for(int j = 0;j <= rr;j++) tem[j] = 0;
	}
	cout << ans << '\n';
}

signed main(){
	IOS
	string_hash::init(5000);
	int t = 1;//cin >> t;
	while(t--){
		test();
	}
}