from X cons X from s X 2ndspos 0 Z rnil 2ndspos s N cons X cons Y Z rcons posrecip Y 2ndsneg N Z 2ndsneg 0 Z rnil 2ndsneg s N cons X cons Y Z rcons negrecip Y 2ndspos N Z pi X 2ndspos X from 0 plus 0 Y Y plus s X Y s plus X Y times 0 Y 0 times s X Y plus Y times X Y square X times X X from 1 1 cons 2 1 s 1 1 2ndspos 2 1 2 0 0 rnil 0 rcons 2 1 2 posrecip 1 1 2ndsneg 2 1 2 negrecip 1 1 pi 1 1 plus 2 1 2 times 2 1 2 square 1 1 FULL ./TRS/CSR/Ex1_2_AEL03.trs