import Data.Ratio

matrixproduct::Num a=>(a,a,a,a)->(a,a,a,a)->(a,a,a,a)
matrixproduct (a,b,c,d) (w,x,y,z) = (a*w+b*y,a*x+b*z,c*w+d*y,c*x+d*z)

matrixpower::Num a=>(a,a,a,a)->Integer->(a,a,a,a)
matrixpower _ 0 = (1,0,0,1)
matrixpower m n = (matrixproduct (matrixpower m (n-1)) m)

main = do
	n<-getLine>>=return.(read::String->Integer)
	let (a,b,c,d) = matrixpower (19%4,-3,1,0) n
	print$fromRational$c*3+d*4