(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))