get;say reduce {$^a * $^b % 998244353},1,|map({$_.chars+1},get~~m:g/0+1+/)