# Σ[k=1..N]{ C(N,k) * k^(N-k) } $N=<>; $m=1e9+7; @f=1; $f[$_]=$f[$_-1]*$_%$m for 1..$N; $i[$N]=`dc -e'$f[$N] $m 2-$m|n'`; $i[$_]=$i[$_+1]*($_+1)%$m for reverse 0..$N-1; for$k(1..$N){ ($x+=$f[$N]*$i[$k]%$m*$i[$N-$k]%$m*`dc -e'$k $N $k-$m|n'`%$m)%=$m } print$x