define pyk of expandList( x , x , x ) as text unicode start of text unicode small e unicode small x unicode small p unicode small a unicode small n unicode small d unicode capital l unicode small i unicode small s unicode small t 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 expandList( var x , var y , var z ) as text unicode start of text unicode capital e unicode small x unicode small p unicode small a unicode small n unicode small d unicode capital l unicode small i unicode small s unicode small t 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 value of expandList( var t , var s , var c ) as var t tagged guard var s tagged guard var c tagged guard tagged if var t is atomic then true else state expand var t head state var s cache var c end expand pair expandList( var t tail , var s , var c ) end if end define
The pyk compiler, version 0.grue.20060417+ by Klaus Grue,