open Num#load"nums.cma";;while 1=1do let n,c=read_int(),ref(Int 1)in for i=1to n do c:=Int(n+i)//Int i*/ !c done;print_endline(string_of_num!c)done