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

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