define pyk of peano free star var a set var x to var b end free as text unicode start of text unicode small p unicode small e unicode small a unicode small n unicode small o unicode space unicode small f unicode small r unicode small e unicode small e unicode space unicode small s unicode small t unicode small a unicode small r unicode space unicode asterisk unicode space unicode small s unicode small e unicode small t unicode space unicode asterisk unicode space unicode small t unicode small o unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small f unicode small r unicode small e unicode small e unicode end of text end unicode text end text end define
define tex of peano free star var a set var x to var b end free as text unicode start of text unicode newline unicode backslash unicode small d unicode small o unicode small t unicode left brace unicode small f unicode small r unicode small e unicode small e unicode right brace unicode left brace unicode right brace unicode circumflex unicode asterisk unicode backslash unicode small l unicode small a unicode small n unicode small g unicode small l unicode small e unicode space unicode number sign unicode one unicode period unicode newline unicode vertical line unicode space unicode number sign unicode two unicode period unicode newline unicode colon unicode equal sign unicode space unicode number sign unicode three unicode period unicode newline unicode backslash unicode small r unicode small a unicode small n unicode small g unicode small l unicode small e unicode end of text end unicode text end text end define
define value of peano free star var a set var x to var b end free as var x tagged guard ( var b tagged guard tagged if var a then true else tagged if peano free var a head set var x to var b end free then peano free star var a tail set var x to var b end free else false end if end if ) end define
The pyk compiler, version 0.grue.20050603 by Klaus Grue,