read SAW:
 
print(`The Series Expansion for `):
print(` 2D (square-lattice) Self-Avoiding Walks of Globally 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 (site) self-avoiding walks`):
lprint(`of global width <=`, n , `equals `):
lu:=GFSeriesW(n,L):
print(lu):
print(``):
print(` The two last ratios (giving appx. to `):
print(` The "connective consts.") for the counted class`):
print(` are: `):
print(evalf(lu[L]/lu[L-1]),evalf(lu[L-1]/lu[L-2]) ):
od:
quit: