f () {
	local n=$1; local p=$2; local m=$3
	local r=1
	while [ $p -gt 0 ]; do
		if [ $(($p & 1)) -eq 1 ]; then
			r=$(($r * $n % $m))
		fi
		n=$(($n * $n % $m)); p=$(($p >> 1))
	done
	printf $r
}

D=1000000007

read n
echo $(($(($(f 10 $n $D) * 4 % $D - 1)) * $(f 3 $(($D - 2)) $D) % $D))