read CatalanCC: N:=10^100: m:=17*13: a:=1000: print(` The `, N, `-th Catalan number mod`, m, ` is`): print(CatModM(N,1001)): print(`The sequence of the Catalan numbers, modulo`, m, `from `, N , `to `, N+a , `is: `): lprint([seq(CatModM(N+i,m), i=0..a)]): print(`This took`, time(), `seconds. `): quit: