@0=(1)x(($N=<>)+1);
for$k(0..2){
	for$i(0..2*$N){
		for$j(0..2*$N){
			${$k+1}[$i+$j]+=$$k[$i]*$$k[$j]
		}
	}
}
print$3[2*$N]