define pyk of x sameF x as text unicode start of text unicode quotation mark unicode space unicode small s unicode small a unicode small m unicode small e unicode capital f unicode space unicode quotation mark unicode end of text end unicode text end text end define
define tex of var x sameF var y as text unicode start of text unicode capital s unicode capital f unicode left parenthesis unicode number sign unicode one unicode period unicode newline unicode comma unicode number sign unicode two unicode period unicode newline unicode right parenthesis unicode end of text end unicode text end text end define
define macro of var fx sameF var fy as lambda var t dot lambda var s dot lambda var c dot macro define four var t state var s cache var c definition quote macro define var fx sameF var fy as for all object ep indeed exist0 object n indeed for all object m indeed ( 0 < object ep imply object n <= object m imply | [ var fx ; object m ] - [ var fy ; object m ] | < object ep ) end define end quote end define end define
The pyk compiler, version 0.grue.20060417+ by Klaus Grue,