#pragma GCC optimize("O3,unroll-loops") 
//这行告诉GCC编译器使用O3优化级别和循环展开。O3是GCC提供的最高优化级别，它会尝试使用所有的程序优化策略。"unroll-loops"是一个特定的优化选项，它会尝试将循环展开以减少循环的开销。
 
#include<bits/stdc++.h>
using namespace std;
const int N=6e6+10,mod=998244353;
typedef long long ll;
typedef pair<ll,ll> PII;
char s[N];
int n;
int fail[N],len[N],num[N],idx;
int tr[N][10];
ll ans[N];
int h[N],e[N],ne[N],idx2;
int rd[N];
vector<int> topo;

int getfail(int x,int id){//对id新建fail指针
    while(s[id-len[x]-1]!=s[id]) x=fail[x];//如果不对称，往前跳
    return x;
}
void add(int a,int b){
    e[idx2]=b,ne[idx2]=h[a],h[a]=idx2++;
}

void topsort(){
    queue<int> q;
    q.push(1);
    while(q.size()){
        int t=q.front();
        q.pop();
        topo.push_back(t);
        for(int i=h[t];~i;i=ne[i]){
            int j=e[i];
            rd[j]--;
            if(rd[j]==0) q.push(j);
        }
    }
}



int main()
{
    memset(h,-1,sizeof h);
    cin>>n;
    scanf("%s",s+1);
    for(int i=1;i<=n;i++) s[i+n]=s[i];
    fail[0]=1,len[1]=-1;//初始化0，1号点
    idx=1;
    int p=0,cur=0;
    for(int i=1;i<=n*2;i++){
        p=getfail(cur,i);//求fail要在建立指针之前
        if(!tr[p][s[i]-'0']){//没有的话(直接匹配成功了的话)建立新点
            fail[++idx]=tr[getfail(fail[p],i)][s[i]-'0'];//找到“次长回文串”的位置，它的儿子就是最长回文串的位置
            tr[p][s[i]-'0']=idx;//建立新点
            len[idx]=len[p]+2;//维护以i结尾的最长回文串长度
            num[idx]=num[fail[idx]]+1;//维护以i结尾的回文串个数（除了最长的那个别的都出现了）
        }
        cur=tr[p][s[i]-'0'];
        if(i>n) ans[cur]++;
    }
    for(int i=0;i<=idx;i++){
        if(i==1) continue;
        add(fail[i],i);
        rd[i]++;
    }
    topsort();
    for(int i=topo.size()-1;i>=0;i--){
        int t=topo[i];
        ans[fail[t]]+=ans[t];
        if(ans[fail[t]]>=mod) ans[fail[t]]-=mod;
    }
    
    ll res=0;
    for(int i=0;i<=idx;i++){
            if(i==1) continue;
            if(len[i]<=n){
                res+=len[i]*ans[i]%mod*ans[i]%mod;
                if(res>=mod) res-=mod;
            }
    }
    cout<<res<<endl;
}