read USAW:
lprint(`An Umbral Scheme for Self-Avoding Walks with at most`):
lprint(` 0 L-R pairs per vertical cross-section is`):
lu0:=SAWUmSc(0,x,q):
print(YafeUmSc(lu0,F,D)):
lprint(`The first 60 terms of the enumerating sequence are`):
lprint(ApplyUmSc(lu0,q,50,{x[1]})[2]):
quit: