read `PisanoP.txt`: N:=150000: K:=10: print(`This is for the Septa-Fibonacci sequence `): print(`We try up to the `, N, `terms, those for which it is does not suffice to find a period are labeled FAIL`): print(``): print(`The first`, K, `terms of the Pisano periods mod m, starting with m=1 are`): lprint(PisSeq([[0,0,0,0,0,0,1],[1,1,1,1,1,1,1]],N,K)); print(``): print(`--------------------------------`): print(``): print(`This took`, time(), `second. `): quit: