read FreeSAW:
 
print(`The Series Expansion for `):
print(` 2D (square-lattice) Self-Avoiding Walks of Locally Bounded Width `):
K:=5:
L:=100:
for n from 1 to K do
lprint(`The first `, L, `coeffs. of the generating function (in the `):
lprint(` variable s), enumerating  2D (square-lattice) `):
lprint(`Self-Avoiding walks `):
lprint(`of width <=`, n , `equals `):
lu:=gfSeriesWf(n,L):
print(lu):
print(``):
print(`The two last ratios (giving appx. to the "connective consts.")`):
print(` are: `):
print(evalf(lu[L]/lu[L-1]),evalf(lu[L-1]/lu[L-2]) ):
od:
quit: