read ANIMALS: K:=5: print(`The Generating Functions for `): print(` 2D (2D site) Lattice-Animals of (Globally) Bounded Width `): for n from 1 to K do lprint(`The generating function (in the variable s) `): lprint(` enumerating 2D (site) lattice animals`): lprint(`of width <=`, n , `equals `): print(GF(n,s)): print(``): od: quit: