packed UTF 9 by ksk

let rec($)x i=x/64*64<x&Obj.magic print_char x;x/512+Scanf.scanf"%x "(lsl)i$i-1+1/i*9;;0$9

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

download

return to the top page