define pyk of block two x end block as text unicode start of text unicode small b unicode small l unicode small o unicode small c unicode small k unicode space unicode small t unicode small w unicode small o unicode space unicode quotation mark unicode space unicode small e unicode small n unicode small d unicode space unicode small b unicode small l unicode small o unicode small c unicode small k unicode end of text end unicode text end text end define
define tex of block two var b end block as text unicode start of text unicode newline unicode capital b unicode small l unicode small o unicode small c unicode small k unicode underscore unicode two unicode left parenthesis unicode number sign unicode one unicode period unicode newline unicode right parenthesis unicode end of text end unicode text end text end define
define value of block two var b end block as tagged if var b term root equal quote var x infer var y end quote then quote expand var b term quote var x infer var y end quote stack quote var x end quote pair var b first pair quote var y end quote pair block two var b second end block pair true end expand else tagged if var b term root equal quote var x endorse var y end quote then quote expand var b term quote var x endorse var y end quote stack quote var x end quote pair var b first pair quote var y end quote pair block two var b second end block pair true end expand else tagged if var b term root equal quote all var x indeed var y end quote then quote expand var b term quote all var x indeed var y end quote stack quote var x end quote pair var b first pair quote var y end quote pair block two var b second end block pair true end expand else tagged if var b term root equal quote var x cut var y end quote then block two var b second end block else tagged if var b term root equal quote var x conclude var y end quote then var b second else absurdity end if end if end if end if end if end define
The pyk compiler, version 0.grue.20060417+ by Klaus Grue,