------- code table 1
L0	PUSHM3NIL 3
L2	PUSHM3NIL 3
L4	SOLVE 3, 0, 3: 
	  a=(b,c)
	  IS-TEXT(b)
	  IS-REAL(c)
L24	TJUMP L38
L27	PUSHG 3
L32	CALLEXT 0
L37	RET 
L38	POPL 3
L41	POPL 2
L44	POPL 1
L47	INCSP 1
L49	PUSHL 1
L52	CALLEXT 2
L57	DECSP 1
L59	CALLEXT 0
L64	PUSHG 4
L69	CALLEXT 0
L74	INCSP 1
L76	PUSHL 2
L79	CALLEXT 2
L84	DECSP 1
L86	CALLEXT 0
L91	PUSHG 4
L96	CALLEXT 0
L101	INCSP 1
L103	PUSHL 3
L106	CALLEXT 2
L111	DECSP 1
L113	CALLEXT 0
L118	PUSHG 4
L123	CALLEXT 0
L128	RET 

V3	"No solution found to x, y, z :: x = (y, z) AND IS-TEXT(y) AND IS-REAL(z)\n"
V4	"\n"

Running program...
("", 0)
""
0
Execution completed successfully