package main

import . "fmt"
import . "slices"

const Mod = 998244353

func main() {
	var n string
	Scan(&n)
	ds := make([]int, 10)
	for _, ch := range n {
		ds[int(ch)-'0']++
	}
	xs := make([]int, len(n)+1)
	for i := range xs {
		for _, d := range ds {
			if i <= d {
				xs[i]++
			}
		}
	}
	ans := calc(len(n), xs)
	if ds[0] > 0 {
		xs[ds[0]]--
		ans += Mod - calc(len(n)-1, xs)
		ans %= Mod
	}
	Println(ans)
}

func calc(n int, xs []int) int {
	xs = Clone(xs)
	cs := make([]int, n+1)
	for i := range cs {
		cs[i] = i
	}
	for i := range xs {
		j := len(xs)-1 - i
		if j == 0 {
			break
		}
		x := xs[j]
		m := n / j
		for k := m; x > 0 && k >= 1; k-- {
			for x > 0 && cs[k*j] % j == 0 {
				cs[k*j] /= j
				x--
			}
		}
		xs[j] = x
	}
	ps := make([]int, n+1)
	for _, c := range cs {
		if c > 1 {
			ps[c]++
		}
	}
	for i, p := range ps {
		if i < 2 || p == 0 {
			continue
		}
		for j := i; p > 0 && j < len(xs); j += i {
			for p > 0 && xs[j] > 0 {
				xs[j]--
				t := j
				for p > 0 && t % i == 0 {
					t /= i
					p--
				}
				if t > 1 {
					xs[t]++
				}
			}
		}
	}
	r := 1
	for i, p := range ps {
		if i == 0 {
			continue
		}
		for p > 0 {
			r = r * i % Mod
			p--
		}
	}
	return r
}