read SAP:
 
K:=4:
 
print(`The Generating Functions for `):
print(` 2D Self-Avoiding Polygons of (Globally) Bounded Width `):
 
for n from 1 to K do
lprint(`The generating function (in the variable s) `):
lprint(` enumerating  2D self-avoiding polygons `):
lprint(`of width <=`, n , `equals `):
print(GF(n,s)):
print(``):
od:
quit: