#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};//静态成员变量要初始化，否则无法使用

unordered_map<ull,int> shash[N];
unordered_map<ull,int> thash[N];

int dps[N][N];
int dpt[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 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];
			if(thash[r - l + 1].count(ss[0].get_hash_range(l,r))){
				ans += (tem[l] + 1) * thash[r - l + 1][ss[0].get_hash_range(l,r)];
			}
			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];
			if(shash[r - l + 1].count(ss[1].get_hash_range(l,r))){
				ans += tem[l] * shash[r - l + 1][ss[1].get_hash_range(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();
	}
}