define pyk of x term list equal x as text unicode start of text unicode quotation mark unicode space unicode small t unicode small e unicode small r unicode small m unicode space unicode small l unicode small i unicode small s unicode small t unicode space unicode small e unicode small q unicode small u unicode small a unicode small l unicode space unicode quotation mark unicode end of text end unicode text end text end define
define tex of x term list equal x as text unicode start of text unicode number sign unicode one unicode period unicode newline unicode backslash unicode small s unicode small t unicode small a unicode small c unicode small k unicode small r unicode small e unicode small l unicode space unicode left brace unicode small t unicode circumflex unicode asterisk unicode right brace unicode left brace unicode equal sign unicode right brace unicode number sign unicode two unicode period unicode end of text end unicode text end text end define
define value of var x term list equal var y as var x is atomic select tagged if var y is atomic then true else false end if else tagged if var y is atomic then false else tagged if var x head term equal var y head then var x tail term list equal var y tail else false end if end if end select end define
The pyk compiler, version 0.grue.20060417+ by Klaus Grue,