$m=1000000007; $h=500000004; $n=<>; $a=1; for(1..$n*2){ $a=$a*$_%$m; } for(1..$n){ $a=$a*$h%$m; } print$a;