[project @ 2000-06-29 13:13:43 by sewardj]
authorsewardj <unknown>
Thu, 29 Jun 2000 13:13:43 +0000 (13:13 +0000)
committersewardj <unknown>
Thu, 29 Jun 2000 13:13:43 +0000 (13:13 +0000)
Update the .stdout, which appears to have zero length in the repository.
Give it its own .stdin, rather than relying on
  ../../spectral/hartel/listcompr/listcompr.stdout,
so that latter can change without breaking this test.

real/compress2/Makefile
real/compress2/compress2.stdin [new file with mode: 0644]
real/compress2/compress2.stdout

index fb9d7ee..b9798ec 100644 (file)
@@ -2,7 +2,6 @@ TOP = ../..
 include $(TOP)/mk/boilerplate.mk
 
 SRC_HC_OPTS += -fglasgow-exts
-SRC_RUNTEST_OPTS += -i ../../spectral/hartel/listcompr/listcompr.stdout
 
 include $(TOP)/mk/target.mk
 
diff --git a/real/compress2/compress2.stdin b/real/compress2/compress2.stdin
new file mode 100644 (file)
index 0000000..f4c6174
--- /dev/null
@@ -0,0 +1,20000 @@
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3) IN  ((x,y):(xys_h3 xys_t3)))) IN  (xys_h3 ys)))) IN  (xys_h2 xs));
+sq x = (x*x);
+odd x = (if ((x%1)=0) true false);
+q c d = (LET 
+e z = (c*z);
+p a b = (LET 
+f x y = (c*x);
+g y z = (f b y);
+h = (g a d) IN  (f (g h a) c));
+q = (e (p c d)) IN  (e q));
+sqs xs = (LET 
+sqs_h1 sqs_l1 = (if (null sqs_l1) [] (LET 
+x = (hd sqs_l1);
+sqs_t1 = (tl sqs_l1) IN  (if (odd x) ((sq x):(sqs_h1 sqs_t1)) (sqs_h1 sqs_t1)))) IN  (sqs_h1 xs));
+xys xs ys = (LET 
+xys_h2 xys_l2 = (if (null xys_l2) [] (LET 
+x = (hd xys_l2);
+xys_t2 = (tl xys_l2) IN  (LET 
+xys_h3 xys_l3 = (if (null xys_l3) (xys_h2 xys_t2) (LET 
+y = (hd xys_l3);
+xys_t3 = (tl xys_l3)