define pyk of var x plus one var y as text unicode start of text unicode asterisk unicode space unicode small p unicode small l unicode small u unicode small s unicode space unicode small o unicode small n unicode small e unicode space unicode asterisk unicode end of text end unicode text end text end define
define tex of var x plus one var y as text unicode start of text unicode number sign unicode one unicode period unicode newline unicode backslash unicode small m unicode small a unicode small t unicode small h unicode small o unicode small p unicode left brace unicode plus sign unicode underscore unicode one 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 plus one var y as var x is singular select var y plus zero one else var y is singular select var x plus zero one else var x head select var y head select false double ( var x tail plus zero ( var y tail ) ) else true double ( var x tail plus one ( var y tail ) ) end select else var y head select true double ( var x tail plus one ( var y tail ) ) else false double ( var x tail plus one ( var y tail ) ) end select end select end select end select end define
The pyk compiler, version 0.grue.20050603 by Klaus Grue,