define pyk of assoc one x address x index x end assoc as text unicode start of text unicode small a unicode small s unicode small s unicode small o unicode small c unicode space unicode small o unicode small n unicode small e unicode space unicode asterisk unicode space unicode small a unicode small d unicode small d unicode small r unicode small e unicode small s unicode small s unicode space unicode asterisk unicode space unicode small i unicode small n unicode small d unicode small e unicode small x unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small a unicode small s unicode small s unicode small o unicode small c unicode end of text end unicode text end text end define
define tex of assoc one x address x index x end assoc 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 a unicode small s unicode small s unicode small o unicode small c unicode right brace unicode underscore unicode one 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 assoc one var a address var d index var i end assoc as var a is atomic select var d tagged guard ( var i tagged guard true ) else var a head is cardinal select ( var i tagged equal ( var a head ) ) select var d tagged guard ( var a tail ) else var d tagged guard true end select else var d head select assoc one var a head address var d tail index var i end assoc else assoc one var a tail address var d tail index var i end assoc end select end select end select end define
The pyk compiler, version 0.grue.20050603 by Klaus Grue,