m@main=do n<-readLn;print$foldl(\y x->(x+n)*y`div`x)1[1..n];m