read ManuelRookRecurrences: read AsyRec: Constd:=proc(d): d^((d+2)/2)*(d+2)^((1-d)/2)*2^((1-d)/2)*Pi^((1-d)/2)/(d+1): end: Sipur:=proc(K,L) local d,gu,ope: for d from 2 to K do print(`----------------------------------------------`): print(`The first`, L, `terms of the sequence enumerating rook-walks in `): print(`dimension`, d, `from the origin`, [0$d] , `to location`, [n$d], `are `): ope:=subs({seq(f[n+i1]=N^i1,i1=0..d+1)},RRope[d]): gu:=SeqFromRec(ope,n,N,Ini[d],L): print(gu): od: end: Sipur(9,50): print(`This took`, time(), `seconds of CPU time (using the already computed Manuel Kauers' computer recurrences `): #quit: