read `ParkingWilf.txt`:

K:=10:
read `ParkingSchroder.txt`:

lprint(PWilfSeq({[1,2,3,4],[2,1,3,4]},K));

lprint([seq(Bn(i),i=1..K)]):


print(time());

quit: