#include<cstdio>
#include<vector>
#include<queue>
#include<cstring>
#include<iostream>
#include<algorithm>
#include<ctime>
#include<random>
#include<assert.h>
#define pb emplace_back
#define mp make_pair
#define fi first
#define se second
#define dbg(x) cerr<<"In Line "<< __LINE__<<" the "<<#x<<" = "<<x<<'\n';
#define dpi(x,y) cerr<<"In Line "<<__LINE__<<" the "<<#x<<" = "<<x<<" ; "<<"the "<<#y<<" = "<<y<<'\n';
using namespace std;
typedef long long ll;
typedef unsigned long long ull;
typedef pair<int,int>pii;
typedef pair<ll,int>pli;
typedef pair<ll,ll>pll;
typedef pair<int,ll>pil;
typedef vector<int>vi;
typedef vector<ll>vll;
typedef vector<pii>vpii;
typedef vector<pil>vpil;
template<typename T>T cmax(T &x, T y){return x=x>y?x:y;}
template<typename T>T cmin(T &x, T y){return x=x<y?x:y;}
template<typename T>
T &read(T &r){
	r=0;bool w=0;char ch=getchar();
	while(ch<'0'||ch>'9')w=ch=='-'?1:0,ch=getchar();
	while(ch>='0'&&ch<='9')r=r*10+(ch^48),ch=getchar();
	return r=w?-r:r;
}
template<typename T1,typename... T2>
void read(T1 &x,T2& ...y){read(x);read(y...);}
const int mod=998244353;
inline void cadd(int &x,int y){x=(x+y>=mod)?(x+y-mod):(x+y);}
inline int add(int x,int y){return (x+y>=mod)?(x+y-mod):(x+y);}
inline void cdel(int &x,int y){x=(x-y<0)?(x-y+mod):(x-y);}
inline int del(int x,int y){return (x-y<0)?(x-y+mod):(x-y);}
int qpow(int x,int y){
	int s=1;
	while(y){
		if(y&1)s=1ll*s*x%mod;
		x=1ll*x*x%mod;
		y>>=1;
	}
	return s;
}
ll n;
namespace bf{
	const int N=1010;
	int f[N],g[N],h[N],ctf[N],cth[N],ctg[N];
	int main(){
		for(int i=1;i<=n;i++){
			h[i]=g[i]=add(g[i-1]*90ll%mod,qpow(9,i-1)*45ll%mod);
			cth[i]=ctg[i]=qpow(9,i);
			for(int j=2;j<i;j++)
				cadd(h[i],1ll*h[j-1]*g[i-j]%mod),
				cadd(cth[i],1ll*cth[j-1]*ctg[i-j]%mod);
			f[i]=h[i];
			ctf[i]=cth[i];
			for(int j=2;j<i;j++)
				cadd(f[i],add(1ll*f[j-1]*cth[i-j]%mod,1ll*h[i-j]*ctf[j-1]%mod)),
				cadd(ctf[i],1ll*ctf[j-1]*cth[i-j]%mod);
		}
		cout << f[n] << '\n';
		return 0;
	}
}
namespace linear{
	const int N=100010;
	int ans[N][2],mul[N][2],sum[N][2],cnt[N][2];
	int main(){
		ans[1][1]=0;
		mul[1][1]=45;
		sum[1][1]=9;
		cnt[1][1]=9;
		for(int i=1;i<n;i++){
			//
			cadd(ans[i+1][1],ans[i][1]*9ll%mod);
			cadd(sum[i+1][1],sum[i][1]*9ll%mod);
			cadd(cnt[i+1][1],cnt[i][1]*9ll%mod);
			cadd(mul[i+1][1],mul[i][1]*90ll%mod);
			cadd(mul[i+1][1],sum[i][1]*45ll%mod);
			//
			cadd(ans[i+1][0],ans[i][1]*2ll%mod);
			cadd(sum[i+1][0],mul[i][1]);
			cadd(sum[i+1][0],cnt[i][1]);
			cadd(ans[i+1][0],mul[i][1]);
			cadd(cnt[i+1][0],cnt[i][1]*2ll%mod);
			//
			cadd(ans[i+1][1],ans[i][0]*9ll%mod);
			cadd(sum[i+1][1],sum[i][0]*9ll%mod);
			cadd(cnt[i+1][1],cnt[i][0]*9ll%mod);
			cadd(mul[i+1][1],mul[i][0]*90ll%mod);
			cadd(mul[i+1][1],sum[i][0]*45ll%mod);
		}
		cout << add(ans[n][1],mul[n][1]) << '\n';
		return 0;
	}
}
namespace ac{
	const int M=8;
	struct Matrix{
		int a[M][M];
		void mem(){
			for(int i=0;i<M;i++)
				for(int j=0;j<M;j++)
					a[i][j]=0;
		}
		Matrix operator * (const Matrix &y)const{
			Matrix z;z.mem();
			for(int i=0;i<8;i++)
				for(int j=0;j<8;j++)
					for(int k=0;k<8;k++)
						cadd(z.a[i][j],1ll*a[i][k]*y.a[k][j]%mod);
			return z;
		}
	}tmp,ans;
	int main(){
		for(int i=0;i<8;i++)ans.a[i][i]=1;
		tmp.a[0][0]=9;
		tmp.a[2][2]=9;
		tmp.a[3][3]=9;
		tmp.a[1][1]=90;
		tmp.a[2][1]=45;
		//
		tmp.a[0][4]=2;
		tmp.a[1][6]=1;
		tmp.a[3][6]=1;
		tmp.a[1][4]=1;
		tmp.a[3][7]=2;
		//
		tmp.a[4][0]=9;
		tmp.a[6][2]=9;
		tmp.a[7][3]=9;
		tmp.a[5][1]=90;
		tmp.a[6][1]=45;
		--n;
		while(n){
			if(n&1)
				ans=ans*tmp;
			tmp=tmp*tmp;
			n>>=1;
		}
		vi qwq={0,45,9,9};
		int s=0;
		for(int i=1;i<4;i++)
			cadd(s,1ll*qwq[i]*ans.a[i][0]%mod),
			cadd(s,1ll*qwq[i]*ans.a[i][1]%mod);
		cout << s << '\n';
		return 0;
	}
}
signed main(){
	#ifdef do_while_true
//		assert(freopen("data.in","r",stdin));
//		assert(freopen("data.out","w",stdout));
	#endif
	read(n);
	// if(n<=1000)return bf::main();
	// return linear::main();
	return ac::main();
    #ifdef do_while_true
		cerr<<'\n'<<"Time:"<<1.0*clock()/CLOCKS_PER_SEC*1000<<" ms"<<'\n';
	#endif
	return 0;
}