
!if $listype=1
 flist=xf(x),xg(x),f(x)g(x)
 ulist=x,x,x
 vlist=x,x,x
 ylist=x*f,x*g,f*g
 !exit
!endif

!if $listype=2
 flist=f^2(x),g^2(x),f(x)g(x)
 ulist=x,x,x
 vlist=x,x,x
 ylist=f^2,g^2,f*g
 !exit
!endif

!if $listype=3
 flist=f(x)g(x),f(x)g(-x),f(-x)g(x),f(-x)g(-x)
 ulist=x,x,-x,-x
 vlist=x,-x,x,-x
 ylist=f*g,f*g,f*g,f*g
 !exit
!endif

!if $listype=4
 flist=f(x+1)g(x+1),f(x+1)g(x-1),f(x-1)g(x+1),f(x-1)g(x-1)
 ulist=(x+1),(x+1),(x-1),(x-1)
 vlist=(x+1),(x-1),(x+1),(x-1)
 ylist=f*g,f*g,f*g,f*g
 !exit
!endif

!if $listype=5
 flist=f(x+1)g(x+1),f(x+1)g(x-1),f(x-1)g(x+1),f(x-1)g(x-1),f(x)g(x)+1,f(x)g(x)-1
 ulist=(x+1),(x+1),(x-1),(x-1),x,x
 vlist=(x+1),(x-1),(x+1),(x-1),x,x
 ylist=f*g,f*g,f*g,f*g,f*g+1,f*g-1
 !exit
!endif

!if $listype=6
 flist=f^2(x),g^2(x),f(x)g(x),-f^2(x),-g^2(x),-f(x)g(x)
 ulist=x,x,x,x,x,x
 vlist=x,x,x,x,x,x
 ylist=f^2,g^2,f*g,-f^2,-g^2,-f*g
 !exit
!endif

!if $listype=7
 flist=xf(x),xg(x),f(x)g(x),-xf(x),-xg(x),-f(x)g(x)
 ulist=x,x,x,x,x,x
 vlist=x,x,x,x,x,x
 ylist=x*f,x*g,f*g,-x*f,-x*g,-f*g
 !exit
!endif

!if $listype=8
 flist=f(x)g(x),f(x)g(-x),f(-x)g(x),f(-x)g(-x),-f(x)g(x),-f(x)g(-x),-f(-x)g(x),-f(-x)g(-x)
 ulist=x,x,-x,-x,x,x,-x,-x
 vlist=x,-x,x,-x,x,-x,x,-x
 ylist=f*g,f*g,f*g,f*g,-f*g,-f*g,-f*g,-f*g
 !exit
!endif

!if $listype=9
 flist=xf(x),xg(x),f(x)g(x),xf(-x),xg(-x),f(-x)g(x),f(x)g(-x),f(-x)g(-x)
 ulist=x,x,x,-x,x,-x,x,-x
 vlist=x,x,x,x,-x,x,-x,-x
 ylist=x*f,x*g,f*g,x*f,x*g,f*g,f*g,f*g
 !exit
!endif

!if $listype=10
 flist=f(x)g(x),f(x)g(-x),f(-x)g(x),f(-x)g(-x),f(x)+g(x),f(x)+g(-x),f(-x)+g(x),f(-x)+g(-x)
 ulist=x,x,-x,-x,x,x,-x,-x
 vlist=x,-x,x,-x,x,-x,x,-x
 ylist=f*g,f*g,f*g,f*g,f+g,f+g,f+g,f+g
 !exit
!endif

