read ANIMALS: print(`The Series Expansion for `): print(` 2D (2D site) Lattice-Animals of Globally Bounded Width `): K:=8: 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) lattice animals`): lprint(`of width <=`, n , `equals `): lu:=GFseries(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: