define pyk of lookup x stack x default x end lookup as text unicode start of text unicode small l unicode small o unicode small o unicode small k unicode small u unicode small p 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 d unicode small e unicode small f unicode small a unicode small u unicode small l unicode small t unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small l unicode small o unicode small o unicode small k unicode small u unicode small p unicode end of text end unicode text end text end define
define tex of lookup x stack x default x end lookup as text unicode start of text unicode newline unicode backslash unicode small m unicode small a unicode small t unicode small h unicode small b unicode small f unicode space unicode left brace unicode small l unicode small o unicode small o unicode small k unicode small u unicode small p unicode right brace 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 right parenthesis unicode end of text end unicode text end text end define
define value of lookup var v stack var s default var d end lookup as var v tagged guard ( var d tagged guard tagged if var s then var d else tagged if var v term equal ( var s head head ) then var s head tail else lookup var v stack var s tail default var d end lookup end if end if ) end define
The pyk compiler, version 0.grue.20060417 by Klaus Grue,