define pyk of var x sequent equal var y as text unicode start of text unicode asterisk unicode space unicode small s unicode small e unicode small q unicode small u unicode small e unicode small n unicode small t unicode space unicode small e unicode small q unicode small u unicode small a unicode small l unicode space unicode asterisk unicode end of text end unicode text end text end define
define tex of var x sequent equal var y 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 left brace unicode small s unicode right brace unicode left brace unicode equal sign 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 x sequent equal var y as tagged if not ( var x second term equal ( var y second ) ) then false else tagged if var x zeroth term set equal ( var y zeroth ) then var x first term set equal ( var y first ) else false end if end if end define
The pyk compiler, version 0.grue.20060417 by Klaus Grue,