order x y
np=1
def gen
x
b1 x^2
b2 x^3
b3 x^4
b4 x^5

def rev
y
c1 y^2
c2 y^3
c3 y^4
c4 y^5

def one = 1
def two = 2
def zero= 0
def yy  = y
def dup = rev / yy
com dup = dup - one
maxe = 6
sub gen for y in rev
def cnt = 0
def six = 6
def ex  = x
def rrev= y
def yp  = y

lab loop
def tem = rev
sub q for x in tem
sub 0 for q in tem
com rev = rev - tem
def rev = rev / ex
com cnt = cnt + one
if cnt.le.two goto loop
def yp = yp * yy
def dup = dup / yy
def cc  = dup
sub 0 for y in cc
com dup = dup -cc

sub zero for cc in tem
def tt  = -tem
sub tt for cc in rev
def rr  = -tem * yp
com rrev= rrev + rr
np = 2
pri rr
np = 0
if cnt.lt.six  goto loop
end input
