define pyk of occur var t in var u substitution var s end occur as text unicode start of text unicode small o unicode small c unicode small c unicode small u unicode small r unicode space unicode asterisk unicode space unicode small i unicode small n unicode space unicode asterisk unicode space unicode small s unicode small u unicode small b unicode small s unicode small t unicode small i unicode small t unicode small u unicode small t unicode small i unicode small o unicode small n unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small o unicode small c unicode small c unicode small u unicode small r unicode end of text end unicode text end text end define
define tex of occur var t in var u substitution var s end occur as text unicode start of text unicode newline unicode small o unicode small c unicode small c unicode small u unicode small r 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 occur var t in var u substitution var s end occur as var s tagged guard tagged if var u is cardinal then tagged if var t tagged equal var u then true else occur var t in var s assoc var u end assoc substitution var s end occur end if else occur star var t in var u tail substitution var s end occur end if end define
The pyk compiler, version 0.grue.20060417 by Klaus Grue,