Church Numerals in ski by kaki

(set! - define)(- l lambda)(- e read-char)(-(s x)(l(y)(l(z)((x z)(y z)))))(-(k x)(l(y)x))(-(i x)x)(-(r)(let1 c #`",(e)"(if(#/`/c)`(,(r),(r))(string->symbol c))))(while(print(((eval(r)9)(l(x)(+ x 1)))0))(e))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page