import strutils, sequtils, deques type stdinReader = object buf: Deque[string] func newStdinReader(): stdinReader = result = stdinReader(buf: initDeque[string]()) proc readString(sr: var stdinReader): string = if sr.buf.len == 0: sr.buf = stdin.readLine.split.toDeque sr.buf.popFirst proc readInt(sr: var stdinReader): int = readString(sr).parseInt type SegmentTree[T] = object n: int data: seq[T] e: T func init[T](n: int, e: T): SegmentTree[T] = var n2 = 1 while n2 < n: n2 *= 2 SegmentTree[T](n: n2, data: newSeqWith[T](n2 * 2, e), e: e) proc build[T](st: var SegmentTree[T], a: seq[T]) = for i, x in a: st.data[i + st.n] = x for i in countdown(st.n - 1, 1): # st.data[i] = st.data[i * 2] + st.data[i * 2 + 1] st.data[i].addTo(st.data[i * 2], st.data[i * 2 + 1]) proc update[T](st: var SegmentTree[T], i: int, x: T) = var k = i + st.n st.data[k] = x while k > 1: k = k div 2 # st.data[k] = st.data[k * 2] + st.data[k * 2 + 1] st.data[k].addTo(st.data[k * 2], st.data[k * 2 + 1]) func query[T, U, V](st: SegmentTree[T], l: int, r: int, ls, rs: U, v: V): V = var l = l + st.n r = r + st.n var ls = ls rs = rs while l < r: if (l and 1) == 1: ls = ls + st.data[l] l += 1 if (r and 1) == 1: r -= 1 rs = st.data[r] + rs l = l div 2 r = r div 2 ls + rs const MOD = 998244353 type Vec = array[6, int] type Matrix = array[6, array[6, int]] func `+`(a, b: Matrix): Matrix = for i in 0 ..< a.len: for j in 0..i: for k in j..i: result[i][j] = (result[i][j] + a[i][k] * b[k][j]) mod MOD proc addTo(c: var Matrix, a, b: Matrix) = for i in 0 ..< a.len: for j in 0..i: c[i][j] = 0 for k in j..i: c[i][j] = (c[i][j] + a[i][k] * b[k][j]) mod MOD func `+`(a: Vec, b: Matrix): Vec = for i in 0 ..< a.len: for j in 0..i: result[j] = (result[j] + a[i] * b[i][j]) mod MOD func `+`(a: Matrix, b: Vec): Vec = for i in 0 ..< a.len: for j in 0..i: result[i] = (result[i] + a[i][j] * b[j]) mod MOD func `+`(a, b: Vec): int = for i in 0..