@_=([1,0,0],[0,1,0],[1,1,1]);
	$_[$_][0]=($_[$_-1][1]+$_[$_-1][2])%(1e9+7),
	$_[$_][1]=($_[$_-2][0]+$_[$_-2][2])%(1e9+7),
	$_[$_][2]=($_[$_-3][0]+$_[$_-3][1])%(1e9+7)
for 3..($N=<>-1);
print eval(join'+',@{$_[$N]})%(1e9+7)