$m=1e9+7;
$s[1]=$a[1]=1;
$s[$_]=($s[$_-2]+($a[$_]=($_*$s[$_-1])%$m))%$m for 2..<>;
print$a[-1];