read SAP: print(`The Series Expansion for `): print(`2D (square-lattice) Self-Avoiding Polygons 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 Self-Avoiding Polygons `): lprint(`of GLOBAL width <=`, n , `equals `): lu:=GFSeries(n,L): print(lu): print(``): print(`The quare roots of the two last ratios (giving appx. to `): print(` the "connective consts.") for the counted class`): print(` are: `): print(evalf(sqrt(lu[L]/lu[L-1])),evalf(sqrt(lu[L-1]/lu[L-2])) ): od: quit: