define pyk of eval three x function x stack x cache x end eval as text unicode start of text unicode small e unicode small v unicode small a unicode small l unicode space unicode small t unicode small h unicode small r unicode small e unicode small e unicode space unicode asterisk unicode space unicode small f unicode small u unicode small n unicode small c unicode small t unicode small i unicode small o unicode small n unicode space unicode asterisk unicode space unicode small s unicode small t unicode small a unicode small c unicode small k unicode space unicode asterisk unicode space unicode small c unicode small a unicode small c unicode small h unicode small e unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small e unicode small v unicode small a unicode small l unicode end of text end unicode text end text end define
define tex of eval three x function x stack x cache x end eval as text unicode start of text unicode newline unicode left brace unicode backslash unicode small c unicode small a unicode small l unicode space unicode capital e unicode right brace unicode underscore unicode three unicode left parenthesis unicode number sign unicode one unicode period unicode newline unicode comma unicode number sign unicode two unicode period unicode newline unicode comma unicode number sign unicode three unicode period unicode newline unicode comma unicode number sign unicode four unicode period unicode newline unicode right parenthesis unicode end of text end unicode text end text end define
define value of eval three var t function var f stack var s cache var c end eval as var f is cardinal select var f is singular select abstract var t first term var t second stack var s cache var c end abstract else var c tagged guard ( var s tagged guard ( var t first ) ) end select else var f select var c tagged guard lookup var t stack var s default true end lookup else eval four var f arguments var t tail stack var s cache var c end eval end select end select end define
The pyk compiler, version 0.grue.20050603 by Klaus Grue,