define pyk of peano nonfree star var x in var y end nonfree 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 n unicode small o unicode small n 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 i unicode small n unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small n unicode small o unicode small n 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 nonfree star var x in var y end nonfree as text unicode start of text unicode newline unicode backslash unicode small d unicode small o unicode small t unicode left brace unicode small n unicode small o unicode small n unicode small f unicode small r unicode small e unicode small e unicode right brace unicode circumflex unicode asterisk unicode left parenthesis unicode number sign unicode one unicode period unicode newline unicode comma unicode number sign unicode two unicode period unicode newline unicode right parenthesis unicode end of text end unicode text end text end define
define value of peano nonfree star var x in var y end nonfree as var x tagged guard tagged if var y then true else tagged if peano nonfree var x in var y head end nonfree then peano nonfree star var x in var y tail end nonfree else false end if end if end define
The pyk compiler, version 0.grue.20050603 by Klaus Grue,