define pyk of var x avoid one var y as text unicode start of text unicode asterisk unicode space unicode small a unicode small v unicode small o unicode small i unicode small d unicode space unicode small o unicode small n unicode small e unicode space unicode asterisk unicode end of text end unicode text end text end define
define tex of var x avoid one var y as text unicode start of text unicode number sign unicode one unicode period unicode newline unicode backslash unicode number sign unicode period unicode circumflex unicode one unicode number sign unicode two unicode period unicode end of text end unicode text end text end define
define value of var x avoid one var y as tagged if var y is object var then not ( var x term equal var y ) else newline tagged if not ( var y term root equal quote for all objects var x indeed var y end quote ) then var x avoid star ( var y tail ) else newline tagged if var x term equal ( var y first ) then true else var x avoid one ( var y second ) end if end if end if end define
The pyk compiler, version 0.grue.20060417 by Klaus Grue,