define pyk of isOrderedPair( x , x , x ) as text unicode start of text unicode small i unicode small s unicode capital o unicode small r unicode small d unicode small e unicode small r unicode small e unicode small d unicode capital p unicode small a unicode small i unicode small r unicode left parenthesis unicode space unicode quotation mark unicode space unicode comma unicode space unicode quotation mark unicode space unicode comma unicode space unicode quotation mark unicode space unicode right parenthesis unicode end of text end unicode text end text end define
define tex of isOrderedPair( var x , var y , var z ) as text unicode start of text unicode capital i unicode small s unicode capital o unicode small r unicode small d unicode small e unicode small r unicode small e unicode small d unicode capital p unicode small a unicode small i unicode small r unicode left parenthesis unicode number sign unicode one unicode period unicode newline unicode comma unicode number sign unicode two unicode period unicode newline unicode comma unicode number sign unicode three unicode period unicode newline unicode right parenthesis unicode end of text end unicode text end text end define
define macro of isOrderedPair( var sx , var sy , var sz ) as lambda var t dot lambda var s dot lambda var c dot macro define four var t state var s cache var c definition quote macro define isOrderedPair( var sx , var sy , var sz ) as exist0 object op1 indeed exist0 object op2 indeed object op1 in0 var sy and0 object op2 in0 var sz and0 var sx = (o object op1 , object op2 ) end define end quote end define end define
The pyk compiler, version 0.grue.20060417+ by Klaus Grue,