define pyk of var x times zero var y as text unicode start of text unicode asterisk unicode space unicode small t unicode small i unicode small m unicode small e unicode small s unicode space unicode small z unicode small e unicode small r unicode small o unicode space unicode asterisk unicode end of text end unicode text end text end define
define tex of var x times zero var y as text unicode start of text unicode number sign unicode one unicode period unicode newline unicode backslash unicode small c unicode small d unicode small o unicode small t unicode underscore unicode zero 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 times zero var y as var y is singular select var x tagged guard zero else var y head select true double ( var x times zero ( var y tail ) ) else tagged parenthesis true double ( var x times zero ( var y tail ) ) end tagged plus zero var x end select end select end define
The pyk compiler, version 0.grue.20060417 by Klaus Grue,