define pyk of var v free in var t as text unicode start of text unicode asterisk unicode space unicode small f unicode small r unicode small e unicode small e unicode space unicode small i unicode small n unicode space unicode asterisk unicode end of text end unicode text end text end define
define tex of var x free in var y as text unicode start of text unicode number sign unicode one unicode period unicode newline unicode backslash unicode small m unicode small a unicode small t unicode small h unicode small r unicode small e unicode small l unicode space unicode left brace unicode small f unicode small r unicode small e unicode small e unicode backslash unicode space unicode small i unicode small n unicode right brace unicode space unicode number sign unicode two unicode period unicode end of text end unicode text end text end define
define value of var v free in var t as newline tagged if var v term equal var t then true else newline tagged if not ( var t term root equal quote all x indeed x end quote ) then var v free in star ( var t tail ) else newline tagged if var v term equal ( var t first ) then false else var v free in ( var t second ) end if end if end if end define
The pyk compiler, version 0.grue.20060417 by Klaus Grue,