# Last modified on Sun Jul  2 13:42:24 PDT 1995 by heydon
#
# x :: x = (x, x) -> Print(Unparse(x))

V3
"No solution found to x :: x = (x, x)\n"
V4
"\n"

C1

# x = L[1]
.PUSHM3NIL
b1
.PUSHM3NIL
b1
.SOLVE
u1
u0
u1
# x = (x,x)
b1
u0
u0
u0
.TJUMP
s11
# NOSOLVE:
.PUSHG
c3
.CALLEXT
c0
.RET
.POPL
s1
.INCSP
b1
.PUSHL
s1
.CALLEXT
c2
.DECSP
b1
.CALLEXT
c0
.PUSHG
c4
.CALLEXT
c0
.RET