define pyk of x free for x in x as text unicode start of text unicode quotation mark unicode space unicode small f unicode small r unicode small e unicode small e unicode space unicode small f unicode small o unicode small r unicode space unicode quotation mark unicode space unicode small i unicode small n unicode space unicode quotation mark unicode end of text end unicode text end text end define
define tex of var a free for var x in var b 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 f unicode small o unicode small r unicode right brace unicode space unicode number sign unicode two 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 i unicode small n unicode right brace unicode space unicode number sign unicode three unicode period unicode end of text end unicode text end text end define
define value of var a free for var x in var b as var a tagged guard var x tagged guard newline tagged if var b is metavar then true else newline tagged if not var b term root equal quote all x indeed x end quote then var a free for star var x in var b tail else newline tagged if var x term equal var b first then true else newline tagged if not var x free in var b second then true else newline tagged if var b first free in var a then false else newline var a free for var x in var b second end if end if end if end if end if end define
The pyk compiler, version 0.grue.20060417+ by Klaus Grue,