read `ParkingSchroder.txt`:

L:=100:

print(`The first`,L, `terms of the Parking Schroder numbers, that cound the number of parking functions of length n that lead to permutations avoiding the set of patterns {1234, 2134} are `):
print(``):
lprint([seq(Bn(i),i=1..L)]):
print(``):
print(`----------------------`):
print(``):
print(`This took`, time(), `seconds. `):

quit: